MEMBUAT PROGRAM SLEEP DENGAN DELPHI

Mungkin kita semua sudah mengetahui menu sleep yang disediakan oleh hampir semua pesawat TV saat ini. Dengan adanya fasilitas ini, kita dapat men-set waktu sampai kapan TV akan menyala. Hal ini sangat bermanfaat untuk menghemat energi listrik apabila suatu saat kita ketiduran.

Diilhami oleh hal tersebut dan mengingat perkembangan PC saat ini di mana sudah semakin

banyaknya PC yang memakai casing ATX yang mempunyai kelebihan yaitu auto shut off, penulis membuat program yang sangat sederhana sekali agar kita bisa men-setup waktu kapan PC akan mati atau shutdown. Mungkin hal ini bias bermanfaat bagi kita. Setidaknya dengan memakai program ini kita bias menikmati MP3 kesukaan kita sebagai pengantar tidur tanpa harus repot-repot mematikan PC kita. Program ini sangat simple dan mudah. Kita hanya perlu satu variabel waktu dengan tipe Tdatetime dan selanjutnya memanggil fungsi ExitWindowsEx (EWX_SHUTDOWN,0). Inti dari program ini hanya terdapat pada dua prosedur yaitu:

1. Prosedur untuk meminta inputan waktu kapan komputer akan waktu dan menyimpannya dalam variabel waktu.

procedure TForm1.SetupWaktu1Click(Sender: TObject);

begin

waktu:=StrToTime(InputBox('Input Waktu',

{SOURCE CODE}

(* Program Sleep *)

(* Oleh : Juliver Sihombing *)

(* Email : sepakbola@lovemail.com *)

(* Kategori : Pemula *)

unit unitsleep;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs,

Menus, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

PopupMenu1: TPopupMenu;

Timer1: TTimer;

SetupWaktu1: TMenuItem;

Keluar: TMenuItem;

Batalkan1: TMenuItem;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure SetupWaktu1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Batalkan1Click(Sender: TObject);

procedure KeluarClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

waktu: TDateTime;

'Input waktu untuk shutdown',''));

end;

2. Prosedur untuk memanggil

fungsi ExitWindowsEx (EWX_SHUTDOWN,0) yang kita letakkan dalam event On Timer yang terdapat pada komponen Timer pada component pallette System.

procedure TForm1.Timer1Timer(Sender: TObject)

begin

Edit1.Text:=TimeToStr(Time);

if Time >= waktu then

ExitWindowsEx(EWX_SHUTDOWN,0);

end;

Untuk lebih jelasnya perhatikan source code selengkapnya. Sebagai catatan, penulis di sini memakai komponen PopUpMenu, yaitu menu yang akan muncul dengan mengklik kanan tombol mouse, yang terdiri dari item SetupWaktu, Batalkan, Keluar, dan komponen TEdit untuk menampilkan waktu. Ini bisa saja dimodifikasi sesuai selera dan kreativitas pembaca sekalian, namun komponen yang harus disertakan adalah komponen Timer.

Program ini juga sangat mudah dikembangkan misalnya untuk men-set bunyi alarm pada waktu tertentu, kita hanya perlu memodifikasi prosedur On Timer. Selamat mencoba dan mudah mudahan bermanfaat.

implementation

{$R *.DFM}

{prosedur untuk mengeset waktu kapan untuk shutdown }

procedure TForm1.SetupWaktu1Click(Sender: TObject);

begin

waktu:=StrToTime(InputBox('Input Waktu',

'Input waktu untuk shutdown',''));

end;

{prosedur untuk memanggil fungsi shutdown komputer}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Edit1.Text <> TimeToStr(Time) then

Edit1.Text:=TimeToStr(Time);

Label1.Left:=Label1.Left+1;

if Label1.Left=290 then

Label1.Left:=0;

if Time>=waktu then

ExitWindowsEx(EWX_SHUTDOWN,0);

end;

{prosedur membatalkan waktu shutdown}

procedure TForm1.Batalkan1Click(Sender: TObject);

begin

waktu:=Time+1;

end;

{prosedur keluar dari program}

procedure TForm1.KeluarClick(Sender: TObject);

begin

close;

end;

end.

{END OF CODE}