XProfan

Julian
Schmidt

you shining the logische Operator "!=" not integrally clear To his. i'd moreover rather Verify whether small same 0.
your Zweiter-Error are Umlaute in 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:

whom Operator != as Substitute for "not" there in XProfan not.

@Garry: Diskgröße! is of type Float, means a Fließkommazahl -
ergo is Diskgröße!=DiskSize(Laufwerkbuchstabe$)/(1024*1024*1024) + " GB"
wrong there You here a Stringzusammenführung anweist (+" GB").

additionally, ROUND(Diskgröße!,3) rundet but the gerundete Result lay You nirgends
ex How z.B. diskgröße!=round(diskgröße!,3).

fundamentally: its from different Found not recommendable Umlaute äöüß
in Bezeichnern To use, even if XProfan so get by likes.

Julian
Schmidt

iF (18.02.13)

whom Operator != as Substitute for "not" there in XProfan not.

Jo, small read-Error Überfliegen.
reading Diskgröße!!=0 instead of Diskgröße!=0.
not desdotrotz existing != in XProfan not, separate only <>.

Gary12345

the are days where I me over ands over again think: "Wie stupid be I eig?" and these Error knows one eig. one finds tappt im dunkeln only not. either is the Köpfchen not there or one has not understands. I plädiere on drop1.

MfG
Gary12345

Gary12345

now another question: gives it a XPROFAN commands/function, the whom whole main memory read can and the belegten RAM moreover. unless, How would The dazugehörige API lauten. If I to main memory API and msdn library Search, find I no korrekte API.

XProfan X2
MfG
Gary12345

RGH

Hi,
its guter Programmierstil to and to Operators and Gleicheitszeichen one Leefeld To let. the increased The Lesbarkeit the Codes terrific!
to that second: ex XProfan X2 supply Disksize the Result too as Quadint back and can one Quadinit allocated go. with large Festplatten lead The Zuweisung To Floats To Ungenauigkeiten.

Greeting
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

thanks RGH

Irgendeine a idea to API?

XProfan X2
MfG
Gary12345

Julian
Schmidt

before You here ask position Please first Forum search. Sinnvolle Sucherbegriffe would about Ram, Mem, Mermory, memory etc.

Julian
Schmidt

Find z.B. that here. shining though not always To funzen.
Compile Mark Separation

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