1. Buatlah hardwarenya dengan 12 buah led dimana 8 led
pertama sambungkan dengan pin data (2-9) dan 4 led trakhir sambungkan
dengan pin control (1,14,16,17) jangan lupa tambahkan resistor dan
penyambungan system katoda.
2. Buat project baru kemudian tambahkan 12 shape untuk
simulasi lednya, 1 label untuk judul kemudian 5 commandbutton dan 4 buah
timer.
3.
Kemudian desain lah menjadi seperti gambar berikut :
4. Atur properties masing-masing komponen seperti untuk
shape backstyle ubah menjadi 1-opaque kemudian backcolornya pilih warna
putih kemudian unutk timer semua interval beri nilai 100 dan dalam
keadaan false.
5. Save
project dan Form di folder yang sama lalu copykan inpout32.dll pada
folder tempat penyimpanan tersebut.
6. Masukkan kode program seperti dibawah ini :
Private Declare
Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal
PortAddress As Integer) As Integer
Private Declare Sub
Out Lib "inpout32.dll" _
Alias "Out32" (ByVal
PortAddress As Integer, ByVal value As Integer)
Private Declare Sub
Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub
Command1_Click()
Out 888, 255
Out 890, 4
Shape1.BackColor =
vbRed
Shape2.BackColor = vbRed
Shape3.BackColor =
vbRed
Shape4.BackColor =
vbRed
Shape5.BackColor =
vbRed
Shape6.BackColor =
vbRed
Shape7.BackColor =
vbRed
Shape8.BackColor =
vbRed
Shape9.BackColor =
vbRed
Shape10.BackColor =
vbRed
Shape11.BackColor =
vbRed
Shape12.BackColor =
vbRed
Command3.Enabled =
False
Command4.Enabled =
False
Command5.Enabled =
False
End Sub
Private Sub Command2_Click()
Out 888, 0
Out 890, 11
Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Shape9.BackColor = vbWhite
Shape10.BackColor = vbWhite
Shape11.BackColor = vbWhite
Shape12.BackColor = vbWhite
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub
Private Sub
Command3_Click()
Timer1.Enabled =
True
Timer2.Enabled =
True
Command1.Enabled =
False
Command2.Enabled =
False
Command4.Enabled =
False
Command5.Enabled =
True
End Sub
Private Sub Command4_Click()
Timer4.Enabled = True
Timer3.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Enabled = True
End Sub
Private Sub
Command5_Click()
Timer1.Enabled =
False
Timer2.Enabled =
False
Timer3.Enabled =
False
Timer4.Enabled =
False
Out 888, 0
Out 889, 11
Shape1.BackColor =
vbWhite
Shape2.BackColor =
vbWhite
Shape3.BackColor =
vbWhite
Shape4.BackColor =
vbWhite
Shape5.BackColor =
vbWhite
Shape6.BackColor =
vbWhite
Shape7.BackColor =
vbWhite
Shape8.BackColor =
vbWhite
Shape9.BackColor =
vbWhite
Shape10.BackColor =
vbWhite
Shape11.BackColor =
vbWhite
Shape12.BackColor =
vbWhite
Command1.Enabled =
True
Command2.Enabled =
True
Command3.Enabled =
True
Command4.Enabled =
True
Command5.Enabled =
True
End Sub
Private Sub Form_Load()
End Sub
Private Sub
Timer2_Timer()
Dim a As Integer
a = Timer1.Interval
Timer1.Interval = a + 100
Select Case a
Case 100
Out 890, 11
Out 888, 1
Shape12.BackColor = vbWhite
Shape1.BackColor = vbRed
Case 200
Out 888, 2
Shape1.BackColor = vbWhite
Shape2.BackColor = vbRed
Case 300
Out 888, 4
Shape2.BackColor = vbWhite
Shape3.BackColor = vbRed
Case 400
Out 888, 8
Shape3.BackColor = vbWhite
Shape4.BackColor = vbRed
Case 500
Out 888, 16
Shape4.BackColor = vbWhite
Shape5.BackColor = vbRed
Case 600
Out 888, 32
Shape5.BackColor = vbWhite
Shape6.BackColor = vbRed
Case 700
Out 888, 64
Shape6.BackColor = vbWhite
Shape7.BackColor = vbRed
Case 800
Out 888, 128
Shape7.BackColor = vbWhite
Shape8.BackColor = vbRed
Case 900
Out 888, 0
Out 890, 10
Shape8.BackColor =
vbWhite
Shape9.BackColor =
vbRed
Case 1000
Out 888, 9
Shape9.BackColor =
vbWhite
Shape10.BackColor =
vbRed
Case 1100
Out 888, 15
Shape10.BackColor =
vbWhite
Shape11.BackColor =
vbRed
Case 1200
Out 888, 3
Shape11.BackColor =
vbWhite
Shape12.BackColor =
vbRed
Timer1.Interval =
100
End Select
End Sub
Private Sub
Timer3_Timer()
Dim b As Integer
b = Timer4.Interval
Timer4.Interval = b + 100
Select Case b
Case 100
Out 888, 96
Shape1.BackColor =
vbWhite
Shape12.BackColor =
vbWhite
Shape6.BackColor =
vbRed
Shape7.BackColor =
vbRed
Case 200
Out 888, 144
Shape6.BackColor =
vbWhite
Shape7.BackColor =
vbWhite
Shape5.BackColor =
vbRed
Shape8.BackColor =
vbRed
Case 300
Out 888, 8
Out 890, 10
Shape5.BackColor = vbWhite
Shape8.BackColor = vbWhite
Shape4.BackColor = vbRed
Shape9.BackColor = vbRed
Case 400
Out 888, 4
Out 890, 9
Shape4.BackColor =
vbWhite
Shape9.BackColor =
vbWhite
Shape3.BackColor =
vbRed
Shape10.BackColor =
vbRed
Case 500
Out 888, 2
Out 890, 15
Shape3.BackColor = vbWhite
Shape10.BackColor = vbWhite
Shape2.BackColor = vbRed
Shape11.BackColor = vbRed
Case 600
Out 888, 1
Out 890, 3
Shape2.BackColor =
vbWhite
Shape11.BackColor =
vbWhite
Shape1.BackColor =
vbRed
Shape12.BackColor =
vbRed
Timer4.Interval =
100
End Select
End Sub
