Anregungen und Vorschläge zu PROFAN
Hier können Vorschläge für künftige PROFAN-Versionen, Ausgestaltung der PROFAN-Seiten und -Foren, etc. gemacht werden.
  Suchen
 Zurück zur Übersicht
 AutorThema: Float, Long, Integer
Jörg Sellmeyer
Datum:12.10.02 15:47 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo,
Hier ist etwas seltsam. Floatvariablen sind doch eigentlich für einem Wert
bis zu 4 Milliarden vorgesehen.
Mit Rnd wird in der Floatvariablen aber nur bis ca. 32000 gespeichert.
Ich weiß, dass Rnd nur ganze Zahlen ausgibt, aber es sollte doch trotzdem
funktionieren.

Cls

Declare lb&,z!,x&

lb&=CreateSortedListBox(%hwnd,"",200,40,200,300)

Decimals 1
Randomize
WhileLoop 100
   z!=Rnd(20000000.0)
   x&=Rnd(20000000)
   'z!=1000000000
   AddString Format$("00000000",z!)' + "=" + str$(z!)
   AddString Format$("00000000",x&)' + "=" + str$(z!)
Wend

MoveListToList(lb&)
SendMessage(lb&,$0186,GetCount(lb&) - 1,0)
Print "Ich bin die größte: " + Str$(Val(GetString$(lb&,GetCount(lb&) - 1)))
WaitInput


Gruß
Jörg


Dietmar Horn
Datum:12.10.02 19:26 Antwortenals Email verschicken (mmj-hoyerswerda@gmx.de) 


Hallo Jörg,

bei mir funktioniert Dein Code richtig.

Die größte Zahl liegt immer bei knapp unter 20000000.

Profan² 7.5 und Win 98

MfG
Dietmar




Jörg Sellmeyer
Datum:13.10.02 02:06 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Horst,
Hast Du denn auch mal die Zeile:
AddString Format$("00000000",x&)
auskommentiert ?
Gruß
Jörg


Roland G. Hülsmann
Datum: 13.10.02 12:48 Antwortenals Email verschicken (rgh-soft@t-online.de) 


Hallo Jörg,

hier handelt es sich um ein Relikt aus alten Tagen. In der nächsten Version gilt einheitlich die LongInt-Grenze!
In der aktuellen Version gilt bei direkter Zuweisung an eine Floatvariable in der Tat die "alte" Integerbegrenzung! Workaround: Zunächst einer Longvariablen zuweisen und diese dann der Floatvariablen.

Gruß
Roland



 Zurück zur Übersicht
 

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