Devisenrechner

Devisenrechner

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE RADIOBUTTON&[4], EDIT&[2], BUTTON&, ENDE&, Group&, Ergebnis!

Def !DMDollar 0.5814
Def !DollarDM 1.72
Def !DMEuro 0.5113
Def !EuroDM 1.9558

Proc Devisen
If @GetCheck(RADIOBUTTON&[1]) = 1
Ergebnis! = VAL(GetText$(EDIT&[1])) * !DMDollar
SetText EDIT&[2],str$(Ergebnis!) + " $"
EndIf
If @GetCheck(RADIOBUTTON&[2]) = 1
Ergebnis! = VAL(GetText$(EDIT&[1])) * !DollarDM
SetText EDIT&[2],str$(Ergebnis!) + " DM"
EndIf
If @GetCheck(RADIOBUTTON&[3]) = 1
Ergebnis! = VAL(GetText$(EDIT&[1])) * !DMEuro
SetText EDIT&[2],str$(Ergebnis!) + " €"
EndIf
If @GetCheck(RADIOBUTTON&[4]) = 1
Ergebnis! = VAL(GetText$(EDIT&[1])) * !EuroDM
SetText EDIT&[2],str$(Ergebnis!) + " DM"
EndIf
EndProc

WINDOWSTYLE 24
WINDOWTITLE "Devisenrechner"
WINDOW (%maxx/2 - 352/2),(%maxy/2 - 185/2) - 352,185
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1

Group& = @Create("GroupBox",%hwnd,"Auswahl",005,005,110,140)
RADIOBUTTON&[1] = CREATE("RADIOBUTTON",%hwnd,"DM in Dollar", 012,022,100,020)
RADIOBUTTON&[2] = CREATE("RADIOBUTTON",%hwnd,"Dollar in DM", 012,052,100,020)
RADIOBUTTON&[3] = CREATE("RADIOBUTTON",%hwnd,"DM in Euro", 012,082,100,020)
RADIOBUTTON&[4] = CREATE("RADIOBUTTON",%hwnd,"Euro in DM", 012,112,100,020)
EDIT&[1] = CREATE("EDIT",%hwnd,"",0214,0018,0120,0020)
EDIT&[2] = CREATE("EDIT",%hwnd,"",0214,0113,0120,0020)
CREATE("TEXT",%hwnd,"Eingabe:", 150,017,062,020)
CREATE("TEXT",%hwnd,"Ergebnis:",150,112,059,020)
BUTTON& = CREATE("BUTTON",%hwnd,"Rechne",214,060,121,030)
SetCheck RADIOBUTTON&[1],1
SETFOCUS(%hwnd)
WHILENOT ENDE&
WAITINPUT
If %KEY=2
ENDE& = 1
ELSEIF CLICKED(BUTTON&)
Devisen
ENDIF
ENDWHILE
END