XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastatur abfragen
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Tastaturabfragen
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    17.01.2001
-----------------------------------------------
Erklärung:
----------
Auch unter Windows gibt es nicht nur die Maus.
In diesem Beispiel wird gezeigt, wie man
eine speziel declarierte Tasteneingabe abfragen kann.
declare ende%				Variablen vorbereiten
declare Taste$,Anzeige$
declare editfeld%
WINDOW 30,30 - 300,100			Fenster erstellen
WINDOWTITLE Tastatur abfragen		Fenstertitel
Locate 2,3				Textanzeige vorbereiten
Print *** Bitte eine Taste drücken ***Text anzeigen an 5,5
let editfeld%=CreateEdit (%hwnd,,5,30,280,20) Editfeld zur Anzeige erstellen
EnableWindow editfeld%,0			Editfeld deaktivieren (nur lesen!)
Zum wiederholen eine Schleife einsetzen:

WHILENOT ende%				Solange nicht Variable ende%=1

    Da es in Profan 7.0 einen Fehler mit dem Befehl @GetKey$() gibt,
    machen wir es folgendermassen
    Normalerweise wird die Taste so abgefragt (unter 7.0 und nach 7.0
    wird es wieder klappen)
    TASTE$ = @GETKEY$
    WAITKEY                                 	Wartet auf Tasteneingabe
    Let TASTE$ = @CHR$(%KEY)                das Zeichen in Taste$ einlesen
    Let Anzeige$=Die letzte Tasteneingabe war: ,Taste$ Anzeige vorbereiten
    SetText editfeld%,Anzeige$		Text in Editfeld% setzen
    WEND					Zurück zu WHILENOT ende%