Akses Peralatan Luar Lewat Parallel Printer Port



26Share
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.  
  11. procedure TForm1.btnLED5Click(Sender: TObject);
  12. begin
  13. (* contoh pemanggilan prosedur KirimDataKePort,
  14. ini akan menyalakan LED 5 (data bit-4 / pin 6
  15. dari rangkaian yang terdapat pada Gambar 3.  *)
  16. KirimDataKePort($378, $8); //00010000 biner
  17. 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.  
  2. interface
  3.  
  4. uses
  5. Windows, Messages, SysUtils, Classes, Graphics, Controls,
  6. Forms, Dialogs, Buttons, ExtCtrls, StdCtrls;
  7. type
  8. TForm1 = class(TForm)
  9. SpeedButton1: TSpeedButton;
  10. SpeedButton2: TSpeedButton;
  11. SpeedButton3: TSpeedButton;
  12. SpeedButton4: TSpeedButton;
  13. SpeedButton5: TSpeedButton;
  14. SpeedButton6: TSpeedButton;
  15. SpeedButton7: TSpeedButton;
  16. SpeedButton8: TSpeedButton;
  17. Bevel1: TBevel;
  18. Bevel2: TBevel;
  19. lblDataPortBit: TLabel;
  20. lblNoLED: TLabel;
  21. Label1: TLabel;
  22. Label2: TLabel;
  23. Label3: TLabel;
  24. procedure SpeedButton1Click(Sender: TObject);
  25. procedure FormCreate(Sender: TObject);
  26. private
  27. procedure KirimDataKePort(DataPortBit: Byte);
  28. public
  29. { Public declarations }
  30. end;
  31.  
  32. var
  33. Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. uses
  40. Math;
  41.  
  42. const
  43. AlamatPort = $378;
  44.  
  45. procedure TForm1.KirimDataKePort(DataPortBit: Byte);
  46. var
  47. Nilai: Byte;
  48. begin
  49. lblDataPortBit.Caption := IntToStr(DataPortBit);
  50. lblNoLED.Caption := 'LED No. ' + IntToStr(DataPortBit + 1) +
  51. ' Nyala';
  52. Nilai := Trunc(Power(2, DataPortBit));
  53. asm
  54. MOV     DX, AlamatPort
  55. MOV     AL, Nilai
  56. OUT     DX, AL
  57. end;
  58. end;
  59.  
  60. procedure TForm1.SpeedButton1Click(Sender: TObject);
  61. begin
  62. (* Letakan 8 buah TSpeedButton, atur propeti Tag
  63. dari 8 TSpeedButton tersebut dengan nilai
  64. 0 sampai dengan 7. Dari Object Inspector,
  65. arahkan event Clik dari semua TSpeedButton
  66. ke SpeedButon1Click. *)
  67.  
  68. KirimDataKePort((Sender as TSpeedButton).Tag);
  69. end;
  70.  
  71. procedure TForm1.FormCreate(Sender: TObject);
  72. begin
  73. KirimDataKePort(0);
  74. end;
  75.  
  76. end.

0 Response to " Akses Peralatan Luar Lewat Parallel Printer Port "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!