Capítulo 1:

 Ejercicio1: Aprende a Sumar

                             

Crea un formulario con cinco etiquetas, una caja de texto, tres botones, dos imágenes y tres líneas. Modifica las propiedades de las etiquetas de las cantidades y la de la palabra de resultado como sigue: BackColor blanco y Border Style 1-Fixed Single. Usa Font y ForeColor para el tamaño y color del contenido y Alignment 2-Center

En Word crea las caritas y colócalas dentro de los cuadros de imágenes con su propiedad Stretch en True, las líneas hazlas más gruesas en BorderWidth 3 y BorderColor azul.

Vamos a crear un procedimiento para generar al azar los números:

Haz doble clic en el formulario. Haz clic en Tools (Herramientas)/Add Procedure (Agregar Procedimiento). En Add Procedure escribe el nombre del procedimiento, en este caso Azar y haz clic en Aceptar. Ahora escribe el código:

Public Sub azar()

n1 = Int(Rnd * 10) + 1

n2 = Int(Rnd * 10) + 1

Label1.Caption = n1

Label2.Caption = n2

End Sub

Haz doble clic en el formulario y escribe el siguiente código:

Private Sub Form_Load()

Randomize

Call azar

Image1.Visible = False

Image2.Visible = False

End Sub

El botón Otra Suma

Private Sub Command1_Click()

Call azar

Text1.Text = ""

Label3.Caption = ""

Image1.Visible = False

Image2.Visible = False

End Sub

El botón Revisar

Private Sub Command2_Click()

If Val(Text1) = Val(Label1) + Val(Label2) Then

Label3.Caption = "Bien"

Image1.Visible = True

Else

Label3.Caption = "Mal"

Image1.Visible = False

Image2.Visible = True

End If

End Sub

El botón Salir

Private Sub Command3_Click()

Unload Me

End

End Sub

Cursos similares a Manual de Visual Basic Intermedio

1. Manual de Visual Basic Principiante En el título de este curso, Manual de Visual Basic para Principiantes ,... [17/03/06]				155.711
2. Visual Basic Express. Crear alarma (1/4) Alarma en Visual Basic 2008. Sigue nuestro curso de informática y aprende a... [13/04/11]				884
3. Visual Basic Express. Crear una alarma (2/4) Crear una alarma en Visual Basic 2008 Express . Te presentamos la continuación del... [13/04/11]				352