Pengendali Led Dengan Visual Basic

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