 | Il codice mostra come il programma rimanga in attesa
della pressione di un tasto, utilizzando ChkKey
invece della solita KeyPressed; in
uscita mostra come le informazioni lasciate da ChkKey
siano disponibili per conoscere i 2 codici del tasto.
|
Esempio di
Applicazione |
|
 |
 |
 |
|
PROGRAM Prova_ChkKey;
USES Crt,
giobe;
VAR tasto:char;
ascii,scans:word;
BEGIN
Viacur;
{************************************}
Riempi1(7,1,' ');
{* Clearscreen con il carattere ''*}
{* con colore Blu(1) su Bianco (7) *}
{************************************}
Cornice1 ( 6,24,30,6,15,4,1,1);
Riempi3 (25,25,15,1,' ');
textbackground(1);textcolor(15); gotoxy (12,25);
write('Prova della Funzione ChkKey ');
write('- Premi un tasto per terminare');
textbackground(4);
REPEAT
gotoxy(33,7);
write('Premi un tasto');
UNTIL ChkKey(ascii,scans);
gotoxy(27, 9); write(' codice ascii = #',ascii);
gotoxy(27,10); write('codice scansione = nø',scans);
tasto:=readkey; {**************************************}
GotoXY (1,25); {* Aspetta un
tasto e poi torna a DOS *}
RipCur; {**************************************}
END.
|
|
