Ist der Zeitablauf so gewollt?
2x 0,5 s Sleep, das ganze 2000x sind rund 40 min.
Außerdem wird dein Select nicht ausgewertet, jedenfalls nicht bevor die Schleife abgelaufen ist - also nach 40 min.
Ist der Zeitablauf so gewollt?
2x 0,5 s Sleep, das ganze 2000x sind rund 40 min.
Außerdem wird dein Select nicht ausgewertet, jedenfalls nicht bevor die Schleife abgelaufen ist - also nach 40 min.
Hmm, wo die Spinne recht hat, hat sie recht
Dann so:
While 1
$Event=GUIGetMsg()
Select
Case $Event=$GUI_EVENT_PRIMARYDOWN
Sleep(500) ; Verzögerung um Doppelklick zu erkennen
$Event=GUIGetMsg()
If $Event=$GUI_EVENT_PRIMARYDOWN Then
;Code bei Doppelklick
Else
;Code bei Einfachklick
EndIf
EndSelect
WEnd
ZitatJedoch kommt die Fehlermeldung
"ERROR: _start1() called by a previous line with 0 arg(s). Min = 1. First previous line calling this Func is 263."Why?
Oder kann ich die Variable auch direkt verwenden ohne zu übergeben
Du rufst die Funktion einmal ohne Argument auf, hast sie selbst aber so definiert, dass ein Argument übergeben werden muß.
Wenn Variablen allgemein deklariert sind ( Global, Dim ) können die Funktionen diese verwenden ohne, dass sie übergeben werden müssen. Sie sind dann aufgrund der Deklaration bekannt.
If MsgBox (4, "Test-cmd", "ja cmd?") = 6 Then Run("cmd.exe")
[/autoit]Du mußt ja auswerten ob JA (6) oder NEIN (7) als Rückgabe von der MsgBox kommt.
Und wozu die spitzen Klammern
Aufrufen kannst du das Eigenschaftsfenster so:
[autoit]Run("control.exe desk.cpl,,2")
[/autoit] ZitatOriginal von m4j0r
die formel hab ich doch oben stehen! oder?
Global $test = ' 855 $'
$test = StringReplace($test, 'Clipget()', '') oder wie? und wie mach ich das dann mit der funktion?
Du hast "StringRegExp" und nicht "StringReplace".
Für dein Bsp.:
[autoit]$kon = StringReplace(ClipGet(), '$', '')
MsgBox(4096,"Kontostandt","Dein Kontostand:" & $kon)
WOW, wer wird denn gleich mit Kanonen auf Spatzen schießen ?
Ich liebe zwar auch alles was mit RegExp zu tun hat,aber man muß es nicht zwingend verwenden.
Viel einfacher und hierfür ausreichend:
Global $test = ' 855 $'
$test = StringReplace($test, '$', '')
Einfach "$" durch Leerstring ersetzen.
Und noch eine Kreation
Diesmal aber eine "stinknormale" Analoguhr. Mich reizte halt die Umsetzung mit Autoit Graphik-Funktion.
Es flackert ab und an etwas. Das kann man umgehen, wenn man es mit WinApi löst. Aber dazu hab ich grad keine Lust
#include <GUIConstants.au3>
Dim $grafik, $width = 190, $height = 190, $desc = 1, $gui, $chg = False
Dim $s_angle = 90+@SEC*-6, $m_angle = 90+1+@MIN*-6, $h_angle = 90+1+@HOUR*-30
Dim $sec = @SEC, $min = @MIN, $hour = @HOUR
Dim $DarkOrange = 0xFF8C00, $Orange = 0xFFA500, $HotPink = 0xFF69B4, $LightCoral = 0xF08080, $RoyalBlue = 0x4169E1
Dim $Navy = 0x000080, $Crimson = 0xDC143C, $Green = 0x008000, $LightSteelBlue = 0xB0C4DE
$m_angle -= Floor($sec/10)
$h_angle -= Floor($min/2)
$gui=GUICreate("Time "&@HOUR&':'&@MIN&':'&@SEC, 200,200,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetBkColor($RoyalBlue)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
SetGraphik() ; 12 Uhr = 90° // Uhrzeigersinn (-n°)
GuiSetState()
Do
Sleep(100)
$msg = GUIGetMsg()
If @HOUR <> $hour Then
$hour = @HOUR
$h_angle = 90-1+@HOUR*-30
$chg = True
EndIf
If @MIN <> $min Then
$min = @MIN
$m_angle = 90-1+@MIN*-6
If Mod($min,2) = 0 Then $h_angle -= 1
$chg = True
EndIf
If @SEC <> $sec Then
$sec = @SEC
$s_angle = 90+@SEC*-6
If Mod($sec,10) = 0 Then $m_angle -= 1
$chg = True
EndIf
If $chg Then
SetGraphik()
EndIf
Until $msg=$GUI_EVENT_CLOSE
Func SetGraphik()
Local $title = WinGetTitle("Time")
WinSetTitle($title, '', "Time "&@HOUR&':'&@MIN&':'&@SEC)
GuiSetState(@SW_LOCK, $gui)
GUICtrlDelete($grafik)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$LightSteelBlue,$LightSteelBlue)
GUICtrlSetGraphic($grafik,$GUI_GR_ELLIPSE, 0, 0, 190, 190)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Crimson,$Crimson)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 90, $s_angle, 1)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Navy,$Navy)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 80, $m_angle, 2)
GUICtrlSetGraphic($grafik,$GUI_GR_COLOR,$Green,$Green)
GUICtrlSetGraphic($grafik,$GUI_GR_PIE, 95, 95, 70, $h_angle, 2)
GUICtrlSetGraphic($grafik,$GUI_GR_REFRESH)
GuiSetState(@SW_UNLOCK, $gui)
$chg = False
EndFunc
Zitatnicht ganz jetzt wird jede zweite sekunde ein neues fenster erstellt^^
snoozer
Du hattest recht - habe es jetzt nochmal etwas überarbeitet. Und nun gaaaanz sicher nur noch ein Fenster.
Ich kenne zwar die Truppe nicht, aber letztlich läuft es wieder auf telefonische Verkaufsaktivität hinaus.
Da mit der (endlich) anstehenden Änderung des Werbegesetzes die jetzt bereits verbotene telefonische Werbung dann auch strafrechtlich verfolgt wird, haben solche Tätigkeiten also eh keine Zukunft.
Doch es geht, aber das weiß dein PC noch nicht
Da mußt du noch Anpassungen in der Registry vornehmen.
Schau mal hier:
http://autorun.moonvalley.com/enable.htm
Kann die guten Erfahrungen mit TrueImage nur bestätigen.
Ob kontinuierliche Sicherung im laufenden Betrieb, arbeiten bereits während die Wiederherstellung noch im Gange ist, mal schnell die HD klonen - alles geht super einfach, schnell und sicher.
Auch meine Empfehlung.
Wenn $i sich in einer Schleife befindet und dort geändert wird, erfolgt der Aufruf natürlich immer mit dem momentanen Wert von $i.
Bsp.:
For $i = 0 To Ubound($array)-1
_Reg1($i)
;...
Next
Zitatyeah unter vista entsteht beim letzten zeitmesser pro sekunde ein neues fenster YEAAAAAHH^^
oops, ich wußte doch ich hab was vergessen
Werd ich gleich noch fixen
Edit: Ist gefixt, jetzt wird immer das vorhergehende Fenster gelöscht
Na, noch ein 'obskurer' Zeitmesser gefällig ?
#include <GUIConstants.au3>
Dim $grafik, $width = 190, $height = 190, $desc = 1
Dim $diameter, $pos, $sec = @SEC, $color
Dim $DarkOrange = 0xFF8C00, $Orange = 0xFFA500, $HotPink = 0xFF69B4, $LightCoral = 0xF08080
$gui=GUICreate("Time "&@HOUR&':'&@MIN&':'&@SEC, 200,200,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION))
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
GUISetState()
Do
$msg = GUIGetMsg()
If @SEC <> $sec Then
Switch $desc
Case 1
$sec = @SEC
If $sec = 59 Then $desc = 0
$diameter = @SEC*3
$pos = ($width-$diameter)/2
If (Mod(@SEC,2) = 0) Or (@SEC = 0) Then
$color = $DarkOrange
Else
$color = $Orange
EndIf
Case 0
$sec = @SEC
If $sec = 59 Then $desc = 1
$diameter = (60 - @SEC)*3
$pos = ($width-$diameter)/2
If (Mod(@SEC,2) = 0) Or (@SEC = 0) Then
$color = $HotPink
Else
$color = $LightCoral
EndIf
EndSwitch
SetGraphik()
EndIf
Sleep(100)
Until $msg=$GUI_EVENT_CLOSE
Func SetGraphik()
Local $title = WinGetTitle("Time")
WinSetTitle($title, '', "Time "&@HOUR&':'&@MIN&':'&@SEC)
GuiSetState(@SW_LOCK, $gui)
GUICtrlDelete($grafik)
$grafik=GuiCtrlCreateGraphic(5, 5, $width, $height)
GUICtrlSetGraphic(-1,$GUI_GR_COLOR, $color,$color)
GUICtrlSetGraphic(-1,$GUI_GR_ELLIPSE, $pos, $pos, $diameter, $diameter)
GUICtrlSetGraphic($grafik,$GUI_GR_REFRESH)
GuiSetState(@SW_UNLOCK, $gui)
EndFunc
ne ne huggy, wenns läuft, braucht er ja nicht umschalten
Hier mal mit Farbänderung im Sekundentakt:
Edit: Dann werde ich den Tipp von GTASpider gleich mal mit einfügen - thx
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 1)
Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFF
Dim $arCol[60]
$arCol[0] = 0xFFEBCD
$arCol[1] = 0xFFDEAD
$arCol[2] = 0xD2B48C
$arCol[3] = 0xDEB887
$arCol[4] = 0xCD853F
$arCol[5] = 0xA0522D
$arCol[6] = 0x8B4513
$arCol[7] = 0xFFA07A
$arCol[8] = 0xE9967A
$arCol[9] = 0xF08080
$arCol[10] = 0xBC8F8F
$arCol[11] = 0xCD5C5C
$arCol[12] = 0xA52A2A
$arCol[13] = 0xDC143C
$arCol[14] = 0xFF69B4
$arCol[15] = 0xFF1493
$arCol[16] = 0xC71585
$arCol[17] = 0xFF00FF
$arCol[18] = 0x8B008B
$arCol[19] = 0x800080
$arCol[20] = 0x9400D3
$arCol[21] = 0x9932CC
$arCol[22] = 0x8A2BE2
$arCol[23] = 0x0000FF
$arCol[24] = 0x0000CD
$arCol[25] = 0x000080
$arCol[26] = 0x4169E1
$arCol[27] = 0x1E90FF
$arCol[28] = 0x00BFFF
$arCol[29] = 0x00CED1
$arCol[30] = 0x00FFFF
$arCol[31] = 0x008B8B
$arCol[32] = 0x008080
$arCol[33] = 0x48D1CC
$arCol[34] = 0x20B2AA
$arCol[35] = 0x40E0D0
$arCol[36] = 0x00FF7F
$arCol[37] = 0x32CD32
$arCol[38] = 0x00FF00
$arCol[39] = 0x008000
$arCol[40] = 0x7FFF00
$arCol[41] = 0xADFF2F
$arCol[42] = 0x9ACD32
$arCol[43] = 0xFFFF00
$arCol[44] = 0x808000
$arCol[45] = 0xFFD700
$arCol[46] = 0xDAA520
$arCol[47] = 0xB8860B
$arCol[48] = 0xFFA500
$arCol[49] = 0xFF8C00
$arCol[50] = 0xF4A460
$arCol[51] = 0xD2691E
$arCol[52] = 0xFF4500
$arCol[53] = 0xFF7F50
$arCol[54] = 0xFF6347
$arCol[55] = 0xFA8072
$arCol[56] = 0xFF0000
$arCol[57] = 0xB22222
$arCol[58] = 0x8B0000
$arCol[59] = 0x800000
$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEnd
Func Close()
Exit
EndFunc
Func _SecColor()
GUICtrlSetColor($prSec, $arCol[@SEC])
EndFunc
Func _MinColor()
GUICtrlSetColor($prMin, $arCol[@MIN])
EndFunc
Func _HourColor()
Select
Case @HOUR = 0
GUICtrlSetColor($prHour, $arCol[0])
Case (@HOUR > 0) And (@HOUR < 13)
GUICtrlSetColor($prHour, $arCol[@HOUR*5-1])
Case Else
GUICtrlSetColor($prHour, $arCol[(@HOUR-12)*5-1])
EndSelect
EndFunc
Ich glaube, das liegt am XP-Style. Finds zwar grad nicht in der Hilfe, aber wenn ich mich richtige erinnere gibt es Einschränkungen bei Farbdarstellung im XP-Style. Schaltet testweise mal auf Windows klassisch - dann sollte es gehen.
Zitatunkt garnet... is IMMER grün bei mir, egal welche uhrzeit ich nehme (windows zeit geändert)
Zitatjoa bei mir auch...kein plan warum..farbe müsste sich ja schon bei der sekunden anzahl ändern.
Zitatalso die Farbe ändert sich bei mir nicht
@huggy, snoozer, leviathan
Habt ihr evtl. Vista drauf? Sonst fällt mir grad nicht ein, warum die Farbe nicht funzt.
Mir war grad mal so...
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFF
$Chartreuse = 0x7FFF00
$Lime = 0x00FF00
$LimeGreen = 0x32CD32
$YellowGreen = 0x9ACD32
$Gold = 0xFFD700
$Goldenrod = 0xDAA520
$Orange = 0xFFA500
$DarkOrange = 0xFF8C00
$Coral = 0xFF7F50
$Salmon = 0xFA8072
$Tomato = 0xFF6347
$Red = 0xFF0000
$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEnd
Func Close()
Exit
EndFunc
Func _SecColor()
Select
Case @SEC < 6
GUICtrlSetColor($prSec, $Chartreuse)
Case (@SEC > 5) And (@SEC < 11)
GUICtrlSetColor($prSec, $Lime)
Case (@SEC > 10) And (@SEC < 16)
GUICtrlSetColor($prSec, $LimeGreen)
Case (@SEC > 15) And (@SEC < 21)
GUICtrlSetColor($prSec, $YellowGreen)
Case (@SEC > 20) And (@SEC < 26)
GUICtrlSetColor($prSec, $Gold)
Case (@SEC > 25) And (@SEC < 31)
GUICtrlSetColor($prSec, $Orange)
Case (@SEC > 30) And (@SEC < 36)
GUICtrlSetColor($prSec, $Goldenrod)
Case (@SEC > 35) And (@SEC < 41)
GUICtrlSetColor($prSec, $DarkOrange)
Case (@SEC > 40) And (@SEC < 46)
GUICtrlSetColor($prSec, $Coral)
Case (@SEC > 45) And (@SEC < 51)
GUICtrlSetColor($prSec, $Salmon)
Case (@SEC > 50) And (@SEC < 56)
GUICtrlSetColor($prSec, $Tomato)
Case Else
GUICtrlSetColor($prSec, $Red)
EndSelect
EndFunc
Func _MinColor()
Select
Case @MIN < 6
GUICtrlSetColor($prMin, $Chartreuse)
Case (@MIN > 5) And (@MIN < 11)
GUICtrlSetColor($prMin, $Lime)
Case (@MIN > 10) And (@MIN < 16)
GUICtrlSetColor($prMin, $LimeGreen)
Case (@MIN > 15) And (@MIN < 21)
GUICtrlSetColor($prMin, $YellowGreen)
Case (@MIN > 20) And (@MIN < 26)
GUICtrlSetColor($prMin, $Gold)
Case (@MIN > 25) And (@MIN < 31)
GUICtrlSetColor($prMin, $Orange)
Case (@MIN > 30) And (@MIN < 36)
GUICtrlSetColor($prMin, $Goldenrod)
Case (@MIN > 35) And (@MIN < 41)
GUICtrlSetColor($prMin, $DarkOrange)
Case (@MIN > 40) And (@MIN < 46)
GUICtrlSetColor($prMin, $Coral)
Case (@MIN > 45) And (@MIN < 51)
GUICtrlSetColor($prMin, $Salmon)
Case (@MIN > 50) And (@MIN < 56)
GUICtrlSetColor($prMin, $Tomato)
Case Else
GUICtrlSetColor($prMin, $Red)
EndSelect
EndFunc
Func _HourColor()
Select
Case @HOUR < 3
GUICtrlSetColor($prHour, $Chartreuse)
Case (@HOUR > 2) And (@HOUR < 5)
GUICtrlSetColor($prHour, $Lime)
Case (@HOUR > 4) And (@HOUR < 7)
GUICtrlSetColor($prHour, $LimeGreen)
Case (@HOUR > 6) And (@HOUR < 9)
GUICtrlSetColor($prHour, $YellowGreen)
Case (@HOUR > And (@HOUR < 11)
GUICtrlSetColor($prHour, $Gold)
Case (@HOUR > 10) And (@HOUR < 13)
GUICtrlSetColor($prHour, $Orange)
Case (@HOUR > 12) And (@HOUR < 15)
GUICtrlSetColor($prHour, $Goldenrod)
Case (@HOUR > 14) And (@HOUR < 17)
GUICtrlSetColor($prHour, $DarkOrange)
Case (@HOUR > 16) And (@HOUR < 19)
GUICtrlSetColor($prHour, $Coral)
Case (@HOUR > 18) And (@HOUR < 21)
GUICtrlSetColor($prHour, $Salmon)
Case (@HOUR > 20) And (@HOUR < 23)
GUICtrlSetColor($prHour, $Tomato)
Case Else
GUICtrlSetColor($prHour, $Red)
EndSelect
EndFunc