Kamis, 29 Maret 2012

Program Menu, SubMenu, Perulangan, Dan Timer pada Delphi

Pertemuan ke-3 membahas tentang Program Menu, SubMenu, Perulangan, Dan Timer pada Delphi.

 LISTING PROGRAM

Note : Buatlah Logika masing-masing :) .

Pertama, buat lah 3 form terlebih dahulu. File --> New --> Form.
Buatlah seperti di bawah ini :
Form 1 : Main Menu
Form 2 : - GroupBox
              - Label
              - Edit
              - Memo
              - Button
Form 3: - Timer
             - Button
             - Label





Pada Form 1 : 

- Ketikkan Code pada Perulangan :
form1.Hide;
form2.show;
form3.hide;

- Code Pada timer :
 form1.Hide;
 form2.hide;
 form3.show;

-Exit :
Application.Terminate ;

Pada 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.


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;




Tidak ada komentar:

Posting Komentar