Contoh Program FAN SIRKULASI menggunakan DELPHI 7
procedure TForm1.Zibot3Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Zibot1Click(Sender: TObject);
begin
timer1.enabled:= True;
end;
procedure TForm1.Zibot2Click(Sender: TObject);
begin
timer1.Enabled:= False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if RadioGroup1.itemindex= 0 then
begin
i.Port[$378]:=$04;
end
else
begin
i.Port[$378]:=$08;
end;
end;
end.
ket : ada yang beberapa diganti (harap buat sendiri, ini hanya referensi saja)
0 komentar:
Posting Komentar