Turbo Pascal

Autor: McNick (R) (IP bekannt)
Datum: 28. Mai. 2010 15:10

Hat jemand eine Liste von allen Readkeys? Oder Weis jemand wo ich eine herbekomme?
Ich Habe turbo Pascal für Windows

Antworten | Zitieren

Autor: Flachsmeer (R) (IP bekannt)
Datum: 28. Mai. 2010 16:01

Hi

Ich weiß nicht genau, was du mit einer 'readkey-Liste' meinst, aber wenn du die Codes für die verschiedenen Tasten suchst, kannst du auf dieser Seite unter Turbopascal und dann ganz unten ASCII-Tabelle gucken. Dort sind alle Buchstaben/Zahlen/Sondertasten aufgelistet (zB. 13 Carriage Return , also Enter)...

Lg

Enno

-- 
----------------------------------------------WOL-Soft---------------------------------------------------
aktuelle Arbeit:
  Computer-Algebra-System,KonsolenAdventure

Antworten | Zitieren

Autor: BP92 (R) (IP bekannt)
Datum: 28. Mai. 2010 17:00

Hi McNick,

du kannst dir auch die Tastencodes direkt anzeigen lassen, indem du ein kleines Testprogramm schreibst, dass z.B. so aussehen koennte:

PROGRAM KEYCODE;

USES
  WINCRT;

VAR
  cTaste: CHAR;

BEGIN
  CLRSCR;
  REPEAT
    cTaste:=READKEY;
    IF (cTaste=#0) THEN BEGIN
      WRITE('#0 + ');  (* Doppelcode *)
      cTaste:=READKEY;
    END;  (* IF *)
    WRITELN(cTaste);
  UNTIL (cTaste=#27);
  DoneWinCrt;
END.

Bei F-Tasten, Pfeiltasten, Entf, Einfg, ... hat der Tastencode ein Nullzeichen vorangestellt. Durch erneutes READKEY bekommst du dann den Tastencode, der dieser Sondertaste zugeordet ist.

-- 
PASCAL Programmierer aus Leidenschaft

Turbo Pascal Beispiele fuer Anfaenger: [www.webplain.de]

Momentane Projekte:
-----------------------
Konsolen-Adventure Game mit FreePascal (im Denkpause-Forum) [www.webplain.de]
Funktionsplotter und -rechner; Vorabversion gibt's hier: [www.webplain.de]
Objektorientierte Textmodus-GUI; Release-Termin: groesstenteils fertig

Antworten | Zitieren

Autor: McNick (R) (IP bekannt)
Datum: 29. Mai. 2010 09:08

Dankeschön für die schnelle Antwort.
Die Tabelle hat geholfen.

Dein Program leider nich das funtioniert nich^^.
da wird da einfache ne Spaalte nach unten geschrieb also wenn ich a s d f g h drücke steht da
a
s
d
f
g
h
             Und das wars.

Welches Ascii zeichen haben die Pfeiltasten ? Hab ich in der Tabelle nicht gefunden.

mfg McNick

Antworten | Zitieren

Autor: Samolex (R) (IP bekannt)
Datum: 29. Mai. 2010 09:39

Hi,


Pfeil links :   #0 + 'K'
Pfeil rechts:   #0 + 'M'
Pfeil hoch  :   #0 + 'H'
Pfeil runter:   #0 + 'P'

If Readkey = #0 Then
  case ReadKey of
    'K' : Links;
    'M' : Rechts;
    'H' : Hoch;
    'P' : Runter
  end;


MfG
Samolex

-- 
Computer helfen uns Probleme zu lösen,
die wir vorher nicht hatten.

Retrokuhn
Hey du, isch mach dich Zweierkomplement...

Antworten | Zitieren

Autor: BP92 (R) (IP bekannt)
Datum: 29. Mai. 2010 10:57

Hi McNick,

das Beispiel soll auch keine ganze Tabelle ausgeben, sondern nur den Code der Taste, die du zuletzt gedrueckt hast. Kannst ja sonst noch ergaenzen, dass er ORD(cTaste); ausgibt, dann hast den Code auch

Pfeiltasten sehen so aus: #0 voran und dann fuer Links #75, Rechts #77, Oben #72, Unten #80 oder die Grossbuchstaben, wie Samolex schon geschrieben hat.

-- 
PASCAL Programmierer aus Leidenschaft

Turbo Pascal Beispiele fuer Anfaenger: [www.webplain.de]

Momentane Projekte:
-----------------------
Konsolen-Adventure Game mit FreePascal (im Denkpause-Forum) [www.webplain.de]
Funktionsplotter und -rechner; Vorabversion gibt's hier: [www.webplain.de]
Objektorientierte Textmodus-GUI; Release-Termin: groesstenteils fertig

Antworten | Zitieren

Autor: McNick (R) (IP bekannt)
Datum: 29. Mai. 2010 20:29

Danke für die vielen Antworten. Dein Programm gibt nur leider gar nichts aus. Wenn ich  a drücke steht a da und das wars dan^^

Antworten | Zitieren

Autor: McNick (R) (IP bekannt)
Datum: 29. Mai. 2010 23:13

Noch eine frage Was ist falsch den irgendwie reagiert es auf die pfeiltasten nicht.

program Pfeiltasten;
uses WinCrt;
Var
   xa,ya,xx,yy : Integer;
          CH : Char;


Procedure Eingabe;
          Begin;
                    Ch:=Readkey;
                    Clrscr;
                    IF CH=#0+#77 Then Inc(xa);
                    IF CH=#0+#75 Then Dec(xa);
                    IF CH=#0+#72 Then Inc(Ya);
                    IF CH=#0+#80 Then Dec(Ya);
                    If xa > 80 Then Xa:=1;   
                    If Xa< 1 Then Xa :=80;
                    If Ya >25 Then Ya:=1;
                    If ya< 1 Then Ya:=25;
                    {Gotoxy(1,25);Writeln('Ch=',CH,' Ord=',Ord(ch),' =x=',x,' Y= ',y);Clreol;}
          End;


Procedure Start;
Begin;
      Repeat
      xx:=Wherex;   
      Yy:=Wherey;   
      Eingabe;
      Gotoxy(xx,yy);Write(' ');  
      Gotoxy(xa,ya);   Write('         _| |_      ');    
      Gotoxy(xa,ya+1);Write('        (0 0)      ');
      Gotoxy(xa,ya+2);Write(' -000---0------  ');
      Gotoxy(xa,ya+3);Write('|                  | ');
      Gotoxy(xa,ya+4);Write('|    Hallo       | ');
      Gotoxy(xa,ya+5);Write('|                  | ');
      Gotoxy(xa,ya+6);Write(' ----------000-  ');
      Gotoxy(xa,ya+7);Write('       || ||      ');
      Gotoxy(xa,ya+8);Write('       || ||      ');
      Gotoxy(xa,ya+9);Write('       || ||      ');
      Gotoxy(xa,ya+10);Write('   0oo oo0    ');


      until (Ch=#27);
End;

begin
Clreol;
Start;
end.

Antworten | Zitieren