KeyboardInkey() in PB3.30

[Groudon]

Gibt es so in PB3.30 was ähnliches wie KeyboardInkey() ???

[STARGÅTE]

du müsstest mit API abreiten:

Code: Alles auswählen

Procedure.s GetKeyName(Asc)
 Name$=Space(255)
 GetKeyNameText_(MapVirtualKey_(Asc,0)*$10000,name$,255)
 ProcedureReturn Name$
EndProcedure
Procedure GetKey()
 For n=8 To 255
  If GetAsyncKeyState_(n) = -32767 : r=n : EndIf ; Pressed!
 Next n
 ProcedureReturn r
EndProcedure
Repeat
 Delay(10)
 x = GetKey() 
 If x : Debug GetKeyName(x) : EndIf
ForEver

[Groudon]

hä, kapier ich nicht

[Kaeru Gaman]

gabs da keine keyboard-lib in der 3.30?
...da muss man doch nicht unbedingt ne API-lösung nehmen, nur ein workaround.

[STARGÅTE]

ja klar, man kann mit KeyboardPushed() die Tasten alles einzeln abfragen, oder besser mit KeyboardReleased(), aber dann ist ja das prob das der nachfolgende KeyboardReleased() NULL ergibt -.-

[Fluid Byte]

Nicht nur das. Dann hat die Tastatur automatsich QWERTY Format. Nur KeyboardInkey() berücksichtigt "non-konforme" Tastaturen. Mann kann das Keyboardlayout zwar verändern das ist dann aber Windows only.

[Groudon]

ich kapier gar nichts

[Kaeru Gaman]

aaalso

1) es gibt kein KeyboardInkey in der 3.30

2) wenn du nur bestimmte tasten z.b. für die steuerung abfragen willst,
nimmst du KeyboardPushed()

3) wenn du ein keyboard zur texteingabe im screen realisieren willst,
kannst du das API-workaround benutzen, das STARGÅTE oben gepostet hat.


@STARGÅTE
habs mir jetzt erst mal genau angesehen...
du benutzt 248 GetAsyncKeyState_() calls? das ist doch wahnsinn.
schau dir mal GetKeyboardState_() an.
wenn du in der lage bist, die Keynames auszulesen (1.proc),
dann kannst du auch mit dem kompletten table,
den dir GetKeyboardState_() liefert etwas anfangen...

[STARGÅTE]

Das war auch nicht von mir, sondern aus dem CodeArchiv.

Ich selber benutze ja meine selbstgebauten ScreenStringGadgets , habe ich ja schon mal gepostet (wo dann auch verschiedene Sonder Funktionen gehen (ALT+#Nr))

[Groudon]

Ich brauch das so oder so nit mehr ich benutz einfach

Code: Alles auswählen

If KeyboardPushed(KeyID) And KeyboardPushed(KeyID)
copysprite(1,0)
EndIf

kann man den thead schließen