none
me sale erroral presionar el boton en visual Studio 2010 RRS feed

  • Pregunta

  • Hola quiero mostrarles el codigo:

    Public Class Form1
    
        Dim RESPUESTA, td, cd, TR, cr As Single
    
        Dim SALDO As Single
    
        'Función Especial Indica si a ingresado una vocal con tilde, la letra ñ o Ñ o pulso
        'ENTER, la barra espaciadora o de retroceso (BackSpace).
    
        Function Especial(ByVal v As Integer) As Boolean
            If v = 13 Or v = 32 Or v = 8 Or v = 225 Or v = 233 Or v = 237 Or v = 243 Or v = 250 Or v = 241 Or v = 209 Then
                Especial = True
            Else
                Especial = False
            End If
        End Function
    
    
        ' PARA VER SI LA LETRA INGRESADA ES MAYUSCULA
    
        Function Mayuscula(ByVal v As Integer) As Boolean
            If v >= 65 And v <= 90 Then
                Mayuscula = True
            Else
                Mayuscula = False
            End If
        End Function
    
        ' Función Minúscula Esta función indica si la letra ingresada esta en minúscula.
    
        Function Minuscula(ByVal v As Integer) As Boolean
            If v >= 97 And v <= 122 Then
                Minuscula = True
            Else
                Minuscula = False
            End If
        End Function
    
    
        'Función Número Esta función indica si el carácter ingresado es un número.
    
        Function Numero(ByVal v As Integer) As Boolean
            If v < 48 Or v > 57 Then
                Numero = False
            Else
                Numero = True
            End If
        End Function
    
        Private Sub Button_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_OK.Click
    
            Me.Text_NOMBRE.ReadOnly = True
            Me.TextBox_MOVIMIENTO.ReadOnly = False
            Me.Button_OK.Visible = False
            Me.Button_DEPOSITO.Enabled = True
            Me.Button_RETIRO.Enabled = True
    
            'REUTILIZAZMOS ELINPUBOX PARA AGREGAR EL SALDO INCIAL
    
    
    
            RESPUESTA = CSng(InputBox("MONTO DE APERTURA" + Chr(13) + Chr(13) + " LA CUENTA SE APERTURA CON CUALQUIER MONTO", "NUEVA CUENTA", CStr(350)))
    
    
            Me.Label_SALDO_ACTUAL.Text = CStr(RESPUESTA)
    
    
            td = RESPUESTA
            cd = 1
    
            Me.Label_CANTIDAD_DEPOSITO.Text = CStr(td)
            Me.Label_TOTAL_DEPOSITO.Text = CStr(td)
            Me.Label_NUMERO_DEPOSITO.Text = CStr(cd)
    
    
    
        End Sub
    
        Private Sub Button_DEPOSITO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_DEPOSITO.Click
    
    
            Dim DEPOSITO As Single
    
            DEPOSITO = CSng(Me.TextBox_MOVIMIENTO.Text)
    
            td = td + DEPOSITO
            cd = cd + 1
    
            Me.Label_CANTIDAD_DEPOSITO.Text = CStr(DEPOSITO)
            Me.Label_TOTAL_DEPOSITO.Text = CStr(td)
            Me.Label_NUMERO_DEPOSITO.Text = CStr(cd)
    
            SALDO = CSng(Me.Label_SALDO_ACTUAL.Text)
    
            Me.Label_SALDO_ACTUAL.Text = CStr(SALDO + DEPOSITO)
    
    
    
    
    
    
    
    
        End Sub
    
        Private Sub Button_RETIRO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_RETIRO.Click
    
    
            Dim RETIRO As Single
    
            SALDO = CSng(Me.Label_SALDO_ACTUAL.Text)
            RETIRO = CSng(Me.TextBox_MOVIMIENTO.Text)
    
    
            If SALDO > RETIRO Then
    
    
                TR = TR + RETIRO
    
                cr = cr + 1
    
                Me.Label_CANTIDAD_RETIRO.Text = CStr(RETIRO)
    
                Me.Label_TOTAL_RETIRO.Text = CStr(TR)
    
    
    
                Me.Label_SALDO_ACTUAL.Text = CStr(SALDO - RETIRO)
    
                Me.Label_NUMERO_RETIRO.Text = CStr(cr)
    
            Else
    
                MsgBox(" EL RETIRO NO PUEDE SER EFECTUADO DEBIDO A QUE NOTIENES SUFICIENTE SALDO PARA PODER SACAR ESA CANTIDAD", MsgBoxStyle.Information)
    
    
            End If
    
            
    
    
    
    
    
    
        End Sub
    
        Private Sub Text_NOMBRE_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text_NOMBRE.KeyPress
    
    
            Dim letra As String
    
    
            If Mayuscula(Asc(e.KeyChar)) Or Minuscula(Asc(e.KeyChar)) Or
                Especial(Asc(e.KeyChar)) Then
    
                letra = UCase(e.KeyChar)
    
                e.KeyChar = UCase(e.KeyChar)
    
            Else
                MsgBox("Debe Ingresar Sólo LETRAS", MsgBoxStyle.Information,
                          "Cuidado")
                e.KeyChar = ChrW(0)
               
    
            End If
    
    
    
    
    
    
        End Sub
    
        Private Sub TextBox_MOVIMIENTO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_MOVIMIENTO.KeyPress
    
    
            If Numero(Asc(e.KeyChar)) Or Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 13 Then
    
    
    
            Else
                MsgBox("Debe Ingresar Sólo Números", MsgBoxStyle.Information,
                "Cuidado")
                e.KeyChar = ChrW(0)
    
            End If
    
    
    
    
        End Sub
    
        
        
        Private Sub Button_CLIENTE_NUEVO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_CLIENTE_NUEVO.Click
    
            ' LIMPIANDO VALORES
    
            Me.Text_NOMBRE.Text = ""
            Me.TextBox_MOVIMIENTO.Text = ""
    
            Me.Label_CANTIDAD_DEPOSITO.Text = ""
            Me.Label_CANTIDAD_RETIRO.Text = ""
    
            Me.Label_NUMERO_DEPOSITO.Text = ""
            Me.Label_NUMERO_RETIRO.Text = ""
    
            Me.Label_SALDO_ACTUAL.Text = ""
    
            Me.Label_TOTAL_DEPOSITO.Text = ""
            Me.Label_TOTAL_RETIRO.Text = ""
    
            Me.Button_OK.Visible = True
    
    
            Me.Text_NOMBRE.Focus()
    
    
    
        End Sub
    
        Private Sub Button_SALIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_SALIR.Click
    
            Dim RESPUESTA As MsgBoxResult
    
    
            RESPUESTA = MsgBox(" DESEAS SALIR DE LA APLICACION ", MsgBoxStyle.YesNo, " SISTEMA")
    
            If RESPUESTA = MsgBoxResult.Yes Then
    
                Me.Close()
    
            End If
    
    
    
    
    
        End Sub
    End Class
    

    Ahora el problema que tengo es que cuando en TEXTBOX_MOVIMIENTO y tambien si no hay nada en TEXT_NOMBRE  no hay nada en numero y le doy clic en deposito o retiro me sale el mismo error y/o se sale del programa y me aparece el mensaje que le mostre en la imagen de arriba

    ahora yo quisiera saber como hacerle que para que al dar clic sobre estos botones no me salga ningun error, simplemente que no haga nada.

    agradeciendo su atencion y comprension, mjuchas gracias.


    Guillermo George Ishikawa

    jueves, 19 de septiembre de 2013 21:04