Software

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 Leds
'14/06/06
'Bazan, Laborde
'Este programa sirve para probar la placa realizada en Taller
Dim led(7), salida

Private Sub Command2_Click()
Timer1.Enabled = Not Timer1.Enabled 'El reloj no esta activado
End Sub

Private Sub Form_Load()
Timer1.Enabled = False 'El timer no se activa automaticamente
Timer1.Interval = 1000 'Tiempo en milisegundos que cuenta el timer
End Sub

Private Sub image1_click(index As Integer)
    led(index) = 1 - led(index)
    If led(index) = 0 Then Image1(index).Picture = imgApagado 'Si hay un cero, aparece la imagen del LED apagado
    If led(index) = 1 Then Image1(index).Picture = imgPrendido 'Si hay un uno, aparece la imagen de LED prendido
End Sub

Private Sub Command1_Click()
    salida = 0
    If Image1(0).Picture = imgPrendido.Picture Then
        salida = salida + 1
    End If
    If Image1(1).Picture = imgPrendido.Picture Then
        salida = salida + 2
    End If
    If Image1(2).Picture = imgPrendido.Picture Then
        salida = salida + 4
    End If
    If Image1(3).Picture = imgPrendido.Picture Then
        salida = salida + 8
    End If
    If Image1(4).Picture = imgPrendido.Picture Then
        salida = salida + 16
    End If
    If Image1(5).Picture = imgPrendido.Picture Then
        salida = salida + 32
    End If
    If Image1(6).Picture = imgPrendido.Picture Then
        salida = salida + 64
    End If
    If Image1(7).Picture = imgPrendido.Picture Then
        salida = salida + 128
    End If
    Me.Caption = salida
Out &H378, salida 'Salida al puerto paralelo, tiene que estar agregado el modulo INPOUT para manejar el puerto
End Sub

Private Sub Timer1_Timer()
salida = salida + 1 'Para que el reloj, luego de activado, comience a contar desde el numero 1
Out &H378, salida 'Salida al puerto paralelo, tiene que estar agregado el modulo INPOUT para manejar el puerto
End Sub