Membuat Alarm Sederhana dengan Delphi

Sebelumnya minta maaf lo tulisan kaliMenjalankan Aplikasi Android di Windows. Read more ... » ini agak cupu, bagi yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » sudah jago silahkan ditinggal.:)) Tulisan kali ini tentangTanya Jawab seputar pemrograman. Read more ... » membuat alarm sederhana denganTUGAS STRUKTUR DATA KELAS SAMI. Read more ... » delphiPrinsip dasar pembuatan Keylogger. Read more ... » 7, permasalahan yang mendasari dari tulisan ini adalah ketika kitaCara mengatasai Cannot modify header PHP. Read more ... » sedang asyik coding atau bahkan ol, kadang tanpa sadar tertidur nah padahal akan ada acara pada jam tertentu, maka kita butuh aplikasi untukTrik Aman Berinternet I. Read more ... » alarm. Dari situlah sayaMembuka Command Prompt mode Administrator. Read more ... » berpikir bagaimana membuat alarm sederhana??
Baiklah, pada alaram ini kita hanya membutuhkan 8 Komponen, dengan rincian sebagai berikut :

  1. Label1==> Untuk menampilkan jam.
  2. Edit1 ==> Digunakan untuk input waktu alarm.
  3. Label2==> Untuk menampilkan pesan ketika jam sama dengan waktu alarm.
  4. Mediaplayer (pada tab System) ==> Menjalankan suara ketika jam sama dengan waktu alarm.
  5. Opendialog (pada tab Dialogs) ==> Untuk memilih lagu yang akan digunakan saat alarm.
  6. Button1 ==> Untuk memanggil Opendialog
  7. Button2==> Untuk membuat penyetop lagu.
  8. Timer(pada tab System) ==> Komponen utama pembuat alarm atau jam.

Dari kedelapan komponen tersebut, selanjutnya kita buat tampilan sebagai berikut :
Form Alarm
Jika sudah membuat tampilan seperti diatas, tahap selanjutnya ikuti langkah berikut :

  • Klik pada Timer, pada Properties ubah interval dari 1000 menjadi 10.
  • Klik 2 kali pada timer, dan ketikan source berikut :
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    label1.caption := timetostr(time());
    try
    if edit1.Text=Label1.Caption then
    begin
    MessageDlg('Waktunya bangun!!!',mtWarning,[mbYes],0);
    label2.caption:='Waktunya Bangun!!!';
    MediaPlayer1.Play;
    end;
    Except
    ShowMessage('Maaf anda Belum memilih Lagu');
    end;
    end;
  • Kemudian klik 2 kali pada Button Pilih Lagu, dan ketikan source ini :

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if OpenDialog1.Execute then
    begin
    Mp3Path:=OpenDialog1.FileName;
    with MediaPlayer1 do
    begin
    Enabled:=true;
    FileName:=Mp3Path;
    Open;
    Position:=0;
    end;
    end;
    end;
  • Terakhir Klik 2 kali pada Button Stop, tulis berikut :
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    MediaPlayer1.Stop;
    end;
  • Selesai alarm siap dijalankan…:))

Untuk menjalakan alarm, pertama kita pilih lagu yang akan dijalankan, kemudian isikan waktu alarm, dengan ketentuan text harus sama dengan waktu yang ditujukan jam.
Alarm
NB :
CaraMenjalankan Aplikasi Android di Windows. Read more ... » kerja alarm diatas adalah, dengan komponen timer, kita membuat sebuah jam yang akan diletakan pada label1, kemudian dengan mengggunakan kondisi edit1.text=label1.captionCara mengatasai Cannot modify header PHP. Read more ... » maka akan menampilkan pesan dan Mediaplayer.play.

Pada Variabel Global buat sebuah variabel berikut

Mp3Path: string;

Selesai…

by 1n53ct4

Posted in Delphi 7, Programing and tagged , .