Tastatur abfragen (ohne DirectX)

[DarkDragon]

Unsinn...

Code: Alles auswählen

Structure kbBytes
  b.b[256]
EndStructure

kbArray.kbBytes

Repeat
  GetKeyboardState_(@kbArray)
  Debug kbArray\b[#VK_ESCAPE]
  Delay(1000)
Until kbArray\b[#VK_ESCAPE] = 0
MessageRequester("OK", "ESCAPE and the program ends.")
End

Nur funzt es in PureBasic nicht. Weder mit nem normalen Array, noch so in ner Struktur. In anderen Sprachen schon.

[vonTurnundTaxis]

Wie jetzt?

[AndyX]

z.b.

Code: Alles auswählen

GetAsyncKeyState_(#VK_ESCAPE | #VK_IRGENDWAS)

[DarkDragon]

z.b.

Code: Alles auswählen

GetAsyncKeyState_(#VK_ESCAPE | #VK_IRGENDWAS)

Das wollen wir ja garnicht.

[EDIT]

GetKeyboardState

The GetKeyboardState function copies the status of the 256 virtual keys to the specified buffer.


· lpKeyState
Points to the 256-byte array that will receive the status data for each virtual key.

[AndyX]

vTT wollte doch ne WinAPI Funktion zum Abfragen der Tastatur

[DarkDragon]

vTT wollte doch ne WinAPI Funktion zum Abfragen der Tastatur

Ja, für alle Tasten, und nicht für eine bestimmte.

[AndyX]

Achso... Dann sry

[vonTurnundTaxis]

Ein grundlegendes Beispiel:

Code: Alles auswählen

If OpenWindow(#PB_Any, 0, 0, 100, 100, #PB_Window_ScreenCentered, "Eingabe-Test")

Repeat
  If WaitWindowEvent() =  #WM_KEYDOWN
    If GetAsyncKeyState_(#VK_SHIFT)
      antwort$ + Chr(EventwParam())
    Else
      antwort$ + LCase(Chr(EventwParam()))
    EndIf
  EndIf
  Debug antwort$
Until GetAsyncKeyState_(#VK_ESCAPE)

EndIf

Man muss natürlich noch eine Unterscheidung bei Sonderzeichen machen, aber das dürfte als Grundlage genügen.