KeyboardInkey()

Syntax

String$ = KeyboardInkey()

Gibt das zuletzt eingegebene Zeichen zurück, sehr nützlich wenn effiziente Tastatureingabe für ein Spiel (Name in einem HighScore, in einer Game-Konsole, etc.) erforderlich ist.

Der Befehl ExamineKeyboard() muss vor dieser Funktion aufgerufen werden, um den Tastatur-Status zu aktualisieren.

Beispiel:

  If InitSprite() And InitKeyboard() And OpenScreen(800,600,16,"")
    Repeat
      FlipBuffers()
      ClearScreen(RGB(0, 0, 0))
      
      ExamineKeyboard()
      FullText$ + KeyboardInkey()  ; fügt das nächste Zeichen zum aktuellen Text (sofern vorhanden) hinzu
      
      ; Wenn wir die 'Backspace'-Taste drücken, löschen wir das letzte Zeichen
      ;
      If KeyboardReleased(#PB_Key_Back)  
        FullText$ = Left(FullText$, Len(FullText$)-1)
      EndIf

      ; Ergebnis darstellen
      ;
      If StartDrawing(ScreenOutput())
        DrawingMode(1)
        FrontColor(RGB(128, 255, 0))
        DrawText(20, 20, "Gib einfach etwas Text ein...:")
        DrawText(20, 40, FullText$)
        StopDrawing()
      EndIf
    Until KeyboardPushed(#PB_Key_Escape)
  EndIf

Unterstützte OS

Alle