12.169 cursos gratis
8.789.270 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Manual de Visual Basic Intermedio

Autor: Jorge Alvarez
Curso:
9,45/10 (20 opiniones) |22740 alumnos|Fecha publicación: 17/03/2006
Envía un mensaje al autor

Capítulo 2:

 Ejercicio 2: Ordenar los Números

                         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

Nuestras novedades en tu e-mail

Escribe tu e-mail:



MailxMail tratará tus datos para realizar acciones promocionales (vía email y/o teléfono).
En la política de privacidad conocerás tu derechos y gestionarás la baja.

Cursos similares a Manual de Visual Basic Intermedio



  • Vídeo
  • Alumnos
  • Valoración
  • Cursos
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
Curso con video
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
Curso con video

¿Qué es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail