XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Eingabebox für Text erstellen (Input-Box)
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie
eine vorgefertigte Inputbox erzeugt
werden kann und der eingegebene Text
in einer Messagebox ausgegeben wird.
Es bedeuten:
------------
Input$ - eingegebener Text
@MessageBox(S1,S2,N)             siehe Profan - Hilfe
@Input$(S1,S2,S3)                siehe Profan - Hilfe
-----------------------------------------------
declare Input$                   Variablen declarieren
Let Input$=@Input$(Wie heißen Sie:,Das ist eine vorgefertigte Eingabebox!,Name) InputBox erzeugen
@MessageBox(Add$(Sie heißen also ,Input$),AHA!,4160)                              Eingabe in Messagebox ausgeben
End                                                                                   Speicher freigeben