mmmm..... berusaha untuk membuat aplikasi untuk tugas pemrograman terstruktur menggunakan delphi 7. saya mencoba bikin alarm sekali jalan

berikut codingnya

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



unit uAlarm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, MPlayer, Grids, Menus;

type
TForm1 = class(TForm)
Timer1: TTimer;
lbpukul: TLabel;
btset: TButton;
gbpukul: TGroupBox;
edpukul: TDateTimePicker;
btok: TButton;
edpesan: TMemo;
PopupMenu1: TPopupMenu;
tutupaplikasi1: TMenuItem;
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure btsetClick(Sender: TObject);
procedure btokClick(Sender: TObject);
procedure tutupaplikasi1Click(Sender: TObject);
private
{ Private declarations }
procedure tampilwaktu;
public
{ Public declarations }
end;

isi = record
pukul : TTime;
pesan : String[255];
end;

var
Form1: TForm1;
wkt: TTime;
fileisialarm: file of isi;
alarm: isi;
implementation

uses Math;

{$R *.dfm}

//--------tampilkan waktu berjalan sekarang
procedure TForm1.tampilwaktu;
begin
wkt:=Now;
lbpukul.Caption:=TimeToStr(wkt);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tampilwaktu;
//--cek data alarm
if (lbpukul.Caption=TimeToStr(alarm.pukul)) then
begin
Windows.Beep(70,100);
ShowMessage('Pukul : '+TimeToStr(alarm.pukul)+chr(13)+'Pesan : '+alarm.pesan);
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
tampilwaktu;
//--------menghubungkan file--------//
AssignFile(fileisialarm,'alarm.DAT'); //--nama file
if FileExists('alarm.DAT') then //--jika file telah ada
begin
Reset(fileisialarm); //--buka file untuk dibaca
end
else
begin
Rewrite(fileisialarm); //--buat file baru jika file alarm.DAT tidak ditemukan
end;
end;

//--------tampilkan groupbox untuk setting alarm
procedure TForm1.btsetClick(Sender: TObject);
begin
gbpukul.Visible:=True;
edpukul.Time:=wkt;
btset.Enabled:=False;
end;

procedure TForm1.btokClick(Sender: TObject);
begin
//--------simpan data
alarm.pukul:=edpukul.Time;
alarm.pesan:=edpesan.Text;
write(fileisialarm,alarm);
ShowMessage('Alarm berbunyi pada pukul '+TimeToStr(edpukul.Time)+chr(13)+'dengan pesan : '+edpesan.Text);
gbpukul.Visible:=False; //--sembunyikan groupbox setelah setting alarm
btset.Enabled:=True; //--aktifkan kembali button atur alarm
end;

//--tutup aplikasi
procedure TForm1.tutupaplikasi1Click(Sender: TObject);
begin
Form1.Close;
end;

end.

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

:) :) :) :) :) :)
aplikasi sederhana. mungkin kalo ada yg mau memberi saran, saya sangat berterima kasih sekali...