| |
|
|
Gary12345 | Servus, KompilierenMarcaSeparaciónWindow %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! |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
| @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. |
|
|
| |
|
|
|
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 <>. |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
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 X2Intel 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? |
|
|
| |
|
|
|
Julian Schmidt | Antes du hier Fragen stellst Por favor, primero el Foro durchsuchen. Sinnvolle Sucherbegriffe wäre etwa Ram, Mem, Mermory, Speicher etc. |
|
|
| |
|
|
|
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
|
|
|
| |
|
|
|
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#
| 18.02.2013 ▲ | |
|
|
|
|
Julian Schmidt | Such veces Div en el Xprofan-Ayuda. Kommst ya todavía en él
Ist oben auch anders ^ ^ |
|
|
| |
|
|