Practica de corrimiento en visualbasic
Las siguientes imágenes muestran las diferentes pantallas de las que consta el programa, a grandes rasgos solo son la de la forma splash y la de la forma principal.
El programa se inicia mostrando la forma splash o pantalla de presentación (Figura 2), esta muestra datos generales como son el nombre de la escuela, número y nombre de la práctica y nombre de los alumnos.
Figura 2.Forma Splash
En la siguiente imagen (Figura 3) podemos visualizar las diferentes opciones que podemos realizar en el programa, que son los diferentes tipos de corrimientos. Solo basta con seleccionar la opción dando clic sobre la opción ó con los atajos solo presionando la combinación de teclas que se indica.
Figura 3. Menú del programa.
En la siguiente pantalla (Figura 4) muestra la formaprincipal del programa donde se muestran los 8 led´s que son los hacen el corrimiento. El color rojo indica que el led está apagado.
Figura 4. Forma principal.
En la figura 5 se muestra la pantalla con el primer corrimiento que es el de derecha a izquierda. El color verde indica que el led está encendido. Esta imagen comprueba que el corrimiento es correcto.
Figura 5. Corrimiento Derecha –Izquierda.
La siguiente pantalla (Figura 6) muestra el corrimiento de izquierda a derecha.
Figura 6. Corrimiento Izquierda – Derecha.
El último corrimiento que es de izquierda a derecha y de regreso no se puede visualizar en una pantalla pero es como si pegaras las dos últimas imágenes.
Estas fueron las pantallas del programa, a continuación podemos visualizar el código de este programa.Código.
Dim i, a As Integer ‘Declaracion de variables.
Private Sub ambos_Click()
Timer5.Enabled = True ‘Sirve para cuando corre a ambos lados el timer5 es verdadero.
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub
Private Sub derecha_Click()
Timer1 = True
Shape1(0).BackColor = vbGreen
i = 1
Timer3.Enabled = False
Timer4.Enabled =False
End Sub
Private Sub izquierda_Click()
Timer3 = True
Shape1(7).BackColor = vbGreen
i = 6
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub salir_Click()
End ‘Le da fin al programa.
End Sub
Private Sub Timer1_Timer() ‘Se active el timer2 y se desactiva el 1.
Shape1(i).BackColor = vbGreen
Shape1(i - 1).BackColor = vbRed
Timer1 = False
Timer2 = True
i = i + 1End Sub
Private Sub Timer2_Timer() ‘Corrimiento Izquierda a Derecha
If i = 8 Then
i = 1
Shape1(0).BackColor = vbGreen
Shape1(7).BackColor = vbRed
End If
Timer1 = True
Timer2 = False
Shape1(i).BackColor = vbRed
End Sub
Private Sub Timer3_Timer() ‘Corrimiento Derecha a Izquierda.
If i = -1 Then
i = 6
End If
Shape1(i).BackColor = vbGreen
Shape1(i + 1).BackColor = vbRed
Timer3 =False
Timer4 = True ‘Activa el timer4.
i = i - 1
End Sub
Private Sub Timer4_Timer()
If i = -1 Then
i = 6
Shape1(7).BackColor = vbGreen
Shape1(1).BackColor = vbRed
End If
Timer3 = True
Timer4 = False
Shape1(i + 1).BackColor = vbGreen
Shape1(0).BackColor = vbRed
End Sub
Private Sub Timer5_Timer()
a = a + 1
If a = 1 Then
Shape1(0).BackColor = vbGreen
Shape1(1).BackColor = vbRedShape1(2).BackColor = vbRed
Shape1(3).BackColor = vbRed
Shape1(4).BackColor = vbRed
Shape1(5).BackColor = vbRed
Shape1(6).BackColor = vbRed
Shape1(7).BackColor = vbRed
End If
If a = 2 Then
Shape1(0).BackColor = vbRed
Shape1(1).BackColor = vbGreen
Shape1(2).BackColor = vbRed
Shape1(3).BackColor = vbRed
Shape1(4).BackColor = vbRed
Shape1(5).BackColor = vbRed
Shape1(6).BackColor =vbRed
Shape1(7).BackColor = vbRed
End If
If a = 3 Then
Shape1(0).BackColor = vbRed
Shape1(1).BackColor = vbRed
Shape1(2).BackColor = vbGreen
Shape1(3).BackColor = vbRed
Shape1(4).BackColor = vbRed
Shape1(5).BackColor = vbRed
Shape1(6).BackColor = vbRed
Shape1(7).BackColor = vbRed
End If
If a = 4 Then
Shape1(0).BackColor = vbRed
Shape1(1).BackColor = vbRed
Shape1(2).BackColor = vbRed...
Regístrate para leer el documento completo.