Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Peiltastenabfrage

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Dark_King



Anmeldungsdatum: 24.07.2006
Beiträge: 109
Wohnort: Neustetten - BW
BeitragVerfasst am: 28.07.2006, 15:54    Titel: Peiltastenabfrage Antworten mit Zitat
wie kann man die Pfeiltasten abfragen?

also mit inkey$ (fals das geht) möchte ich die pfeiltasten abfragen können.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Stormy



Anmeldungsdatum: 10.09.2004
Beiträge: 567
Wohnort: Sachsen - wo die schönen Frauen wachsen ;)
BeitragVerfasst am: 28.07.2006, 15:59    Titel: Antworten mit Zitat
Code:
a$ = INKEY$
IF a$ = CHR$(0) + "H" THEN CALL GeheHoch
IF a$ = CHR$(0) + "K" THEN CALL GeheRechts
IF a$ = CHR$(0) + "M" THEN CALL GeheLinks
IF a$ = CHR$(0) + "P" THEN CALL GeheRunter

_________________
+++ QB-City +++ Die virtuelle Stadt für jeden Freelancer - Join the community!
Projekte: QB-City,MysticWorld (RPG), 2D-OpenGL-Tutorial
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Elvis



Anmeldungsdatum: 01.06.2006
Beiträge: 818
Wohnort: Deutschland, BW
BeitragVerfasst am: 28.07.2006, 16:13    Titel: Antworten mit Zitat
Betreff: Was ist eine Peiltaste? happy zwinkern

Noch eine Möglichkeit:
(Als kleiner zusatz noch die Tasten Enter, A/a, S/s, M/m, D/d, E/e)
Code:

 ret = 0
 LOCATE , , 0
 DO
  taste$ = INKEY$
  IF taste$ <> "" THEN
   IF taste$ = "a" OR taste$ = "A" THEN
    ret = 1
   ELSEIF taste$ = "s" OR taste$ = "S" THEN
    ret = 1
   ELSEIF taste$ = "m" OR taste$ = "M" THEN
    ret = 1
   ELSEIF taste$ = "d" OR taste$ = "D" THEN
    ret = 1
   ELSEIF taste$ = "e" OR taste$ = "E" THEN
    ret = 1
   ELSEIF ASC(taste$) = 13 THEN
    ret = 1
   ELSEIF ASC(taste$) = 0 THEN
   IF LEN(taste$) > 1 THEN
     richtung = ASC(MID$(taste$, 2, 1))
     IF richtung = 72 THEN 'oben
      ret = 1
     ELSEIF richtung = 80 THEN 'unten
      ret = 1
     END IF
    END IF
   END IF
  END IF
 LOOP UNTIL ret = 1


Damit frägst du den ASCII-Code einer Taste ab:
Code:

10 CLS
20 PRINT "******************************"
30 PRINT "**ASCII-Code Abfrageprogramm**"
40 PRINT "******************************"
50 PRINT
60 PRINT "ASCII-Code: "
70 FOR I = 1 TO 10: KEY I, "": NEXT I
80 x$ = INKEY$: IF x$ = "" THEN GOTO 80
90 FOR I = 1 TO LEN(x$)
100 PRINT ASC(MID$(x$, I, 1)),
110 NEXT I



Grüße, Elvis
_________________
Geforce 7300GT (256MB GDDR3, Gainward) -- 2x 512MB (DDR2 800, MDT) -- AMD Athlon64 X2 EE 3800+ -- Asrock ALiveNF5-eSATA2+
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz