Komunikasi parallel mikrokontroller dengan komputer

Port paralel ialah port data  di komputer untuk mentransmisi 8 bit data dalam sekali detak. Standar port paralel  yang baru ialah IEEE 1284 dimana dikeluarkan tahun 1994.  Standar ini mendefinisikan 5 mode operasi sebagai berikut :

1.      Mode kompatibilitas

2.      mode nibble

3.      mode byte

4.      mode EPP (enhanced parallel port)

5.      mode ECP (Extended capability port)

Komunikasi parallel adalah jenis komunikasi data yang sangat sederhana. Mentransmisikan secara bersama 8 bit data.

Berikut detail fungsi masing masing pin pada port parallel.

sumber : Logix4u.Net

Fungsi untuk komunikasi data keluar adalah pin no 2 s.d 9, dan pin no 14

Fungsi untuk komunikasi membaca data (4 bit) adalah pin nomor 10 s.d 13, serta pin no 15

Berikut gambaran schematic komunikasi microcontroller dengan port parallel

Pembuatan software interface.

Berikut akan dipraktikan pembuatan software interfacing komunikasi parallel menggunakan vb 6

1. Mempersiapkan file library input output bernama inpout32.dll, Bisa anda download di sini.
2. Selanjutnya copy file tersebut ke folder windows\system32
3. Mempersiapkan window tampilan untuk program tulis data parallel menuju mikrokontroller, dan baca data parallel dari mikrokontroller

Pada percobaan 1, untuk memberikan data out menuju mikrokontroller (form 6) ketikkan coding berikut :

Private Declare Sub portOut Lib "IO.DLL" Alias "PortOut" (ByVal Port As Integer, ByVal Data As Byte)

Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte

Private Sub Command1_Click()

a = Text1.Text

If a <= 255 And a >= 0 Then

portOut &H378, a

Else

MsgBox "Angka melebihi batas range", vbCritical, "Peringatan"

End If

End Sub

Private Sub Command2_Click()

Form6.Hide

Form2.Show

End Sub

Pada Percobaan 2, (form 7 ) ketikkan kode berikut :

Private Declare Sub portOut Lib "IO.DLL" Alias "PortOut" (ByVal Port As Integer, ByVal Data As Byte)

Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte

Private Sub Command1_Click()

Form7.Hide

Form2.Show

End Sub

Private Sub Form_Load()

a As Integer

a = PortIn(&H378)

textbox1.Text = a

End Sub