
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 | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Vídeo-tutorial de Flash. Animación: bruja volando Vídeo-tutorial de animaciones en Flash. Hoy presentamos este nuevo curso de Flash en el que vamos a hacer una animación[15/06/10] |
|
726 |
|
|
|
Aprende Photodraw PhotoDraw es una herramienta gráfica que permite trabajar con gráficos e imágenes fotográficas. Permite crear y modificar imágenes para utilizar en Internet, Word y Power... [21/05/02] |
|
26.598 | ||
|
Crear muros con Revit Crear muros con Revit es una actividad sencilla que podrás realizar si sigues las instrucciones de este curso. El propósito del mismo... [17/05/10] |
|
260 | ||