Seite 1 von 1
Frage zu - Inkey()
Verfasst: 12.03.2005 19:40
von 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..
Verfasst: 12.03.2005 19:45
von freedimension
Hi PrF
Hast du schonmal das Beispiel in der Hilfe angeschaut?
Verfasst: 12.03.2005 19:51
von Pure-r-Freak
Hab ich schon, aber das hilft mir nicht weiter
bitte poste ein Bsp.
Verfasst: 12.03.2005 20:12
von 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