Verificador de rut chileno en visual basic
Private Sub Form_Load()
Form1.Text1.MaxLength = 8
Form1.Text2.MaxLength = 1
Form1.Text1.FontSize = 18
Form1.Text2.FontSize = 18
Form1.Text1.TabStop= True
End Sub
Private Sub Command1_Click()
If (Text1 = "") And (Text2 = "") Then
MsgBox "No ha ingresado un R.U.T.", vbCritical, "Atención"
Text1 = ""
End If
'VALIDAR RUT
Dim i As IntegerDim X As Integer
Dim total As Integer
Dim totaltotal As Integer
Dim por As Integer
Dim rut As Integer
Dim guion As Integer
Dim nrut As Integer
Dim posicion As Integer
Dim valor As IntegerDim verdad As Boolean
Dim guionc As String
i = 1
total = 0
totaltotal = 0
rut = Len(Text1)
posicion = rut
por = 2
'RECORRER EL R.U.T.
For i = 1 To rut
If por = 8 Then
por = 2
End Iftotal = por * Val(Mid(Text1, posicion, 1))
posicion = posicion - 1
totaltotal = totaltotal + total
por = por + 1
Next
valor = totaltotal Mod 11
guion = Int(11 - valor)
If guion =Val(Mid(Text2, 1, 1)) Or guion = 10 And (Mid(Text2, 1, 1)) = "k" Or guion = 11 And (Mid(Text2, 1, 1)) = "0" Or guion = 10 And (Mid(Text2, 1, 1)) = "K" Then
verdad = True
If MsgBox("Rut valido ¿DeseaIngresar otro?", vbQuestion + vbYesNo, "Ingresar Otro") = vbYes Then
Text1 = ""
Text2 = ""
Else
End If
Else
If guion = 10 Then
guionc = "k"
MsgBox "Rut incorrecto, el digito verificador debe ser " & guionc, vbCritical, "Error....."
verdad = False
Text1 = ""
Text2 = ""
Text1 = ""
Text1.SetFocus
ElseMsgBox " Rut incorrecto, el digito verificador debe ser " & guion, vbCritical, "Error....."
verdad = False
Text1 = ""
Text2 = ""
Text1 = ""
Text1.SetFocus
End If
End IfEnd Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If (KeyAscii > 31 And KeyAscii < 48) Or KeyAscii > 57 Then
KeyAscii = 0
If KeyAscii 8 Then
If Not IsNumeric("0" &...
Regístrate para leer el documento completo.