Buenas programadores en este tema aremos un programa que me diga el mayor de dos numeros y un mensaje de error si son iguales.
En el diseño del formulario crearemos dos label, tres textbox y un boton.
Para el label1 en la propiedad text escribir Primer numero.
Para el label2 en la propiedad text escribir Segundo numero.
Los dos primeros textbox lo dejaremos asi.
Para el button1 en la propiedad text escribir Calcular.
Y al ultimo textbox en la propiedad ReadOnly le cambiamos de False a True.
Y se vera de esta forma.
Le damos double click al boton y dentro de la funcion Button1_click aremos lo siguiente:
primero declaramos dos variables Integer n1 y n2, despues asignamos el Me.TextBox1.Text a n1 y el n2 = Me.TextBox2.Text a n2.
Al usar Me podremos buscar la variable mas rapido, ya que el visual basic 2005 nos lo traera al ir digitando el nombre de la variable.
Dim n1, n2 As Integer
n1 = Me.TextBox1.Text
n2 = Me.TextBox2.Text
Luego crearemos dos If. el primer If se dara si n1 es mayor que n2, entonces si n1 es mayor colocaremos "El primer numero es mayor." en el Me.TextBox3.Text.
En el segundo If es un If anidado al primero y ya explicamos lo que es un If anidado. Entonces el Elseif se dara si n1 es menor que n2,entonces si n1 es menor colocaremos "El segundo numero es mayor." en el Me.TextBox3.Text.
Okey pienza un momento, si en el primer If n1 no es mayor que n2 y en el Elseif el n1 no es menor que n2 significa que son iguales. :D
Entonces el Else se dara si n1 es igual a n2 y dentro colocaremos un Msgbox diciendo "Los dos numeros son iguales".
If n1 > n2 Then
Me.TextBox3.Text = "El primer numero es mayor."
Elseif n1 < n2 Then
Me.TextBox3.Text = "El segundo numero es mayor."
Else
MsgBox("Los dos numeros son iguales")
End If
Ya podemos probar nuestro programa.
Nota: el evento Button1_click funciona para motrar el resultado de lo escrito dentro al darle click al Boton. Existen mas eventos y esta a tu imaginacion usarlos para tu programa, se encuentra en la parte de arriba donde esta el actual evento click.
No hay comentarios:
Publicar un comentario