LAPORAN
PRAKTIKUM APLIKASI KOMPUTER
APLIKASI I
MODUL PENGENDALI 12 LED
Oleh :
KELOMPOK
II
PROGRAM STUDI TEKNIK
ELEKTRONIKA INDUSTRI
JURUSAN TEKNIK ELEKTRO
POLITEKNIK NEGERI
MEDAN
MEDAN
2007
LEMBAR PENILAIAN
No. Percobaan :
01/Lab. Aplikasi Komputer/EK-5A/2007
Judul Percobaan : MODUL
PENGENDALI 12 LED
Kelompok : II
(dua)
Nama Kelompok : 1. Ronaldo Ginting 0905042096
2. Loista Levnin kacaribu 052304010
3. Nurka Indah Tarigan 052304159
4. Tuah Ginta Barus 05230402
Kelas :
EK – 5 C
Tanggal Percobaan : September 2011
Tanggal penyerahan : 30 November 2011
Instruktur : 1.
Ahmad Yani, ST
2.
Berman Panjaitan, ST
Nilai :
Keterangan :
DAFTAR ISI
LEMBAR PENILAIAN..................................................................................... i
DAFTAR ISI ..................................................................................................... ii
1. Tujuan............................................................................................................. 1
2. Teori Dasar..................................................................................................... 1
3. Bahan dan Peralatan...................................................................................... 1
4. Rangkaian Interface....................................................................................... 2
5. Prosedur.......................................................................................................... 2
6. Tugas.............................................................................................................. 3
Program 1 dan 2 Menghidupkan Dan Mematikan Lampu
A. Listing Program.......................................................................................... 4
B. Analisa Program........................................................................................ 4
Program 3 Menghidupkan Secara Bergiliran
A. Listing
Program.......................................................................................... 5
B.
Analisa Program........................................................................................ 5
7. Kesimpulan..................................................................................................... 6
MODUL PENGENDALI
12 - LED
1. Tujuan Percobaan
-
Mampu membuat rangkaian tampilan 12-LED
-
Mampu membuat program komputer dengan
visual basic untuk mengendalikan tampilan 12-LED
2. 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.
3. Bahan dan Peralatan
-
Konektor DB-25 (jantan) 1
buah
-
LED 12 buah
-
Resistor 330 ohm 12
buah
-
Kabel data 13 potong
-
Komputer 1 unit
4. Langkah Kerja
1. Rangkai
peralatan sesuai dengan Gambar 4.
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
5. Gambar Rangkaian
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
:
6. Anaisa Data dan Listing Program
Dalam
pembuatan interface ini adapun form yang dibuat adalah seperti gambar berikut :
|
OBJECT
|
PROPERTIES
|
VALUE
|
|
Command1
|
Caption
|
LED ON
|
|
Command2
|
Caption
|
LED OF
|
|
Command3
|
Caption
|
LED
MELINGKAR
|
|
Command4
|
Caption
|
LED
MEMANTUL
|
|
Command5
|
Caption
|
LED
BERKEDIP
|
|
Command6
|
Caption
|
LED
TABRAKAN
|
|
Command7
|
Caption
|
DIPUKUL
MUNDUR
|
|
Command8
|
Caption
|
LED
MENGECIL
|
|
Command9
|
Caption
|
EXIT
|
|
Label1
|
Caption
|
CHOOSE
ACTION DI YOU WANT
|
A. LED ON
Private Sub Command1_Click()
Do
DoEvents
PortOut &H378, &HFF
PortOut &H37A, &H4
End Sub
B. LED OF
Private Sub Command2_Click()
Do
DoEvents
PortOut &H378,
&H0
PortOut &H37A,
&HB
End Sub
C. LED MELINGKAR
Private Sub Command3_Click()
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
PortOut &H378, 0
PortOut &H37A, &HB
End Sub
D. LED BERKEDIP
Private Sub Command5_Click()
Do
DoEvents
PortOut &H378, &HFF
PortOut &H37A, &H4
Sleep 250
PortOut &H378, 0
PortOut &H37A, &HB
Sleep 250
End Sub
E. LED MEMANTUL
Private Sub
Command4_Click()
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
PortOut &H378, 0
PortOut &H37A,
&HB
End Sub
F. LED TABRAKAN
Private Sub Command6_Click()
Do
DoEvents
PortOut &H378, &H1
PortOut &H37A, 8 Xor &HB
Sleep 100
PortOut &H378, &H2
PortOut &H37A, 4 Xor &HB
Sleep 100
PortOut &H378, &H4
PortOut &H37A, 2 Xor &HB
Sleep 100
PortOut &H378, &H8
PortOut &H37A, 1 Xor &HB
Sleep 100
PortOut &H37A, &HB
PortOut &H378, &H90
Sleep 100
PortOut &H378, &H60
Sleep 100
PortOut &H378, &H90
Sleep 100
PortOut &H378, &H8
PortOut &H37A, 1 Xor &HB
Sleep 100
PortOut &H378, &H4
PortOut &H37A, 2 Xor &HB
Sleep 100
PortOut &H378, &H2
PortOut &H37A, 4 Xor &HB
Sleep 100
PortOut &H378, &H1
PortOut &H37A, 8 Xor &HB
Sleep 100
PortOut &H378, 0
PortOut &H37A, &HB
End Sub
G. LED DIPUKUL MUNDUR
Do
DoEvents
For i = 0 To 7
For y = 3 To 0 Step -1
DoEvents
PortOut &H378, 2 ^ i
Sleep 40
PortOut &H37A, (2 ^ y) Xor &HB
Sleep 50
Next
Next
For i = 7 To 0 Step -1
DoEvents
PortOut &H378, 2 ^ i
Sleep 50
Next
PortOut &H378, 0
PortOut &H378, 0
PortOut &H37A, &HB
End Sub
H. LED MENGECIL
Do
DoEvents
For i = 0 To 7
DoEvents
PortOut &H378, 2 ^
i
Sleep 50
Next
PortOut &H378, 0
For i = 0 To 3
DoEvents
PortOut &H37A, (2 ^
i) Xor &HB
Sleep 50
Next
PortOut &H37A,
&HB
For i = 3 To 0 Step
-1
DoEvents
PortOut &H37A, (2 ^
i) Xor &HB
Sleep 50
Next
PortOut &H37A,
&HB
For i = 7 To 1 Step
-1
DoEvents
PortOut &H378, 2 ^
i
Sleep 50
Next
PortOut &H378, 0
For i = 1 To 7
DoEvents
PortOut &H378, 2 ^
i
Sleep 50
Next
PortOut &H378, 0
For i = 0 To 2
DoEvents
PortOut &H37A, (2 ^
i) Xor &HB
Sleep 50
Next
PortOut &H37A,
&HB
For i = 2 To 0 Step
-1
DoEvents
PortOut &H37A, (2 ^
i) Xor &HB
Sleep 50
Next
PortOut &H37A,
&HB
For i = 7 To 2 Step
-1
DoEvents
PortOut &H378, 2 ^
i
Sleep 50
Next
PortOut &H378, 0
For i = 2 To 7
DoEvents
PortOut &H378, 2 ^ i
Sleep 50
Next
PortOut &H378, 0
For i = 0 To 1
DoEvents
PortOut &H37A, (2 ^
i) Xor &HB
Sleep 50
Next
PortOut &H37A,
&HB
For i = 1 To 0 Step
-1
DoEvents
PortOut &H37A, (2 ^
i) Xor &HB
Sleep 50
Next
PortOut &H37A,
&HB
For i = 7 To 3 Step -1
DoEvents
PortOut &H378, 2 ^ i
Sleep 50
Next
PortOut &H378, 0
For i = 3 To 7
DoEvents
PortOut &H378, 2 ^ i
Sleep 50
Next
PortOut &H378, 0
PortOut &H37A, (2 ^
0) Xor &HB 'Lampu c0 hidup'
Sleep 50
PortOut &H37A,
&HB
For i = 7 To 4 Step -1
DoEvents
PortOut &H378, 2 ^ i
Sleep 50
Next
PortOut &H378, 0
For i = 4 To 7
DoEvents
PortOut &H378, 2 ^ i
Sleep 50
Next
PortOut &H378, 0
For i = 7 To 5 Step -1
DoEvents
PortOut &H378, 2 ^ i
Sleep 100
Next
PortOut &H378, 0
For i = 5 To 6
DoEvents
PortOut &H378, 2 ^ i
Sleep 100
Next
PortOut &H378, 0
PortOut &H378, 2 ^ 5
PortOut &H378, 0
PortOut &H37A, &HB
End Sub
I. MEMILIH LED YANG MENYALA
Form :
Listing
Program :
Private Declare
Sub PortOut Lib "io.dll" (ByVal PortNo As Integer, ByVal Data As
Byte)
Private Sub
Command1_Click(Index As Integer)
Do
DoEvents
PortOut
&H378, &H1
PortOut &H37A, &HB
End Sub
Private Sub
Command10_Click()
Do
DoEvents
PortOut &H378,
&H0
PortOut &H37A, &H9
End Sub
Private Sub
Command11_Click()
Do
DoEvents
PortOut
&H378, &H0
PortOut &H37A, &HF
End Sub
Private Sub
Command12_Click()
Do
DoEvents
PortOut
&H378, &H0
PortOut &H37A, &H3
End Sub
Private Sub
Command13_Click()
End
End Sub
Private Sub
Command2_Click()
Do
DoEvents
PortOut
&H378, &H2
PortOut &H37A, &HB
End Sub
Private Sub
Command3_Click()
Do
DoEvents
PortOut
&H378, &H4
PortOut &H37A, &HB
End Sub
Private Sub
Command4_Click()
Do
DoEvents
PortOut
&H378, &H8
PortOut &H37A, &HB
End Sub
Private Sub
Command5_Click()
Do
DoEvents
PortOut
&H378, &H10
PortOut &H37A, &HB
End Sub
Private Sub
Command6_Click()
Do
DoEvents
PortOut
&H378, &H20
PortOut &H37A, &HB
End Sub
Private Sub
Command7_Click()
Do
DoEvents
PortOut
&H378, &H40
PortOut &H37A, &HB
End Sub
Private Sub
Command8_Click()
Do
DoEvents
PortOut
&H378, &H80
PortOut &H37A, &HB
End Sub
Private Sub
Command9_Click()
Do
DoEvents
PortOut
&H378, &H0
PortOut &H37A, &HA
End Sub
Private Sub
Form_Load()
Do
DoEvents
PortOut &H378, &H0 'berikan logika 0 pada port 378'
PortOut &H37A, &HB 'berikan logika 0 pada port 37A (aktive
low)'
End Sub
7. KESIMPULAN
- Dalam pemasangan modul, salah satu hal
yang perlu diperhatikan dalam pengontoran LED adalah instalasi pin diagram
konektor dengan kabel serta keadaan aktif khususnya untuk input C, dimana
terdapat perbedaan berdasarkan tegangan pada LED aktif high atau aktif
low, serta dibutuhkan pengalamatan data yang tepat.
- Pada pembuatan interface pengontrolan
modul LED, bilangan yang dimasukkan adalah dalam hexadesimal, maka dalam
hal ini diperlukan adanya ketelitian untuk menghindari kesalahan alamat.
Comments
Post a Comment