XProfan

Français

Jac
de
Lad

sais quelqu'un, comment je am besten un DWORDLONG dans einem Bereich definiere et auslesen peux (ensuite sûrement am besten comme Float)?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

02.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Jac
de
Lad

non plan pas! GlobalMemoryStatus venez pas avec 8GB bien sûr, deswegen gibts oui GlobalMemoryStatusEx!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

02.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

Geb doch fois le source à, wohin Du qui Struktur her la hâte...

Programmieren, das spannendste Detektivspiel der Welt.

02.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Michael
Wodrich

...et steht là aussi
prends GlobalMemoryStatus(MemoryStatusEx) ???

ou bien

prends GlobalMemoryStatusEx(MemoryStatusEx) ???

Programmieren, das spannendste Detektivspiel der Welt.

02.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Stümmt tu as droite, GlobalMemoryEx(). Allerdings venez ensuite toujours 0.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

02.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

exposition Dir meinen letzten Code nochmal à.
Oberste Struktur weg, qui 2. wieder aktivieren.
ensuite cela avec dem f! essayer (et dem lente à GB annähern).
si Du qui Ex Funk aufrufst sollte es maintenant marcher, sonst nochmal Dein korrigiertes Schnipsel posten.

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Kompilieren Marque Séparation

struct Memory=dwLength&,dwMemoryLoad&,dwTotalPhys&,dwAvailPhys&,dwTotalPageFile&,dwAvailPageFile&,dwTotalVirtual&,dwAvailVirtual&
struct Memory=dwLength&,dwMemoryLoad&,PhysLo&,PhysHi&,ullAvailPhys#(8),ullTotalPageFile#(8),ullAvailPageFile#(8),ullTotalVirtual#(8),ullAvailVirtual#(8),ullAvailExtendedVirtual#(8)
struct Memory=dwLength&,dwMemoryLoad&,ullTotalPhys#(8),ullAvailPhys#(8),ullTotalPageFile#(8),ullAvailPageFile#(8),ullTotalVirtual#(8),ullAvailVirtual#(8),ullAvailExtendedVirtual#(8)
cls
declare b#
declare f!
Dim b#,Memory
GlobalMemoryStatusEx(b#)
b#.dwLength&=SizeOf(b#)
Print Load: +Str$(b#.dwMemoryLoad&)
f! = b#.PhysHi& * 2^16 + b#.PhysLo&
Print TotalPhys: +Format$(#,0,f!)+ Bytes
Print TotalPhys: +Format$(#,0,b#.dwTotalPhys&/1024)+ KB
Print TotalPhys: +Format$(#,0,b#.dwTotalPhys&/(1024^2))+ MB
Print TotalPhys: +Format$(#,0,b#.dwTotalPhys&/(1024^3))+ GB
Print -Ende-
Dispose b#
waitinput
end

avec GlobalMemoryStatus venez 65.535, avec qui Ex-Funktion 0. je muss pour aujourd'hui Schluss faire.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

So fonctionne es chez mir....
Kompilieren Marque Séparation

 {$iq}
 $H f:profanincludewindows.ph
 $H f:profanincludestructs.ph
struct Memory=dwLength&,dwMemoryLoad&,PhysLo&,PhysHi&,ullAvailPhys#(8),ullTotalPageFile#(8),ullAvailPageFile#(8),ullTotalVirtual#(8),ullAvailVirtual#(8),ullAvailExtendedVirtual#(8)
MEMORYSTATUS = dwLength&,dwMemoryLoad&,dwTotalPhys&,dwAvailPhys&,dwTotalPageFile&,dwAvailPageFile&,dwTotalVirtual&,dwAvailVirtual&;
struct MemEx = dwLength&,
dwMemoryLoad&,
TotalPhysLo&,TotalPhysHi&,
AvailPhysLo&,AvailPhysHi&,
TotalPageFileLo&,TotalPageFileHi&,
AvailPageFileLo&,AvailPageFileHi&,
TotalVirtualLo&,TotalVirtualHi&,
AvailVirtualLo&,AvailVirtualHi&,
AvailExtendedVirtualLo&,AvailExtendedVirtualHi&
cls
declare b#
declare f!
Dim b#,MemEx
b#.dwLength&=SizeOf(b#)
External(~kernel32,GlobalMemoryStatusEx,b#)
Print Load: +Str$(b#.dwMemoryLoad&)
f! = b#.TotalPhysHi& * 2^32 + b#.TotalPhysLo&
Print TotalPhys: +Format$(#,0,f!)+ Bytes
Print TotalPhys: +Format$(#,0,f!/1024)+ KB
Print TotalPhys: +Format$(#,0,f!/(1024^2))+ MB
Print TotalPhys: +Format$(#,0,f!/(1024^3))+ GB
Print -Ende-
Dispose b#
waitinput
end

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

qui Längenangabe qui Struktur doit avant dem Aufruf gesetzt son.

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

là kämpfe je pour ihn, et il gibt simple sur...

...et cela so kurz avant dem but.

belle Grüße (et une gute nuit)
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

oui, stimmt, cela était mir eigentlich bewusst, cela hab je seulement übersehen. quand même liefert mir cela ensuite 4GB RAM anstelle de 8. autre Programme (zum Beispiel so un partie dans qui Sidebar) liefern mais cela korrekte Ergebnis).

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

Meins zeigt malheureusement seulement 511 MB.

chez sooo gewaltigen payons peux je malheureusement pas mitreden (et demzufolge aussi pas nachprüfen).

belle Grüße

Michael Wodrich

P.S.: Tricolore la fois vervollständigt
Kompilieren Marque Séparation

Keywords: Speicher, Memory, 64-Bit-Long
Systemspeicher durchleuchten
(sollte eigentlich auch mit gigas zurechtkommen)
jac/wod
 $H f:profanincludewindows.ph
struct MemEx = dwLength&,
dwMemoryLoad&,
TotalPhysLo&,TotalPhysHi&,
AvailPhysLo&,AvailPhysHi&,
TotalPageFileLo&,TotalPageFileHi&,
AvailPageFileLo&,AvailPageFileHi&,
TotalVirtualLo&,TotalVirtualHi&,
AvailVirtualLo&,AvailVirtualHi&,
AvailExtendedVirtualLo&,AvailExtendedVirtualHi&

Proc Zeige_Mem

    Parameters anzeigetext$, groesse!
    Declare Typ$
    Typ$ = Bytes

    If groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = KB

    EndIf

    If groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = MB

    EndIf

    If groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = GB

    EndIf

    Print    ;anzeigetext$; :, Format$(#,0,groesse!), Typ$

EndProc

cls
declare b#, f!
Dim b#, MemEx
b#.dwLength& = SizeOf(b#)
External(~kernel32,GlobalMemoryStatusEx,b#)
Print
Print    Load:  + Str$(b#.dwMemoryLoad&) + %
f! = b#.TotalPhysHi& * 2^32 + b#.TotalPhysLo&
Zeige_Mem(TotalPhys, f!)
f! = b#.AvailPhysHi& * 2^32 + b#.AvailPhysLo&
Zeige_Mem(AvailPhys, f!)
f! = b#.TotalPageFileHi& * 2^32 + b#.TotalPageFileLo&
Zeige_Mem(TotalPageFile, f!)
f! = b#.AvailPageFileHi& * 2^32 + b#.AvailPageFileLo&
Zeige_Mem(AvailPageFile, f!)
f! = b#.TotalVirtualHi& * 2^32 + b#.TotalVirtualLo&
Zeige_Mem(TotalVirtual, f!)
f! = b#.AvailVirtualHi& * 2^32 + b#.AvailVirtualLo&
Zeige_Mem(AvailVirtual, f!)
f! = b#.AvailExtendedVirtualHi& * 2^32 + b#.AvailExtendedVirtualLo&
Zeige_Mem(AvailExtendedVirtual, f!)
Print
Print -Ende nach Tastendruck-
Dispose b#
waitkey<

class=s4 href='./../../references-fonction/XProfan/end/'>end

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

quand même vielen Dank. (ici venons aussi seulement 8189MB à, mais es sais oui chacun quoi gemeint ist. c'est comment avec meinen 3 Terabyte-Platten, qui jeweils seulement 931GB avons, quoi pour un Betrug!).

Jac