Pada kesempatan kali ini saya akan
memberkan contoh 2 program sederhana yang pertama adalah For to Do & Kedua adalah While Do.
Form 1
1)
Yang pertama adalah kita akan membuat aplikasi sederhana yaitu
membuat sebuah perulangan dengan syntax For
to Do dengan ketentuan sebagai berikut:
|
Komponen
|
Caption
|
|
Form1
|
Form1
|
|
Textboxt1
|
Kosongkan
|
|
Command1
|
OK
|
|
Command2
|
CLEAR
|
2) Agar
berfungsi (double klik Button 1) untuk Identitas “Button Ok” ketik :
procedure
TForm2.Button1Click(Sender: TObject);
var
begin
for a:= 1 to 5 do
edit1.SelText :=inttostr(a);
end;
end.
3)
|
|
procedure TForm2.Button2Click(Sender: TObject);
begin
edit1.Text:=''
end;
end.
4) Berikut skematik
tampilaanya saat Run (F9)
Form
2
|
|
Setelah
selesai mengubah startup menjadi form 2, kita akan membuat sebuah aplikasi perulangan
sederhana dengan syntax while…Do . DEngan ketentuan sebagai berikut :
|
Komponen
|
Caption
|
|
Form2
|
Form2
|
|
Texbox1
|
kosongkan
|
|
Textbox2
|
Kosongkan
|
|
Memo1
|
Kosongkan
|
|
Command1
|
OK
|
|
Command2
|
CLEAR
|
1) Lalu masukkan syntax berikut untuk membuat aplikasi berjalan sesuai fungsinya. (double klik pada tombol Button 1) untuk Identitas “Button OK” ketik :
procedure TForm1.Button1Click(Sender: TObject);
var
a, b : integer;
begin
a:=strtoint(edit1.Text);
b:=1;
memo1.Clear;
memo1.Lines.Add('Perulangan while do');
memo1.Lines.add('_');
while b<=strtoint(edit2.text) do
begin
memo1.Lines.add('perulangan ke- ' + inttostr(b) + '=' + inttostr(a));
a:=a+1;
b:=b+1;
end;
end;
2) Setelah itu masukkan syntax untuk menghapus Inputan dan Output dalam TextBox (double klik Command Button 2) untuk Identitas “Button Clear” ketik :
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
memo1.Clear;
end;
end.
3) Untuk Skematik hasi akhir dari tampilannya saat di “Run(F9)”:
