TUTORIAL LOOPING WHILE DO MENGGUNAKAN DELPHI 7.0

Kali ini saya akan membuat program LOOPING "While Do" sederhana menggunakan software Borland Delphi 7.0 …


Langsung saja tanpa berbasa basi.....
Are you ready guys.....

Let's do it....!!!!

> Langkah pertama jalankan Borland Delphi kalian....

> Setelah itu akan terbuka jemdela desain pada Borland delphi 

 cek this out :

 

 > Langkah selanjutnya Buat 2 buah Label dan 2 Buah Edit Text 1 Button dan 1 Memo
cek this out :

 

> Selanjutnya Ganti Nama Pada Label dan Button kemudian Hapus Text yang ada pada Edit Text

cek this out :

 

   

  

> Klik 2 x Pada Button

>Lalu Tulislah Coding Berikut :

procedure TForm1.Button1Click(Sender: TObject);

var

X,Y:integer;

begin

memo1.Clear;

X:=strtoint(edit1.Text);

Y:=1;

while F<>strtoint(edit2.Text)do

begin

memo1.Lines.Add('perulangan ke-'+inttostr(Y)+'='+inttostr(X));

X:=X+1;

Y:=Y+1;

end;

end;

> Untuk Menjalankan Programnya ada 2 cara :

> Cara 1 Klik Buton Run yang ada pada toolbar

cek this out ;

> Cara 2 Dengan cara Menekan Tombol F9 Pada Keyboard

> Dan Hasil Programnya seperti di bawah ini …
cek this out :

Yahhh sekian Tutorial dari saya apa bila ada kekurangan mohon di maklumi karna tidak ada manusia yang sempura.....

Terimakasih ...  

Document