Tulisan Bahasa Inggris Softskill 13 Contoh Program ALAT UNDI menggunakan DELPHI 7

Contoh Program ALAT UNDI menggunakan DELPHI 7

procedure TForm1.ZIBOT1Click(Sender: TObject);

begin

angka1 := random(10);

angka2 := random(10);

if  angka2<9 then angka2:=0;

if angka1>9 then angka1:=0;

label1.Caption := inttostr(angka2);

label2.caption := inttostr(angka1);

i:=angka1*17;

j:=angka2*1;

k:=i + j;

X := (Out32($378,k));

end;

end.

ket : ada yang beberapa diganti (harap buat sendiri, ini hanya referensi saja)