Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: Rechnen mit Komma
Tilo Mayer
Datum:30.05.02 15:48 Antwortenals Email verschicken (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


Jörg Sellmeyer
Datum:30.05.02 17:41 Antwortenals Email verschicken (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


Horst Horn
Datum:04.06.02 21:09 Antwortenals Email verschicken (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



Gerd Telzerow
Datum: 04.06.02 22:47 Antwortenals Email verschicken (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




 Zurück zur Übersicht
 

 Ein kostenloses WebMart Forum
WebMart Homepage Tools kostenlos
Shortwin - denn Glück ist kein Zufall!