ASCI tabel [pascal]

[Verwijderd]

weet iemand de code voor de toetsen F1 tot F12, ik heb wel een lijst met alle letters en cijfers maar niet van toetsen.

[elevator]

Op vrijdag 11 januari 2002 18:09 schreef TFaLCoN het volgende:
weet iemand de code voor de toetsen F1 tot F12, ik heb wel een lijst met alle letters en cijfers maar niet van toetsen.

compile dit eens:

code:

Uses Crt,Dos;


var CH:Char;

begin
  Writeln('Typ keys, <ESC> to abort.');
  WriteLn;

  Repeat;
    CH := Crt.ReadKey;

    Writeln('CH= ', CH,' / Ord(CH)= ', Ord(CH));
  Until CH=#27;
end.

als je dit dan runt, geeft hij netjes de keys van elke toets weer.
de F1..F12 keys bestaan geloof ik uit iets als #00/#xx key, dus je moet 2 toetsen uitlezen om de goede key te krijgen.

[Verwijderd]

Op vrijdag 11 januari 2002 18:09 schreef TFaLCoN het volgende:
weet iemand de code voor de toetsen F1 tot F12, ik heb wel een lijst met alle letters en cijfers maar niet van toetsen.

Je krijgt voor alle functie toetsen (F1..F10) eerst char 0 terug en dan moet je dus nog een readkey doen en dan krijg je
voor
F1;
F2<
F3=
F4>
F5?
F6@
F7A
F8B
F9C
F10D

En F11 en F12 moet je anders uitlezen want dat werkt niet op die manier

Voorbeeld:
const
F11 = #$85;
F12 = #$86;

Function ReadKey : char; assembler;
Asm
mov ah,08h
int 21h
End; { ReadKey }

var
Ch : char;
Extended : boolean;

Begin
Write('Press F11 or F12 to quit... ');
repeat
Ch := ReadKey;
if Ch = #0 then
begin
Extended := True;
Ch := ReadKey
end else Extended := False;
until (Ch in [F11,F12]) and Extended;
WriteLn('Done.')
End.

[Verwijderd]

Eerst ff zoeken op internet dan vind je zoveel info, als je daar niet uitkomt dan pas vragen