Private sub cmdsalir_click

Enviado por Programa Chuletas y clasificado en Física

Escrito el en español con un tamaño de 2,11 KB

 
  Private Sub cmdSalir_Click()

op = MsgBox("Esta seguro que desea salir del Programa", vbQuestion + vbYesNo, "Programación en Entorno Visual") 'Muestra un mensaje
If op = 6 Then
Unload Me
Else
cmdSalir.SetFocus
End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim multiplo, acumulado, largo, digito, valor As Integer
Dim numero, otro As String

If KeyAscii = 13 Then
If Text1.Text <> "" Then
numero = Text1.Text
largo = Len(Trim(numero))
multiplo = 2
If largo <> 8 Then
MsgBox "El Rut ingresado no es Válido", vbInformation, "Programación II"
Text1.SetFocus
Else
While largo > 0
acumulado = acumulado + Val(Mid(numero, largo, 1)) * multiplo
multiplo = multiplo + 1
If multiplo > 7 Then
multiplo = 2
End If
largo = largo - 1
Wend
valor = acumulado Mod 11
digito = Int(11 - valor)
If digito = 10 Then
otro = "K"
Else
If digito = 11 Then
otro = "0"
Else
otro = Val(digito)
End If
End If

Text2.Text = otro

End If
End If
End If

End Sub