25 Oktober 2008

Interfacing dengan Parallel Printer Port
Share

Ingin mengendalikan peralatan luar dengan menggunakan komputer? Tentu sangat menyenangkan, apalagi hanya dengan beberapa baris program Delphi, kita dapat menyalakan lampu, menghidupkan motor, mengatur lengan robot ataupun mengakses peralatan elektronis lainnya.

Mungkin tulisan ini bisa menjadi cemilan yang cukup bergizi bagi Delphiers yang suka ngoprek elektronika praktis, ini lantaran kita tidak harus membuat card I/0 sendiri, tetapi cukup dengan memanfaatkan parallel printer port saja.

Parallel Printer Port
Port yang satu ini, dipastikan selalu ada pada setiap komputer. Tercermin dari namanya, saat ini parallel port lebih banyak dimanfaatkan untuk urusan pencetakan data. Sebenarnya, port inipun bisa dimanfaatkan untuk hal lain, karena memiliki input/output (I/O) data.

Tata-letak dari ke-dua puluh lima pin (DB 25) parallel printer port, diperlihatkan dalam Gambar 1.

Adapun tabel signal dan fungsi dari setiap pin pada parallel printer port, terlihat pada Gambar 2. Dari situ diketahui pin 2 s/d 9 (signal D0-D7) berfungsi sebagai output, yang selanjutnya dapat kita manfaatkan untuk mengontrol peralatan luar.

Rangkaiannya

Untuk keperluan uji-coba sesaat, kita bisa menghubungkan LED (Light Emitting Diode) lewat resistor, langsung ke pin output dari parallel printer port. Bisa juga hanya dengan mengukur tegangan 5 volt yang timbul, saat data port dalam keadaan high.

Untuk dapat mengakses beban yang besar serta untuk mencegah terjadinya pembebanan berlebihan pada parallel printer port, sebaiknya kita menggunakan rangkaian penyangga (buffer).

Dari skema pada Gambar 4, terlihat pin 3,5,7,9,12,16 dan 18
dari 74LS224 terhubung ke masing-masing relai. Selanjutnya
sakelar pada setiap relai tersebut, bisa kita gunakan untuk
mengontrol peralatan yang memiliki beban besar.

Kode Program Delphi
Tidak seperti Turbo Pascal atau Delphi 1 dimana tersedia fungsi Port,
pada Delphi 32 bit (versi 2 s/d 6) fungsi itu sudah tidak didukung lagi.
Sebagai gantinya kita gunakan in-line assembler code.

Listing 1. Hidupkan LED 5 dari rangkaian pada Gambar 3.

procedure KirimDataKePort(AlamatPort: Word; DataBit: Byte);
  1. (* alamat LPT1, range 378-37F hex
  2. alamat LPT2, range 278-37F hex
  3. alamat LPT3, range 3BC-3BF hex
  4. lihat juga referensi teknis dari Intel dan Microsoft *)
  5. asm
  6. MOV DX, AlamatPort
  7. MOV AL, DataBit
  8. OUT DX, AL
  9. end;

  10. procedure TForm1.btnLED5Click(Sender: TObject);
  11. begin
  12. (* contoh pemanggilan prosedur KirimDataKePort,
  13. ini akan menyalakan LED 5 (data bit-4 / pin 6
  14. dari rangkaian yang terdapat pada Gambar 3. *)
  15. KirimDataKePort($378, $8); //00010000 biner
  16. end;

Pada prinsipnya, untuk menyalakan LED, kita kirim data biner
8 bit ke port. Sesuaikan pengiriman data biner ini, dengan LED
yang ingin dinyalakan.

Misalnya, untuk menyalakan LED pertama datanya adalah 1 hex
(biner; 0000001), sedangkan data biner 10000000
(80 hex / 128 dec) digunakan untuk menyalakan LED kedelapan.
Daftar berikut, dapat digunakan sebagai acuan.
DataPort Bit 0 = LED1 = 00000001 bin = 1 hex = 1 dec
DataPort Bit 1 = LED2 = 00000010 bin = 2 hex = 2 dec
DataPort Bit 2 = LED3 = 00000100 bin = 4 hex = 4 dec
DataPort Bit 3 = LED4 = 00001000 bin = 8 hex = 8 dec
DataPort Bit 4 = LED5 = 00010000 bin = 10 hex = 16 dec
DataPort Bit 5 = LED6 = 00100000 bin = 20 hex = 32 dec
DataPort Bit 6 = LED7 = 01000000 bin = 40 hex = 64 dec
DataPort Bit 7 = LED8 = 10000000 bin = 80 hex = 128 dec

Bagi yang ingin bereksperimen, Listing 2 merupakan kode program
dari contoh Aplikasi Pengendali seperti yang terlihat pada Gambar 5.

Listing 2. Kode program aplikasi pengendali.
(* = Mengontrol peralatan luar lewat Parallel Printer Port = *)

unit Unit1;

  1. interface

  2. uses
  3. Windows, Messages, SysUtils, Classes, Graphics, Controls,
  4. Forms, Dialogs, Buttons, ExtCtrls, StdCtrls;
  5. type
  6. TForm1 = class(TForm)
  7. SpeedButton1: TSpeedButton;
  8. SpeedButton2: TSpeedButton;
  9. SpeedButton3: TSpeedButton;
  10. SpeedButton4: TSpeedButton;
  11. SpeedButton5: TSpeedButton;
  12. SpeedButton6: TSpeedButton;
  13. SpeedButton7: TSpeedButton;
  14. SpeedButton8: TSpeedButton;
  15. Bevel1: TBevel;
  16. Bevel2: TBevel;
  17. lblDataPortBit: TLabel;
  18. lblNoLED: TLabel;
  19. Label1: TLabel;
  20. Label2: TLabel;
  21. Label3: TLabel;
  22. procedure SpeedButton1Click(Sender: TObject);
  23. procedure FormCreate(Sender: TObject);
  24. private
  25. procedure KirimDataKePort(DataPortBit: Byte);
  26. public
  27. { Public declarations }
  28. end;

  29. var
  30. Form1: TForm1;

  31. implementation

  32. {$R *.DFM}

  33. uses
  34. Math;

  35. const
  36. AlamatPort = $378;

  37. procedure TForm1.KirimDataKePort(DataPortBit: Byte);
  38. var
  39. Nilai: Byte;
  40. begin
  41. lblDataPortBit.Caption := IntToStr(DataPortBit);
  42. lblNoLED.Caption := 'LED No. ' + IntToStr(DataPortBit + 1) +
  43. ' Nyala';
  44. Nilai := Trunc(Power(2, DataPortBit));
  45. asm
  46. MOV DX, AlamatPort
  47. MOV AL, Nilai
  48. OUT DX, AL
  49. end;
  50. end;

  51. procedure TForm1.SpeedButton1Click(Sender: TObject);
  52. begin
  53. (* Letakan 8 buah TSpeedButton, atur propeti Tag
  54. dari 8 TSpeedButton tersebut dengan nilai
  55. 0 sampai dengan 7. Dari Object Inspector,
  56. arahkan event Clik dari semua TSpeedButton
  57. ke SpeedButon1Click. *)

  58. KirimDataKePort((Sender as TSpeedButton).Tag);
  59. end;

  60. procedure TForm1.FormCreate(Sender: TObject);
  61. begin
  62. KirimDataKePort(0);
  63. end;

  64. end.

Download



Sumber: Klik-kanan.com

Cetak

Artikel Lain :


1 komentar:

All The Things I Know in IT mengatakan...
27 Oktober 2008 10.08  

thanx ya buat tutorialnya berguna ne..

Berlangganan

Berlangganan RSS Feed via Email:


Ada kesalahan di dalam gadget ini

Artikel Populer

Blog Archive

Pengikut

Recomended Download


Add to Your Blog