Hey habe eine Binär uhr erstellt diese zählt nur bis 9 sekunden danach bricht sie ab danke für hilfe
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Retro Exclamation Block.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_LegalCopyright=perrycox15
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: perrycox15
#ce ----------------------------------------------------------------------------
#RequireAdmin
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Global $aus = "Button aus", $an = "Button an", $Bild[21]
[/autoit] [autoit][/autoit] [autoit]Global $pic1,$pic2,$pic3,$pic4,$pic5,$pic6,$pic7,$pic8,$pic9,$pic10,$pic11,$pic12
Global $pic13,$pic14,$pic15,$pic16,$pic17,$pic18,$pic19,$pic20
$Bild[1] = "Button aus"
$Bild[2] = "Button aus"
$Bild[3] = "Button aus"
$Bild[4] = "Button aus"
$Bild[5] = "Button aus"
$Bild[6] = "Button aus"
$Bild[7] = "Button aus"
$Bild[8] = "Button aus"
$Bild[9] = "Button aus"
$Bild[10] = "Button aus"
$Bild[11] = "Button aus"
$Bild[12] = "Button aus"
$Bild[13] = "Button aus"
$Bild[14] = "Button aus"
$Bild[15] = "Button aus"
$Bild[16] = "Button aus"
$Bild[17] = "Button aus"
$Bild[18] = "Button aus"
$Bild[19] = "Button aus"
$Bild[20] = "Button aus"
$hForm = GUICreate("Uhr", 169, 133, 1319, 45)
GUISetCursor (3)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("8", 152, 8, 10, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 7)
$Label2 = GUICtrlCreateLabel("4", 152, 32, 10, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 7)
$Label3 = GUICtrlCreateLabel("2", 152, 56, 10, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 7)
$Label4 = GUICtrlCreateLabel("1", 152, 80, 10, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 7)
$Label5 = GUICtrlCreateLabel("Stunden", 8, 104, 44, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 7)
$Label6 = GUICtrlCreateLabel("Minuten", 56, 104, 42, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 7)
$Label7 = GUICtrlCreateLabel("Sekunden", 104, 104, 53, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 7)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
read()
Case $hForm
read()
EndSwitch
;hier müssen die bilder immer nach read halt geschaut werden
read()
#region h Zehner
$Pic1 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[1]&".jpg", 8, 56, 17, 17)
$Pic2 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[2]&".jpg", 8, 80, 17, 17)
#endregion
#region h Einer
$Pic3 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[3]&".jpg", 32, 8, 17, 17)
$Pic4 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[4]&".jpg", 32, 32, 17, 17)
$Pic5 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[5]&".jpg", 32, 56, 17, 17)
$Pic6 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[6]&".jpg", 32, 80, 17, 17)
#endregion
#region m Zehner
$Pic7 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[7]&".jpg", 56, 32, 17, 17)
$Pic8 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[8]&".jpg", 56, 56, 17, 17)
$Pic9 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[9]&".jpg", 56, 80, 17, 17)
#endregion
#region m Einer
$Pic10 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[10]&".jpg", 80, 8, 17, 17)
$Pic11 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[11]&".jpg", 80, 32, 17, 17)
$Pic12 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[12]&".jpg", 80, 56, 17, 17)
$Pic13 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[13]&".jpg", 80, 80, 17, 17)
#endregion
#region s Zehner
$Pic14 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[14]&".jpg", 104, 32, 17, 17)
$Pic15 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[15]&".jpg", 104, 56, 17, 17)
$Pic16 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[16]&".jpg", 104, 80, 17, 17)
#endregion
#region s Einer
$Pic17 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[17]&".jpg", 128, 8, 17, 17)
$Pic18 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[18]&".jpg", 128, 32, 17, 17)
$Pic19 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[19]&".jpg", 128, 56, 17, 17)
$Pic20 = GUICtrlCreatePic("C:\Users\N3o\Desktop\Autoit\Projekte\Binär Desktop Uhr\"&$Bild[20]&".jpg", 128, 80, 17, 17)
#endregion
Sleep(200)
WEnd
Func read()
Local $arrya[3]
$arrya[0] = @HOUR ; stunden
$arrya[1] = @MIN ; minuten
$arrya[2] = @SEC ; sekunden
anaus($arrya[0],$arrya[1],$arrya[2])
EndFunc
Func anaus($a,$b,$c)
#region Stunden
If $a < 10 Then
If $a = 0 Then
han(0,0)
ElseIf $a = 1 Then
han(0,1)
ElseIf $a = 2 Then
han(0,2)
ElseIf $a = 3 Then
han(0,3)
ElseIf $a = 4 Then
han(0,4)
ElseIf $a = 5 Then
han(0,5)
ElseIf $a = 6 Then
han(0,6)
ElseIf $a = 7 Then
han(0,7)
ElseIf $a = 8 Then
han(0,8)
ElseIf $a = 9 Then
han(0,9)
; Else
; Exit
EndIf
ElseIf $a > 10 and $a < 20 Then
If $a = 10 Then
han(1,0)
ElseIf $a = 11 Then
han(1,1)
ElseIf $a = 12 Then
han(1,2)
ElseIf $a = 13 Then
han(1,3)
ElseIf $a = 14 Then
han(1,4)
ElseIf $a = 15 Then
han(1,5)
ElseIf $a = 16 Then
han(1,6)
ElseIf $a = 17 Then
han(1,7)
ElseIf $a = 18 Then
han(1,8)
ElseIf $a = 19 Then
han(1,9)
; Else
; Exit
EndIf
ElseIf $a > 20 Then
If $a = 20 Then
han(2,0)
ElseIf $a = 21 Then
han(2,1)
ElseIf $a = 22 Then
han(2,2)
ElseIf $a = 23 Then
han(2,3)
ElseIf $a = 24 Then
han(2,4)
ElseIf $a = 25 Then
han(2,5)
ElseIf $a = 26 Then
han(2,6)
ElseIf $a = 27 Then
han(2,7)
ElseIf $a = 28 Then
han(2,8)
ElseIf $a = 29 Then
han(2,9)
; Else
; Exit
EndIf
EndIf
#endregion
#region Minuten
If $b < 10 Then
If $b = 0 Then
man(0,0)
ElseIf $b = 1 Then
man(0,1)
ElseIf $b = 2 Then
man(0,2)
ElseIf $b = 3 Then
man(0,3)
ElseIf $b = 4 Then
man(0,4)
ElseIf $b = 5 Then
man(0,5)
ElseIf $b = 6 Then
man(0,6)
ElseIf $b = 7 Then
man(0,7)
ElseIf $b = 8 Then
man(0,8)
ElseIf $b = 9 Then
man(0,9)
; Else
; Exit
EndIf
ElseIf $b > 10 and $b < 20 Then
If $b = 10 Then
man(1,0)
ElseIf $b = 11 Then
man(1,1)
ElseIf $b = 12 Then
man(1,2)
ElseIf $b = 13 Then
man(1,3)
ElseIf $b = 14 Then
man(1,4)
ElseIf $b = 15 Then
man(1,5)
ElseIf $b = 16 Then
man(1,6)
ElseIf $b = 17 Then
man(1,7)
ElseIf $b = 18 Then
man(1,8)
ElseIf $b = 19 Then
man(1,9)
; Else
; Exit
EndIf
ElseIf $b > 20 Then
If $b = 20 Then
man(2,0)
ElseIf $b = 21 Then
man(2,1)
ElseIf $b = 22 Then
man(2,2)
ElseIf $b = 23 Then
man(2,3)
ElseIf $b = 24 Then
man(2,4)
ElseIf $b = 25 Then
man(2,5)
ElseIf $b = 26 Then
man(2,6)
ElseIf $b = 27 Then
man(2,7)
ElseIf $b = 28 Then
man(2,8)
ElseIf $b = 29 Then
man(2,9)
; Else
; Exit
EndIf
ElseIf $b > 30 Then
If $b = 30 Then
man(3,0)
ElseIf $b = 31 Then
man(3,1)
ElseIf $b = 32 Then
man(3,2)
ElseIf $b = 33 Then
man(3,3)
ElseIf $b = 34 Then
man(3,4)
ElseIf $b = 35 Then
man(3,5)
ElseIf $b = 36 Then
man(3,6)
ElseIf $b = 37 Then
man(3,7)
ElseIf $b = 38 Then
man(3,8)
ElseIf $b = 39 Then
man(3,9)
; Else
; Exit
EndIf
ElseIf $b > 40 Then
If $b = 40 Then
man(4,0)
ElseIf $b = 41 Then
man(4,1)
ElseIf $b = 42 Then
man(4,2)
ElseIf $b = 43 Then
man(4,3)
ElseIf $b = 44 Then
man(4,4)
ElseIf $b = 45 Then
man(4,5)
ElseIf $b = 46 Then
man(4,6)
ElseIf $b = 47 Then
man(4,7)
ElseIf $b = 48 Then
man(4,8)
ElseIf $b = 49 Then
man(4,9)
; Else
; Exit
EndIf
ElseIf $b > 50 Then
If $b = 50 Then
man(5,0)
ElseIf $b = 51 Then
man(5,1)
ElseIf $b = 52 Then
man(5,2)
ElseIf $b = 53 Then
man(5,3)
ElseIf $b = 54 Then
man(5,4)
ElseIf $b = 55 Then
man(5,5)
ElseIf $b = 56 Then
man(5,6)
ElseIf $b = 57 Then
man(5,7)
ElseIf $b = 58 Then
man(5,8)
ElseIf $b = 59 Then
man(5,9)
; Else
; Exit
EndIf
Else
Exit
EndIf
#endregion
#region Sekunden
If $c < 10 Then
If $c = 0 Then
san(0,0)
ElseIf $c = 1 Then
san(0,1)
ElseIf $c = 2 Then
san(0,2)
ElseIf $c = 3 Then
san(0,3)
ElseIf $c = 4 Then
san(0,4)
ElseIf $c = 5 Then
san(0,5)
ElseIf $c = 6 Then
san(0,6)
ElseIf $c = 7 Then
san(0,7)
ElseIf $c = 8 Then
san(0,8)
ElseIf $c = 9 Then
san(0,9)
; Else
; Exit
EndIf
ElseIf $c > 10 and $c < 20 Then
If $c = 10 Then
san(1,0)
ElseIf $c = 11 Then
san(1,1)
ElseIf $c = 12 Then
san(1,2)
ElseIf $c = 13 Then
san(1,3)
ElseIf $c = 14 Then
san(1,4)
ElseIf $c = 15 Then
san(1,5)
ElseIf $c = 16 Then
san(1,6)
ElseIf $c = 17 Then
san(1,7)
ElseIf $c = 18 Then
san(1,8)
ElseIf $c = 19 Then
san(1,9)
; Else
; Exit
EndIf
ElseIf $c > 20 Then
If $c = 20 Then
san(2,0)
ElseIf $c = 21 Then
san(2,1)
ElseIf $c = 22 Then
san(2,2)
ElseIf $c = 23 Then
san(2,3)
ElseIf $c = 24 Then
san(2,4)
ElseIf $c = 25 Then
san(2,5)
ElseIf $c = 26 Then
san(2,6)
ElseIf $c = 27 Then
san(2,7)
ElseIf $c = 28 Then
san(2,8)
ElseIf $c = 29 Then
san(2,9)
; Else
; Exit
EndIf
ElseIf $c > 30 Then
If $c = 30 Then
san(3,0)
ElseIf $c = 31 Then
san(3,1)
ElseIf $c = 32 Then
san(3,2)
ElseIf $c = 33 Then
san(3,3)
ElseIf $c = 34 Then
san(3,4)
ElseIf $c = 35 Then
san(3,5)
ElseIf $c = 36 Then
san(3,6)
ElseIf $c = 37 Then
san(3,7)
ElseIf $c = 38 Then
san(3,8)
ElseIf $c = 39 Then
san(3,9)
; Else
; Exit
EndIf
ElseIf $c > 40 Then
If $c = 40 Then
san(4,0)
ElseIf $c = 41 Then
san(4,1)
ElseIf $c = 42 Then
san(4,2)
ElseIf $c = 43 Then
san(4,3)
ElseIf $c = 44 Then
san(4,4)
ElseIf $c = 45 Then
san(4,5)
ElseIf $c = 46 Then
san(4,6)
ElseIf $c = 47 Then
san(4,7)
ElseIf $c = 48 Then
san(4,8)
ElseIf $c = 49 Then
san(4,9)
; Else
; Exit
EndIf
ElseIf $c > 50 Then
If $c = 50 Then
san(5,0)
ElseIf $c = 51 Then
san(5,1)
ElseIf $c = 52 Then
san(5,2)
ElseIf $c = 53 Then
san(5,3)
ElseIf $c = 54 Then
san(5,4)
ElseIf $c = 55 Then
san(5,5)
ElseIf $c = 56 Then
san(5,6)
ElseIf $c = 57 Then
san(5,7)
ElseIf $c = 58 Then
san(5,8)
ElseIf $c = 59 Then
san(5,9)
; Else
; Exit
EndIf
Else
Exit
EndIf
#endregion
EndFunc
Func han($a,$b)
#region Stunden Zehner
If $a = 0 Then
$Bild[1] = $aus
$Bild[2] = $aus
ElseIf $a = 1 Then
$Bild[1] = $aus
$Bild[2] = $an
ElseIf $a = 2 Then
$Bild[1] = $an
$Bild[2] = $aus
;Else
; Exit
EndIf
#endregion
#region Stunden Einer
If $b = 1 Then
$Bild[6] = $an
$Bild[5] = $aus
$Bild[4] = $aus
$Bild[3] = $aus
ElseIf $b = 2 Then
$Bild[6] = $aus
$Bild[5] = $an
$Bild[4] = $aus
$Bild[3] = $aus
ElseIf $b = 3 Then
$Bild[6] = $an
$Bild[5] = $an
$Bild[4] = $aus
$Bild[3] = $aus
ElseIf $b = 4 Then
$Bild[6] = $aus
$Bild[5] = $aus
$Bild[4] = $an
$Bild[3] = $aus
ElseIf $b = 5 Then
$Bild[6] = $an
$Bild[5] = $aus
$Bild[4] = $an
$Bild[3] = $aus
ElseIf $b = 6 Then
$Bild[6] = $aus
$Bild[5] = $an
$Bild[4] = $an
$Bild[3] = $aus
ElseIf $b = 7 Then
$Bild[6] = $an
$Bild[5] = $an
$Bild[4] = $an
$Bild[3] = $aus
ElseIf $b = 8 Then
$Bild[6] = $aus
$Bild[5] = $aus
$Bild[4] = $aus
$Bild[3] = $an
ElseIf $b = 9 Then
$Bild[6] = $an
$Bild[5] = $aus
$Bild[4] = $aus
$Bild[3] = $an
;Else
; Exit
EndIf
#endregion
EndFunc
Func man($a,$b)
#region Minuten Zehner
If $a = 0 Then
$Bild[7] = $aus
$Bild[8] = $aus
$Bild[9] = $aus
ElseIf $a = 1 Then
$Bild[7] = $aus
$Bild[8] = $aus
$Bild[9] = $an
ElseIf $a = 2 Then
$Bild[7] = $aus
$Bild[8] = $an
$Bild[9] = $aus
ElseIf $a = 3 Then
$Bild[7] = $aus
$Bild[8] = $an
$Bild[9] = $an
ElseIf $a = 4 Then
$Bild[7] = $an
$Bild[8] = $aus
$Bild[9] = $aus
ElseIf $a = 5 Then
$Bild[7] = $an
$Bild[8] = $aus
$Bild[9] = $an
;Else
; Exit
EndIf
#endregion
#region Minuten Einer
If $b = 1 Then
$Bild[13] = $an
$Bild[12] = $aus
$Bild[11] = $aus
$Bild[10] = $aus
ElseIf $b = 2 Then
$Bild[13] = $aus
$Bild[12] = $an
$Bild[11] = $aus
$Bild[10] = $aus
ElseIf $b = 3 Then
$Bild[13] = $an
$Bild[12] = $an
$Bild[11] = $aus
$Bild[10] = $aus
ElseIf $b = 4 Then
$Bild[13] = $aus
$Bild[12] = $aus
$Bild[11] = $an
$Bild[10] = $aus
ElseIf $b = 5 Then
$Bild[13] = $an
$Bild[12] = $aus
$Bild[11] = $an
$Bild[10] = $aus
ElseIf $b = 6 Then
$Bild[13] = $aus
$Bild[12] = $an
$Bild[11] = $an
$Bild[10] = $aus
ElseIf $b = 7 Then
$Bild[13] = $an
$Bild[12] = $an
$Bild[11] = $an
$Bild[10] = $aus
ElseIf $b = 8 Then
$Bild[13] = $aus
$Bild[12] = $aus
$Bild[11] = $aus
$Bild[10] = $an
ElseIf $b = 9 Then
$Bild[13] = $an
$Bild[12] = $aus
$Bild[11] = $aus
$Bild[10] = $an
;Else
; Exit
EndIf
#endregion
EndFunc
Func san($a,$b)
#region Sekunden Zehner
If $a = 0 Then
$Bild[14] = $aus
$Bild[15] = $aus
$Bild[16] = $aus
ElseIf $a = 1 Then
$Bild[14] = $aus
$Bild[15] = $aus
$Bild[16] = $an
ElseIf $a = 2 Then
$Bild[14] = $aus
$Bild[15] = $an
$Bild[16] = $aus
ElseIf $a = 3 Then
$Bild[14] = $aus
$Bild[15] = $an
$Bild[16] = $an
ElseIf $a = 4 Then
$Bild[14] = $an
$Bild[15] = $aus
$Bild[16] = $aus
ElseIf $a = 5 Then
$Bild[14] = $an
$Bild[15] = $aus
$Bild[16] = $an
;Else
; Exit
EndIf
#endregion
#region Sekunden Einer
If $b = 1 Then
$Bild[20] = $an
$Bild[19] = $aus
$Bild[18] = $aus
$Bild[17] = $aus
ElseIf $b = 2 Then
$Bild[20] = $aus
$Bild[19] = $an
$Bild[18] = $aus
$Bild[17] = $aus
ElseIf $b = 3 Then
$Bild[20] = $an
$Bild[19] = $an
$Bild[18] = $aus
$Bild[17] = $aus
ElseIf $b = 4 Then
$Bild[20] = $aus
$Bild[19] = $aus
$Bild[18] = $an
$Bild[17] = $aus
ElseIf $b = 5 Then
$Bild[20] = $an
$Bild[19] = $aus
$Bild[18] = $an
$Bild[17] = $aus
ElseIf $b = 6 Then
$Bild[20] = $aus
$Bild[19] = $an
$Bild[18] = $an
$Bild[17] = $aus
ElseIf $b = 7 Then
$Bild[20] = $an
$Bild[19] = $an
$Bild[18] = $an
$Bild[17] = $aus
ElseIf $b = 8 Then
$Bild[20] = $aus
$Bild[19] = $aus
$Bild[18] = $aus
$Bild[17] = $an
ElseIf $b = 9 Then
$Bild[20] = $an
$Bild[19] = $aus
$Bild[18] = $aus
$Bild[17] = $an
;Else
; Exit
EndIf
#endregion
EndFunc
thx Dr. Cox
