XProfan

Italia

Pedro
Santos

Hallo Profaner Kann mir bitte jemand erklären warum das nicht richtig berechnet wird? Danke Gruss Pedro Kompilieren Markieren Separieren declare a!,a$,total!,b$,b!,b& @Set("Decimals",2) cls b$ = "12" b& = @val(b$) a$="0,35" a!= @val(a$) total!= a!*b& print total! waitinput
Windows XP Home Xprofan 10	14.05.2006 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Hi wegen dem Komma. Es muss ein Punkt in a$ sein. Aber einfach ne zusätzliche case Abfrage und schon gehts Kompilieren Markieren Separieren declare a!,a$,total!,b$,b!,b& @Set("Decimals",2) cls b$ = "12" b& = @val(b$) a$="0,35" case instr(",",a$):a$=translate$(a$,",",".") a!= @val(a$) total!= a!*b& print total! waitinput
	14.05.2006 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

Pedro
Santos

Danke Dir Rolf

Wie immer sehr schnell

Gruss

Pedro

Windows XP Home
Xprofan 10

14.05.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Clemens
Meier

Kompilieren Markieren Separieren

Case Instr(",",A$):A$=Translate$(A$,",",".")

Wenn man damit rechnen kann, dass immer wieder das Komma anstatt des Punktes vorkommt (z.B. wegen eines Inputs), kann man das Case einfach weglassen und direkt übersetzen:
Kompilieren Markieren Separieren