MEMUTAR DINAMO DENGAN PORT PARALEL

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

Lihat Pada PIN 2

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=V₁+V₂

Untuk Program yang digunakan juga sama.

Unduh file Penjelasan dan software 1 download

Unduh file Penjelasan dan software 2 download