SOFTWARE PENGAMAN KEBAKARAN BERBASIS PC

<~~~DENGAN TURBO PASCAL 7.0 ~~~>

 

Penting ! Sebelum Anda mencoba program dibawah ini, diharapkan Anda sudah memahami seluruh pembahasan pada homepage ini ...

 

LISTING PROGRAM DENGAN TURBO PASCAL 7.0 ( FOR DOS / WINDOWS )

program Pendeteksi_Kebakaran;
uses crt,dos;

var
s, k, x, y : integer;
s1, s2, s3, k1, k2, k3 : real;

label aktifadc1, aktifadc2, on1, on2, on3, on4, on5, on6, terakhir;

begin
clrscr;
port[$303]:=$82;
Port[$300]:=$FF;
gotoxy(18,3); writeln('Program Pendeteksi dan Pengaman Kebakaran Otomatis');
delay(1000);

aktifadc1:
begin
port[$302]:=3; delay(150);
port[$302]:=2; delay(150);
port[$302]:=3; delay(150);
port[$302]:=1; delay(150);
s1:=port[$301];{dalam desimal}
s2:=s1*0.02;{dalam tegangan}
s3:=s2/0.01;{dalam Celcius}
s:=trunc(s3);
gotoxy(22,7); writeln('Suhu = ',s,' Derajat Celcius');
if (s<40) then goto on1;
if (s>=40) and (s<=50) then goto on2;
if (s>50) then goto on3;
end;

aktifadc2:
begin
port[$302]:=7; delay(150);
port[$302]:=6; delay(150);
port[$302]:=7; delay(150);
port[$302]:=5; delay(150);
k1:=port[$301];{dalam desimal}
k2:=k1*0.02;{dalam tegangan}
k3:=k2/0.1;{dalam gram / liter}
k:=trunc(k3);
gotoxy(22,9); writeln('Kepekatan Asap = ',k,' gr/lt');
if (k<5) then goto on4;
if (k>=5) and (k<=10) then goto on5;
if (k>10) then goto on6;
end;

on1:
begin
x:=$04;
gotoxy(22,11);writeln('Status Keamanan Suhu : Aman');
goto aktifadc2;
end;

on2:
begin
x:=$11;
gotoxy(22,11);writeln('Status Keamanan Suhu : Hati-hati !');
goto aktifadc2;
end;

on3:
begin
x:=$09;
gotoxy(22,11);writeln('Status Keamanan Suhu : Bahaya !!');
goto aktifadc2;
end;

on4:
begin
y:=$20;
gotoxy(22,13);writeln('Status Keamanan Kepekatan Asap : Aman');
goto terakhir;
end;

on5:
begin
x:=$81;
gotoxy(22,13);writeln('Status Keamanan Kepekatan Asap : Hati-hati !');
goto terakhir;
end;

on6:
begin
y:=$41;
gotoxy(22,13);writeln('Status Keamanan Kepekatan Asap : Bahaya !!');
goto terakhir;
end;

terakhir:
begin
x:= x or y;
if (x=$91) THEN PORT[$300]:=$93;
if (x<>$91) then port[$300]:=x;
end;

Goto aktifadc1;

End.

---

.:: OPI-Homepage ::.