Ex8
- 1. EJERCICIO DE VISUAL BASIC Vamos a crear un programa en Visual para calcular la letra del NIF a partir del numero de DNI. Empezaremos creando el formulario, Colocamos un “Label” y un “TextBox” como en la siguiente imagen, Coloca todas las caracteristicas como se ve en la imagen anterior.
- 2. Colocaremos tambien un “Label” donde mostraremos el resultado, En este ejercicio haremos que si los digitos introducidos en el “TextBox” no llegan a 8 (que son los digitos de los DNI) nos muestre en el “Label” el mensaje “ERROR”. En el momento que se hallan introducido 8 digitos que automaticamente muestre la letra que le toca al numero. Para ello trabajaremos en la rutina del “Text1” en el evento “KEYPRESS”
- 3. en esa rutina introduciremos el codigo, Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1.Text) <> 8 Then Label2.Caption = "ERROR" End If End Sub El evento “KEYPRESS” se ejecuta cada vez que se pulsa un digito en el componente, en este caso el TEXT1. Miramos si el numero de digitos del “text1.text” es diferente a 8, en ese caso nos mostrara en label 2 el mensaje “ERROR”. ampliaremos el codigo de la rutina anterior y añadiremos los calculos necesarios para obtener la letra del DNI: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Len(Text1.Text) < 8 Then Label2.Caption = "ERROR" Else a = (Val(Text1.Text)) 23 b = a * 23
- 4. c = Val(Text1.Text) – b ...../..... ...../..... Select Case c Case 0 Label2.Caption = Text1.Text + "-T" Case 1 Label2.Caption = Text1.Text + "-R" Case 2 Label2.Caption = Text1.Text + "-W" Case 3 Label2.Caption = Text1.Text + "-A” Case 4 Label2.Caption = Text1.Text + "-G" Case 5 Label2.Caption = Text1.Text + "-M" Case 6 Label2.Caption = Text1.Text + "-Y" Case 7 Label2.Caption = Text1.Text + "-F" Case 8 Label2.Caption = Text1.Text + "-P" Case 9 Label2.Caption = Text1.Text + "-D" Case 10 Label2.Caption = Text1.Text + "-X" Case 11 Label2.Caption = Text1.Text + "-B" Case 12 Label2.Caption = Text1.Text + "-N" Case 13 Label2.Caption = Text1.Text + "-J"
- 5. Case 14 Label2.Caption = Text1.Text + "-Z" Case 15 Label2.Caption = Text1.Text + "-S" Case 16 Label2.Caption = Text1.Text + "-Q" Case 17 Label2.Caption = Text1.Text + "-V" Case 18 Label2.Caption = Text1.Text + "-H" Case 19 Label2.Caption = Text1.Text + "-L" Case 20 Label2.Caption = Text1.Text + "-C" Case 21 Label2.Caption = Text1.Text + "-K" Case 22 Label2.Caption = Text1.Text + "-E" Case 23 Label2.Caption = Text1.Text + "-T" End Select End If End If End Sub ahora al ejecutar el programa introduciremos un numero de DNI y pulsaremos “Intro”, en el caso de que el numero de digitos del DNI sea diferente de 8 nos mostrara el mensaje de “ERROR”. Si el numero introducido es de 8 digitos se realizaran los calculos, DNI dividido entre 23 La parte entera de la division anterior multiplicado por 23 Se resta el DNI original de la multiplicacion anterior
- 6. El numero resultante de la resta se localiza en los diferentes “CASE” y mustra la letra correspondiente. En este caso para detener la ejecución tendremos que finalizar con la”X” de la ventana. Finalmente almacenamos el programa.