unit
MMM;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
function Out32(wAddr:word;bOut:byte):byte;
stdcall; external 'inpout32.dll';
Merupakan kerangka utama pada
Delphi
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
Merupakan suatu komponen palette
yang di gunakan di dalam form design yaitu button, edit, timer.
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ed:string;
lm:byte;
implementation
{$R
*.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
koding diatas merupakan scrip yang
dipasang pada button acak, untuk melakukan proses input.
procedure
TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
end.
koding diatas merupakan scrip yang
dipasang pada button stop, untuk melakukan proses input.
procedure
TForm1.Button3Click(Sender: TObject);
begin
close;
end;
koding diatas merupakan scrip yang
dipasang pada button close, untuk melakukan proses input.
procedure
TForm1.Timer1Timer(Sender: TObject);
const
Chars = '0123456789';
var
S: string;
i, N: integer;
begin
Randomize;
S := '';
for i := 1 to 2 do begin {... menampilkan 6 digit character...}
N := Random(Length(Chars)) + 1;
S := S + Chars[N];
end;
edit1.text := S;
ed:='$' + edit1.text;
lm:=(out32($378,strtoint(ed)));
end;
kodingan diatas merupakan program
yang difungsikan untuk bagian mengacak angka pada komponen timer.
Penjelasan
Program:
Saat
pertama kali alat terhubung dengan komputer yang dihubungkan dengan port
paralel DB25 dan program dijalankan maka seven segmen akan menampilkan angka
00. Setelah itu kita diminta untuk menginput bilangan decimal di editext.
Kemudian angka yang kita input akan diubah ke dalam biner setelah kita menekan
button acak. Dengan bantuan IC decoder BCD yaitu IC 75LS47 maka angka yang
telah kita input dan dikirim dalam bentuk biner tersebut akan dicacah atau
dikonversikan ke dalam sevent segment, tergantung kita memberikan nilai
inputan. Pada dasarnya IC 74LS47 merupakan sebuah pencacah BCD to 7segment yang terdiri dari tujuh gerbang. Tampilan
angka yang telah dikirim dari inputan pada seven segment akan terus berlangsung
selama kita belum menekan button stop. Setelah kita menekan button stop maka
hasil dari proses pengacakan akan tampil berkedip pada 7segment. Apabila kita
menekan button close setelah memperoleh hasil dari pengacakan maka program yang
dijalankan akan selesai.
