XProfan

Julian
Schmidt

Dir scheint der logische Operator "!=" nicht ganz klar zu sein. Ich würde außerdem besser prüfen ob kleiner gleich 0.
Dein Zweiter-Fehler sind Umlaute in Variablen.

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

@Julian:

Den Operator != als Ersatz für "not" gibt es in XProfan nicht.

@Garry: Diskgröße! ist vom Typ Float, also eine Fließkommazahl -
ergo ist Diskgröße!=DiskSize(Laufwerkbuchstabe$)/(1024*1024*1024) + " GB"
falsch da Du hier eine Stringzusammenführung anweist (+" GB").

Zudem, ROUND(Diskgröße!,3) rundet aber das gerundete Ergebnis legst Du nirgends
ab wie z.B. diskgröße!=round(diskgröße!,3).

Grundsätzlich: Es ist aus verschiedenen Gründen nicht empfehlenswert Umlaute äöüß
in Bezeichnern zu verwenden, auch wenn XProfan damit klarkommen mag.

Julian
Schmidt

iF (18.02.13)

Den Operator != als Ersatz für "not" gibt es in XProfan nicht.

Jo, kleiner Lese-Fehler beim Überfliegen.
Las Diskgröße!!=0 anstatt Diskgröße!=0.
Nicht desdotrotz existiert != in Xprofan nicht, sondern nur <>.

Gary12345

Das sind Tage wo ich mir immer wieder denke: "Wie dumm bin ich eig?" Und diese Fehler kennt man eig. Man findet sie nur nicht. Entweder ist das Köpfchen nicht da oder man hat es nicht kapiert. Ich plädiere auf Fall1.

MfG
Gary12345

Gary12345

Nun eine andere Frage: Gibt es einen XPROFAN Befehl/Funktion, der den gesamten Arbeitsspeicher auslesen kann und den belegten RAM dazu. Wenn nicht, wie würde die dazugehörige API lauten. Wenn ich nach Arbeitsspeicher API und msdn library Suche, finde ich keine korrekte API.

XProfan X2
MfG
Gary12345

RGH

Hallo,
es ist guter Programmierstil vor und nach Operatoren und Gleicheitszeichen ein Leefeld zu lassen. Das erhöht die Lesbarkeit des Codes enorm!
Zum zweiten: Ab XProfan X2 liefert Disksize das Ergebnis auch als Quadint zurück und kann einem Quadinit zugewiesen werden. Bei großen Festplatten führt die Zuweisung zu Floats zu Ungenauigkeiten.

Gruß
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Gary12345

Danke RGH

Irgendeine eine Idee zur API?

XProfan X2
MfG
Gary12345

Julian
Schmidt

Bevor du hier Fragen stellst bitte erstmal das Forum durchsuchen. Sinnvolle Sucherbegriffe wäre etwa Ram, Mem, Mermory, Speicher etc.

Julian
Schmidt

Find z.B. das hier. Scheint allerdings nicht immer zu funzen.
Kompilieren Markieren Separieren

Proc ShowMemoryStatus

    Parameters Wert%' 1=Gesamter Ram, 2=Ram Frei, 3= Ram belegt, 4=Ram-Verbrauch in %
    declare ramfrei&,gesamterram&,prozent&,ramverwendet&,MemStat#
    Def GlobalMemoryStatus(1) !"KERNEL32","GlobalMemoryStatus"
    Def Mbyte(1) Round(&(1)/$0100000,0)
    Dim MemStat#,32
    Long MemStat#,0=32
    GlobalMemoryStatus(MemStat#)
    prozent&=Long(MemStat#,4)
    gesamterram&=MByte(Long(MemStat#,8))

    if gesamterram&<0

        ramfrei&=MByte(Long(MemStat#,12))
        ramfrei&=ramfrei&*100
        gesamterram&=ramfrei&/prozent&

    Endif

    ramfrei&=MByte(Long(MemStat#,12))
    ramverwendet&=gesamterram&-ramfrei&
    Dispose MemStat#
    case Wert%=1 : return gesamterram&
    case Wert%=2 : return ramfrei&
    case Wert%=3 : return ramverwendet&
    case Wert%=4 : return prozent&

EndProc

Cls
Decimals 0

while 1

    print Str$(ShowMemoryStatus(4)) + "% Physikalischer Speicher verwendet"
    print Str$(ShowMemoryStatus(1)) + "MB Physikalischer Speicher"
    print Str$(ShowMemoryStatus(2)) + "MB Physikalischer Speicher frei"
    print Str$(ShowMemoryStatus(3)) + "MB Physikalischer Speicher belegt"
    sleep 300
    cls

Endwhile