XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Editfelder (Rechnen)
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Einfaches Rechnen mit Editfeldern
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    05.01.2001
-----------------------------------------------
Erklärung:
----------
Ganz einfach 2 Editfelder erstellen,
Werte ermitteln und in einem 3ten Editfeld
das Ergebnis von Feld1 und Feld2 anzeigen.
-----------------------------------------------
Variablen vorbereiten
Declare Variable1%,Variable2%,Ergebnis%
Declare Variable1$,Variable2$,Ergebnis$
Declare ende%
Declare Eingabe1%,Eingabe2%,Button1%,Anzeige%
Window 50,50 - 300,250 						Fenster erstellen
Cls @RGB(23,23,23)						Farbe fürs Fenster mittels den RotGrünBlau Werten
Windowtitle Einfaches Berechnen üben (von R.Koch)		Fenstertitel
CreateText(%hwnd,Bitte Zahl 1 eingeben:,20,49,108,17)		Textfeld
CreateText(%hwnd,Bitte Zahl 2 eingeben:,19,77,108,17)		Textfeld
Let Eingabe1%=CreateEdit(%hwnd,,131,42,121,21)		Editfeld No. 1
Let Eingabe2%=CreateEdit(%hwnd,,130,69,121,21)		Editfeld No. 2
Let Button1%=CreateButton(%hwnd,Berechnen,20,110,122,25)	Button zum Rechnen
Let Anzeige%=CreateEdit(%hwnd,,130,150,121,21)		Editfeld No. 3 (Ergebnis)
CreateText(%hwnd,Ergebnis:,20,158,70,17)			Textfeld

WhileNot ende%							Solange Ende%=0

    wird bei Ereignis auf 1 gesetzt
    waitinput							Warten auf Maus (Reaktion)

    if @getfocus(Button1%)						 wenn Berechnenknopf gedrückt wurde

        let Variable1$=@gettext$(Eingabe1%)				Variable1 Text von Editfeld No. 1 zuweisen
        let Variable2$=@gettext$(Eingabe2%)				Variable2 Text von Editfeld No. 2 zuweisen
        let Variable1%=Variable1$    				In rechenbares Format bringen.
         $=Text %=Zahl (Ganzzahl)
        let Variable2%=Variable2$					Dito
        Hier nun berechnen:
        let Ergebnis%=@add(Variable1%,Variable2%)			Ergebnis=Variable1 + Variable2
        Nochmals in String setzen:
        let Ergebnis$=Ergebnis%					Zahl (das %) in Text ($ nennt man auch String) umwandeln
        Ins Ergebnisfeld setzen:
        settext Anzeige%,Ergebnis$					Das Ergebnis in das Editfeld No. 3 sezten
        endif								das Ende zur Bedingung mit der Buttonabfrage
        Wend								Schleifenende (siehe oben  href='./../../function-references/xprofan/solange/'>Solange Ende%=0)