MODUL
PENGENDALI 12 - LED
1. Dasar Teori
Aplikasi yang digunakan untuk
mengendalikan tampilan 12-LED merupakan aplikasi yang paling sederhana, karena
untuk menghidupkan dan mematikan sebuah LED hanya dibutuhkan tegangan standar
TTL dengan komponen tambahan berupa sebuah resistor untuk pembatas arus.
Pada aplikasi yang menggunakan 12
buah LED ini, 8 buah LED dikendalikan oleh port Data, sedangkan 4 buah LED oleh
Port Kontrol dalam port paralel yang didrive oleh software dengan bahasa
pemograman visual basic. Adapun program ini dibuat adalah sebagai interface
antara modul LED dengan komputer.
2. Bahan dan Peralatan
- Konektor
DB-25 (jantan) 1 buah
- LED 12 buah
- Resistor
330 ohm 12 buah
- Kabel
data 13 potong
- Komputer 1 unit
3. Langkah Kerja
1. Rangkai
peralatan sesuai dengan Gambar Rangkaian.
2. Buat
interface (penghubung antara komputer dengan konektor LED) dengan menggunakan
software Visual Basic
3. Menghubungkan
konektor DB-25 jantan ke konektor DB-25 betina pada komputer
4. Menjalankan
dan menganalisa program
4. Gambar Rangkaian
Gambar Rangkaian Modul Led
Catatan
- LED
0 samapai LED 7 dihubungkan dengan bit D0 samapai D7 pada Port Data
- LED
8 sampai LED 11 dihubungkan masing-masing ke bit ~C0, ~C1, ~C2,dan ~C3 (dalam hal ini, bit ~C0, ~C1, dan ~C3
adalah aktif rendah sehingga perlu diperhatikan dalam pemograman). Dengan pin
diagram sebagai gambar berikut :
Gambar Konstruksi Pin DB25
5. Program
Tampilan Form VB 6
Listing Program
Private Declare Sub PortOut Lib "io.dll" (ByVal
PortNo As Integer, ByVal Data As Byte)
Private Declare Function PortIn Lib "io.dll"
(ByVal PortNo As Integer) As Byte
Private Declare Sub Sleep Lib "kernel32" (ByVal
dwMilliseconds As Long)
Private Sub Command1_Click() ‘Hidup Semua
Do
DoEvents
PortOut
&H378, &HFF 'berikan logika 1
pada port 378'
PortOut
&H37A, &H4 'berikan logika 1
pada port 37A (active low)'
Loop
End Sub
Private Sub Command2_Click() ‘Mati Semua
Do
DoEvents
PortOut &H378,
&H0 'berikan logika 0 pada port
378'
PortOut &H37A,
&HB 'berikan logika 0 pada port
37A (aktive low)'
Loop
End Sub
Private Sub Command3_Click() ‘Berputar
Do
DoEvents
For i = 0 To 7
DoEvents
PortOut
&H378, 2 ^ i
Sleep 100
Next
PortOut
&H378, 0
For i = 0 To
3
DoEvents
PortOut
&H37A, (2 ^ i) Xor &HB
Sleep 100
Next
PortOut
&H37A, &HB
Loop
PortOut &H378,
0
PortOut &H37A,
&HB
End Sub
Private Sub Command4_Click() ‘Memantul
Do
DoEvents
For i = 0 To 7
DoEvents
PortOut
&H378, 2 ^ i
Sleep 100
Next
PortOut &H378, 0
For i = 0 To 3
DoEvents
PortOut &H37A,
(2 ^ i) Xor &HB
Sleep 100
Next
PortOut &H37A, &HB
For i = 3 To 0 Step -1
DoEvents
PortOut &H37A,
(2 ^ i) Xor &HB
Sleep 100
Next
PortOut &H37A,
&HB
For i = 7 To 0 Step -1
DoEvents
PortOut &H378,
2 ^ i
Sleep 100
Next
PortOut &H378, 0
Loop
PortOut &H378, 0
PortOut &H37A, &HB
End Sub
Private Sub Command5_Click() ‘Berkedip
Do
DoEvents
PortOut
&H378, &HFF
PortOut
&H37A, &H4
Sleep 250
PortOut
&H378, 0
PortOut
&H37A, &HB
Sleep 250
Loop
End Sub
Private Sub Command6_Click() ‘Exit
End
End Sub
Private Sub Form_Load()
'perintah untuk mematikan semua LED pada saat compile'
PortOut &H378,
&H0
PortOut &H37A,
&HB
End Sub
Tabel Pengaturan Properti
OBJECT
|
PROPERTIES
|
VALUE
|
Command1
|
Caption
|
Hidup Semua
|
Command2
|
Caption
|
Mati Semua
|
Command3
|
Caption
|
Berputar
|
Command4
|
Caption
|
Memantul
|
Command5
|
Caption
|
Berkedip
|
Command6
|
Caption
|
Exit
|
Label1
|
Caption
|
PENGENDALIAN 12-LED
|