XProfan

Español

¡Hola a todos...
Frank Abbing ha con el Darstellung el Speichergrössen-Angaben de mi Untertool Sistema-Informationen Problemas. En algunos Werten zeigt ser Sistema una MInuszeichen antes el Werten y el Werte son falso !
Hier Yo el código (vereinfacht) mitgeliefert y hoffe en Tipps. Auf mi sistema voluntad el Werte nämlich einwandfrei adecuado. Im Hilo Was es eigentlich... son unos pocos Screenshots el dazu gemacht fueron.
Kompilieren Marca Separación

DECLARE sp%,ze%,steig%
sp%=10:ze%=20:steig%=30
DECLARE Memorystatus#
DECLARE speicher$,physik$,freiP$,auslg$,ausF$,virtuell$,virtuellF$,I%
------------------------------------------------------------------------------------------

PROC SPEICHER_ANZEIGE

    USEFONT COURIER NEW,18,0,0,0,0
    Def Globalmemorystatus(1) !KERNEL32,GlobalMemoryStatus
    Decimals 2
    Dim Memorystatus#,32
    Long Memorystatus#,0=32
    Globalmemorystatus(Memorystatus#)
    -----------------------------------------------------------------------------------------
    speicher$=Str$(Long(Memorystatus#,4))
    I%=LEN(speicher$)
    case LT(I%,9):speicher$=MKSTR$( ,9-I%)+speicher$
    DrawText sp%,ze%, 1.  Speicher in Gebrauch:               +speicher$+ %
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    physik$=Str$(((Long(Memorystatus#,8)/1024)/1024))
    I%=LEN(physik$)
    case LT(I%,12):physik$=MKSTR$( ,12-I%)+physik$
    DrawText sp%,ze%, 2.  Physikalischer Speicher gesamt:     +physik$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    freiP$=Str$(((Long(Memorystatus#,12)/1024)/1024))
    I%=LEN(freiP$)
    case LT(I%,12):freiP$=MKSTR$( ,12-I%)+freiP$
    DrawText sp%,ze%, 3.  Freier physikalischer Speicher:     +freiP$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    auslg$=Str$(((Long(Memorystatus#,16)/1024)/1024))
    I%=LEN(auslg$)
    case LT(I%,12):auslg$=MKSTR$( ,12-I%)+auslg$
    DrawText sp%,ze%, 4.  Größe der Auslagerungsdatei:        +auslg$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    ausF$=Str$(((Long(Memorystatus#,20)/1024)/1024))
    I%=LEN(ausF$)
    case LT(I%,12):ausF$=MKSTR$( ,12-I%)+ausF$
    DrawText sp%,ze%, 5.  Frei in der Auslagerungsdatei:      +ausF$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    virtuell$=Str$(((Long(Memorystatus#,24)/1024)/1024))
    I%=LEN(virtuell$)
    case LT(I%,12):virtuell$=MKSTR$( ,12-I%)+virtuell$
    DrawText sp%,ze%, 6.  Gesamter virtueller Speicher:       +virtuell$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    virtuellF$=Str$(((Long(Memorystatus#,28)/1024)/1024))
    I%=LEN(virtuellF$)
    case LT(I%,12):virtuellF$=MKSTR$( ,12-I%)+virtuellF$
    DrawText sp%,ze%, 7.  Freier virtueller Speicher:         +virtuellF$+ MB
    -----------------------------------------------------------------------------------------
    Dispose Memorystatus#

ENDPROC

####################################################
CLS
speicher_anzeige
Waitinput
s4 href='./../../funktionsreferenzen/XProfan/end/'>end

Gracias en el Voraus para Ayuda
Gruss
horst

19.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola,

como XProfan sólo vorzeichenbehaftete Longints sabe, el a máximo knapp encima 2 Mia. ir, puede de su programa no Speichergrößen encima 2 GB adecuado voluntad.

Der Valor, el Usted con Größe el Auslagerungsdatei angibst, es aber offensichtlich el größte zugesicherte Speicher, also Physikalischer Speicher + Auslagerungsdatei (Size of the committed memory limit). En Systemen con 1024 MB RAM beträgt dieser aber en el Regel más que 2 GB.

Solución: Wenn el MB-Valor negativo es, addiere simplemente 4096 dazu y el Ergebnis stimmt. Auf esta Weise puede Werte a a 4 GB adecuado voluntad .... y mehr schafft auch el de Usted verwandte API no.

Saludo
Roland

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

19.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Roland
Gracias para rápido Ayuda.
Dann voluntad Yo dochmal media Speicher aufrüsten (ahora todavía 512). Danach kann Yo sí entonces con uno IF...ENDIF - Bucle auch el Fall lösen

Gruss
horst

19.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Un Bucle braucht no. Mit el Función OhneVorzeichen(Wert&) es komfortabler:
Kompilieren Marca Separación

DECLARE sp%,ze%,steig%
sp%=10:ze%=20:steig%=30
DECLARE Memorystatus#
DECLARE speicher$,physik$,freiP$,auslg$,ausF$,virtuell$,virtuellF$,I%
------------------------------------------------------------------------------------------

PROC OhneVorzeichen

    Parameters Wert&
    Return If(Wert& < 0, Int(Wert& + 4096), Wert&)

ENDPROC

PROC SPEICHER_ANZEIGE

    USEFONT COURIER NEW,18,0,0,0,0
    Def Globalmemorystatus(1) !KERNEL32,GlobalMemoryStatus
    Decimals 2
    Dim Memorystatus#,32
    Long Memorystatus#,0=32
    Globalmemorystatus(Memorystatus#)
    -----------------------------------------------------------------------------------------
    speicher$=Str$(Long(Memorystatus#,4))
    I%=LEN(speicher$)
    case LT(I%,9):speicher$=MKSTR$( ,9-I%)+speicher$
    DrawText sp%,ze%, 1.  Speicher in Gebrauch:               +speicher$+ %
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    physik$=Str$(OhneVorzeichen((Long(Memorystatus#,8)/1024)/1024))
    I%=LEN(physik$)
    case LT(I%,12):physik$=MKSTR$( ,12-I%)+physik$
    DrawText sp%,ze%, 2.  Physikalischer Speicher gesamt:     +physik$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    freiP$=Str$(OhneVorzeichen((Long(Memorystatus#,12)/1024)/1024))
    I%=LEN(freiP$)
    case LT(I%,12):freiP$=MKSTR$( ,12-I%)+freiP$
    DrawText sp%,ze%, 3.  Freier physikalischer Speicher:     +freiP$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    auslg$=Str$(OhneVorzeichen((Long(Memorystatus#,16)/1024)/1024))
    I%=LEN(auslg$)
    case LT(I%,12):auslg$=MKSTR$( ,12-I%)+auslg$
    DrawText sp%,ze%, 4.  Maximal zugesicherter Speicher:     +auslg$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    ausF$=Str$(OhneVorzeichen((Long(Memorystatus#,20)/1024)/1024))
    I%=LEN(ausF$)
    case LT(I%,12):ausF$=MKSTR$( ,12-I%)+ausF$
    DrawText sp%,ze%, 5.  Freier zugesicherter Speicher:      +ausF$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    virtuell$=Str$(OhneVorzeichen((Long(Memorystatus#,24)/1024)/1024))
    I%=LEN(virtuell$)
    case LT(I%,12):virtuell$=MKSTR$( ,12-I%)+virtuell$
    DrawText sp%,ze%, 6.  Gesamter virtueller Speicher:       +virtuell$+ MB
    Add ze%,steig%
    -----------------------------------------------------------------------------------------
    virtuellF$=Str$(OhneVorzeichen((Long(Memorystatus#,28)/1024)/1024))
    I%=LEN(virtuellF$)
    case LT(I%,12):virtuellF$=MKSTR$( ,12-I%)+virtuellF$
    DrawText sp%,ze%, 7.  Freier virtueller Speicher:         +virtuellF$+ MB
    -----------------------------------------------------------------------------------------
    Dispose Memorystatus#

ENDPROC

####################################################
CLS
speicher_anzeige
Waitinput<