Alaram

Bagi anda yang ingin menjadwal penggunaan leptop/pc anda bisa membuat program alaram dengan delphi. pengen tau cara buatnya berikut ini adalah langkah" membuat alaram dari delphi

• ambil komponen pallet sbb

           - label di pallet standard

           - edit di pallet standard, pada text di ganti "Jam:Menit:Detik"

           - button"2" di pallet standard, button1 caption diganti "cek lagu",

              button2 caption diganti "Stop"

           - panel di pallet stabdard (bagi yang mau)

           - speedbutton di pallet aditional

           - timer di pallet system

           - mediaplayer di pallet system

           - opendialog di pallet dialog

• masukkan rumus pada speedbutton sbb:

         if OpenDialog1.Execute then

         begin

         Mp3:=OpenDialog1.FileName;

         with MediaPlayer1 do

         begin

         Enabled:=true;

         FileName:=Mp3;

         Open;

         Position:=0;

         end;

         end;

• masukkan rumus pada button1"Cek lagu" sbb:

         MediaPlayer1.Play;

• masukkan rumus pada button2"Stop"

         MediaPlayer1.Stop;

• masukkan rumus utama pada timer rumusnya sbb: 

          label1.caption := timetostr(time());

          try

          if edit1.Text=Label1.Caption then

          begin

          MediaPlayer1.Play;

          MessageDlg('Waktunya Istirahat!!!',mtWarning,[mbYes],0);

          end;

          Except

          ShowMessage('Maaf anda Belum memilih Lagu'); 

          end;

• tuliskan Mp3 : Sting; pada var
• selesai dan jalankan dech programnya jika berhasil membuat jangan lupa kasih komen ya, hehe

semoga bermanfaat.............