programm keyboard Tastenkombinationen kombination Pfeiltasten

Wie liest man die Cursertasten vom Keyboard ein?

Von: , Frage gestellt am Do, 26. Apr 2001

Ich möchte mit meinem Programm ein ferngesteuertes Auto steuern.
Über 4 Datenleitungen der LPT sollten die Bewegungsrichtungen gesteuert werden.

Wie liest man am besten die Cursertasten ein, damit auch Tastenkombinationen wie vorwärts und gleichzeitig nach rechts lenken funktioniert?!?. Bzw wie gibt man so ne Kombination am besten auf das LPT Port aus?

Wer hätte ne gute Idee für mich?!?!

Danke

Thorsten

3 Antworten zu dieser Frage

1. Antwort von nach 16 Stunden 0 hilfreich

   Re: Wie liest man die Cursertasten vom Keyboard ei

   Hallo Thorsten,
   
   unter welchem Betriebssystem soll denn die Sache Laufen?
   
   Gruß Patrick
   

   • Antwort von nach 19 Stunden 0 hilfreich

     Re^2: Wie liest man die Cursertasten vom Keyboard

     Hi Patrik
     
     Auf Win98 Oberfläche, oder in der Dos-Ebene von Win98
     
     MFG
     
     Thorsten
     

     • Antwort von nach 22 Stunden 0 hilfreich

       Re^3: Wie liest man die Cursertasten vom Keyboard

       Unter DOS mit ReadKey (Pascal) oder getch (C), Hilfe angucken. Fuer die Pfeiltasten ist der Code zweistellig, das erste Byte ist eine Null, das zweite aus 72,75,77,80, einfach ein Testprogramm schreiben.
       
       In Turbo-Pascal sieht das z.B. so aus:
       
       

       function Tasten:boolean;
       var ch:char;
       begin
       calc := false;
       repeat until keypressed;
       ch := readkey;
       case ch of
       '1'..'6': aktiv := Ord(ch)-48;
       '+':begin if L[aktiv]<30  then L[aktiv] := L[aktiv]+0.1; calc := true end;
       '-':begin if L[aktiv]>0.5 then L[aktiv] := L[aktiv]-0.1; calc := true end;
       #27,' ','e','E':ende := true;
       'R','r':Reset;
       'I','i':InverseScreen;
       #0:case ord(readkey) of
       77: if ph=0 then ph := 357 else Dec(ph,3);
       75: if ph=357 then ph := 0 else Inc(ph,3);
       80: if th<90 then Inc(th,3);
       72: if th>1 then Dec(th,3);
       else begin tasten := false; exit end;
       end;
       else begin tasten := false; exit end;
       end;
       tasten := true
       end;
       

       
       
       Ciao Lutz [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
       

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!