Frage zu - Inkey()

[Pure-r-Freak]

Was geht bei euch
ich wollte ma fragen, ob mir einer von euch vielleicht mal ein Beispliel zu Inkey() geben kann und die Syntax etwas erklären. hab schon überall gesucht, aber so gut wie nichts gefunden.

wäre wirklich sehr net..

[freedimension]

Hi PrF

Hast du schonmal das Beispiel in der Hilfe angeschaut?

[Pure-r-Freak]

Hab ich schon, aber das hilft mir nicht weiter
bitte poste ein Bsp.

[MVXA]

Code: Alles auswählen

If OpenConsole()
    PrintN("Druecken Sie Escape zum Beenden.")
    
    Repeat
        key_pressed$ = Inkey()
        
        If key_pressed$<>"" 
            If Asc(key_pressed$)>=32 And Asc(key_pressed$)<128
                PrintN("Sie drueckten: "+Left(key_pressed$, 1))
                PrintN("Diese hat einen Roh-Code von: "+Str(PeekB(@key_pressed$+1) & $FF))
            Else
                ; Entweder ein nicht darstellbarer ASCII-Code oder ein erweitertes Zeichen
                If Asc(key_pressed$)=255 And skip_shift=0
                    PrintN("Sie drueckten die erweiterte (erstes Zeichen=255) Taste: "+Str(PeekB(@key_pressed$+1) & $FF))
                ElseIf Asc(key_pressed$)=224
                    skip_shift = 1
                    PrintN("Sie drueckten eine Cursortaste (erstes Zeichen=224) mit dem Roh-Code: "+Str(PeekB(@key_pressed$+1) & $FF))
                Else
                    If skip_shift=1
                        skip_shift = 0
                    Else
                        PrintN("Die von Ihnen grdrueckte Taste hat Roh-Werte von: "+Str(PeekB(@key_pressed$) & $FF)+" und "+Str(PeekB(@key_pressed$+1) & $FF))
                    EndIf
                EndIf
            EndIf
        Else
            Delay(1)
        EndIf
        
    Until Left(key_pressed$, 1) = Chr(27)
    
    CloseConsole()
EndIf