XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text in Zahl umwandeln (String -> Integer)
Lauffähig ab Profan-Version 5.0
Erklärung:
-----------------
Dieses Programm zeigt, wie man einen
String in einen Integer und einen Integer in einen String umwandelt
String in Integer umwandeln
Val(String)
Integer in einen String umwandeln
Str$(Integer)
Add$(S,S1) : Mit diesem Befehl werden Strings zusammen gefügt
Add(N,N1)  : Mit diesem Befehl werden Intger-Werte addiert
-----------------
declare Wert%,Zeichenkette$   der Speicher für die Variablen wird reserviert
Let Wert% = 1     der Integer-Variable Wert% wird der Wert 2 zugewiesen
Let Zeichenkette$ = 2   der String-Variable Zeichenkette wird das Zeichen 2 zugewiesen
Cls   Standardfenster (640*480 Pixel) wird geöffnet
Print Wert 1:  + str$(Wert%)
Print
Print Wert 2:  + Zeichenkette$
Print
Print Umwandlung eines Strings in einen Integer   Text wird auf Bildschirm ausgegeben
Print Beide Werte werden addiert.
----------
Print Add(Wert%,Val(Zeichenkette$))  Beide Integer-Variablen werden addiert
----------
Print    Es wird eine Leerzeile erzeugt
Print Umwandeln eines Integers in einen String
Print Beide Strings werden hintereinander geschrieben
----------
Print Add$(Str$(Wert%),Zeichenkette$)  Beide String-Variablen werden zusammengefügt
----------
Print    Es wird eine Leerzeile erzeugt
Print    Es wird eine Leerzeile erzeugt
Print Taste drücken, um Programm zu beenden
Waitinput   Wartet auf Eingabe
End     Reservierter Speicher wird released