Contoh While Do Pada Delphi

Oleh sasak media sharing

Thursday, November 21, 2013

Bagikan :

Tweet

Assalamualaikum,,

Kali ini kita akan membahas mengenai perulangan While Do, sebenernya postingan kali ini adalah kelanjutan dari postinga sebelumnya yaitu mengenai perulangan For To Do , jika pada postingan sebelumnya mengani For To Do telah anda pelajari dan pahami, sekarang rubah koding nya menjadi while do.

Contoh.

Pada contoh kali ini masih kita menggunakan design tampilan dari sebelumnya,

Nah apabila interface sudah kita design, sekarang kita masuk ke koding.

Double click pada button proses.

procedure TForm1.Button1Click(Sender: TObject);
var
nilai,bilangan : integer;
begin
nilai:=StrToInt(edit1.Text);
bilangan :=1;
while bilangan <= nilai do
begin
if bilangan mod 2 = 0 then
memo1.Lines.Add(IntToStr(bilangan));
inc(bilangan);
end;
end;

Double click pada button bersih, kemudian isikan koding berikut.


procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
end;
end

Penjelasan program.

• Variabel nilai akan mendapatkan nilai inputan dari edit1.text, karna adanya perbedaan type data maka dilakukan pengkonpersian typedata. 
• Pada saat pertama aplikasi dijalankan, maka secara otomatis akan bernilai 1, kemudian dilakukan pengecekan apakah nilai nya bisa dibagi 2 atau tidak, jika bernilai 0 maka bisa. 
• Kemudian bilangan akan bernilai 2 secara otomatis,

Sekarang semuanya sudah selesai, jalankan aplikasinya, maka akan tampil seperti ini.

Sekian tutorial kali ini, apabila masih bingung, silahkan anada tinggalkan komentar di kotak komentar.

Tag : Delphi Programing