Programacion De Un Cemaforo Con Salidas A Un Puerto Paralelo De 25 Pines En Visual Basic

Dim port

Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
port = &H37A
Out port, 0
port = &H378
Out port, 0
Timer1.Enabled = False
Text1.Text = 0
Shape1.FillColor = vbWhite
Shape2.FillColor = vbWhite
Shape3.FillColor = vbWhite
Shape4.FillColor = vbWhite
Shape5.FillColor = vbWhite
Shape6.FillColor = vbWhite
Shape7.FillColor = vbWhiteShape8.FillColor = vbWhite
Shape9.FillColor = vbWhite
Shape10.FillColor = vbWhite
Shape11.FillColor = vbWhite
Shape12.FillColor = vbWhite
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value

End Sub

Private Sub Timer1_Timer()
Dim X
X = Val(Text1.Text)
If X = 0 Then
port = &H37A
Out port, 8
port = &H378
Out port, 100
Shape3.FillColor = vbRedShape6.FillColor = vbRed
Shape7.FillColor = vbRed
Shape10.FillColor = vbRed
Text1.Text = X + 1
ElseIf X = 1 Then
port = &H37A
Out port, 10
port = &H378
Out port, 100
Shape3.FillColor = vbWhite
Shape1.FillColor = vbGreen
Shape6.FillColor = vbRed
Shape7.FillColor = vbRed
Shape10.FillColor = vbRed
Text1.Text = X + 1
ElseIf X = 1 Thenport = &H37A
Out port, 10
port = &H378
Out port, 100
Text1.Text = 1 + 1
ElseIf X = 2 Then
port = &H37A
Out port, 10
port = &H378
Out port, 100
Text1.Text = 2 + 1
ElseIf X = 3 Then
port = &H37A
Out port, 10
port = &H378
Out port, 100
Text1.Text = 3 + 1
ElseIf X = 4 Then
port = &H37A
Out port, 10port = &H378
Out port, 100
Text1.Text = 4 + 1
ElseIf X = 5 Then
port = &H37A
Out port, 10
port = &H378
Out port, 100
Text1.Text = 5 + 1
ElseIf X = 6 Then
port = &H37A
Out port, 11
port = &H378
Out port, 100
Shape1.FillColor = vbWhite
Text1.Text = 6 + 1
ElseIf X = 7 Then
port = &H37A
Out port, 10port = &H378
Out port, 100
Shape1.FillColor = vbGreen
Text1.Text = 7 + 1
ElseIf X = 8 Then
port = &H37A
Out port, 11
port = &H378
Out port, 100
Shape1.FillColor = vbWhite
Text1.Text = 8 + 1
ElseIf X = 9 Then
port = &H37A
Out port, 10
port = &H378
Out port, 100
Shape1.FillColor = vbGreen
Text1.Text = 9 + 1ElseIf X = 10 Then
port = &H37A
Out port, 11
port = &H378
Out port, 100
Shape1.FillColor = vbWhite
Text1.Text = 10 + 1
ElseIf X = 11 Then
port = &H37A
Out port, 9
port = &H378
Out port, 100
Shape2.FillColor = vbYellow
Text1.Text = 11 + 1
ElseIf X = 12 Then
port = &H37A
Out port, 9
port = &H378
Outport, 100
Shape2.FillColor = vbYellow
Text1.Text = 12 + 1
ElseIf X = 13 Then
port = &H37A
Out port, 9
port = &H378
Out port, 100
Shape2.FillColor = vbYellow
Text1.Text = 13 + 1
ElseIf X = 14 Then
port = &H37A
Out port, 9
port = &H378
Out port, 100
Shape2.FillColor = vbYellow
Text1.Text = 14 + 1
ElseIf X = 15 Thenport = &H37A
Out port, 9
port = &H378
Out port, 100
Shape2.FillColor = vbYellow
Text1.Text = 15 + 1
ElseIf X = 16 Then
port = &H37A
Out port, 8
port = &H378
Out port, 36
Shape2.FillColor = vbWhite
Shape3.FillColor = vbRed
Shape7.FillColor = vbRed
Text1.Text = 16 + 1
ElseIf X = 17 Then
port = &H37A
Out port,8
port = &H378
Out port, 36
Shape7.FillColor = vbRed
Text1.Text = 17 + 1
ElseIf X = 18 Then
port = &H37A
Out port, 8
port = &H378
Out port, 76
Shape7.FillColor = vbWhite
Shape9.FillColor = vbGreen
Text1.Text = 18 + 1
ElseIf X = 19 Then
port = &H37A
Out port, 8
port = &H378
Out port, 76
Text1.Text = 19 + 1...