Estás aquí: mailxmail > Cursos de Informática > Diseño > Manual de Visual Basic Intermedio > Ejercicio 2: Ordenar los Números

Manual de Visual Basic Intermedio

Autor: Jorge Alvarez
Curso:

4,79/5 (19 opiniones) |13031 alumnos|Fecha publicación: 17/03/2006

Capítulos del curso

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

Capítulo siguiente - Ejercicio 3: Calcular la edad

Capítulo anterior - Ejercicio1: Aprende a Sumar

Hay 19 opiniones. Opina sobre este curso.

Descarga el PDF gratis

Sigue el curso por e-mail

Cursos similares a Manual de Visual Basic Intermedio

	Cursos	Valoración	Alumnos	Vídeo
Corel Draw 11 Básico Corel Draw es una potente herramienta que utilizan los diseñadores profesionales para crear, logotipos, esquemas, ilustraciones, dibujos, etc. No se asuste, para usted am... [10/05/05]			11.974
Cómo convertir una fotocaricatura en un dibujo de tinta y acuarela Tal y como se han presentado otros cursos en Mailxmail de fotocaricatura, este vez se ofrece la posibilidad de conocer cómo convertir una fotocaricatura en un dibujo de t... [19/07/06]			4.403
Cómo eliminar los ojos rojos con PhotoShop En esta práctica conoceremos los pasos necesarios para poder eliminar los ojos rojos de una fotografía.... [26/05/08]			2.155