Menu SubMenu pada Delphi

LAPORAN AKHIR PRAKTIKUM

Mata Praktikum : AP2A  

Kelas          : 1IA03

Praktikum ke-  : 3

Tanggal        : 29 Maret 2012

Materi         : Menu, SubMenu, dan Timer

                pada Delphi

NPM            : 50411435

Nama           : Ahmad Lutfianto

Ketua Asisten  :

Paraf Asisten  :

Nama Asisten   :

Jumlah Lembar  : 8 Lembar

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2012

LISTING PROGRAM

==============================================================

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left=50 then label1.left:=50;
label1.left:=label1.left-50;
end

.
--------------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form2.show;

end.

--------------------------------------------------------------

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Application.terminate;

end.

--------------------------------------------------------------

procedure TForm2.Timer1Timer(Sender: TObject);
begin
label1.caption:=formatdatetime('"time:"hh:mm:ss',now)+chr(13)+formatdatetime('"date: "dd/mm/yyyy',now);
end;

==============================================================

LOGIKA PROGRAM

Pada pemrograman kali ini akan membahas mengenai Menu, Submenu, dan Timer pada Delphi, pada program kali ini saya akan membuat program tulisan berjalan/bergerak menggunakan Timer, dan menampilkan tanggal dan waktu. Pertama buat Form baru yaitu Form1 kemudian buat MainMenu pada toolbar dan buat menu Timer yang terdapat didalam system pada toolbar, dan buat Lael dengan mengetikkan atau mengubah nama label menjadi “LAB TI AP2A” dan didalam MainMenu kita tambahkan data yaitu Menu, Exit, dan Form2, khusus Form2 kita menambahkan data didalam menu. Jika sudah membuat Form1 kita pilih new-Form untuk membuat Form2, jika sudah didalam Form 2 tambahkan Timer dan Label kembali, pada label hapus nama pada label tersebut menjadi kosong. Berikut adalah tampilan pada Form1 :

Dan berikut adalah Tampilan project pada Form2 :

Kemudian ketikkan coding berikut untuk membuat tulisan Label menjadi berjalan, Tuliskan coding program tersebut didalam Timer, Codingnya adalah sebagai berikut :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left=50 then label1.left:=50;
label1.left:=label1.left-50;
end

   

Kemudian didalam MainMenu yang sudah diketikkan Menu(Form2) dan Exit, kita ketikkan Coding program didalam MainMenu Menu(Form2) untuk dapat beralih ke Form2, Berikut adalah coding programnya  :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form2.show;

end.

Selanjutnya ketikkan coding program didalam MainMenu (Exit) untuk keluar dari program yang dijalankan, berikut coding program didalam MainMenu (Exit) :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Application.terminate;

end.

Dan yang terakhir adalah menambahkan program untuk memunculkan jam, tanggal, bulan, tahun. Leih tepatnya sekarang kita mengerjakan program ini pada Form2 yang sudah kita uat Timer dan Label, untuk membuat program untuk memunculkan tanggal, jam, bulan, dan tahun tersebut, maka masukkan coding program pada Timer, Berikut coding programnya :

procedure TForm2.Timer1Timer(Sender: TObject);
begin
label1.caption:=formatdatetime('"time:"hh:mm:ss',now)+chr(13)+formatdatetime('"date: "dd/mm/yyyy',now);
end;

OUTPUT PROGRAM

1.      Tampilan awal yang sudah dibentuk formulasi pada program pertama, program bergerak ke kiri.

2. Pilih pada Form1 pada MainMenu pilih Menu dan Form2,

    Untuk berpindah ke Form2.

3.Tampilan setelah memilih Menu-Form2, makan akan muncul

    Date&Time pada Form2.

4.Pilih menu Evit pada MainMenu-Exit untuk mengeluarkan

   atau menghentikan program yang berjalan.

5. Setelah meilih Exit makan program akan berhenti dan tampilan

    Normal seprti sedia kala sebelum di Run.

End.