Beiträge von RR04

RR04

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

RR04

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

RR04

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

RR04

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

RR04

Hi,

ich habe einmal ein paar Ergebnisse mit CleanScript notiert.

Schönes WE und
viel Erfolg !

Man liest sich...
Euer Ritzelrocker04

RR04

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

RR04

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

RR04

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)

Spoiler anzeigen

[autoit]

; by Ritzelrocker04
; mit Hilfe von Oscar

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>
#include <String.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

Global $src_LW = "C:\";<= Hier die Anpassung vornehmen!
Global $dest_LW = "D:\";<= Hier die Anpassung vornehmen!

[/autoit] [autoit][/autoit] [autoit]

$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)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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")

[/autoit] [autoit][/autoit] [autoit]

EndFunc ; ==> AdlibEnable("_Update")

[/autoit]

Danke an Oscar

Man liest sich...
Euer Ritzelrocker04

RR04

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

RR04

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

RR04

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

RR04

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

RR04

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

[autoit][/autoit] [autoit][/autoit] [autoit]

; by Ritzelrocker04

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstants.au3>
#include <String.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$src_LW = "C:\";<= Hier die Anpassung vornehmen!
$dest_LW = "D:\";<= Hier die Anpassung vornehmen!

[/autoit] [autoit][/autoit] [autoit]

;###################################################### - 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), ".", ",")

[/autoit] [autoit][/autoit] [autoit]

;##################################################### - 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

[/autoit] [autoit][/autoit] [autoit]

;#################################################### - 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)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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")

[/autoit] [autoit][/autoit] [autoit]

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>

RR04

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

RR04

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

RR04

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

RR04

Hi Xeno,

Danke nochmals, aber mit dem letzten Vorschlag gibts Probleme mit Punkt und Komma.

Man liest sich...
Euer Ritzelrocker04

RR04

Hi,
habe die Lösung mal in den Anhang gelegt.

Spoiler anzeigen

[autoit]

#cs
; by Ritzelrocker04
; 1. Start =>
$var = DriveSpaceFree( "C:\" )
MsgBox(4096, "Free space on C:", $var & " MB")

[/autoit] [autoit][/autoit] [autoit]

; 2. Versuch =>
$var = DriveSpaceFree("C:\")
$FREE_Ziel_MB = StringReplace(Round(($var), 2), ".", ","); Runden(2) umwandeln Pkt. in Komma

[/autoit] [autoit][/autoit] [autoit]

; 3. Tausender Pkt. Zahlenformat ?
#ce

[/autoit] [autoit][/autoit] [autoit]

; Loesung
#include <String.au3>
$nAmount = DriveSpaceFree( "C:\" )
$sDelimted = _StringAddComma($nAmount)
MsgBox(4096, "Free space on C:", $sDelimted & " MB")

[/autoit] [autoit][/autoit] [autoit]

$nAmt = DriveSpaceFree( "C:\" )
$FREE_Ziel_MB = Round(($nAmt), 0)
$sDelim = _StringAddComma($FREE_Ziel_MB)
$Ausgabe = StringReplace(($sDelim), ",", ".")
MsgBox(64, 'Info', $Ausgabe & " MB")
;

[/autoit]

Danke
Man liest sich...
Euer Ritzelrocker04

RR04

Hi Xeno,

das war ja einfach, ärgerlich für mich !

Danke oder besser außerirdisch - „ Wir senden Dankesgrüße !“

Man liest sich...
Euer Ritzelrocker04

RR04

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.

Spoiler anzeigen

[autoit]

; by Ritzelrocker04
; 1. Start =>
$var = DriveSpaceFree( "C:\" )
MsgBox(4096, "Free space on C:", $var & " MB")

[/autoit] [autoit][/autoit] [autoit]

; 2. Versuch =>
$var = DriveSpaceFree("C:\")
$FREE_Ziel_MB = StringReplace(Round(($var), 2), ".", ","); Runden(2) umwandeln Pkt. in Komma

[/autoit] [autoit][/autoit] [autoit]

; 3. Tausender Pkt. Zahlenformat ?
; Wie ?
;

[/autoit]

Danke
Man liest sich...
Euer Ritzelrocker04

Beiträge von RR04

SB v X.0

Probleme mit neuem Forum? Hierrein schreiben!

Mein Weihnachtsgeschenk

SB v X.0

CleanScript - verkleinert au3 und Exe deutlich ohne Funktionsverlust

Frohe Weihnachten 2007 und einen guten Rutsch ins Neue Jahr 2008

SB v X.0

SB v X.0

SB v X.0

SB v X.0

SB v X.0

SB v X.0

SB v X.0

Zahlenformat ?

Zahlenformat ?

Zahlenformat ?

Zahlenformat ?

Zahlenformat ?

Zahlenformat ?

Zahlenformat ?