Baru minggu-minggu kemarin saya ada tugas buat antar muka menggunakan port paralel. Lalu kami sekelompok putuskan memakai 7Segmen LED untuk uji cobanya. Berikut uraiannya.

Paralel Port

Parallel port sering digunakan untuk interface dalam pembuatan suatu proyek. Port ini dapat memungkinkan input sampai 9 bit sekaligus atau output sampai 12 bit pada saat yang sama sehingga meminimalkan rangkaian eksternal dalam penggunaannya. Port parallel terdiri dari 4 jalur control, 5 jalur status, 8 jalur data dan sisanya tidak dihubungkan atau juga dapat dihubungkan sebagai ground. Parallel port sering ditemukan pada PC sebagai konektor male/female 25 pin. Kelebihan penggunaan Parallel port dibandingkan dengan Serial port adalah Parallel port akses lebih cepat karena data yang diterima dan diolah secara bersamaan.

7Segmen LED

Seven Segment LED Display merupakan salah satu bagian dari modul CITS NX-2000 yang dapat digunakan untuk menampilkan display angka dari program yang kita buat yang dikirim melalui modul paralel. Jadi, untuk mengkonfigurasikan sistem ini kita memerlukan modul paralel dan modul Seven Segment LED Display dari CITS NX-2000. Untuk membuat suatu tampilan angka maka kita harus mengaktifkan segment (LED) yang kita perlukan, dan menon-aktifkan segment (LED) yang tidak diperlukan. Misalnya untuk membuat angka 1, maka mengaktifkan LED b (D1) dan LED c (D2), dan menon-aktifkan LED yang lainnya. Berikut ini tabel pengalamatannnya berikut tampilan outputnya. 7Segmen sendiri terdiri dari dua jenis, yaitu katoda dan anoda, bedanya, jika common anoda inputnya adalah ground atau (LOW) jika common katoda maka inputnya HIGH.

Pada percobaan kali ini kami memakai common katoda. Percobaan kali ini hanya akan menampilkan angka 1-9 jadi tabel di atas hanya sampai kaki g. Kaki terahir (dp) adalah untuk dot(titik) pada 7 segmen.

Berarti pin paralel yang dibutuhkan adalah D0-D6 atau pin 2-8 dan pin 18 untuk ground.

Alat dan bahan : resistor = 7 buah, kabel pelangi 10 pin, solder, tenol, pcb berlubang

rangkaian:

Kode Script VB:

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)

Private Sub Form_Load()
disableAllTimer
setAngka
resetSegment
End Sub
Private Sub resetSegment()
Shape_a.FillColor = &H8000000F
Shape_b.FillColor = &H8000000F
Shape_c.FillColor = &H8000000F
Shape_d.FillColor = &H8000000F
Shape_e.FillColor = &H8000000F
Shape_f.FillColor = &H8000000F
Shape_g.FillColor = &H8000000F
End Sub

Private Sub setAngka()
set0.Caption = "0"
set1.Caption = "1"
set2.Caption = "2"
set3.Caption = "3"
set4.Caption = "4"
set5.Caption = "5"
set6.Caption = "6"
set7.Caption = "7"
set8.Caption = "8"
set9.Caption = "9"
End Sub

Private Sub disableAllTimer()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
End Sub
Private Sub enableAllTimer()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
Timer6.Enabled = True
Timer7.Enabled = True
Timer8.Enabled = True
Timer9.Enabled = True
End Sub

Private Sub set0_Click()
resetSegment
Out 888, 63
Shape_a.FillColor = vbRed
Shape_b.FillColor = vbRed
Shape_c.FillColor = vbRed
Shape_d.FillColor = vbRed
Shape_e.FillColor = vbRed
Shape_f.FillColor = vbRed
End Sub

Private Sub set1_Click()
resetSegment
Out 888, 6
Shape_b.FillColor = vbRed
Shape_c.FillColor = vbRed
End Sub

Private Sub set2_Click()
resetSegment
Out 888, 91
Shape_g.FillColor = vbRed
Shape_e.FillColor = vbRed
Shape_d.FillColor = vbRed
Shape_a.FillColor = vbRed
Shape_b.FillColor = vbRed
End Sub

Private Sub set3_Click()
resetSegment
Out 888, 79
Shape_g.FillColor = vbRed
Shape_d.FillColor = vbRed
Shape_a.FillColor = vbRed
Shape_b.FillColor = vbRed
Shape_c.FillColor = vbRed
End Sub

Private Sub set4_Click()
resetSegment
Out 888, 102
Shape_g.FillColor = vbRed
Shape_f.FillColor = vbRed
Shape_c.FillColor = vbRed
Shape_b.FillColor = vbRed
End Sub

Private Sub set5_Click()
resetSegment
Out 888, 109
Shape_g.FillColor = vbRed
Shape_f.FillColor = vbRed
Shape_d.FillColor = vbRed
Shape_c.FillColor = vbRed
Shape_a.FillColor = vbRed
End Sub

Private Sub set6_Click()
resetSegment
Out 888, 125
Shape_g.FillColor = vbRed
Shape_f.FillColor = vbRed
Shape_e.FillColor = vbRed
Shape_d.FillColor = vbRed
Shape_c.FillColor = vbRed
Shape_a.FillColor = vbRed
End Sub

Private Sub set7_Click()
resetSegment
Out 888, 7
Shape_a.FillColor = vbRed
Shape_b.FillColor = vbRed
Shape_c.FillColor = vbRed
End Sub

Private Sub set8_Click()
resetSegment
Out 888, 127
Shape_a.FillColor = vbRed
Shape_b.FillColor = vbRed
Shape_c.FillColor = vbRed
Shape_d.FillColor = vbRed
Shape_e.FillColor = vbRed
Shape_f.FillColor = vbRed
Shape_g.FillColor = vbRed
End Sub

Private Sub set9_Click()
resetSegment
Out 888, 111
Shape_a.FillColor = vbRed
Shape_b.FillColor = vbRed
Shape_c.FillColor = vbRed
Shape_d.FillColor = vbRed
Shape_f.FillColor = vbRed
Shape_g.FillColor = vbRed
End Sub

Private Sub mulaiMundur_Click()
Timer1.Enabled = True
mulaiMundur.Visible = False
stopTimer.Visible = True
End Sub

Private Sub stopTimer_Click()
disableAllTimer
Out 888, 0
stopTimer.Visible = False
mulaiMundur.Visible = True
End Sub

Private Sub Timer1_Timer()
set1_Click
disableAllTimer
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
set2_Click
disableAllTimer
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
set3_Click
disableAllTimer
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
set4_Click
disableAllTimer
Timer5.Enabled = True
End Sub

Private Sub Timer5_Timer()
set5_Click
disableAllTimer
Timer6.Enabled = True
End Sub

Private Sub Timer6_Timer()
set6_Click
disableAllTimer
Timer7.Enabled = True
End Sub

Private Sub Timer7_Timer()
set7_Click
disableAllTimer
Timer8.Enabled = True
End Sub

Private Sub Timer8_Timer()
set8_Click
disableAllTimer
Timer9.Enabled = True
End Sub

Private Sub Timer9_Timer()
set9_Click
disableAllTimer
Timer1.Enabled = True
End Sub

Atau bisa download project VBnya di link ini : http://adf.ly/Y5mCh

Semoga bermanfaat.