XProfan

Julian
Schmidt

Usted scheint el logische Operator "!=" no bastante klar a ser. Yo sería außerdem mejor prüfen si kleiner igual 0.
Su Zweiter-Fehler son Umlaute en Variables.

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 != como Ersatz para "not" hay en XProfan no.

@Garry: Diskgröße! es vom Typ Float, also una Fließkommazahl -
ergo es Diskgröße!=DiskSize(Laufwerkbuchstabe$)/(1024*1024*1024) + " GB"
falso como Usted hier una Stringzusammenführung anweist (+" GB").

Zudem, ROUND(Diskgröße!,3) rundet aber el gerundete Ergebnis legst Usted nirgends
de como z.B. diskgröße!=round(diskgröße!,3).

Grundsätzlich: Es de verschiedenen Gründen no empfehlenswert Umlaute äöüß
en Bezeichnern utilizarse, auch si XProfan así klarkommen mag.

Julian
Schmidt

IF (18.02.13)

Den Operator != como Ersatz para "not" hay en XProfan no.

Jo, kleiner Lese-Fehler beim Überfliegen.
Las Diskgröße!!=0 anstatt Diskgröße!=0.
No desdotrotz existiert != en Xprofan no, pero sólo <>.

Gary12345

Das son Tage wo Yo siempre otra vez denke: "Wie dumm bin Yo eig?" Und esta Fehler sabe uno eig. Man findet ellos sólo no. Entweder es el Köpfchen no como oder uno ha no kapiert. Yo plädiere en Fall1.

MfG
Gary12345

Gary12345

Nun una otro Cuestión: Gibt lo una XPROFAN Befehl/Función, el el gesamten Arbeitsspeicher auslesen kann y el belegten RAM dazu. Wenn no, como sería el dazugehörige API lauten. Wenn Yo después de Arbeitsspeicher API y msdn library Búsqueda, finde Yo no korrekte API.

XProfan X2
MfG
Gary12345

RGH

¡Hola,
es guter Programmierstil antes y después de Operatoren y Gleicheitszeichen una Leefeld que se. Das aumenta el Lesbarkeit des Codes enorm!
Zum zweiten: Ab XProfan X2 liefert Disksize el Ergebnis auch como Quadint zurück y kann una Quadinit zugewiesen voluntad. En großen Festplatten führt el Zuweisung a Floats a Ungenauigkeiten.

Saludo
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

Gracias RGH

Irgendeine una Concepto a API?

XProfan X2
MfG
Gary12345

Julian
Schmidt

Antes du hier Fragen stellst Por favor, primero el Foro durchsuchen. Sinnvolle Sucherbegriffe wäre etwa Ram, Mem, Mermory, Speicher etc.

Julian
Schmidt

Find z.B. que aquí. Scheint allerdings no siempre a funzen.
Kompilieren Marca Separación

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