Hallo und einen sonnigen Mittwoch.
Wie berechnet ich möchtest genau die Durchlaufzeit einer Schleife?
Grund? Ich will eine Sekundenanzeige in eine Sache mit einbauen und die Sekundenanzeige soll blinken.
LG, die Lina.
Hallo und einen sonnigen Mittwoch.
Wie berechnet ich möchtest genau die Durchlaufzeit einer Schleife?
Grund? Ich will eine Sekundenanzeige in eine Sache mit einbauen und die Sekundenanzeige soll blinken.
LG, die Lina.
Hi!
Verstehe zwar nicht genau, was du meinst, aber Messung starten mit TimerInit, Laufzeit ausrechnen mit TimerDiff :).
peethebe
Hallo!
Meinst Du vllt. sowas. Der Doppelpunkt blinkt im sekundentakt!
#Include <Misc.au3>
$splTime = SplashTextOn("Zeit","",70,30,0,0,1,"",20,600)
[/autoit] [autoit][/autoit] [autoit]AdlibEnable("SetTimer",100)
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100)
If _IsPressed("1B") Then Exit
Wend
Func SetTimer ()
If Not Mod(@SEC,2) Then
$splTimeTxt = @HOUR & ":" & @MIN
Else
$splTimeTxt = @HOUR & " " & @MIN
EndIf
ControlSetText($splTime,"","Static1", $splTimeTxt)
EndFunc
Hallo alle. Danke erst einmal für die Antworten.
Ich erstelle mit Auto-IT gerade die "Die Berliner Mengenlehreuhr" nach.
Dank dem
"$begin = TimerInit()" am Anfang der Schleife
und
"$dif = TimerDiff($begin)
Sleep($dif) am ende der Schleife, läuft nun auch die Sekundenzeigen besser.
Nun ist nur noch das Problem, dem Exit-Button ($Button_1) in der über 400 Zeilen langen Case-Abfrage irgendwie zum laufen zu bekommen.
Wenn es fertig ist veröffnetlich ich es gerne.
Liebe Grüße, Lina.
(immer bisschen verrückt)
Hi,
du kannst mit AdblibEnable auch immer alle x millisec prüfen lassen ob er gedrückt wurde, oder einen Hotkey verwenden.
So long,
Mega
Hallo.
So, nun ist die "Die Berliner Mengenlehreuhr" in AutoIT erstellt.
Hier der Quelltext:
#include <GuiConstants.au3>
; EXITBUTTON-Start
Opt("GUIOnEventMode", 1)
GuiCreate("Die Berliner Mengenlehreuhr", 411, 470,-1, -1 , BitOr($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
;GUISetBkColor (0x000000) ; will change background color
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "OnClick")
$user = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1, "Onexit")
$Button_1 = GuiCtrlCreateButton("Exit", 20, 380, 70, 30)
GUICtrlSetOnEvent(-1, "OnClick") ; to handle click on button
; EXITBUTTON-Ende Teil 2 unten
GUISetState()
GuiCtrlCreatePic("gelb.jpg", 30, 60, 350, 50)
GuiCtrlCreatePic("gelb2.jpg", 30, 120, 80, 50)
GuiCtrlCreatePic("gelb3.jpg", 120, 120, 80, 50)
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
GuiCtrlCreatePic("gelb2.jpg", 300, 120, 80, 50)
GuiCtrlCreatePic("gelb3.jpg", 30, 180, 20, 50)
GuiCtrlCreatePic("gelb.jpg", 60, 180, 20, 50)
GuiCtrlCreatePic("gelb2.jpg", 90, 180, 20, 50)
GuiCtrlCreatePic("gelb3.jpg", 120, 180, 20, 50)
GuiCtrlCreatePic("gelb.jpg", 150, 180, 20, 50)
GuiCtrlCreatePic("gelb2.jpg", 180, 180, 50, 50)
GuiCtrlCreatePic("gelb3.jpg", 240, 180, 20, 50)
GuiCtrlCreatePic("gelb.jpg", 270, 180, 20, 50)
GuiCtrlCreatePic("gelb2.jpg", 300, 180, 20, 50)
GuiCtrlCreatePic("gelb3.jpg", 330, 180, 20, 50)
GuiCtrlCreatePic("gelb.jpg", 360, 180, 20, 50)
GuiCtrlCreatePic("gelb2.jpg", 30, 240, 80, 50)
GuiCtrlCreatePic("gelb.jpg", 120, 240, 80, 50)
GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
GuiCtrlCreatePic("gelb2.jpg", 300, 240, 80, 50)
GuiCtrlCreatePic("gelb.jpg", 30, 300, 80, 50)
GuiCtrlCreatePic("gelb3.jpg", 120, 300, 80, 50)
GuiCtrlCreatePic("gelb2.jpg", 210, 300, 80, 50)
GuiCtrlCreatePic("gelb.jpg", 300, 300, 80, 50)
$Group_25 = GuiCtrlCreateGroup("", 20, 40, 370, 330)
$Label_26 = GuiCtrlCreateLabel("Es gibt unendlich viele Möglichkeiten, die Uhrzeit anzuzeigen, und eine der seltsameren Möglichkeiten nutzt die von Dieter Binninger erfundene Berlin-Uhr.", 20, 10, 370, 30)
$Label_27 = GuiCtrlCreateLabel("1. Reihe: Sekunden-Balken", 100, 380, 280, 20)
$Label_28 = GuiCtrlCreateLabel("2. Reihe: 1, 2, 3, 4 Minuten", 100, 395, 280, 20)
$Label_29 = GuiCtrlCreateLabel("3. Reihe: 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55 Minuten", 100, 410, 280, 20)
$Label_30 = GuiCtrlCreateLabel("4. Reihe: 1, 2, 3, 4 Stunden", 100, 425, 280, 20)
$Label_31 = GuiCtrlCreateLabel("5. Reihe: 5, 10, 15, 20 Stunden", 100, 440, 280, 20)
GuiSetState()
While 1
$begin = TimerInit()
$sec = @SEC
$min_1 = @MIN
$std_1 = @HOUR
Select
; Sekunden
Case $sec==1 Or $sec==3
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==5 Or $sec==7
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==9 Or $sec==11
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==13 Or $sec==15
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==17 Or $sec==19
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==21 Or $sec==23
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==25 Or $sec==27
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==29 Or $sec==31
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==33 Or $sec==35
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==37 Or $sec==39
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==41 Or $sec==43
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==45 Or $sec==47
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==49 Or $sec==51
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==53 Or $sec==55
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==57 Or $sec==59
GuiCtrlCreatePic("rot.jpg", 30, 60, 350, 50)
Case $sec==0 Or $sec==2 Or $sec==4 Or $sec==6 Or $sec==8 Or $sec==10 Or $sec==12 Or $sec==14 Or $sec==16 Or $sec==18 Or $sec==20 Or $sec==22 Or $sec==24 Or $sec==26 Or $sec==28 Or $sec==30 Or $sec==32 Or $sec==34 Or $sec==36 Or $sec==38 Or $sec==40 Or $sec==42 Or $sec==44 Or $sec==46 Or $sec==48 Or $sec==50 Or $sec==52 Or $sec==54 Or $sec==56 Or $sec==58
GuiCtrlCreatePic("gelb.jpg", 30, 60, 350, 50)
EndSelect
Select
; Minute 1
Case $min_1>=1 And $min_1<=4
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
case $min_1>=6 And $min_1<=9
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=11 And $min_1<=14
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=15 And $min_1<=19
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=21 And $min_1<=24
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=26 And $min_1<=29
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=31 And $min_1<=34
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=36 And $min_1<=39
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=41 And $min_1<=44
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=46 And $min_1<=49
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=51 And $min_1<=54
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1>=56 And $min_1<=59
GuiCtrlCreatePic("rot.jpg", 30, 120, 80, 50)
Case $min_1==0 Or $min_1==5
GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
Case $min_1==10 Or $min_1==15
GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
Case $min_1==20 Or $min_1==25
GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
Case $min_1==30 Or $min_1==35
GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
Case $min_1==40 Or $min_1==45
GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
Case $min_1==50 Or $min_1==55
GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
EndSelect
Select
; Minute 2
Case $min_1>=2 And $min_1<=4
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=7 And $min_1<=9
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=12 And $min_1<=14
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=17 And $min_1<=19
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=22 And $min_1<=24
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=27 And $min_1<=29
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=32 And $min_1<=34
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=37 And $min_1<=39
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=42 And $min_1<=44
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=47 And $min_1<=49
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=52 And $min_1<=54
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=57 And $min_1<=59
GuiCtrlCreatePic("rot.jpg", 120, 120, 80, 50)
Case $min_1>=0 And $min_1<=1
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=5 And $min_1<=6
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=10 And $min_1<=11
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=15 And $min_1<=16
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=20 And $min_1<=21
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=25 And $min_1<=26
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=30 And $min_1<=31
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=35 And $min_1<=36
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=40 And $min_1<=41
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=45 And $min_1<=46
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=50 And $min_1<=51
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
Case $min_1>=55 And $min_1<=56
GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
EndSelect
Select
; Minute 3
Case $min_1>=3 And $min_1<=4
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=8 And $min_1<=9
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=13 And $min_1<=14
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=18 And $min_1<=19
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=23 And $min_1<=24
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=28 And $min_1<=29
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=33 And $min_1<=34
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=38 And $min_1<=39
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=43 And $min_1<=44
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=48 And $min_1<=49
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=53 And $min_1<=54
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=58 And $min_1<=59
GuiCtrlCreatePic("rot.jpg", 210, 120, 80, 50)
Case $min_1>=0 And $min_1<=2
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=5 And $min_1<=7
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=10 And $min_1<=12
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=15 And $min_1<=17
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=20 And $min_1<=22
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=25 And $min_1<=27
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=30 And $min_1<=32
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=35 And $min_1<=37
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=40 And $min_1<=42
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=45 And $min_1<=47
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=50 And $min_1<=52
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
Case $min_1>=55 And $min_1<=57
GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
EndSelect
Select
; Minute 4
Case $min_1>=4 And $min_1<5
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=9 And $min_1<10
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=14 And $min_1<15
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=19 And $min_1<20
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=24 And $min_1<25
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=29 And $min_1<30
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=34 And $min_1<35
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=39 And $min_1<40
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=44 And $min_1<45
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=49 And $min_1<50
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1>=54 And $min_1<55
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
case $min_1=59
GuiCtrlCreatePic("rot.jpg", 300, 120, 80, 50)
Case $min_1>=0 And $min_1<=3
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=5 And $min_1<=8
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=10 And $min_1<=13
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=15 And $min_1<=18
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=20 And $min_1<=23
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=25 And $min_1<=28
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=30 And $min_1<=33
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=35 And $min_1<=38
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=40 And $min_1<=43
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=45 And $min_1<=48
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=50 And $min_1<=53
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
case $min_1>=55 And $min_1<=58
GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
EndSelect
Select
; Minute 5
Case $min_1>=5
GuiCtrlCreatePic("rot2.jpg", 30, 180, 20, 50)
Case $min_1<5
GuiCtrlCreatePic("gelb2.jpg", 30, 180, 20, 50)
EndSelect
Select
; Minute 10
Case $min_1>=10
GuiCtrlCreatePic("rot2.jpg", 60, 180, 20, 50)
Case $min_1<=9
GuiCtrlCreatePic("gelb2.jpg", 60, 180, 20, 50)
EndSelect
Select
; Minute 15
Case $min_1>=15
GuiCtrlCreatePic("hblau.jpg", 90, 180, 20, 50)
Case $min_1<=14
GuiCtrlCreatePic("gelb.jpg", 90, 180, 20, 50)
EndSelect
Select
; Minute 20
Case $min_1>=20
GuiCtrlCreatePic("rot2.jpg", 120, 180, 20, 50)
Case $min_1<=19
GuiCtrlCreatePic("gelb2.jpg", 120, 180, 20, 50)
EndSelect
Select
; Minute 25
Case $min_1>=25
GuiCtrlCreatePic("rot2.jpg", 150, 180, 20, 50)
Case $min_1<=24
GuiCtrlCreatePic("gelb2.jpg", 150, 180, 20, 50)
EndSelect
Select
; Minute 30
Case $min_1>=30
GuiCtrlCreatePic("hblau.jpg", 180, 180, 50, 50)
Case $min_1<=29
GuiCtrlCreatePic("gelb2.jpg", 180, 180, 50, 50)
EndSelect
Select
; Minute 35
Case $min_1>=35
GuiCtrlCreatePic("rot2.jpg", 240, 180, 20, 50)
Case $min_1<=34
GuiCtrlCreatePic("gelb2.jpg", 240, 180, 20, 50)
EndSelect
Select
; Minute 40
Case $min_1>=40
GuiCtrlCreatePic("rot2.jpg", 270, 180, 20, 50)
Case $min_1<=39
GuiCtrlCreatePic("gelb2.jpg", 270, 180, 20, 50)
EndSelect
Select
; Minute 45
Case $min_1>=45
GuiCtrlCreatePic("hblau.jpg", 300, 180, 20, 50)
Case $min_1<=44
GuiCtrlCreatePic("gel2.jpg", 300, 180, 20, 50)
EndSelect
Select
; Minute 50
Case $min_1>=50
GuiCtrlCreatePic("rot2.jpg", 330, 180, 20, 50)
Case $min_1<=49
GuiCtrlCreatePic("gelb2.jpg", 330, 180, 20, 50)
EndSelect
Select
; Minute 55
Case $min_1>=55
GuiCtrlCreatePic("rot2.jpg", 360, 180, 20, 50)
Case $min_1<=54
GuiCtrlCreatePic("gelb2.jpg", 360, 180, 20, 50)
EndSelect
Select
; Stunde 1
Case $std_1>=01 And $std_1<=04
GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
Case $std_1>=06 And $std_1<=09
GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
Case $std_1>=11 And $std_1<=14
GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
Case $std_1>=16 And $std_1<=19
GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
Case $std_1>=21 And $std_1<=23
GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
Case $std_1==00 Or $std_1==05
GuiCtrlCreatePic("rot3.jpg", 30, 240, 80, 50)
Case $std_1==10 Or $std_1==15
GuiCtrlCreatePic("gelb3.jpg", 30, 240, 80, 50)
Case $std_1==20
GuiCtrlCreatePic("gelb3.jpg", 30, 240, 80, 50)
EndSelect
Select
; Stunde 2
Case $std_1>=2 And $std_1<=4
GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
Case $std_1>=7 And $std_1<=9
GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
Case $std_1>=12 And $std_1<=14
GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
Case $std_1>=17 And $std_1<=19
GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
Case $std_1>=22 And $std_1<=23
GuiCtrlCreatePic("rot3.jpg", 120, 240, 80, 50)
Case $std_1==0 Or $std_1==1
GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
Case $std_1==6 Or $std_1==7
GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
Case $std_1==10 Or $std_1==11
GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
Case $std_1==15 Or $std_1==16
GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
Case $std_1==20 Or $std_1==21
GuiCtrlCreatePic("gelb3.jpg", 120, 240, 80, 50)
EndSelect
Select
; Stunde 3
Case $std_1>=3 And $std_1<=4
GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
Case $std_1>=8 And $std_1<=9
GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
Case $std_1>=13 And $std_1<=14
GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
Case $std_1==18 Or $std_1==19 Or $std_1==23
GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
Case $std_1>=0 And $std_1<=2
GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
Case $std_1>=5 And $std_1<=7
GuiCtrlCreatePic("rot3.jpg", 210, 240, 80, 50)
Case $std_1>=10 And $std_1<=12
GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
Case $std_1>=15 And $std_1<=17
GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
Case $std_1>=20 And $std_1<=22
GuiCtrlCreatePic("gelb3.jpg", 210, 240, 80, 50)
EndSelect
Select
; Stunde 4
Case $std_1>=4 And $std_1<5
GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)
Case $std_1>=9 And $std_1<10
GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)
Case $std_1>=14 And $std_1<15
GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)
Case $std_1>=19 And $std_1<20
GuiCtrlCreatePic("rot3.jpg", 300, 240, 80, 50)
Case $std_1<=3
GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)
Case $std_1>=5 And $std_1<9
GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)
Case $std_1>=10 And $std_1<14
GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)
Case $std_1>=15 And $std_1<19
GuiCtrlCreatePic("gelb3.jpg", 300, 240, 80, 50)
EndSelect
Select
; Stunde 5
Case $std_1>=5
GuiCtrlCreatePic("rot3.jpg", 30, 300, 80, 50)
Case $std_1<=4
GuiCtrlCreatePic("gelb3jpg", 30, 300, 80, 50)
EndSelect
Select
; Stunde 10
Case $std_1>=10
GuiCtrlCreatePic("rot3.jpg", 120, 300, 80, 50)
Case $std_1<=9
GuiCtrlCreatePic("gelb3.jpg", 120, 300, 80, 50)
EndSelect
Select
; Stunde 15
Case $std_1>=15
GuiCtrlCreatePic("rot3.jpg", 210, 300, 80, 50)
Case $std_1<=14
GuiCtrlCreatePic("gelb3.jpg", 210, 300, 80, 50)
EndSelect
Select
; Stunde 20
Case $std_1>=20
GuiCtrlCreatePic("rot3.jpg", 300, 300, 80, 50)
Case $std_1<=19
GuiCtrlCreatePic("gelb3.jpg", 300, 300, 80, 50)
EndSelect
$dif = TimerDiff($begin)
Sleep($dif)
WEnd
Exit
[/autoit] [autoit][/autoit] [autoit]; EXITBUTTON-Start
Func OnClick()
GUICtrlSendToDummy($user)
EndFunc
Func OnExit()
Exit
EndFunc
; EXITBUTTON-Ende
Exit
Bild: als Anhang
Habe versucht, mal mit meinem Wissen von cirka 14 Tagen, weil so lange meine ich bin ich schon "AutiIt-infiziert", das umzusetzen, was ich damals in Berlin gesehen habe und was Ihr hier auf folgender Seite sehen könnt: http://www.surveyor.in-berlin.de/berlin/uhr/index.html
Ich habe nur die Flächen anders angeordnet. Also nicht wundern, wenn es mit der Homepage zu der Uhr nicht ganz übereinstimmt.
Sicherlich hat der Quelltext noch kleine Macken im Sekundenbereich, aber ich habe mein bestes gegeben und ab dem Minutenbereich läuft es.
So viel zum Thema AUTO-IT-MACHT SÜCHTIG !!! :irre:
Liebe Grüße und nochmals Danke für die Hilfe !!!
Lina
Edit bernd670: Ich habe mal die AutoIt-Tag's eingebaut, vllt. solltest Du noch die jpg's anhängen!
hi alina,
würde ich gerne mal in action sehen wollen. kannst du die .jpg dateien mal hier "ablegen" ? sonst läuft das programm ja nicht.
gruss exberliner
Hallo Ex-Brliner.
Da ich die Stadt auch so liebe und so selten da bin und Du so lieb fragst, bekommst Du die Bilder gezpppelt.
Aber die Bild nicht weiter geben, sind Copyrightgeschützt. :schild4:
Und Du weißt ja, für nette Verbesserungsvorschläge bin ich immer gerne zu haben.
Es schickt liebe Grüße an alle, die total übermüdete,
Lina
Hallo Alina!
Intressante Umsetzung!
Nur wenn Du immer wieder GuiCtrlCreatePic aufrufst wird irgendwann das Programm aussteigen well keine Controls mehr erstellt werden können. Besser ist es mit GUICtrlSetImage ein neues Image zuzuweisen (verhindert ausserdem das Flackern).
Hier mal eine andere Lösung (kannst ja mal schauen ob Du es nachvollziehen kannst) ;-):
#include <GuiConstants.au3>
; EXITBUTTON-Start
Opt("GUIOnEventMode", 1)
GuiCreate("Die Berliner Mengenlehreuhr", 411, 470,-1, -1 , BitOr($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
;GUISetBkColor (0x000000) ; will change background color
GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
;~ $user = GUICtrlCreateDummy()
;~ GUICtrlSetOnEvent(-1, "Onexit")
$Button_1 = GuiCtrlCreateButton("Exit", 20, 380, 70, 30)
GUICtrlSetOnEvent(-1, "OnExit") ; to handle click on button
; EXITBUTTON-Ende Teil 2 unten
$PIC_SEC = GuiCtrlCreatePic("gelb.jpg", 30, 60, 350, 50)
$PIC_MIN01 = GuiCtrlCreatePic("gelb.jpg", 30, 120, 80, 50)
$PIC_MIN02 = GuiCtrlCreatePic("gelb.jpg", 120, 120, 80, 50)
$PIC_MIN03 = GuiCtrlCreatePic("gelb.jpg", 210, 120, 80, 50)
$PIC_MIN04 = GuiCtrlCreatePic("gelb.jpg", 300, 120, 80, 50)
$PIC_MIN05 = GuiCtrlCreatePic("gelb.jpg", 30, 180, 20, 50)
$PIC_MIN10 = GuiCtrlCreatePic("gelb.jpg", 60, 180, 20, 50)
$PIC_MIN15 = GuiCtrlCreatePic("gelb.jpg", 90, 180, 20, 50)
$PIC_MIN20 = GuiCtrlCreatePic("gelb.jpg", 120, 180, 20, 50)
$PIC_MIN25 = GuiCtrlCreatePic("gelb.jpg", 150, 180, 20, 50)
$PIC_MIN30 = GuiCtrlCreatePic("gelb.jpg", 180, 180, 50, 50)
$PIC_MIN35 = GuiCtrlCreatePic("gelb.jpg", 240, 180, 20, 50)
$PIC_MIN40 = GuiCtrlCreatePic("gelb.jpg", 270, 180, 20, 50)
$PIC_MIN45 = GuiCtrlCreatePic("gelb.jpg", 300, 180, 20, 50)
$PIC_MIN50 = GuiCtrlCreatePic("gelb.jpg", 330, 180, 20, 50)
$PIC_MIN55 = GuiCtrlCreatePic("gelb.jpg", 360, 180, 20, 50)
$PIC_HOU01 = GuiCtrlCreatePic("gelb.jpg", 30, 240, 80, 50)
$PIC_HOU02 = GuiCtrlCreatePic("gelb.jpg", 120, 240, 80, 50)
$PIC_HOU03 = GuiCtrlCreatePic("gelb.jpg", 210, 240, 80, 50)
$PIC_HOU04 = GuiCtrlCreatePic("gelb.jpg", 300, 240, 80, 50)
$PIC_HOU05 = GuiCtrlCreatePic("gelb.jpg", 30, 300, 80, 50)
$PIC_HOU10 = GuiCtrlCreatePic("gelb.jpg", 120, 300, 80, 50)
$PIC_HOU15 = GuiCtrlCreatePic("gelb.jpg", 210, 300, 80, 50)
$PIC_HOU20 = GuiCtrlCreatePic("gelb.jpg", 300, 300, 80, 50)
$Group_25 = GuiCtrlCreateGroup("", 20, 40, 370, 330)
$Label_26 = GuiCtrlCreateLabel("Es gibt unendlich viele Möglichkeiten, die Uhrzeit anzuzeigen, und eine der seltsameren Möglichkeiten nutzt die von Dieter Binninger erfundene Berlin-Uhr.", 20, 10, 370, 30)
$Label_27 = GuiCtrlCreateLabel("1. Reihe: Sekunden-Balken", 100, 380, 280, 20)
$Label_28 = GuiCtrlCreateLabel("2. Reihe: 1, 2, 3, 4 Minuten", 100, 395, 280, 20)
$Label_29 = GuiCtrlCreateLabel("3. Reihe: 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55 Minuten", 100, 410, 280, 20)
$Label_30 = GuiCtrlCreateLabel("4. Reihe: 1, 2, 3, 4 Stunden", 100, 425, 280, 20)
$Label_31 = GuiCtrlCreateLabel("5. Reihe: 5, 10, 15, 20 Stunden", 100, 440, 280, 20)
GuiSetState()
While 1
; Sekunden-Anzeige
Switch Mod(Int(@SEC/2),2)
Case 1
GUICtrlSetImage($PIC_SEC, "rot.jpg")
Case Else
GUICtrlSetImage($PIC_SEC, "gelb.jpg")
EndSwitch
; Minute 1 - 4
Switch Mod(@MIN,5)
Case 1
GUICtrlSetImage($PIC_MIN01,"rot.jpg")
Case 2
GUICtrlSetImage($PIC_MIN01,"rot.jpg")
GUICtrlSetImage($PIC_MIN02,"rot.jpg")
Case 3
GUICtrlSetImage($PIC_MIN01,"rot.jpg")
GUICtrlSetImage($PIC_MIN02,"rot.jpg")
GUICtrlSetImage($PIC_MIN03,"rot.jpg")
Case 4
GUICtrlSetImage($PIC_MIN01,"rot.jpg")
GUICtrlSetImage($PIC_MIN02,"rot.jpg")
GUICtrlSetImage($PIC_MIN03,"rot.jpg")
GUICtrlSetImage($PIC_MIN04,"rot.jpg")
Case Else
GUICtrlSetImage($PIC_MIN01,"gelb.jpg")
GUICtrlSetImage($PIC_MIN02,"gelb.jpg")
GUICtrlSetImage($PIC_MIN03,"gelb.jpg")
GUICtrlSetImage($PIC_MIN04,"gelb.jpg")
EndSwitch
; Minute 5,10,15,20,25,30,35,40,45,50,55
Switch Int(@MIN/5)
Case 1
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
Case 2
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
Case 3
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
case 4
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
case 5
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
GUICtrlSetImage($PIC_MIN25,"rot.jpg")
case 6
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
GUICtrlSetImage($PIC_MIN25,"rot.jpg")
GUICtrlSetImage($PIC_MIN30,"hblau.jpg")
case 7
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
GUICtrlSetImage($PIC_MIN25,"rot.jpg")
GUICtrlSetImage($PIC_MIN30,"hblau.jpg")
GUICtrlSetImage($PIC_MIN35,"rot.jpg")
case 8
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
GUICtrlSetImage($PIC_MIN25,"rot.jpg")
GUICtrlSetImage($PIC_MIN30,"hblau.jpg")
GUICtrlSetImage($PIC_MIN35,"rot.jpg")
GUICtrlSetImage($PIC_MIN40,"rot.jpg")
case 9
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
GUICtrlSetImage($PIC_MIN25,"rot.jpg")
GUICtrlSetImage($PIC_MIN30,"hblau.jpg")
GUICtrlSetImage($PIC_MIN35,"rot.jpg")
GUICtrlSetImage($PIC_MIN40,"rot.jpg")
GUICtrlSetImage($PIC_MIN45,"rot.jpg")
case 10
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
GUICtrlSetImage($PIC_MIN25,"rot.jpg")
GUICtrlSetImage($PIC_MIN30,"hblau.jpg")
GUICtrlSetImage($PIC_MIN35,"rot.jpg")
GUICtrlSetImage($PIC_MIN40,"rot.jpg")
GUICtrlSetImage($PIC_MIN45,"rot.jpg")
GUICtrlSetImage($PIC_MIN50,"rot.jpg")
case 11
GUICtrlSetImage($PIC_MIN05,"rot.jpg")
GUICtrlSetImage($PIC_MIN10,"rot.jpg")
GUICtrlSetImage($PIC_MIN15,"rot.jpg")
GUICtrlSetImage($PIC_MIN20,"rot.jpg")
GUICtrlSetImage($PIC_MIN25,"rot.jpg")
GUICtrlSetImage($PIC_MIN30,"hblau.jpg")
GUICtrlSetImage($PIC_MIN35,"rot.jpg")
GUICtrlSetImage($PIC_MIN40,"rot.jpg")
GUICtrlSetImage($PIC_MIN45,"rot.jpg")
GUICtrlSetImage($PIC_MIN50,"rot.jpg")
GUICtrlSetImage($PIC_MIN55,"rot.jpg")
Case Else
GUICtrlSetImage($PIC_MIN05,"gelb.jpg")
GUICtrlSetImage($PIC_MIN10,"gelb.jpg")
GUICtrlSetImage($PIC_MIN15,"gelb.jpg")
GUICtrlSetImage($PIC_MIN20,"gelb.jpg")
GUICtrlSetImage($PIC_MIN25,"gelb.jpg")
GUICtrlSetImage($PIC_MIN30,"gelb.jpg")
GUICtrlSetImage($PIC_MIN35,"gelb.jpg")
GUICtrlSetImage($PIC_MIN40,"gelb.jpg")
GUICtrlSetImage($PIC_MIN45,"gelb.jpg")
GUICtrlSetImage($PIC_MIN50,"gelb.jpg")
GUICtrlSetImage($PIC_MIN55,"gelb.jpg")
EndSwitch
; Stunde 1 - 4
Switch Mod(@HOUR,5)
Case 1
GUICtrlSetImage($PIC_HOU01,"rot.jpg")
Case 2
GUICtrlSetImage($PIC_HOU01,"rot.jpg")
GUICtrlSetImage($PIC_HOU02,"rot.jpg")
Case 3
GUICtrlSetImage($PIC_HOU01,"rot.jpg")
GUICtrlSetImage($PIC_HOU02,"rot.jpg")
GUICtrlSetImage($PIC_HOU03,"rot.jpg")
Case 4
GUICtrlSetImage($PIC_HOU01,"rot.jpg")
GUICtrlSetImage($PIC_HOU02,"rot.jpg")
GUICtrlSetImage($PIC_HOU03,"rot.jpg")
GUICtrlSetImage($PIC_HOU04,"rot.jpg")
Case Else
GUICtrlSetImage($PIC_HOU01,"gelb.jpg")
GUICtrlSetImage($PIC_HOU02,"gelb.jpg")
GUICtrlSetImage($PIC_HOU03,"gelb.jpg")
GUICtrlSetImage($PIC_HOU04,"gelb.jpg")
EndSwitch
; Minute 5,10,15,20
Switch Int(@HOUR/5)
Case 1
GUICtrlSetImage($PIC_HOU05,"rot.jpg")
Case 2
GUICtrlSetImage($PIC_HOU05,"rot.jpg")
GUICtrlSetImage($PIC_HOU10,"rot.jpg")
Case 3
GUICtrlSetImage($PIC_HOU05,"rot.jpg")
GUICtrlSetImage($PIC_HOU10,"rot.jpg")
GUICtrlSetImage($PIC_HOU15,"rot.jpg")
case 4
GUICtrlSetImage($PIC_HOU05,"rot.jpg")
GUICtrlSetImage($PIC_HOU10,"rot.jpg")
GUICtrlSetImage($PIC_HOU15,"rot.jpg")
GUICtrlSetImage($PIC_HOU20,"rot.jpg")
Case Else
GUICtrlSetImage($PIC_HOU05,"gelb.jpg")
GUICtrlSetImage($PIC_HOU10,"gelb.jpg")
GUICtrlSetImage($PIC_HOU15,"gelb.jpg")
GUICtrlSetImage($PIC_HOU20,"gelb.jpg")
EndSwitch
Sleep(100)
WEnd
Exit
[/autoit] [autoit][/autoit] [autoit]; EXITBUTTON-Start
Func OnExit()
Exit
EndFunc
; EXITBUTTON-Ende
Hallo Bernd
Ich danke Dir für die Berichtigung bzw. Änderung.
Ich bin, wie gesagt erst cirka 2 Wochen dabei Auto-IT zu erlernen und ich arbeite nachts noch nebenbei. Soll keine Entschuldigung sein.
Aber mich hat halt diese Uhr immer begeistert und so hatte ich ein Objekt, das ich umsetzen konnte. Das es nicht die beste Umsetzung war, das hatte ich mir schon gedacht. Aber deshalb freue ich mich auch, das Du mir einen besseren Weg zeigst.
Ich bin eine Frau, die nicht nur sagt "Schön, kann jemand besser.", sondern ich schaue mir die Veränderungen an, versuche diese zu verstehen und dann versuche ich sie na kalr auch bei nächsten mal umzusetzen.
Hatte schon zu Peethebee gesagt, das ich sehr DANKBAR bin, das man hier so nett aufgenommen wird und das einem es nicht übel genommen wird, wenn man nicht den Weg findet den man braucht oder man Befehle / Parameter / usw. nicht versteht.
So, die Datenbankgeschichte habe ich auch noch verstanden und ist, wenn man eine gute Vorlage hat auch eine verständliche Sache.
Viele Sachen sind halt über die MsgBox erklärt. Da wünscht man sich gerade als Anfängerin liebe weitere Beispiele, wie man einen Befehl nutzen kann. Ich habe eine Studie gelesen, da steht drinne, das mehr als 45% aller Europäer/innen schneller durch mehrfach ansehbare Beispiele der verschiedenen Arten lernt und das es den Menschen auch leichter fällt Sachen dann umzusetzen, wenn sie mit der Materie noch nicht im alltäglichen Umgang beschäftigt sind. Kann mal schauen ob ich den Bericht noch finde und wenn, sende ich ihn Dir gerne zu. Stand in einer Fachzeitung für Lehrrettungssanitäter/-assitenen.
So, ich werde mal sehen was jetzt anliegt.
Wünsche einen schönen Abend.
Liebe Grüße,
Lina.