XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastencodes einlesen
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie der Tastencode
der jeweiligen gedrückten Taste eingelesen
und auf dem Hauptfenster ausgegeben wird.
Es bedeuten:
------------
Ende%    - Variable zum Beenden des Programms
%HWnd    - Handel des Hauptfensters
%Scankey - siehe Profan - Hilfe
print    - siehe Profan - Hilfe
-----------------------------------------------
Declare Ende%                     Variablen deklarieren
Cls                               Standardfenster (640 Pixel * 480 Pixel) wird erzeugt
WindowTitle Bitte eine Taste drücken  - mit F12 beenden -     Fenstertitel festlegen

WhileNot Ende%  	   bleibe solange in der Schleife

    bis Ende% auf einen Wert gesetzt wird
    WaitInput       	   Warten auf Eingabe
    Print %ScanKey           Tastencode auf dem Hauptfenster ausgeben
    Case Equ(%ScanKey,123) : Let Ende%=1   falls F12 gedrückt, beende das Programm

Wend

End                  Speicher wird released