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

Autor | Thema: Float, Long, Integer
Jörg Sellmeyer
| Datum:12.10.02 15:47 (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 (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 (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 (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 |