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.
Spoiler anzeigen
; 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>