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

Read More

Form1

Private Sub exit_Click()

End

End Sub

Private Sub form_2_Click()

Form1.Hide

form2.Show

End Sub

Private Sub Form_Load()

Me.Width = 10

End Sub

Private Sub form2_Click()

Form1

End Sub

Private Sub Timer1_Timer()

Me.Width = Me.Width + 100

tengah

If Me.Width > 6200 Then

Timer1.Enabled = False

tengah

End If

End Sub

Public Sub tengah()

Me.Left = (Screen.Width - Me.Width) / 2

Me.Top = (Screen.Height - Me.Width) / 2

End Sub

Membuat Menu Editor

Pada Caption diisikan dengan File kemudian pada Name diisikan dengan file lalu tekan enter. Kemudian tekan arah panah kanan untuk membuat sub menu File lalu lakukan langkah sebelumnya dengan mengisikan Open pada Caption dan open pada Name lalu tekan enter. Kemudian lakukan langkah sebelumnya dengan membuat sub menu dari Open dan kemudian mengisikan Form2 pada Caption dan form_2 pada Name lalu tekan enter. Kemudian tekan arah panah kiri untuk kembali membuat sub menu File dan lakukan langkah sebelumya dengan mengisikan Exit pada Caption dan exit pada Name.

 Masukkan listing dibawah ini pada menu Exit

Private Sub exit_Click()

End

End Sub

Fungsi listing diatas adalah untuk menutup semua form yang sedang berjalan.

Masukkan listing dibawah ini pada menu Form2

Private Sub form_2_Click()

Form1.Hide

form2.Show

End Sub

Fungsi listing diatas adalah untuk menampilkan form2 dan menyembunyikan form1.

Masukkan listing dibawah ini pada timer 1

Private Sub Timer1_Timer()

Me.Width = Me.Width + 100

tengah

If Me.Width > 6200 Then

Timer1.Enabled = False

tengah

End If

End Sub

Public Sub tengah()

Me.Left = (Screen.Width - Me.Width) / 2

Me.Top = (Screen.Height - Me.Width) / 2

End Sub

Fungsi listing diatas adalah untuk menampilkan form1 yang awalnya pada posisi kanan bawah dan perlahan bergerak ke posisi tengah (center) dan kemudian diikuti dengan melebarnya form secara perlahan sampai akhirnya mencapai batas nya dan kemudian berhenti. Kita dapat menyesuaikan pergerakan form dengan mengubah interval pada timer properties.

Form2

Private Sub Command1_Click()

List1.Clear

i = 0

For i = 1 To 100

List1.AddItem i

Next

End Sub

Private Sub Command2_Click()

List1.Clear

i = 0

For i = 100 To 1 Step -1

List1.AddItem i

Next

End Sub

Private Sub Command3_Click()

List1.Clear

i = Asc("A")

Do Until i > Asc("Z")

List1.AddItem Chr(i)

i = i + 1

Loop

End Sub

Private Sub Command4_Click()

List1.Clear

i = Asc("Z")

Do While i >= Asc("A")

List1.AddItem Chr(i)

i = i - 1

Loop

End Sub

Masukkan listing dibawah ini pada button1(For Next)

Private Sub Command1_Click()

List1.Clear

i = 0

For i = 1 To 100

List1.AddItem i

Next

End Sub

Fungsi listing diatas adalah untuk melakukan proses perulangan yang terus bertambah dari 1 sampai 100 dan menampilkannya pada list1

Masukkan listing dibawah ini pada button2(For Next)

Private Sub Command2_Click()

List1.Clear

i = 0

For i = 100 To 1 Step -1

List1.AddItem i

Next

End Sub

 

Fungsi listing diatas adalah untuk melakukan proses perulangan yang terus berkurang dari 100 sampai 1 dan menampilkannya pada list1.

Masukkan listing dibawah ini pada button3(Do Until)

Private Sub Command3_Click()

List1.Clear

i = Asc("A")

Do Until i > Asc("Z")

List1.AddItem Chr(i)

i = i + 1

Loop

End Sub

 

Fungsi listing diatas adalah untuk melakukan proses perulangan yang terus bertambah secara terurut dari A sampai Z dan menampilkannya pada list1.

Masukkan listing dibawah ini pada button4(Do While)

Private Sub Command4_Click()

List1.Clear

i = Asc("Z")

Do While i >= Asc("A")

List1.AddItem Chr(i)

i = i - 1

Loop

End Sub

 

Fungsi listing diatas adalah untuk melakukan proses perulangan yang terus berkurang secara terurut dari Z sampai A dan menampilkannya pada list1.

 

Read More