[Tugas Praktikum 4 Pemvis] Tab Additional (Program Alarm Pengingat)

06.44 |

I. Tujuan Praktikum

Tujuan dari praktikum kali ini adalah untuk dapat mengetahui kegunaan komponen-komponen yang terdapat pada tab Addisional serta dapat memahami kegunaan-kegunaan dari komponen tersebut.

II. Deskripsi Program

Program Alarm Pengingat

Program ini dibuat dengan menggunakan Delphi 7. Program ini merupakan program alarm untuk mengingatkan pengguna akan apa yang akan pengguna kerjakan pada waktu yang telah diatur sebelumnya. Program ini akan menampilkan pesan alarm ketika waktu alarm telah tiba.

III. Interface Program

Gambar 3.1. Interface program pada Form 1 beserta nama komponennya

Gambar 3.2. Interface program pada Form 2 beserta nama komponennya

IV. Coding Program

Nama Komponen	Event	Perintah
Form1	OnShow	begin dtp1.time:=Now; mmo1.Lines.Clear; tmr2.Enabled:=false; end;
Tmr1	OnTimer	procedure TForm1.tmr1Timer(Sender: TObject); begin lbl1.Caption:=TimeToStr(time); end;
Tmr2	OnTimer	procedure TForm1.tmr2Timer(Sender: TObject); var j1,m1,d1,md1:Word; j2,m2,d2,md2:word; begin DecodeTime(StrToTime(lbl1.Caption),j1,m1,d1,md1); DecodeTime(dtp1.Time,j2,m2,d2,md2); if (j2=j1) and (m2=m1) and (d2=d1) then begin frmpesan.mmo1.Text:=mmo1.Text; btn1.Click; frmpesan.show; end; end;
Btn2	OnClick	procedure TForm1.btn2Click(Sender: TObject); begin close; end;
Btn1	OnClick	procedure TForm1.btn1Click(Sender: TObject); begin if btn1.caption='Aktifkan Alarm' then begin tmr2.Enabled:=True; dtp1.Enabled:=false; mmo1.Enabled:=false; btn1.Caption:='Batalkan Alarm'; Application.Minimize; end else begin tmr2.Enabled:=False; dtp1.Enabled:=true; mmo1.Enabled:=True; btn1.Caption:='Aktifkan Alarm'; end; end;