Software contador para Placa con dos Display de 7 Segmentos
El texto en verde es aclaración. Para hacer este software y que funcione, debemos cargar una biblioteca externa (INPOUT32) para poder manejar el puerto Paralelo, se puede bajar desde la sección de archivos e imágenes:
| 'Control
de Placas de Displays '21/06/06 'Bazan, Laborde 'Este programa sirve para probar la placa realizada en Taller Dim t |
|
|
| Private
Sub text1_change() Select Case Val(Text1.Text) 'Esto Indica que contenido aparece en el cuadro de texto 1, que corresponde a las decenas Case 0 a(1).Picture = lhp.Picture b(1).Picture = lvp.Picture c(1).Picture = lvp.Picture d(1).Picture = lhp.Picture e(1).Picture = lvp.Picture f(1).Picture = lvp.Picture g(1).Picture = lha.Picture Case 1 a(1).Picture = lha.Picture b(1).Picture = lvp.Picture c(1).Picture = lvp.Picture d(1).Picture = lha.Picture e(1).Picture = lva.Picture f(1).Picture = lva.Picture g(1).Picture = lha.Picture Case 2 a(1).Picture = lhp.Picture b(1).Picture = lvp.Picture c(1).Picture = lva.Picture d(1).Picture = lhp.Picture e(1).Picture = lvp.Picture f(1).Picture = lva.Picture g(1).Picture = lhp.Picture Case 3 a(1).Picture = lhp.Picture b(1).Picture = lvp.Picture c(1).Picture = lvp.Picture d(1).Picture = lhp.Picture e(1).Picture = lva.Picture f(1).Picture = lva.Picture g(1).Picture = lhp.Picture Case 4 a(1).Picture = lha.Picture b(1).Picture = lvp.Picture c(1).Picture = lvp.Picture d(1).Picture = lha.Picture e(1).Picture = lva.Picture f(1).Picture = lvp.Picture g(1).Picture = lhp.Picture Case 5 a(1).Picture = lhp.Picture b(1).Picture = lva.Picture c(1).Picture = lvp.Picture d(1).Picture = lhp.Picture e(1).Picture = lva.Picture f(1).Picture = lvp.Picture g(1).Picture = lhp.Picture Case 6 a(1).Picture = lhp.Picture b(1).Picture = lva.Picture c(1).Picture = lvp.Picture d(1).Picture = lhp.Picture e(1).Picture = lvp.Picture f(1).Picture = lvp.Picture g(1).Picture = lhp.Picture Case 7 a(1).Picture = lhp.Picture b(1).Picture = lvp.Picture c(1).Picture = lvp.Picture d(1).Picture = lha.Picture e(1).Picture = lva.Picture f(1).Picture = lva.Picture g(1).Picture = lha.Picture Case 8 a(1).Picture = lhp.Picture b(1).Picture = lvp.Picture c(1).Picture = lvp.Picture d(1).Picture = lhp.Picture e(1).Picture = lvp.Picture f(1).Picture = lvp.Picture g(1).Picture = lhp.Picture Case 9 a(1).Picture = lhp.Picture b(1).Picture = lvp.Picture c(1).Picture = lvp.Picture d(1).Picture = lhp.Picture e(1).Picture = lva.Picture f(1).Picture = lvp.Picture g(1).Picture = lhp.Picture End Select Out &H378, Val(Text1.Text) * 16 + Val(Text2.Text) 'Esto indica la salida en el puerto paralelo (nombrado 378). Solo sirve si tenemos el Modulo INPOUT32 End Sub |
|
|
| Private
Sub Text2_Change() Select Case Val(Text2.Text) 'Esto Indica que contenido aparece en el cuadro de texto 2, que corresponde a las unidades Case 0 a(0).Picture = lhp.Picture b(0).Picture = lvp.Picture c(0).Picture = lvp.Picture d(0).Picture = lhp.Picture e(0).Picture = lvp.Picture f(0).Picture = lvp.Picture g(0).Picture = lha.Picture Case 1 a(0).Picture = lha.Picture b(0).Picture = lvp.Picture c(0).Picture = lvp.Picture d(0).Picture = lha.Picture e(0).Picture = lva.Picture f(0).Picture = lva.Picture g(0).Picture = lha.Picture Case 2 a(0).Picture = lhp.Picture b(0).Picture = lvp.Picture c(0).Picture = lva.Picture d(0).Picture = lhp.Picture e(0).Picture = lvp.Picture f(0).Picture = lva.Picture g(0).Picture = lhp.Picture Case 3 a(0).Picture = lhp.Picture b(0).Picture = lvp.Picture c(0).Picture = lvp.Picture d(0).Picture = lhp.Picture e(0).Picture = lva.Picture f(0).Picture = lva.Picture g(0).Picture = lhp.Picture Case 4 a(0).Picture = lha.Picture b(0).Picture = lvp.Picture c(0).Picture = lvp.Picture d(0).Picture = lha.Picture e(0).Picture = lva.Picture f(0).Picture = lvp.Picture g(0).Picture = lhp.Picture Case 5 a(0).Picture = lhp.Picture b(0).Picture = lva.Picture c(0).Picture = lvp.Picture d(0).Picture = lhp.Picture e(0).Picture = lva.Picture f(0).Picture = lvp.Picture g(0).Picture = lhp.Picture Case 6 a(0).Picture = lhp.Picture b(0).Picture = lva.Picture c(0).Picture = lvp.Picture d(0).Picture = lhp.Picture e(0).Picture = lvp.Picture f(0).Picture = lvp.Picture g(0).Picture = lhp.Picture Case 7 a(0).Picture = lhp.Picture b(0).Picture = lvp.Picture c(0).Picture = lvp.Picture d(0).Picture = lha.Picture e(0).Picture = lva.Picture f(0).Picture = lva.Picture g(0).Picture = lha.Picture Case 8 a(0).Picture = lhp.Picture b(0).Picture = lvp.Picture c(0).Picture = lvp.Picture d(0).Picture = lhp.Picture e(0).Picture = lvp.Picture f(0).Picture = lvp.Picture g(0).Picture = lhp.Picture Case 9 a(0).Picture = lhp.Picture b(0).Picture = lvp.Picture c(0).Picture = lvp.Picture d(0).Picture = lhp.Picture e(0).Picture = lva.Picture f(0).Picture = lvp.Picture g(0).Picture = lhp.Picture End Select Out &H378, Val(Text1.Text) * 16 + Val(Text2.Text) 'Esto indica la salida en el puerto paralelo (nombrado 378). Solo sirve si tenemos el Modulo INPOUT32 End Sub |
|
|
| Private
Sub Text3_Change() 'Esto sirve para adherir
el contenido de Text1 (decenas) y Text2 (unidades) en un nuevo cuadro de
texto llamado Text3 Text1.Text = Mid(Text3.Text, 1, 1) Text2.Text = Mid(Text3.Text, 2, 1) End Sub |
|
|
| Private
Sub Timer1_Timer() 'Esto es un Clock o
Reloj para que los displays cuenten de 1 a 99 en un determinado tiempo
sin necesidad de hacer nada t = t + 1 If t > 98 Then Timer1.Enabled = False 'Para que, al llegar a 99, deje de contar If t < 10 Then Text2.Text = t 'Para que, cuando el numero sea 9 o menor, lo cuente en el display derecho If t > 9 Then Text3.Text = t 'A partir del numero 10, comienza a contar en ambos displays (decenas a la izquierda y unidades a la derecha) End Sub |