Español
Foro

Updatechecker

 

Gary12345
Servus,
KompilierenMarcaSeparación
Window %MaxX*0.1,%Maxy*0.1-%MaxX*0.3,%MaxX*0.3
WindowTitle "Updatechecker"
WindowStyle 31
declare Ende&,Diskgröße!

Proc DiskGröße

    Parameters Laufwerkbuchstabe$'String
    set("decimals",2)
    Diskgröße!=DiskSize(Laufwerkbuchstabe$)/(1024*1024*1024) + " GB"
    ROUND(Diskgröße!,3)

    If Diskgröße!=0

        print %Error
        MESSAGEBOX("Laufwerk nicht vorhanden oder nicht lesbar!","Error X0001",0)

    Else

        Return Diskgröße!

    EndIf

EndProc

'#################################
'APPENDMENU
PopUp "&Programm"
AppendMenu 101, "Updatestatus ermitteln"
AppendMenu 102, "Festplattenstatus ermitteln"
AppendMenu 103, "AutoStartLister"
AppendMenu 104, "Aktuelle Updates"
PopUp "&Sonstiges"
SubPopUp "Sonstiges"
AppendMenu 105, "Über den Autor"
AppendMenu 106, "Über das Programm"
AppendMenu 107, "Spende"
EndSub
AppendMenu 108, "Beenden"
'################################
print %Error
DiskGröße("C:")
print %Error

Whilenot Ende&=1

EndWhile


Was va como erróneo? Blöde Cuestión, pero yo weiß no más. Könnte evtl. una Sammelthread voluntad, como dies una größeres Projekt es.

Gracias!
 
XProfan X2
MfG
Gary12345
18.02.2013  
 




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 [...] 
18.02.2013  
 



@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.
 
18.02.2013  
 




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 <>.
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
18.02.2013  
 




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
18.02.2013  
 




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
18.02.2013  
 




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
18.02.2013  
 




Gary12345
Gracias RGH Irgendeine una Concepto a API?
 
XProfan X2
MfG
Gary12345
18.02.2013  
 




Julian
Schmidt
Antes du hier Fragen stellst Por favor, primero el Foro durchsuchen. Sinnvolle Sucherbegriffe wäre etwa Ram, Mem, Mermory, Speicher etc.
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
18.02.2013  
 




Julian
Schmidt
Find z.B. que aquí. Scheint allerdings no siempre a funzen.
KompilierenMarcaSeparació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

 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
18.02.2013  
 




Gary12345
:/ Hab como otro Lösungen gefunden:
KompilierenMarcaSeparación
Proc ShowMemoryStatus

    Def GlobalMemoryStatus(1) !"KERNEL32","GlobalMemoryStatus"
    Def Mbyte(1) Round(Div(&(1),$0100000),0)
    Dim MemStat#,32
    Long MemStat#,0=32
    GlobalMemoryStatus(MemStat#)
    Print Str$(Long(MemStat#,4))+"% Speicherauslastung"
    Print MByte(Long(MemStat#,8))+"MB gesamter physik. Speicher"
    Print MByte(Long(MemStat#,12))+"MB physik. Speicher frei"
    Print MByte(Long(MemStat#,16))+"MB max. Größe der Swapdatei"
    Print MByte(Long(MemStat#,20 ))+"MB max. in Swapdatei belegbar"
    Print MByte(Long(MemStat#,24))+"MB max. virtueller Speicher für Prozess"
    Print MByte(Long(MemStat#,28))+"MB max. virtueller Speicher für Prozess aktuell verfügbar"
    Dispose MemStat#

XProfan X2
MfG
Gary12345
18.02.2013  
 




Julian
Schmidt
Such veces Div en el Xprofan-Ayuda. Kommst ya todavía en él

Ist oben auch anders ^ ^
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
18.02.2013  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

20.036 Views

Untitledvor 0 min.
Gast.081516.07.2024
Peter Max Müller13.11.2017
Claus de Lieth18.10.2017
Herby15.08.2017
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie