Beitrag, 15.07.2007 20:24: ;createCode()'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 vorbereitendeclare Taste$,Anzeige$declare editfeld%WINDOW 30,30 - 300,100 'Fenster erstellenWINDOWTITLE "Tastatur abfragen" 'FenstertitelLocate 2,3 'Textanzeige vorbereitenPrint "*** Bitte eine Taste drücken ***"'Text anzeigen an 5,5let editfeld%=CreateEdit (%hwnd,"",5,30,280,20) 'Editfeld zur Anzeige erstellenEnableWindow 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%
Dies ist die Offlinevariante vom Thread [Tastatur abfragen].
©2006 XProfan.Com