paralel delphi

http://filza.wordpress.com/2007/03/17/akses-port-paralel-dengan-delphi/

Bagi anda yang suka pemrograman untuk mengakses hardware komputer, mungkin salah satu port yang bisa dimanfaatkan adalah paralel port, serial atau USB. Bagaimana kita membuat program untuk mengakses port paralel?. Berbeda dengan pemrograman biasa, untuk program akses port kita harus mengetahui alamat port yang digunakan… untuk lebih jelasnya silahkan baca selanjutnya tutorial ini semoga bermanfaat…

Port paralel walaupun sekarang sudah mulai disertakan pada motherboard keluaran terbaru tetapi masih layak untuk dikembangkan untuk keperluan kontrol perlatan seperti, motor stepper, lampu LED,LCD, Seven Segment dan aplikasi lainnya.Nah bagaimana cara melakukan akses ke port paralel melalui Delphi?…



port.JPG

Buatlah Form dengan tampilan sebagai berikut :

port1.JPG

Buatlah Kode program sebagai berikut :

procedure TulisPort(addr: word; value: byte); assembler;

asm

XCHG AX,DX

OUT DX,AL

end;

function BacaPort(addr: word): byte; assembler;

asm

MOV DX,AX

IN AL,DX

end;

procedure TForm1.FormCreate(Sender: TObject);

var

kontrol: byte;

begin

kontrol := BacaPort($37A); {baca register kontrol LPT1}

kontrol := kontrol and $DF; {reset bit 5, operasi tulis}

TulisPort($37A, kontrol); {tulis kembali register kontrol LPT1}

end;



Dobel klik pada Button1 dan tulis perintah berikut (event handler OnClick untuk Button1) untuk menulis data ke port printer.

procedure TForm1.Button1Click(Sender: TObject);

var

data: byte;

begin

data := StrToInt(edit1.text); {mengambil nilai dari Edit1}

data := $FF-data; {komplemenkan nilai tersebut}

TulisPort($378, data); {tulis data tsb ke port data LPT1}

end;

Running Program …

Jika Edit diisi dengan bilangan, maka akan berlaku konversi bilangan desimal ke biner dengan logika sebagai berikut

Misal 8 = 0 0 0 0 1 0 0 0

Sehiingga bilangan binernya adalah = 07 + 06 + 05 +04 + 23 + 02 + 01 + 00.

maka led yang menyala adalah 1 led nomor 5 dari kiri

Jika anda menggunakan sistem operasi Windows XP anda harus menambahkan komponen User Port yang dapat anda download disini…

Suka
Be the first to like this post.
29 Tanggapan ke “Akses Port Paralel Dengan Delphi”

1.
Muhal Berkata:

12 April, 2007 at 8:36 am

Tulisan ini merupakan tulisan yang sama diblog Muhal…
Kunjungi juga blog teknologi komputer terbaru di http://muhal.110mb.com
Balas
2.
f4dd4l Berkata:

9 Mei, 2007 at 4:33 am

saya udah baca artikel diatas saya ingin mencoba listing diatas dan saya pake windows xp…..
masalahnya link untuk komponen user port diatas gak bisa diakses….
dapatkah memberikan link yg laen….
Balas
3.
Muhal Berkata:

10 Mei, 2007 at 5:24 am

Coba dicoba lagi downloadnya… Teman-teman lain bisa tuh…
coba buka lewat http://muhal.wordpress.com
Balas
4.
indoenks Berkata:

25 Mei, 2007 at 11:25 am

hi.. q pengen bikin aplikasi paralel port dengan Borland dengan menggunakan Tee Chartx.. bisa ngasih scripnya nya biar data dari paralel port masuk ke database.. trus dari database ke Grapik
thanks before..
Sus4n_77@yahoo.com
Balas
5.
http://ngadutrafik2007.smandung.com Berkata:

26 Mei, 2007 at 7:52 am

http//www.ngadutrafik2007.smandung.com

Tinggal buat aja tabel yang berisi data dari port paralel type data var char lalu data dari port paralel tinggal diambil dan disimpan disitu. Nah setelah disimpan kalo mau ditampilkan ke grafik tinggal pakai aja TChart kan udah jadi… Kalo mau akuisisi data kenapa harus pakai database? pakai array aja bisa kok… untuk menampilkan data dari input paralel port.

Silahkan buka blog berikut Insya Allah dalam waktu dekat tak kasih tahu caranya dan sampel programnya…

http//www.ngadutrafik2007.smandung.com
Balas
6.
indoenks Berkata:

13 Juni, 2007 at 12:37 am

saya sudah buat Tabelnya dari MS Akses.. Q gak Ngerti Nee.. Trz.. Juga Rencanax ada pake Histori data biar tabelnya Gak terlalu banyak… pls ya,,sy dah buat inputan data dan sudah bisa dibaca oleh Delphinya.. Pake Komponen Timer Aja Bisa kan??
Makasih ya..
Balas
7.
pian Berkata:

15 Juni, 2007 at 2:34 pm

koq gak bisa jalan di windows XP ???
Balas
8.
Muhal Berkata:

17 Juni, 2007 at 5:13 am

Betul silahkan download file Port-nya baca petunjuknya dulu lalu setting untuk dapat berjalan di Win XP
Balas
9.
rachmad supriyanto Berkata:

17 Juli, 2007 at 12:08 pm

script diatas kan digunakan untuk membaca inputan. kalau boleh saya mau tanya lagi. gimana caranya bila saya ingin mengontrol motor steper dengan port paralel, serta pin mana saja yang akan digunakan untuk menyambungkan ke motor stepper bila saya menggunakan ic uln 2803. terima kasih sebulmnya>>>>>>!

Balas
10.
rido Berkata:

17 Juli, 2007 at 1:31 pm

salam kenal,
mas q mau tanya gmana caranya akses pararel untuk kontrol keamanan dari komputer sbg pengganti saklar / sensor pada mikrocontroller
–> q uda coba pakai userport tp gak bisa
bs minta tolong kasih source code delphiX & componen tambahannya
mAkasiH SebelumNya…
Balas
11.
bbec Berkata:

29 Juli, 2007 at 10:13 am

bagimana cara mengotrol 50 led/relay melalui port db25, ada yang punya referensinya gak
Balas
12.
jannah Berkata:

1 Agustus, 2007 at 5:23 am

bagaimana caranya mengontrol 2 digit seven segment melalui port paralel dengan delphi 5. terima kasih
Balas
13.
bulls Berkata:

8 Agustus, 2007 at 3:19 am

aku menggunakan inputan dari paralel port namun yang bisa tanpa setting yang lain hanya 4 bit tapi dapat di buat 8 bit dengan batuan mikrokontroller lebih mudah untuk mengeser bit dibanding dengan ic logika. aku dah dapat menampilkan grafik dan kemudia aku masikkan database.
Balas
14.
jannahe Berkata:

10 Agustus, 2007 at 1:02 am

Ass. saya mau tanya bagaimana caranya membaca data dan mengontrol 2 digit seven semen melaui port paralel dengan delphi.

listing program yang anda berikan tidak bisa running dan ada tulisan (projectakses.exe raised exceptionclass EPrivilege with message (privalege instruction)). itu maksudnya apa???

terima kasih sebelumnya….
Balas
15.
irfan Berkata:

17 Agustus, 2007 at 1:25 pm

kl menggunakan port paralel di xp bgaimana?apa ditambahkan di delphinya atau ada program khusus? terima kasih jawabannya
Balas
16.
2lose Berkata:

16 Oktober, 2007 at 6:19 am

mw nanya cukup simpel aja ,, gimana cara menerima inputan dari db 25,,, apakah ada pin khusus saja untuk menerima inputan???
bisa dipakai port d0 samapi d7??
apakah port d0 ampe d7 cuma buatn output saja???
Balas
17.
Sahli Berkata:

18 Oktober, 2007 at 6:44 am

Untuk input bisa digunakan port data d0-d7, tapi kalau menggunakan port ini berarti harus gantian dengan port output… Caranya set bit 5 =1 pada port kontrol. Jangan lupa set LPT1 di bios pada mode SPP atau ECP… Semoga membantu… Input bisa 8 bit…
Balas
18.
fikar Berkata:

21 November, 2007 at 10:25 pm

mas, download untuk user portnya ga mau jalan tuh. di web nya tertulis “not found”, atau kalo ga gitu tertulis “The page you’re accessing no longer exists or you mistyped the URL.
”
makasih sebelumnya atas info yang diberikan
Balas
19.
filza Berkata:

22 November, 2007 at 8:15 am

Coba download di situs yang lain Mas Fikar
http://elektro.uny.ac.id/muhal

Hosting di URL tsb emang kadang bermasalah…
Balas
20.
heri Berkata:

4 Juni, 2008 at 7:09 am

mas.. bagaimana apabila kita ingin mengatur lampu led itu dengan saklar…

mohon bantuannya…
Balas
21.
Filza Berkata:

5 Juni, 2008 at 2:43 am

Jika ingin mengatur lampu LED pakai saklar maka perlu port kontrol untuk mengatur LED dengan DIP Switch (Port kontrol ada 4) jadi bisa digunakan untuk mengatur lampu LED dengan saklar. Tapi ingat konfigurasinya harus tepat. Semoga membantu.
Balas
22.
Sindu Berkata:

20 Agustus, 2008 at 5:51 am

port parallel d komputer sya enable trs, jd sblm qta mnjlankan program apapun, sdh enable. ini sya tes pke led. led trs nyala, pdhl program blm jln sma skali (hy msuk windows saja). sya pke Gigabyte GAM690S. mohon bantuannya ya mas…. thanks before
Balas
23.
taufikadi Berkata:

17 November, 2008 at 4:39 am

pak bisa minta tolong pembacaan data inputan pada port LPT1 dengan delphi

semisal menghitung putaran motor DC dengan delphi yang do koneksi melalui port LPT1
Balas
24.
taufikadi Berkata:

17 November, 2008 at 4:43 am

mohon di infokan sekalian ya ke taufikadi@yahoo.co.id
Balas
25.
Amin Berkata:

2 Maret, 2009 at 9:49 am

Kalo yang pakai VB ada nggak ya kang..?
kalo ada sharing dong..??
Balas
26.
taufik Berkata:

18 Desember, 2009 at 9:57 am

Pak Ali, saya mahasiswaa PT elektro UNY 2006, mohon penjelasan untuk pengessetan bit tertentu pada port LPT tanpa merubah kondisi logika bit yang lain, semisal logika awal 1111 1111 saya pengin rubah menjadi 0111 1111 atau lalu menjadi 1111 1111 lagi

atau sebagai contoh data awal port paralel 1111 1111 saya ingin clear bit ke lima ( 1110 1111 ) atau pun bit 6 (1101 1111)

bagaimanakah logika programnya. terima kasih atas bantuan dari Pak Ali
Balas
27.
Admin Berkata:

26 Januari, 2010 at 4:09 am

To Taufik : Kalau untuk keperluan mengeset bit tertentu, coba pakai operasi OR atau AND. Kalau 1111 1111 mau diubah menjadi 1110 1111 berarti 1111 1111 harus di AND kan dengan 1110 1111 kalau mau diubah lagi menjadi 1111 1111, maka data 1110 1111 harus di OR kan dengan data 1111 1111 atau dengan data yang lain… Tinggal data tersebut dikonvert ke Heksadecimal angkanya berapa…
Balas
28.
suhendro Berkata:

28 Agustus, 2010 at 6:30 am

mas..

klo pkai wndows 7 beda ya dgn xp??

gmna cara pengalamtan LPT1 pkai delphi 7…please mas help me…

saya masih awam ma delphi jd pkai gmbar ya mas..

thanks vry much..
Balas
29.
suhendro Berkata:

13 Oktober, 2010 at 2:13 pm

ass mas…

saya pemula untuk program2 delphi.

saya mw tanya tentang artikel mas yg judulny : Akses Port Paralel Dengan Delphi.

masalh pengetikan ato click dmna untuk listing program BACAPORT,TULISPORT, DAN FORMCREATE….???

Trus klo pkai win XP ap bisa brfungsi port parallel LPT1 tuh??

please bnget ya mas d blas secepatny…
Thanks before mas…
Balas