Programación General > Visual Basic 6.0 e inferiores

 Valida RUT que envía DESBORDAMIENTO :( porfis?

<< < (2/2)

RHL:
Me dices que son de tipo integer las variables vari1, vari2, vari3

dices que aqui da error:
Vari1 = Vari1 + Left(Right(txtRut, I + 1), 1) * Vari3

y dices que no funciona entonces debe ser porque el caracter que se obtiene despues de las operaciones:
Left(Right(txtRut, I + 1), 1) no es un alfanumerico.. que quieres hacer ?

will_lover:
ahi es donde me envia el error

will_lover:
codigo.

RHL:
Si debe ser porque el caracter obtenido de las operaciones left y rigth no es un caracter alfanumerico!
osea en la caja de texto ingresas letras no numeros

will_lover:
Lindo precioso... lo solucioné... muchas gracias... me ayudaste a encender la ampolleta.. jhajajajja
 toy feliz feliz...
 sabes lo que era¿?¡ 


Private Sub txtRut_Change()

    If txtRut.Text = "" Then
        txtdigito.Text = " ?[/b]" ' Esto era.. simplemente dejar el campo de texto "" asi... vacio...
    End If
    Dim CAL1, CAL2, CAL3 As Integer
    Dim I As Long
        CAL3 = 2
    For I = 0 To Len(txtRut) - 1
         If Left(Right(txtRut, I + 1), 1) <> "." Then
        CAL1 = CAL1 + Left(Right(txtRut, I + 1), 1) * CAL3
        CAL2 = CAL1 Mod 11

            Select Case CAL2
                 Case 0
                  txtdigito.Text = "0"
                 Case 1
                  txtdigito.Text = "K"
                 Case Else
                  txtdigito.Text = 11 - CAL2
            End Select

            If CAL3 = 7 Then
                CAL3 = 2
            Else
                CAL3 = CAL3 + 1
            End If
        End If
    Next
End Sub



 como no lo vi antes... ... muchas gracias.... eres un sol... :)

Navegación

[0] Índice de Mensajes

[*] Página Anterior