Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: potrzebuje pomocy . program do zczytywania znakow z klawiatury

W dół

Od 1 do 2 z 2

  1.  
    • CommentAuthorcupeck
    • CommentTime11 Apr 2008
     
    witam wszystkich pascalospecjalistow i prosze o pomoc . moze ktos ma albo wie jak napisac programik rezydentny ktory bedzie sie uruchamial po uruchomieniu komputera zczytywal znaki wprowadzone z klawiatury i zapisywal w pliku na dysku .
    • CommentAuthorsteficzek
    • CommentTime12 Apr 2008 zmieniony
     
    {$M $800,0,0} Uses Crt,Dos; Var KbdIntVec : Procedure; {$F+} procedure Keyclick; interrupt; var TempX,TempY : Integer; begin if Port[$60] < $80 then begin TempX:=WhereX; TempY:=WhereY; GoToXy(1,1); Write(Port[$60]); GoToXy(TempX,TempY); end; inline ($9C); KbdIntVec end; {$F-} Begin GetIntVec($9,@KbdIntVec); SetIntVec($9,Addr(Keyclick)); Keep(0) End.

    Żeby nie było za łatwo program tylko wyświetla w lewym górnym rogu ekranu stan portu klawiatury.
    Sedno sprawy masz rozwiązane - czekam na Twoją przeróbkę.
    Program jest oczywiście rezydentny - uruchamiasz go raz i patrzysz czy są efekty - MS DOS only!!! - o okienkach zapomnij.

    By the way! Po co Ci taki program? Ha?!
    pachnie mi to kryminałem...

    Pozdrawiam Stefan Pruszkiewicz

Od 1 do 2 z 2

  1.