Da mir langweilig war, habe ich ein kleines vollkommen überflüssiges Script geschrieben
Das Script zeigt die eingegebene Zahl Digitalzahl-mäßig in Form von Progressbars an.
Spoiler anzeigen
;by Luke4321
[/autoit] [autoit][/autoit] [autoit]#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
Global $Progress[10][4]
$Form1 = GUICreate("Progress Zahl", 600, 376)
$Left=8
$Up=8
$Progress[1][1] = GUICtrlCreateProgress($Left+30, $Up+0, 90, 30) ;O
$Progress[2][1] = GUICtrlCreateProgress($Left+0, $Up+0, 30, 120, $PBS_VERTICAL) ;OL
$Progress[3][1] = GUICtrlCreateProgress($Left+120, $Up+0, 30, 120, $PBS_VERTICAL) ;OR
$Progress[4][1] = GUICtrlCreateProgress($Left+30, $Up+120, 90, 30) ;M
$Progress[5][1] = GUICtrlCreateProgress($Left+0, $Up+150, 30, 120, $PBS_VERTICAL) ;UL
$Progress[6][1] = GUICtrlCreateProgress($Left+120, $Up+150, 30, 120, $PBS_VERTICAL);UR
$Progress[7][1] = GUICtrlCreateProgress($Left+30, $Up+240, 90, 30) ;U
$Progress[8][1] = GUICtrlCreateProgress($Left+0, $Up+120, 30, 30) ;L
$Progress[9][1] = GUICtrlCreateProgress($Left+120, $Up+120, 30, 30) ;R
$Left=218
$Up=8
$Progress[1][2] = GUICtrlCreateProgress($Left+30, $Up+0, 90, 30) ;O
$Progress[2][2] = GUICtrlCreateProgress($Left+0, $Up+0, 30, 120, $PBS_VERTICAL) ;OL
$Progress[3][2] = GUICtrlCreateProgress($Left+120, $Up+0, 30, 120, $PBS_VERTICAL) ;OR
$Progress[4][2] = GUICtrlCreateProgress($Left+30, $Up+120, 90, 30) ;M
$Progress[5][2] = GUICtrlCreateProgress($Left+0, $Up+150, 30, 120, $PBS_VERTICAL) ;UL
$Progress[6][2] = GUICtrlCreateProgress($Left+120, $Up+150, 30, 120, $PBS_VERTICAL);UR
$Progress[7][2] = GUICtrlCreateProgress($Left+30, $Up+240, 90, 30) ;U
$Progress[8][2] = GUICtrlCreateProgress($Left+0, $Up+120, 30, 30) ;L
$Progress[9][2] = GUICtrlCreateProgress($Left+120, $Up+120, 30, 30) ;R
$Left=426
$Up=8
$Progress[1][3] = GUICtrlCreateProgress($Left+30, $Up+0, 90, 30) ;O
$Progress[2][3] = GUICtrlCreateProgress($Left+0, $Up+0, 30, 120, $PBS_VERTICAL) ;OL
$Progress[3][3] = GUICtrlCreateProgress($Left+120, $Up+0, 30, 120, $PBS_VERTICAL) ;OR
$Progress[4][3] = GUICtrlCreateProgress($Left+30, $Up+120, 90, 30) ;M
$Progress[5][3] = GUICtrlCreateProgress($Left+0, $Up+150, 30, 120, $PBS_VERTICAL) ;UL
$Progress[6][3] = GUICtrlCreateProgress($Left+120, $Up+150, 30, 120, $PBS_VERTICAL);UR
$Progress[7][3] = GUICtrlCreateProgress($Left+30, $Up+240, 90, 30) ;U
$Progress[8][3] = GUICtrlCreateProgress($Left+0, $Up+120, 30, 30) ;L
$Progress[9][3] = GUICtrlCreateProgress($Left+120, $Up+120, 30, 30) ;R
$Label1 = GUICtrlCreateLabel("Bitte gebe eine beliebige Zahl ein:", 8, 332, 264, 17)
$Input1 = GUICtrlCreateInput("0", 8, 348, 153, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUISetState(@SW_SHOW)
$OldInput=""
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$Input=GUICtrlRead($Input1)
If StringLen($Input)=0 Then
$Input&=" "
ElseIf StringLen($Input)=1 Then
$Input&=" "
ElseIf StringLen($Input)=2 Then
$Input&=" "
EndIf
If StringLen($Input)>3 Then
$Input=StringRight($Input,3)
GUICtrlSetData($Input1,$Input)
ElseIf $Input<>$OldInput And $Input<>"" Then
$OldInput=$Input
;1. Zahl
$Zahl1=StringLeft($Input,1)
Draw($Zahl1,1)
;2. Zahl
$Zahl1=StringLeft(StringTrimLeft($Input,1),1)
Draw($Zahl1,2)
;3. Zahl
$Zahl1=StringRight($Input,1)
Draw($Zahl1,3)
EndIf
WEnd
Func Draw($Zahl,$NumberNr)
Switch $Zahl
Case " "
Set(1,$NumberNr,0)
Set(2,$NumberNr,0)
Set(3,$NumberNr,0)
Set(4,$NumberNr,0)
Set(5,$NumberNr,0)
Set(6,$NumberNr,0)
Set(7,$NumberNr,0)
Set(8,$NumberNr,0)
Set(9,$NumberNr,0)
Case 0
Set(1,$NumberNr,1)
Set(2,$NumberNr,1)
Set(3,$NumberNr,1)
Set(4,$NumberNr,0)
Set(5,$NumberNr,1)
Set(6,$NumberNr,1)
Set(7,$NumberNr,1)
Set(8,$NumberNr,1)
Set(9,$NumberNr,1)
Case 1
Set(1,$NumberNr,0)
Set(2,$NumberNr,0)
Set(3,$NumberNr,1)
Set(4,$NumberNr,0)
Set(5,$NumberNr,0)
Set(6,$NumberNr,1)
Set(7,$NumberNr,0)
Set(8,$NumberNr,0)
Set(9,$NumberNr,1)
Case 2
Set(1,$NumberNr,1)
Set(2,$NumberNr,0)
Set(3,$NumberNr,1)
Set(4,$NumberNr,1)
Set(5,$NumberNr,1)
Set(6,$NumberNr,0)
Set(7,$NumberNr,1)
Set(8,$NumberNr,1)
Set(9,$NumberNr,1)
Case 3
Set(1,$NumberNr,1)
Set(2,$NumberNr,0)
Set(3,$NumberNr,1)
Set(4,$NumberNr,1)
Set(5,$NumberNr,0)
Set(6,$NumberNr,1)
Set(7,$NumberNr,1)
Set(8,$NumberNr,0)
Set(9,$NumberNr,1)
Case 4
Set(1,$NumberNr,0)
Set(2,$NumberNr,1)
Set(3,$NumberNr,1)
Set(4,$NumberNr,1)
Set(5,$NumberNr,0)
Set(6,$NumberNr,1)
Set(7,$NumberNr,0)
Set(8,$NumberNr,1)
Set(9,$NumberNr,1)
Case 5
Set(1,$NumberNr,1)
Set(2,$NumberNr,1)
Set(3,$NumberNr,0)
Set(4,$NumberNr,1)
Set(5,$NumberNr,0)
Set(6,$NumberNr,1)
Set(7,$NumberNr,1)
Set(8,$NumberNr,1)
Set(9,$NumberNr,1)
Case 6
Set(1,$NumberNr,1)
Set(2,$NumberNr,1)
Set(3,$NumberNr,0)
Set(4,$NumberNr,1)
Set(5,$NumberNr,1)
Set(6,$NumberNr,1)
Set(7,$NumberNr,1)
Set(8,$NumberNr,1)
Set(9,$NumberNr,1)
Case 7
Set(1,$NumberNr,1)
Set(2,$NumberNr,0)
Set(3,$NumberNr,1)
Set(4,$NumberNr,0)
Set(5,$NumberNr,0)
Set(6,$NumberNr,1)
Set(7,$NumberNr,0)
Set(8,$NumberNr,0)
Set(9,$NumberNr,1)
Case 8
Set(1,$NumberNr,1)
Set(2,$NumberNr,1)
Set(3,$NumberNr,1)
Set(4,$NumberNr,1)
Set(5,$NumberNr,1)
Set(6,$NumberNr,1)
Set(7,$NumberNr,1)
Set(8,$NumberNr,1)
Set(9,$NumberNr,1)
Case 9
Set(1,$NumberNr,1)
Set(2,$NumberNr,1)
Set(3,$NumberNr,1)
Set(4,$NumberNr,1)
Set(5,$NumberNr,0)
Set(6,$NumberNr,1)
Set(7,$NumberNr,1)
Set(8,$NumberNr,1)
Set(9,$NumberNr,1)
EndSwitch
EndFunc
Func Set($Pos,$NumberNr,$Full=1)
If $Full=1 Then
$Percent=100
Else
$Percent=0
EndIf
GUICtrlSetData($Progress[$Pos][$NumberNr],$Percent)
EndFunc