For To Do, Repeat Until, Do While, dan Clear
Buat Form Delphi7 dengan menggunakan
Label1 = Perulangan
Edit1 (text)= ‘ ‘
Edit2 (text= ‘ ‘
Edit3 (text)= ‘ ‘
Button1 (Caption)= For To Do
Button2 (Caption) = Repeat Until
Button3 (Caption)= Do While
Button4 (Caption)= Clear
Setelah semua selesai, Pastikan akan seperti pada gambar dibawah ini :
(Jika penempatannya sama)
Setelah membuat label, edit, dan button. Maka langkah selanjutnya menuliskan coding ke dalam button1(For To Do)
Untuk menuliskan coding, double click pada tiap button :
Tuliskan Codingnya seperti yang dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 1 to 8 do
edit1.SelText := inttostr(i);
end;
Kemudian tulis coding dalam button2(Repeat Until)
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
i :=1;
repeat
i := i+2;
edit2.SelText := inttostr(i);
until i = 15;
end;
Kemudian tulis coding button3 (While Do)
procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
begin
i := 0;
while i<5 do
begin
edit3.SelText := inttostr(i);
i := i+1;
end;
end;
Kemudian Tulis coding Button4 (Clear)
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.clear;
edit2.Clear;
edit3.clear;
end;
end.
Jika Coding Selesai ditulis, Maka program siap dijalankan. (Run)
Lakukan percobaan, tiap button untuk menghasilkan seperti pada gambar diatas.
