XProfan

Julian
Schmidt

Dir scheint qui logische Operator "!=" pas entier bien sûr trop son. je serait aussi besser vérifier si kleiner juste 0.
Dein Zweiter-faute sommes Umlaute dans 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 != comme Ersatz pour "not" gibt es dans XProfan pas.

@Garry: Diskgröße! ist vom Typ Float, alors une Fließkommazahl -
ergo ist Diskgröße!=DiskSize(Laufwerkbuchstabe$)/(1024*1024*1024) + " GB"
faux là Du ici une Stringzusammenführung anweist (+" GB").

Zudem, ROUND(Diskgröße!,3) tours mais cela gerundete Ergebnis legst Du nirgends
ab comment z.B. diskgröße!=round(diskgröße!,3).

Grundsätzlich: c'est aus verschiedenen Trouvé pas empfehlenswert Umlaute äöüß
dans Bezeichnern trop verwenden, aussi si XProfan avec cela klarkommen mag.

Julian
Schmidt

iF (18.02.13)

Den Operator != comme Ersatz pour "not" gibt es dans XProfan pas.

Jo, kleiner Lese-faute beim Überfliegen.
Las Diskgröße!!=0 anstatt Diskgröße!=0.
pas desdotrotz existiert != dans Xprofan pas, mais seulement <>.

Gary12345

ce sont Tage wohin je mir toujours wieder denke: "Wie dumm suis je eig?" et cet faute kennt on eig. on findet vous seulement pas. Entweder ist cela Köpfchen pas là ou bien on hat es pas kapiert. je plädiere sur le cas1.

MfG
Gary12345

Gary12345

eh bien une autre Frage: Gibt es une XPROFAN Befehl/Funktion, qui den gesamten Arbeitsspeicher auslesen peux et den belegten RAM en supplément. si pas, comment serait qui dazugehörige API lauten. si je pour Arbeitsspeicher API et msdn library cherche, finde je aucun korrekte API.

XProfan X2
MfG
Gary12345

RGH

Salut,
c'est bon Programmierstil avant et pour Operatoren et Gleicheitszeichen un Leefeld trop laisser. cela augmenté qui Lesbarkeit des Codes enorm!
Zum zweiten: Ab XProfan X2 liefert Disksize cela Ergebnis aussi comme Quadint zurück et peux einem Quadinit zugewiesen volonté. chez grand Festplatten führt qui Zuweisung trop Floats trop Ungenauigkeiten.

Salut
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

merci RGH

Irgendeine une concept zur API?

XProfan X2
MfG
Gary12345

Julian
Schmidt

Bevor du ici Fragen stellst s'il te plaît erstmal cela Forum fouiller. Sinnvolle Sucherbegriffe wäre etwa Ram, Mem, Mermory, grenier etc.

Julian
Schmidt

Find z.B. que voici. Scheint allerdings pas toujours trop funzen.
Kompilieren Marque Séparation

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