LAPORAN AKHIR PRAKTIKUM

Mata Praktikum                  : AP2 A

Kelas                                 : 1IA06

Praktikum ke-                     : 3

Tanggal                              : 29 Maret 2012

Materi                                 : Menu & Timer

NPM                                  : 50411713

Nama                                 : Andhika Arif M.S

Ketua Asisten                     :

Paraf Asisten                      :

Nama Asisten                     :

Jumlah Lembar                   :  11 Lembar

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2012

LISTING PROGRAM

Form 1

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Menus, ExtCtrls; type   TForm1 = class(TForm)     MainMenu1: TMainMenu;     File1: TMenuItem;     Form21: TMenuItem;     Exit1: TMenuItem;     Timer1: TTimer;     Label1: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Timer2: TTimer;        procedure Form21Click(Sender: TObject);     procedure Exit1Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Timer2Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Form21Click(Sender: TObject); begin Form2.Show; Form1.Hide; end; procedure TForm1.Exit1Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if Label1.Visible = true then   begin   label1.Visible := false   end   else   label1.Visible := true; end; procedure TForm1.Timer2Timer(Sender: TObject); begin edit1.Text := timetostr(time); edit2.Text := datetostr(date); end; end.

Form 2

unit Unit2; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm2 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     CheckBox1: TCheckBox;     CheckBox2: TCheckBox;     CheckBox3: TCheckBox;     RadioButton1: TRadioButton;     RadioButton2: TRadioButton;     RadioButton3: TRadioButton;     Button1: TButton;     Button2: TButton;     Button3: TButton;     ColorDialog1: TColorDialog;     procedure Edit1Change(Sender: TObject);     procedure CheckBox1Click(Sender: TObject);     procedure CheckBox2Click(Sender: TObject);     procedure CheckBox3Click(Sender: TObject);     procedure RadioButton1Click(Sender: TObject);     procedure RadioButton2Click(Sender: TObject);     procedure RadioButton3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form2: TForm2; implementation uses Math; {$R *.dfm} procedure TForm2.Edit1Change(Sender: TObject); begin edit2.Text := Edit1.Text; end; procedure TForm2.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then Edit2.Font.Style := Edit2.Font.Style+[fsbold] else Edit2.Font.Style := Edit2.Font.Style-[fsbold]; end; procedure TForm2.CheckBox2Click(Sender: TObject); begin if CheckBox2.Checked then Edit2.Font.Style := Edit2.Font.Style+[fsitalic] else Edit2.Font.Style := Edit2.Font.Style-[fsitalic]; end; procedure TForm2.CheckBox3Click(Sender: TObject); begin if CheckBox3.Checked then Edit2.Font.Style := Edit2.Font.Style+[fsunderline] else Edit2.Font.Style := Edit2.Font.Style-[fsunderline]; end; procedure TForm2.RadioButton1Click(Sender: TObject); begin Edit2.Font.Name :='Times New Roman'; end; procedure TForm2.RadioButton2Click(Sender: TObject); begin Edit2.Font.Name := 'Comic Sains MS'; end; procedure TForm2.RadioButton3Click(Sender: TObject); begin Edit2.Font.Name := 'Arial Black'; end; procedure TForm2.Button1Click(Sender: TObject); begin if ColorDialog1.Execute then edit2.Font.Color := ColorDialog1.Color; end; procedure TForm2.Button2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; end; procedure TForm2.Button3Click(Sender: TObject); begin Application.Terminate; end; end.

LOGIKA PROGRAM

Form1

Pada Form1 tambahkan 3 label dan 2 timerdan 1 popmenu,dan anda bisa mengganti nama caption sesuai keinginnan anda sendiri.

Untuk menambahkan Timer pada Form1, pilih System pada komponen Pallete kemudian Drag 2 Gambar Jam Analog ke dalam Form1 , seperti gambar dibawah ini :

Double klik pada Timer1, kemudian Tambahkan listing dibawah ini :

Fungsi dari Visible = true or false yaitu untuk memilih kondisi , jika kondisi benar maka Label1 akan berkedip”, sedangkan jika kondisi salah maka Label1 tidak aka berkedip”.

Double klik pada Timer2, kemudian Tambahkan listing dibawah ini :

Fungsi dari Edit1.Text := timetostr(time) yaitu untuk mengetahui atau memunculkan waktu atau jam sekarang /detik sekarang di dalam edit1. Sedangkan fungsi dari Edit2.Text := datetostr(date) untuk mengetahui tanggal/bulan/tahun sekarang di dalam Edit2.

Double klik pada MainMenu, kemudian tambahkan Menu file, Menu Form 2 dan Menu Exit seperti gambar di bawah ini :

Double klik pada Menu Form 2, kemudian tambahkan listing program dibawah ini :

 

Fungsi dari listing Form2.Show untuk memanggil Form 2 dan fungsi Form1.Hide untuk menyembunyikan form 1 ketika meng klik Form 2 pada mainmenu.

Double klik pada Menu Exit, kemudian tambahkan listing program dibawah ini :

 

Fungsi dari Application.Terminate untuk menghentikan / stop program yang sedang berjalan.

Form2

Double klik pada Edit1, kemudian tambahkan listing program dibawah ini :

Fungsi dari edit2.Text := Edit1.Text supaya ketika  menulis di dalam Edit 1 ,Edit 2 mengikuti apa yang di tulis oleh Edit 1.

Double klik pada CheckBox1 (Bold), kemudian tambahkan listing program dibawah ini :

Fungsi listing  di atas adalah  jika mengklik CheckBox (Bold ), maka tulisan pada Edit2 akan kelihatan tebal , kemudian jika mengklik lagi maka tulisan pada Edit2 akan kembali seperti semula.

Double klik pada CheckBox2 (Italic), kemudian tambahkan listing program dibawah ini :

Fungsinya pada CheckBox2 (Italic) tulisan berubah menjadi cetak miring.

Double klik pada CheckBox3 (Underline), kemudian tambahkan listing program dibawah ini :

Fungsinya sama Tapi bedanya  tulisan bergaris bawah. Pada waktu bersamaan CheckBox bisa digunakan semuanya.

Double klik pada RadioButton1 (Times New Roman) kemudian tambahkan listing program seperti dibawah ini :

 

Fungsi dari listing Edit2.Font.Name :=' Times New Roman'adalah untuk merubah jenis tulisan. Ketika di klik RadioButton1 (Times New Roman') pada Edit2 tulisan akan berubah menjadi jenis Times New Roman'.

Double klik pada RadioButton2 (Comic Sains MS) kemudian tambahkan listing program seperti dibawah ini :

Fungsinya sama seperti yg pertama, hanya tulisannya berubah menjadi jenis Comic Sains MS.

Double klik pada RadioButton2 (Arial Black) kemudian tambahkan listing program seperti dibawah ini :

Fungsinya tulisan akan berubah menjadi jenis Arial Black. Pada RadioButton tidak bisa menggunakan semuanya secara bersamaan tetapi harus satu per satu.

Sebelum menulis listing pada Button1 , tambahkan komponen ColorDialog yang berada di pallete Dialogs, kemudian drag ke dalam form.

Double klik pada Button1 (Color Text) kemudian tambahkan listing program seperti dibawah ini :

Fungsi listing diatas adalah untuk merubah warna tulisan yang berapa di dalam Edit2.
Double klik pada Button2(Clear) kemudian tambahkan listing program seperti dibawah ini :

Fungsinya untuk menghapus tulisan yang berada di dalam Edit1 dan Edit2.

 Double klik pada Button3(Exit) kemudian tambahkan listing program seperti dibawah ini :

Fungsinya untuk menutup/stop ketika program sedang berjalan.

OUTPUT PROGRAM

Form 1

Form 2

Posted in: