Klavyenin Ledleriyle Oynayın
-
Bu Program Klavyenin Ledlerini Kontrol Etmekte.
çalıştırmak için daha oncede yazmıs oldugumuz newdelay patchine sahip olmanız gerekmektedir.
{-- Reges Tarafında Yazılmıştır --}
uses newdelay,crt;
var
i:byte;
a:byte absolute $40:$17;
begin
i:=0;
repeat
i:=i+1;
if i=3 then i:=0;
if i=0 then begin
a:=32;
delay(150);
end;
if i=1 then begin
a:=64;
delay(150);
end;
if i=2 then begin
a:=16;
delay(150);
end;
until keypressed;
readln;
end.
Kolay Gelsin
Toplam Hit: 1932 Toplam Mesaj: 1
