Dalam pengenalan bagaimana
mengendalikan alat yang terhubung dengan port parallel. Pembahasan ini
merupakan dasar dari semua pembuatan alat yang akan kalian kembangkan. Kali ini
kita membuat alat seadanya berhubung tidak lengkapnya komponen alat di pulang
pisau.
Bahan yang kita perlukan berupa
Papan PCB
|
Dynamo
|
Kabel
|
Transistor
Dimana; N=negative(-) dan
P=Positif(+)
|
Adaptor
 Dimana; warna hitam negatif, dan merah
positif
|
Berepa colokan bekas ujung
computer yang rusak diambil
Nanti dihubungkan dengan Kabel
|
Buat rangkaian seperti gambar
berikut
Hubungkan peralatan tegangan dan
port parallel seperti berikut
Buat software pengendali dengan
menggunakan DELPHI
Komponen yang diperlukan dalam
delphi
|
|
Edit1.Text
|
Text ;
dikosongkan
|
Label1
|
Caption;
Masukkan angka
|
Button1
|
Caption;
Mulai
|
|
|
Masukkan dan ketik program di
dalam tombol sebagai berikut;
procedure
TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=StrToInt(Edit1.Text);
//masukkan angka
Out32($378,a);
end;
Masukkan listing program di bawah {sr*.df}
procedure
Out32(wAddr:word;bOut:byte); stdcall; external 'inpout32.dll';
function
Inp32(wAddr:word):integer; stdcall; external 'inpout32.dll';
Sehingga program menjadi sebagai
berikut
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
Out32(wAddr:word;bOut:byte); stdcall; external 'inpout32.dll'
function
Inp32(wAddr:word):integer; stdcall; external 'inpout32.dll'
procedure
TForm1.FormCreate(Sender: TObject);
begin
end;
procedure
TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=StrToInt(Edit1.Text);
//masukkan angka
Out32($378,a);
end;
end.
File inpout32.dll dapat di download di bawah pembahasan
Masukkan angka
0 maka dynamo bergerak, masukkan angka yang lain 2 atau 4 atau 6.
Mematikan
dynamo, masukkan angka 1 atau angka 3 atau angka 5.
Penjelasan Port
Paralel
Penggunaan Port
yang digunakan Pin 2 dimana sebagai muatan negative mengalir, dan pin 18
sebagai muatan positif. Pada saat elektron(negatif) dari listrik mengalir, dan dari komputer juga elektron (negatif) di alirkan, maka negatif dan negatif akan tolak-menolak, sehingga dinamo tidak mengalir.
Persamaan yang digunakan
V=V1-V2
Pada memasukkan
angka 0 tidak ada arus yang mengalir di dalam port parallel sehingga dynamo
berputar, begitu juga 2, 4, 6. Lebih lanjut lihat penjelasan Bilangan Biner
Pada angka 1,
3, 5, 7 pada pin 2 menghasilkan angka 1 sehingga listrik pada adaptor tidak
dapat mengalir karena arah arus berubah.
Penjelasan jalur Pada Port parallel
Jalur yang digunakan adalah pin 2, 3, 4, 5, 6,
7, 8, 9 yang bernilai 378 untuk biner keseluruhan jalur.
------------------------------------
-------------------------------
-----------------
---------
-----
---
-
DINAMO BERGERAK PELAN DENGAN PORT PARALEL
Dalam Pembuatan diperlukan file dynamic Link Librari yang berupa
inpout32.dll dapat di download akhir penjelasan
---------------------------------------------------------------------------------------------------------------------------------
Penggunaaan
Pemutar dynamo dapat menggunakan listrik program yang memutar dynamo dengan
pelan.
Dapat
menggunakan listing program sebagai berikut
procedure
TForm1.Button1Click(Sender: TObject);
begin
Out32($378,2); //berputar
Sleep(1);
Out32($378,4); //berputar
Sleep(1);
Out32($378,6); //berputar
Sleep(1);
Out32($378,1); //dinamo dimatikan
end;
Masukkan juga
di bawah {$r *.dfm}
procedure
Out32(wAddr:word;bOut:byte); stdcall; external 'inpout32.dll';
function
Inp32(wAddr:word):integer; stdcall; external 'inpout32.dll';
Misalkan kalian
menggunakan pin 3 maka penggunakan listring program berubah berdasarkan
bilangan biner yang dijelaskan. Selanjutnya dapat kalian kmbangkan membuat
untuk mematikan dan menghidupkan lampu dan masih banyak hal yang dapat kalian
buat
Catatan;
Bila
menggunakan Kabel LPT maka akan dirubah penggunaan bilangan biner, dimana pada
bilangan biner yang mengasilkan angka 0 berarti tidak jalan, untuk lebih
jelasnya dapat kalian coba sendiri
-----------------------------------------------------------------------------------------------------------------------
Menggunakan Transistor Jenis PNP
Transistor PNP
Tambahkan beberapa penghubung
Sehingga
Dalam Transistor PNP Ini Menarik muatan negative, Jadi
V=V1+V2
Untuk Program yang digunakan juga sama.
Unduh file Penjelasan dan software 1
download
Unduh file Penjelasan dan software 2
download
