Beranda > Visual Basic > Akses Port Paralel LPT1 dengan Visual Basic

Akses Port Paralel LPT1 dengan Visual Basic

Paralel port LPT1 merupakan port transfer data basis paralel input/ouput tertua yang lazim pada komputer era 8080. Untuk era komputer saat ini, port ini sudah mulai ditinggalkan karena sudah digantikan oleh port yang lebih cepat, fleksibel dan universal, yaitu port USB (Universal Serial Bus) yang berbasis pada transfer data serial. Kamu boleh periksa di komputer, bagian belakang, apakah masih ada port dengan 25 buah pin seperti gambar di bawah ini, port dengan warna merah.

Konfigurasi port dan terminalnya seperti dalam gambar berikut;

8 bit Output pin: 2, 3, 4, 5, 6, 7, 8, 9 Alamat Port: 888

4 bit Output pin: 1, 14, 16, 17 Alamat Port: 887

5 bit Input pin: 15, 13, 12, 10, 11. Pin 11 dengan masukan terbalik (inverting)

Walau demikian, kemudahan mengaksesnya membuat port ini masih tetap populer digunakan pada pemrograman-pemrograman periperal luar yang dikontrol oleh komputer. Pernah lihat warung telepon yang menggunakan alat penghitung terhubung ke komputer kasir? Nah sebagian besar menggunakan port LPT1 ini untuk kontrolnya.

Yang diperlukan hanya mengakses alamat LPT1 komputer, kemudian mengontolnya dengan bahasa pemrograman, apakah itu C, BASIC, PASCAL dan sebagainya sesuai dengan fungsi yang diinginkan si pemrogram. Kali ini saya coba membahas bagaimana mengakses port LPT1 dengan bahasa pemrograman Visual Basic (VB) yang sudah banyak dikenal.

Dalam VB, tidak disertakan modul atau fungsi untuk mengakses port LPT1 secara langsung, nah kita harus membuat fungsi dan modul ini sendiri. Namun jangan kuatir, karena langkahnya sangat sederhana. Berikut salah satu contoh mengakses port LPT1 dan mengeluarkan data digital, ikuti langkah ini:

1. Download io.dll dan letakkan di direktori C:\WINDOWS\SYSTEM pada komputermu.

2. Buka Visual Basic, buat New Project dan pilih menu Add Module seperti gambar ini.

3. Dalam jendela modul yang muncul, masukkan deklarasi untuk io.dll seperti ini:

Public Declare Sub PortOut Lib “io.dll” (ByVal Port As Integer, ByVal Value As Byte)

Public Declare Function PortIn Lib “io.dll” (ByVal Port As Integer) As Byte

4. Buat form baru dengan dua tombol Command seperti ini.

5. Berikan kode program untuk tombol 1 dan tombol dua seperti ini.

6. Coba jalankan, untuk simulator anda bisa mendownload program Parmon.exe untuk melihat data keluar pada pin.

Untuk memasukkan data, kamu bisa buat form dengan 1 tombol Command dan satu buah Label, gunakan kode program berikut:

Private Sub Command1_Cick()

Dim NomorPort as Byte

NomorPort = PortIn(889)

Label1.Caption = NomorPort

End Sub

Untuk input, gunakan tegangan 5 volt terhadap ground (chasis) untuk logika 1, dan tegangan 0 volt terhadap ground untuk logika 0. Dan ingat, terminal 11 menjadi logika terbalik.

Item yang perlu di download:

1. Io.dll

2. Parmon.exe

taken from http://xtalplanet.multiply.com/journal/item/26

Kategori:Visual Basic
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: