Das deutsche QBasic- und FreeBASIC-Forum

[St_W]

Der Vollständigkeit halber: ich hab den von Sebastian verlinkten C/C++ Code in ein kleines Beispiel für FreeBasic umgewandelt und dieses hochgeladen: http://www.freebasic-portal.de/porticula/windows-console-window-1671.html
Natürlich ist die Verwendung von WIDTH aufgrund u.a. der Plattformunabhängigkeit immer wenn möglich vozuziehen.
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[TimesChange]

@Grindstone: Danke, das hat funktioniert.

Kleiner Hinweis für andere, die das hier lesen: Man muss bei Verwendung von __SCREENRES mit dem Parameter -s gui compilieren, damit kein weiteres, leeres DOS-Fenster im Hintergrund erscheint.

@st_W: Auch wenn ich hier natürlich WIDTH verwende, ist deine Umwandlung interessant, um eine Umsetzung von C++ auf Freebasic zu sehen. Ich hätte vermutlich ziemlich lange gebraucht, um da was brauchbares zu erzeugen

Viele Grüße
Rainer

[Sebastian]

[nemored]

[TimesChange]

Die Fragen gehen nicht aus...


Kurzfassung Aufgabenstellung: Tastaturabfrage inkl. Alt_Taste

Langfassung:
In zweiten des aus QB4.5 zu konvertierenden Programms kann ich mit den Cursortasten in einer alphabetisch geordneten Namensliste blättern, und mit "ALT-" + Buchstabe(n) direkt zum ersten passenden Namen springen. Wenn ich "Meier" suche, halte ich also die Alt-Taste gedrückt, und drücke "m" -> Programm springt zum ersten Eintrag der mit "M" beginnt. "e" -> "Me" usw.
In QB hatte ich damals eine Function namens getkey, die mittels mehrere Aufrufe von Interrupt &H16 direkt den Tastaturspeicher abgefragt hat.
Int-Aufruf geht in FB nicht mehr (vielleicht auch besser so?), also brauche ich eine andere Lösung.

Erster Gedanke war MultiKey. Hat aber den Nachteil, dass ich nur den Zustand einer einzelnen Taste abfragen kann.
Also versucht: Multikey, um die Alt-Taste abzufragen, gefolgt von Inkey oder Getkey, um die zusammen mit Alt-gedrückte Taste (oder auch ohne "Alt") zu ermitteln:

[grindstone]

Mit der WinAPI-Funktion GetKeyState(nVirtKey) kannst du den Zustand jeder Taste abfragen. nVirtKey ist dabei der Tastencode, und der Rückgabewert der Funktion vom Typ Byte enthält die Meldung über den Zustand der Taste. Ein gesetztes Bit 7 (MSB) bedeutet "Taste ist gedrückt", und Bit 0 (LSB) wird bei jedem Tastendruck umgeschaltet.

Mit diesem kleinen Programm

[Sebastian]

[TimesChange]

Hallo Grindstone,

danke für den Tipp mit GetKeyState.
Jetzt muss ich mir zunächst mal ansehen, was genau meine alte Routine gemacht hat, und dann versuchen das mit GetKeyState nachzubilden.

GetKeyState funktioniert zwar für die Abfrage des Tatstaturstatus, aber gib es in FB tatsächlich keinen Weg, direkt die Tastatur nach dem Wert der gedrückten Tasten abzufragen (wie Int &H16), ohne alle 255 Werte in einer Schleife einzeln zu prüfen??

Und noch eine weitere Frage vorab:
Ich habe Probleme, wenn ich in der "-lang qb" Einstellung windows.bi einbinden will. Gibt es da einen anderen Ausweg, als mein gesamtes Programm auf -fb umzuschreiben?

Viele Grüße
Rainer

@Sebastian: Deine Antwort habe ich gerade erst gelesen. Eventuelle weitere Fragen zu neuen Problemen stelle ich dann gesondert.
Die Eingabe-Problematik (Alt-Taste) können wir hier noch weiterführen?

[arduno]

.....Es gibt leider gar keinen Interpreter, dem man zur Ausführungszeit in die Karten gucken.....

Jammer nicht, dann nimmst du einfach "QB64" : http://www.qb64.net/forum/

Dann ist dein Problem gelöst, wenn du mit Freebasic als ASM-Code nicht klar kommst......

[arduno]

.....Und noch eine weitere Frage vorab:
Ich habe Probleme, wenn ich in der "-lang qb" Einstellung windows.bi einbinden will. Gibt es da einen anderen Ausweg, als mein gesamtes Programm auf -fb umzuschreiben? .....

Du bist eine faule Socke.....

[Sebastian]

[TimesChange]

[grindstone]

Hallo TimesChange!

[St_W]

[TimesChange]

[TimesChange]

Analog zu obigem Beispiel mit GetKeyState habe ich versucht, die Funktion GetKeyboardState einzubinden, die mir alle virtuellen Keycodes "in einem Rutsch" liefern sollte (ob das dann eleganter ist, als eine Schleife mit GetKeyState von 0 bis 255 durchlaufen zu lassen, sei mal dahingestellt).

Das erste Problem ist eine Fehlermeldung #2 (Passing pointer to scalar, at parameter 1 of GETKEYBOARDSTATE()).

Nicht wissend, was mir das sagen soll, habe ich dies vorerst guten Mutes ignoriert

Möglicherweise rührt mein 2. Problem ja aus dem Ignorieren des ersten her:

Nachfolgendes Miniprogramm zu Testzwecken soll solange die virtuellen Keys auslesen, bis die Taste "A" (virtueller Key &h41) gedrückt wird.
Innerhalb der Schleife wird abgefragt, ob eine der Tasten A-Z gedrückt ist, und ggf. eine Meldung ausgegeben.

[St_W]

Zum ersten Problem:
Die Fehlermeldung sagt dir, dass du einen Pointer an die Funktion übergibst, obwohl die Funktion keinen Pointer erwartet. Dies kommt daher, dass du die Funktion mit einen LONG Parameter definiert hast. Besser wäre da wohl __ubyte __pointer gewesen, dann fällt auch diese Fehlermeldung weg. Auswirkung auf die Funktionalität des Programms hat dies jedoch keine, da LONG genauso wie ein beliebiger Pointer jeweils eine 32-Bit Zahl sind (also gleich groß).


Zum zweiten Problem:
Hierbei bin ich mir selbst nicht ganz sicher, da ich mit der GetKeyboardState Funktion nicht vertraut bin. Der MSDN Library ist aber folgendes zu entnehmen:

[TimesChange]

Danke für die Infos.

[TimesChange]

Das macht mich allmählich irre
Für heute höre ich erstmal leicht frustriert auf.

Wenn ich ein Tastaturabfrage mit MULTIKEY mache, dann bekomme ich nicht 1 einzelnes Zeichen / Tastendruck geliefert, sondern auch bei sehr kurzem Antippen einer Taste zwischen 3 und 10 "Eingaben". Es gibt hier also keinerlei Tastaturverzögerung.
Das wäre ok, wenn ich nur abfragen will, ob eine bestimmte Taste gedrückt wurde, um dann irgendeine Aktion einzuleiten. Aber nicht, wenn ich aus den Eingaben einen fortlaufenden Text generieren will, oder Pfeiltasten zum Blättern auswerten möchte.

In der Hilfedatei "FBREF_11-18-2013D.CHM" ist unter MULTIKEY ein Programmbeispiel, bei dem man wohl einen Kreis mit den Cursortasten bewegen können sollte. Funktioniert bei mir auch nicht im Sinne des Erfinders, da der Kreis durch die schnelle Tastaturabfrage bei mir nur zwischen den Ecken des Bildschirms hin- und herspringen kann, eine schrittweise Positionsveränderung ist also nicht möglich...

Viele Grüße
Rainer

[nemored]