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:

Probleme mit Tstaturabfrage

 
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
teslanikola



Anmeldungsdatum: 12.06.2005
Beiträge: 4

BeitragVerfasst am: 12.06.2005, 12:00    Titel: Probleme mit Tstaturabfrage Antworten mit Zitat

Servus QBies,
ich sitzt an eine abschlußarbeit für Technik und hab ein dickes Problem:
ich möchte eine Do Loop schlaufe so lange laufen lassen bis entweder HOCH/RUNTER/LINKS/RECHTS gedrückt wurde ich habs so probiert aber es geht nicht mit dem Kopf durch die Mauer wollen :

Do

Loop until inkey$= 25 ' 25 ist der Code für Hoch

aber das funz nicht könnt ihr mir helfen?

Danke für eure Hilfe schon mal
CU teslaikola

Tesla 4 Future
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Mecki
Igel


Anmeldungsdatum: 10.09.2004
Beiträge: 985
Wohnort: Niederbayern

BeitragVerfasst am: 12.06.2005, 12:09    Titel: Antworten mit Zitat

Huhu,

Grundsätzlich gilt, dass du
Code:
IF Inkey$="a" then ..
IF Inkey$="b" then ..
IF Inkey$="c" then ..
vermeiden musst, da sonst der Puffer bei der ersten IF-Abfrage ausgelesen und somit leer ist.

Außerdem muss es heißen:
Code:
IF inkey$=chr$(AsciiCode)


Ich empfehle dir, den Puffer einmal zu laden und das dann auszuwerten:
Code:
DO
K$=Inkey$
if K$=..
if K$=..
Loop until K$=chr$(27) '=ESC
usw.

Grüßle,
Mecki
_________________
» Yodl.de: So sucht man gestern. verwundert
» Geld verdienen im Netz + ICQ.
» Firefox!
» 100€ zu gewinnen
» FreeBASIC.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name Yahoo Messenger MSN Messenger
teslanikola



Anmeldungsdatum: 12.06.2005
Beiträge: 4

BeitragVerfasst am: 12.06.2005, 12:13    Titel: Antworten mit Zitat

Danke Meki Daumen rauf! , du hast mir ein reißen Problem abgenommen.
CIh prog normalerweise mit BASCON BASIC ( für AVR Controller ), da gibts keine Tastatur. Fettes Danke für deine Help.

CU teslanikola

Tesla4Future
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
teslanikola



Anmeldungsdatum: 12.06.2005
Beiträge: 4

BeitragVerfasst am: 12.06.2005, 12:48    Titel: Antworten mit Zitat

so ist doch ned ganz gelöst:

Ich kann in der Help die Codes für die Pfeiltasten ned finden.
Weis jemand die Coeds für die Pfeiltasten ?

Danke

Cu teslanikola

Tesla4Future
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Devilkevin
aka Kerstin


Anmeldungsdatum: 11.11.2004
Beiträge: 2532
Wohnort: nähe Mannheim

BeitragVerfasst am: 12.06.2005, 12:52    Titel: Antworten mit Zitat

teslanikola hat Folgendes geschrieben:
so ist doch ned ganz gelöst:

Ich kann in der Help die Codes für die Pfeiltasten ned finden.
Weis jemand die Coeds für die Pfeiltasten ?

Danke

Cu teslanikola

Tesla4Future


Soweit ich weis stehen die in der QB Hilfe, unter Scancodes, oder ASCII Zeichentabbele..
_________________
www.piratenpartei.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
teslanikola



Anmeldungsdatum: 12.06.2005
Beiträge: 4

BeitragVerfasst am: 12.06.2005, 12:56    Titel: Antworten mit Zitat

Da hab ich geschaut ( Asciizeichentabelle) aber welcher Code ist für Hoch/Runte/Links/Rechts. Laut Tabelle ist 27? Für Links, hä ich dachte immer für ESC?? So jetzt kommst du.

Cu
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
jb



Anmeldungsdatum: 14.01.2005
Beiträge: 2010

BeitragVerfasst am: 12.06.2005, 12:59    Titel: Antworten mit Zitat

Versuch den Code, um es rauszufinden:

Code:

DO
 E$ = INKEY$
 IF E$ < >"" THEN PRINT E$
LOOP UNTIL E$ = CHR$(27) 'Escape
END


Dann einfach gucken, was für ein Buchstabe bei Pfeilrunter kommt.
müsste P sein.

Also: Pfeil runter = CHR$(0) + "P"

jb
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt

BeitragVerfasst am: 12.06.2005, 18:51    Titel: Antworten mit Zitat

die Codes für die Pfeiltasten sind jeweils CHR$(0) und dann ein Buchstabe:
H für hoch
K für links
M für rechts
P für runter.
Klingt sinnlos? ists nicht, schaut euch mal das NumPad an:
G = Pos1
H = Hoch
I = Bild auf
J = - glaub ich
K = links
L = 5
M = rechts
N = + glaub ich
O = Ende
P = runter
Q = Bild ab
R = einfügen glaub ich
S = entfernen glaub ich
Da hat sich jemand was bei gedacht.. happy
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
dreael
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 2529
Wohnort: Hofen SH (Schweiz)

BeitragVerfasst am: 12.06.2005, 18:55    Titel: Ziemlich vollständige Tabelle Antworten mit Zitat

Siehe

http://www.dreael.ch/QB/Tastenbelegung.xls

Habe diese Tabelle einmal früher auf experimenteller Basis zusammengestellt. Mit der OPEN "con"-Methode hat man sogar auf einige zusätzliche Tasten Zugriff, unter anderem die Windows-Tasten!
_________________
Teste die PC-Sicherheit mit www.sec-check.net
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
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