Pada
program kali ini, membahas tentang Program Menu, SubMenu, Perulangan, Dan Timer
pada Delphi. Seperti pengertian perulangan (Perulangan adalah suatu cara untuk
mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu.)
Dalam
pembuatan program kali ini ada beberapa perulangan yaitu :
1.
Perulangan menggunakan For To Do
Contoh
form1.Hide;
form2.show;
form3.hide;
maksudnya
adalah pada show itu untuk
menampilkan form nya , sedangkan hide
nya kebalikan dari show.
2.
Perulangan menggunakan For Do
Contoh
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= a to b do
maksudnya
adalah Perulangan ini akan berulang selama nilai variabel counter masih lebih
kecil atau sama dengan nilai akhir.
3.
Perulangan menggunakan for_downto do
Contoh
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= b downto a do
maksudnya
adalah Perulangan ini akan berulang selama nilai variabel counter masih lebih
besar atau sama dengan nilai akhir. Nilai awal suatu counter harus lebih besar
atau sama dengan daripada nilai akhirnya, dengan kata lain hasil nya kebalikan
dari perulangan For Do.
Selain dengan
menggunakan code program untuk perulangan , di sini juga menggunakan Timer. Timer
berfungsi sebagai jam yang telah disediakan Delphi. Dengan timer kita juga
dapat mendecode time, sehingga dapat terjadi akusisi data.
Contoh codingan program nya :
begin
label1.Caption:=formatdatetime('hh:mm:ss',now);
label2.caption:=formatdatetime('dd-mmmm-yyyy',now);
end;
maka lanjut dengan contoh program nya :
kali ini saya membuat 3 form
kali ini saya membuat 3 form
form 1 :
form 2
form 3
maka codingan nya tiap form :
form 1
Ketikkan
Code pada Perulangan :
form1.Hide;
form2.show;
form3.hide;
Code
Pada timer :
form1.Hide;
form2.hide;
form3.show;
Exit
:
Application.Terminate
;
form 2
Group Box :
Caption : perulangan
Label 1 : Caption : Angka Awal
label 2 :
Caption :Angka Akhir
Edit 1 : Text :
(kosongkan)
Edit 2 : Text :
(kosongkan)
Button1: Caption
: For_do
Button2: Caption
: for_downto
Button3: Caption
: Back
Code/Script :
Button
for_do :
procedure
TForm2.Button1Click(Sender: TObject);
var
a,b,c,d:Integer;
begin
memo1.Clear;
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= a to b
do
begin
d :=Sqr(c);
memo1.Lines.add(IntToStr(c) + ' Kuadrat = ' +
IntToStr(d));
end;
end;
Button
for_downto do :
procedure
TForm2.Button2Click(Sender: TObject);
var
a,b,c,d:Integer;
begin
memo1.clear;
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= b downto
a do
begin
d:=Sqr(c);
memo1.Lines.add(IntToStr(c) + ' Kuadrat = '
+ IntToStr(d));
end;
end;
Button
Back :
procedure
TForm2.Button3Click(Sender: TObject);
begin
form1.show;
form2.hide ;
form3.hide;
end;
end.
dan form 3
Klik
2x pada Timer :
procedure
TForm3.Timer1Timer(Sender: TObject);
begin
label1.Caption:=formatdatetime('hh:mm:ss',now);
label2.caption:=formatdatetime('dd-mmmm-yyyy',now);
end;
end.
Klik
2x pada Button :
procedure
TForm3.Button1Click(Sender: TObject);
begin
form1.show;
form2.hide;
form3.Hide;
end;
Maka save lah dan Hasilnya :
.png)
