.: MIG33PENAJAM.TK :.

Forum Komunitas Mig33 Penajam Paser Utara
 
IndeksPortalFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 Akses Paralel Port (LPT1) Dengan Visual Basic

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
boystars
ADMINISTRATOR
ADMINISTRATOR


Male
Jumlah posting : 526
Lokasi : Penajam Kota tercinta. Petung Desa damai nan permai
Nick mig : boystars, dai4,ocal
Room : Masih sekitar Indonesia juga Very Happy

PostSubyek: Akses Paralel Port (LPT1) Dengan Visual Basic   Sun 10 May 2009 - 20:23

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
Kembali Ke Atas Go down
Lihat profil user http://www.mig33penajam.tk, www.rikie.co.cc
 
Akses Paralel Port (LPT1) Dengan Visual Basic
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» bercanda dengan LOGIKA
» PROJECT VISUAL NOVEL[Need Volunteer]
» Minta pendapat mau beli helm dengan budget terbatas!
» bedanya ninja 250 dengan ninja 250 se
» HELP!!! beda MOTUL 5100 dengan MOTUL H-TECH

Permissions in this forum:Anda tidak dapat menjawab topik
.: MIG33PENAJAM.TK :. :: INFORMATION AND COMMUNICATION TECNOLOGY (ICT) :: I--PEMROGRAMAN-
Navigasi: