Hallo Xeno,
schade, trotzdem erst einmal Danke.
Was heißt bzw. bedeutet „nicht mit den Standardmitteln“ ? Wie und wo kann ich mich informieren ?
Schönes WE und
mfG
Man liest sich...
Euer Ritzelrocker04
Hallo Xeno,
schade, trotzdem erst einmal Danke.
Was heißt bzw. bedeutet „nicht mit den Standardmitteln“ ? Wie und wo kann ich mich informieren ?
Schönes WE und
mfG
Man liest sich...
Euer Ritzelrocker04
Hallo,
ich nutze Mozilla Firefox 20011. Include Anhänge (<bla>;) fehlen (siehe Bernd670), wie auch Script-Einzüge nicht richtig übertragen werden (zB in Schleifen).
Schönes WE und
mfG
Man liest sich...
Euer Ritzelrocker04
Hi GtaSpider ,
(#Include, zeile 1 u. 2) fehlen ? Sonst gefällt es mir gut !
Schönes WE und
weiterhin
viel Spaß !
Man liest sich...
Euer Ritzelrocker04
Hallo,
entsprechend zum Thema und bei Verwendung zweier Fortschrittsbalken, hat sich eine weitere Frage in den Vordergrund gedrängt:
Gibt es eine Möglichkeit, einen der beiden Fortschrittsbalken eine andere Farbe zu geben ?
Schönes WE und
Danke
Man liest sich...
Euer Ritzelrocker04
Hallo,
auch vom Ritzelrocker04: „Schöne Feiertage und einen guten Rutsch ins neue Jahr “ an Alle.
Schönes WE und
weiterhin viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hi,
ja dass sieht noch besser aus. Aber dafür fehlen mir noch die Erfahrungen (der Meister hat immer noch einen Tipp parat). Dennoch habe ich mal wieder ein bisschen mitgenommen.
Danke
Man liest sich...
Euer Ritzelrocker04
Hallo,
ich habe es jetzt einmal so erstellt, es scheint es läuft ? Die Ausführungen klingen logisch, durch „Global“ behalten die Variablen ihre Gültigkeit auch in der Funktion.
(sollten die Einzüge nicht gehen, dann siehe Anhang)
; by Ritzelrocker04
; mit Hilfe von Oscar
#include <GUIConstants.au3>
#include <String.au3>
#NoTrayIcon
Global $src_LW = "C:\";<= Hier die Anpassung vornehmen!
Global $dest_LW = "D:\";<= Hier die Anpassung vornehmen!
$GUI = GUICreate("SpaceBar v 1.0", 478, 50, -1, 3, $WS_POPUPWINDOW)
$pg_Quelle = GUICtrlCreateProgress(8, 8, 230, 17)
$pg_Ziel = GUICtrlCreateProgress(240, 8, 230, 17)
$tb_Quelle = GUICtrlCreateInput("", 8, 27, 230, 21, $ES_READONLY)
$tb_Ziel = GUICtrlCreateInput("", 240, 27, 230, 21, $ES_READONLY)
$trackmenu = GuiCtrlCreateContextMenu ()
$aboutitem = GuiCtrlCreateMenuitem ("About",$trackmenu)
GuiCtrlCreateMenuitem ("",$trackmenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$trackmenu)
GuiSetState()
[/autoit] [autoit][/autoit] [autoit]_Update()
[/autoit] [autoit][/autoit] [autoit]AdlibEnable("_Update") ; Empfehlung AdlibEnable("_Update", 300000) = 5min
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GuiGetMsg()
If $msg = $exititem Or $msg = -3 Or $msg = -1 Then ExitLoop
If $msg = $aboutitem Then Msgbox(0,"About", "SpaceBar v 1.0.06" & @CRLF & "Build 2007-12-18" & @CRLF & "Copyright by Ritzelrocker04 !")
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit] [autoit][/autoit] [autoit]Func _Update()
[/autoit] [autoit][/autoit] [autoit]; Quelle
$VOL_Quelle = DriveGetLabel($src_LW)
$TOTAL_Quelle = DriveSpaceTotal($src_LW)
$FREE_Quelle = DriveSpaceFree($src_LW)
$FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
$i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")
GUICtrlSetData($pg_Quelle,$i_Progress_Quelle)
GUICtrlSetData($tb_Quelle,"Auf " & $VOL_Quelle & " sind "& $FREE_Quelle_MB & " MB frei")
; Ziel
$VOL_Ziel = DriveGetLabel($dest_LW)
$TOTAL_Ziel = DriveSpaceTotal($dest_LW)
$FREE_Ziel = DriveSpaceFree($dest_LW)
$FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
$i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")
GUICtrlSetData($pg_Ziel,$i_Progress_Ziel)
GUICtrlSetData($tb_Ziel,"Auf " & $VOL_Ziel & " sind "& $FREE_Ziel_MB & " MB frei")
EndFunc ; ==> AdlibEnable("_Update")
[/autoit]Danke an Oscar
Man liest sich...
Euer Ritzelrocker04
Hallo Oscar,
ah, wir beide wieder. Vorerst meinen Dank an Ihm und ich werde mich mal in diese Richtung orientieren.
Man liest sich...
Euer Ritzelrocker04
Hallo Xeno,
danke für Seinen Tipp, er ist mir nicht entgangen und ich kann erst jetzt reagieren.
Über eine Erläuterung die etwas ausführlicher ausfällt würde ich mich freuen.
Man liest sich...
Euer Ritzelrocker04
Hallo,
gestern hat mich Oscar auf einen Denkfehler hingewiesen (siehe Post 2).
Ich habe mich informiert und möchte mich berichtigen:
1.000 Millisekunden = 1 Sekunde
60 Sekunden = 1Minute
von 5 min war die Rede, also 1.000x60x5=300.000 Millisekunden.
Fazit:
Wer zu spät kommt den bestraft das Leben und manchmal geht es um Millisekunden eben
(kleine Eselsbrücke).
Danke
Man liest sich...
Euer Ritzelrocker04
Hi Oscar,
hat Er denn die große GUI gefunden ?
Zur Zeit läuft es bei mir noch „AdlibEnable("_Update")“, also alle 250 Millisekunden. Ich habe versucht es entsprechend Zeitnah zum Thema heraus zubringen. Der Start war wohl etwas holperig.
Danke
Man liest sich...
Euer Ritzelrocker04
SpaceBar = SB v X.0,
gestern haben wir mit Xeno und Oscar an dem Problem "Zahlenformat ? bzw. die Funktion _StringAddComma" gearbeitet zum besseren Verständnis habe ich einmal eine SpaceBar gebaut, aber seht selbst. Copy und Paste reicht, ein Download ist nicht erforderlich.
; by Ritzelrocker04
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstants.au3>
#include <String.au3>
#NoTrayIcon
$src_LW = "C:\";<= Hier die Anpassung vornehmen!
$dest_LW = "D:\";<= Hier die Anpassung vornehmen!
;###################################################### - Quelle - ################################################################
[/autoit] [autoit][/autoit] [autoit]$VOL_Quelle = DriveGetLabel($src_LW)
$TOTAL_Quelle = DriveSpaceTotal($src_LW)
$FREE_Quelle = DriveSpaceFree($src_LW)
$FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
$i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")
;##################################################### - Ziel - ###################################################################
[/autoit] [autoit][/autoit] [autoit]$VOL_Ziel = DriveGetLabel($dest_LW)
$TOTAL_Ziel = DriveSpaceTotal($dest_LW)
$FREE_Ziel = DriveSpaceFree($dest_LW)
$FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",");Runden 2 Nachkommast. Pktausg. in Komma
$i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",");Tausenderpkt.Runden Pktausg. in Komma
; $i_Progress_Ziel => Speicherplatzbelegung wird angezeigt = umgekehrt Proportional zu $FREE_Ziel_Prozent
;#################################################### - Die GUI - #################################################################
[/autoit] [autoit][/autoit] [autoit]$GUI = GUICreate("SpaceBar v 1.0", 478, 50, -1, 3, $WS_POPUPWINDOW)
$pg_Quelle = GUICtrlCreateProgress(8, 8, 230, 17)
GuiCtrlSetData(-1, $i_Progress_Quelle)
$pg_Ziel = GUICtrlCreateProgress(240, 8, 230, 17)
GuiCtrlSetData(-1, $i_Progress_Ziel)
$tb_Quelle = GUICtrlCreateInput("Auf " & $VOL_Quelle & " sind "& $FREE_Quelle_MB & " MB frei", 8, 27, 230, 21, $ES_READONLY)
$tb_Ziel = GUICtrlCreateInput("Auf " & $VOL_Ziel & " sind "& $FREE_Ziel_MB & " MB frei", 240, 27, 230, 21, $ES_READONLY)
$trackmenu = GuiCtrlCreateContextMenu ()
$aboutitem = GuiCtrlCreateMenuitem ("About",$trackmenu)
GuiCtrlCreateMenuitem ("",$trackmenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$trackmenu)
GuiSetState()
[/autoit] [autoit][/autoit] [autoit]AdlibEnable("_Update") ; Empfehlung AdlibEnable("_Update", 500000) = 5min
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GuiGetMsg()
If $msg = $exititem Or $msg = -3 Or $msg = -1 Then ExitLoop
If $msg = $aboutitem Then Msgbox(0,"About", "SpaceBar v 1.0.06" & @CRLF & "Build 2007-12-18" & @CRLF & "Copyright by Ritzelrocker04 !")
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit] [autoit][/autoit] [autoit]Func _Update()
[/autoit] [autoit][/autoit] [autoit]$src_LW = "C:\"
$dest_LW = "D:\"
; Quelle
$VOL_Quelle = DriveGetLabel($src_LW)
$TOTAL_Quelle = DriveSpaceTotal($src_LW)
$FREE_Quelle = DriveSpaceFree($src_LW)
$FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
$i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")
GUICtrlSetData($pg_Quelle,$i_Progress_Quelle)
GUICtrlSetData($tb_Quelle,"Auf " & $VOL_Quelle & " sind "& $FREE_Quelle_MB & " MB frei")
; Ziel
$VOL_Ziel = DriveGetLabel($dest_LW)
$TOTAL_Ziel = DriveSpaceTotal($dest_LW)
$FREE_Ziel = DriveSpaceFree($dest_LW)
$FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
$i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")
GUICtrlSetData($pg_Ziel,$i_Progress_Ziel)
GUICtrlSetData($tb_Ziel,"Auf " & $VOL_Ziel & " sind "& $FREE_Ziel_MB & " MB frei")
EndFunc ; ==> AdlibEnable("_Update")
[/autoit]edit: Sorry, wollte es Zeitnah bringen und hab wohl etwas übersehen.Jetzt aktuell 2007-12-18/21:15 Uhr
Weiterhin viel Spaß!
Man liest sich...
Euer Ritzelrocker04</String.au3></GUIConstants.au3>
Hi Oscar,
Lernender war weder böse gemeint noch eine Wertschätzung. Ich hatte nur gerade den Beitrag „Mein Status...“ gelesen.
Bei Seinen bisher präsentierten Leistungen habe ich etwas ähnliches erwartet und die kleinen Eigenheiten (_Func = Handschrift) unterstrichen meine Vermutung.
Mit Rechner+ hat er sicherlich den Weg in die Herzen vieler Programmierer gefunden.
Seine Botschaft mit Rechner+ ist angekommen: „Ihr könnt mit mir rechnen!“
nochmals Danke
Man liest sich...
Euer Ritzelrocker04
Hi Oscar,
genau so, das ist die Lösung. Aber wenn Er als Lernender schon soviel weiss, werde ich mal warten bis Er noch etwas dazu gelernt hat ! (Scherz)
Danke
Man liest sich...
Euer Ritzelrocker04
Hi Oscar,
auch Ihm meinen herzlichen Dank, beide Sachen funktionieren von Xeno und die von Ihm. Übersehen blieb leider bis jetzt das Runden. Eine MsgBox ohne das Runden würde den Rahmen sprengen.
Man liest sich...
Euer Ritzelrocker04
Hi Xeno,
Danke nochmals, aber mit dem letzten Vorschlag gibts Probleme mit Punkt und Komma.
Man liest sich...
Euer Ritzelrocker04
Hi,
habe die Lösung mal in den Anhang gelegt.
#cs
; by Ritzelrocker04
; 1. Start =>
$var = DriveSpaceFree( "C:\" )
MsgBox(4096, "Free space on C:", $var & " MB")
; 2. Versuch =>
$var = DriveSpaceFree("C:\")
$FREE_Ziel_MB = StringReplace(Round(($var), 2), ".", ","); Runden(2) umwandeln Pkt. in Komma
; 3. Tausender Pkt. Zahlenformat ?
#ce
; Loesung
#include <String.au3>
$nAmount = DriveSpaceFree( "C:\" )
$sDelimted = _StringAddComma($nAmount)
MsgBox(4096, "Free space on C:", $sDelimted & " MB")
$nAmt = DriveSpaceFree( "C:\" )
$FREE_Ziel_MB = Round(($nAmt), 0)
$sDelim = _StringAddComma($FREE_Ziel_MB)
$Ausgabe = StringReplace(($sDelim), ",", ".")
MsgBox(64, 'Info', $Ausgabe & " MB")
;
Danke
Man liest sich...
Euer Ritzelrocker04
Hi Xeno,
das war ja einfach, ärgerlich für mich !
Danke oder besser außerirdisch - „ Wir senden Dankesgrüße !“
Man liest sich...
Euer Ritzelrocker04
Hi,
„DriveSpaceFree“ und seine Ausgabe hat mein Interesse auf das Zahlenformat fokussiert. Gerne würde ich wissen wollen, wie ich es realisieren kann, als Ausgabe eine Zahl mit Tausenderpunkt und Komma zu erhalten ?
Natürlich habe ich schon etwas versucht (siehe Anhang). In der Hilfe habe ich sicher den falschen Suchbegriff eingegeben, sonst hätte ich etwas finden müssen.
; by Ritzelrocker04
; 1. Start =>
$var = DriveSpaceFree( "C:\" )
MsgBox(4096, "Free space on C:", $var & " MB")
; 2. Versuch =>
$var = DriveSpaceFree("C:\")
$FREE_Ziel_MB = StringReplace(Round(($var), 2), ".", ","); Runden(2) umwandeln Pkt. in Komma
; 3. Tausender Pkt. Zahlenformat ?
; Wie ?
;
Danke
Man liest sich...
Euer Ritzelrocker04