program weaker;

program weaker;

uses crt,dos;

var h,m,s,hu,j,k : word;

cocok : boolean;

procedure alarm;

var i : integer;

j : byte;

begin

for j := 1 to 3 do

begin

for i := 1000 to 1500 do

begin

sound(i);

delay(5);

end;

for i := 1500 downto 1000 do

begin

sound(i);

delay(5);

end;

end;

for j := 1 to 15 do

begin

for i := 1200 to 1500 do

begin

sound(i);

delay(1);

end;

for i := 1500 downto 1200 do

begin

sound(i);

delay(1);

end;

end;

end;

procedure Kotak(X,Y,Panjang,Tinggi : byte);

var i,j : byte;

begin

{ gotoxy(X,Y);TextColor(0);

for i := 1 to Tinggi do

begin

for j := 1 to Panjang do

begin

write(}

end;

procedure MenuAwal;

begin

TextBackGround(1);

clrscr;

TextColor(4);

end;

begin

clrscr;

cocok := false;

gettime(h,m,s,hu);

writeln(‘Jam Start Set : ‘,h,’:’,m,’:’,s,’:’,hu);

writeln(‘Program Alarm’);

writeln(‘Alarm pada : ‘);

write(‘Jam : ‘);readln(j);

write(‘Menit : ‘);readln(k);

repeat;

if cocok = false then gettime(h,m,s,hu);

if ( h = j ) and ( m = k ) then

begin

cocok := true;

repeat

alarm;

until keypressed;

nosound;

end;

until keypressed;

end.

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: