Autor | Thema: Rechnen mit Komma | | Datum:30.05.02 15:48 
(Tilo.Mayer@gmx.de) | |
Hallo,
ich habe mir die Version 4.5 runtergeladen und bin nun ein bischen am Probieren.
Nun meine Frage: wie bekomme ich hin das in einem Dialogfeld mit 3 Editfeldern ( wobei das 3 zur Ausgabe dienen soll ) duch betätigen des Button " Berechnen " die Berechnung und Ausgabe mit Kommastellen erfolgt. Ich komme da irgendwie nicht weiter.
Für eure Hilfe wäre ich dankbar.
MFG
Tilo
|
| | Datum:30.05.02 17:41 
(joerse@gmx.de) | |
Hallo Tilo,
Du mußt die Werte aus den ersten Editfeldern auslesen und in Zahlen umwandeln. Dann kannst Du damit weiterrechnen.
declare wert1!,wert2!,Ergebnis!
let wert1!=Val(GetText$(Edit1&))
let wert2!=Val(GetText$(Edit2&))
Let Ergebnis!=Mul(Wert1!,Wert2!)
SetText Edit3&,Str$(Ergebnis!)
Gruß
Jörg
|
| | Datum:04.06.02 21:09 
(info@web-treffpunkt.de) | |
Hallo Tilo
hallo Jörg
Bekannt ist, dass PROFAN.- sehr gut rechnen kann.
Jörg hat recht mit den Declarationen - 'bat' fehlt hier DECIMALS %
zum Zweiten würde ich kein Editfeld für das Ergebnis nehmen
CREATE("TEXT"...usw... bringt das besser
Vorher wegen der Optik CREATE("GROUPBOX....?
Im Moment habe ich grade ein etwas aufwendiges Rechenprogramm 'in der Mache', wenn Du, Tilo interessiert bist - meine E-Mail-Adresse steht hier.
Ich bin nicht der beste PROFANer, aber in den Rechenoptionen ganz gut
CU horst
|
| | Datum: 04.06.02 22:47 
(GTelzerow@T-Online.de) | |
Hallo Tilo,
Decimals 2
Declare Edit1&,Edit2&,Edit3&
Declare wert1!,wert2!,Ergebnis!
'und.....
let wert1!=@Val(@Translate$(GetText$(Edit1&),",","."))
let wert2!=@Val[@Translate$(GetText$(Edit2&),",","."))
let Ergebnis!=@Mul(Wert1!,Wert2!)
SetText Edit3&,@Translate$(@Str$(Ergebnis!),".",",")
MFG
Gerd
|
|
|