LED - keyboard led

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: Jojko
Program: Led.pas
File exe: Led.exe

Program know on/off keyboard led.
{ LED.PAS                                                           }
{ Program zapina/vypina led na klavesnici                           }
{                                                                   }
{ Author: jojko                                                     }
{ Datum: 22.07.2007                           http://www.trsek.com  }
 
uses crt;
 
begin
  while not keypressed do
  begin
    port[$3f2]:=$30; {zapinanie}
    delay(200);
    port[$3f2]:=$00; {vypinanie}
    delay(200);
  end;
  while keypressed do readkey;
end.