sorry - aber das problem versteh ich nicht wirklich -würde mal vorschlagen:
pseudocode:
-----------
dim op as variant
dim erg as variant
op = ""
erg = 0
solange keine rechenoperationstaste gedrückt (+,-,*,/)
zahl einlesen
ende solange
op = <gedrückte taste für rechenoperation>
if (op == "+")
erg = erg + val(textfeld)
if (op == "-")
erg = erg - val(testfeld)
if (op = "C")
erg = 0
if (op = "sin")
erg = sin(erg)
...
textfeld = str(erg)
fg
-hannes
|