Pascal keypressed

[Nemeth Tibor]

Hali !

Juhasz Imre wrote:
> 
> Sziasztok !
> 
> A kovetkezo problemaba futottam:
> 
> Pascal programbol vezerlek egy aramkort a printer porton keresztul.
> Varok egy nehany miliszekundumos impulzusra. Ez eddig jol mukodik.
> Viszont ha nem jon akkor billentyunyomassal kilepnek.
> No itt a gubanc: a pascal keypressed fuggvenye nagyjabol 50 miliszekundumig tart.
> Azaz ha beirom a varakozo hurokba akkor nem veszem eszre az impulzusokat.
> Tud-e valaki valami olyan modszert ami nehany mikroszekundum alatt meg tudja mondani
> volt-e lenyomott billentyu?
> 
> Elore is koszi !    Csuhas

Ha atiranyitod magadhoz a billentyuzet interuptjat es egy jelzot
allitasz, majd vissza az eredetire, csak ajelzit kell vizsgalnod. 
Meg ennel is egyszerubb, ha a bios adatteruleten megnezed, az erdedeti
rutin tett-e bejegyzest. A legegyszerubb es legszabvanyosabb ha a
KeyboardShitStatusFlag-et vizsgalod, $40:17, ennek bitjei a shift, ctrl
alt gombok allapotat irjak le, persze ekkor csak ezekkel lephetsz ki de
gondolom ez nem problema.

Valami ilyesmi

const maszk=XX {XX olyan ertek ami a kivalasztott shift-gomb be vagy ki
allapotanak felel meg}

var kssf:word absolute $40:$17;


repeat

{itt tedd amit kell}

until (kssf and maszk)>0 ;





Udv.
    Nemeth Tibor