4.-Las tablas de multiplicar.
En este ejercicio se ha de calcular un número de la tabla de multiplicar se necesita crear un formulario en el cual se ocupa una etiqueta, dos cajas de texto y tres botones.
Bueno para que el resultado sea lo esperado entonces debemos ponerle un nombre a cada objeto del formulario el cual quedara así, aunque podemos llamar a cada objeto de otro nombre.
Cuando ya tenemos a todos los objetos con su nombre, entonces seguimos con el código. Aquí solo se les aplica a los tres botones.
Empezamos por el botón Ver Tabla.
Private Sub Cmdver_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno
Next n
End Sub
Después de haber terminado de escribir el código de el botón ver tabla seguimos con el botón nueva tabla.
Private Sub CmdNtab_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
Para poder salir de la aplicación entonces codificamos el botón salir.
Private Sub Cmdsalir_Click()
If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te Quieres Ir?") = vbYes Then
End
Else
Cancel = 1
End If
End Sub
Una vez de terminar de escribir el código de cada botón entonces ejecutamos la aplicación y el resultado es:
|
Hola a tod@s bienvenidos a Programación Orientada a Objetos
|
