Capítulo 2:

 Ejercicio 2: Ordenar los Números

                        

Crea un formulario con nueve etiquetas, dos de ellas serán las instrucciones y a las que contendrán los números (seis) cámbiales su Propiedad Alignment a 2-Center, BackColor blanco, BorderStyle a 1-Fixed Single y tres botones, ahora

Introduce las siguientes declaraciones

Haz doble clic en el formulario En la caja de combo de la esquina superior izquierda selecciona (General) Y escribe: Dim n1, n2, n3 As Integer (presiona Enter al terminar)

Ahora crea un procedimiento:

Haz doble clic en el formulario. Haz clic en Herramientas (Tools)/Agregar Procedimiento (Add Procedure). En Agregar Procedimiento escribe el nombre del Procedimiento (en este caso azar) y haz clic en Aceptar. Ahora escribe el siguiente código:
Public Sub azar()
n1 = Int(Rnd * 10) + 1
n2 = Int(Rnd * 10) + 1
n3 = Int(Rnd * 10) + 1
If n1 <> n2 And n2 <> n3 And n1 <> n3 Then
Label1.Caption = n1
Label2.Caption = n2
Label3.Caption = n3
Else
Exit Sub
End If
End Sub

La etiqueta 4

Private Sub Label4_DragDrop(Source As Control, X As Single, Y As Single)

Label4.Caption = Source

Source.Visible = False

End Sub

La etiqueta 5

Private Sub Label5_DragDrop(Source As Control, X As Single, Y As Single)

Label5.Caption = Source

Source.Visible = False

End Sub

La etiqueta 6

Private Sub Label6_DragDrop(Source As Control, X As Single, Y As Single)

Label6.Caption = Source

Source.Visible = False

End Sub

El botón Iniciar

Private Sub Command1_Click()

Label4.Caption = ""

Label5.Caption = ""

Label6.Caption = ""

Label7.Caption = ""

Label1.Visible = True

Label2.Visible = True

Label3.Visible = True

Call azar

End Sub

El botón Resultado

Private Sub Command2_Click()

If Val(Label4.Caption) < Val(Label5.Caption) And Val(Label5.Caption) < Val(Label6.Caption) Then

Label7.Caption = "Bien"

Else

Label7.Caption = "Mal"

End If

End Sub

El botón Salir

Private Sub Command3_Click()

Unload Me

End

End Sub

El formulario

Private Sub Form_Load()

Randomize

Call azar

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