bepaalde toetsen uitschakelen in pascal

Pagina: 1
Acties:

  • Kevinp
  • Registratie: Juni 2001
  • Laatst online: 05-09 18:35
ik heb een programma gemaakt om te darten maar nou wil ik als laatste nog de letters, leestekens uitschakelen zodat je alleen nog maar de cijfers kan gebruiken, kan dat?
zo ja hoe?

d'r is maar één ding in het leven wat moet, en dat is dood gaan.


  • JoostBaksteen
  • Registratie: December 2000
  • Laatst online: 27-03 19:32
Kan je niet gewoon alle letters eerst controleren of het een letter/cijfer is?

Dus je kan alles invullen maar als het een letter is gebeurd er iets.

Verwijderd

Met dit stukje code kun je achter de codes van de toetsen komen.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
program Getkey;
uses crt;
var key:integer;

begin
  repeat
    if (keypressed) then
    begin
    key:=ord(readkey);
    writeln(key);
    end;
   until (key=27); key=esc;
end.

Dit kun je gebruiken voor het darten.
code:
1
2
3
4
5
6
if (keypressed) then
begin
  key:=ord(readkey);
  if (key>=48) and (key<=57) then
     //darten
end;