Analisa Program

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.