Hallo,
ist es möglich, Schleifen in Switch/Case zu verwenden, so in dieser Art?
While 1
Switch GUIGetMsg()
For $i=0 to 20 step 1
Case $conrol[$i]
_funktion($i)
next
EndSwitch
WEnd
Gruß Gremlin
Schleifen in Switch/Case?
-
- [ gelöst ]
-
Gremlin78 -
17. Februar 2015 um 07:46 -
Erledigt
-
Ja, mit einem Workaround. Nutz einfach den Ruckgabewert einer User Funktion. Bin am Handy, sonst wuerde ich dir ein Beispiel scvreiben
-
- Offizieller Beitrag
Was soll das für einen Sinn ergeben?
Warum soll die Case-Anweisung 21 mal abgefragt werden? -
- Offizieller Beitrag
Häh?
Zeig mal das Script. Das geht sicherlich auch einfacher/besser. -
- Offizieller Beitrag
Ich habe mal nur den Check auf 6 Zahlen eingebaut:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=LottoChance.exe
#AutoIt3Wrapper_Res_Description=v1.2.04
#AutoIt3Wrapper_Res_Comment=Lottochancen-GENERATOR: 6 aus 49
#AutoIt3Wrapper_Res_Field=Companyname|dk78soft
#AutoIt3Wrapper_Res_LegalCopyright=dk78soft
#AutoIt3Wrapper_Res_ProductVersion=1.2.0.4
#AutoIt3Wrapper_Res_FileVersion=1.2.0.4
#AutoIt3Wrapper_Res_Language=7
#AutoIt3Wrapper_UseUpx
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 2 -w 4 -w 6
#AutoIt3Wrapper_Icon=lotto.ico
;#AutoIt3Wrapper_Res_Icon_Add=cancel.ico
;#AutoIt3Wrapper_Res_Icon_Add=ok.ico
;#AutoIt3Wrapper_Res_Icon_Add=write.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#include <ComboConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <Date.au3>
#include <File.au3>
HotKeySet('{F9}', '_break')Global $aLottoNum[49], $timer, $bBreak = False, $iCount = 0
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To 49
$aLottoNum[$i - 1] = $i
Next
Global $progname = 'LottoChance', $mycompany = 'dkSoftware', $version = '1.02.04'
Global $breite = 410, $hoehe = 280
Global $Form1 = GUICreate($progname, $breite, $hoehe, -1, -1, $WS_Border + $WS_POPUP + $WS_CLIPSIBLINGS)
Global $ribboncontext = GUICtrlCreateMenu("o(°U°)o ")
Global $idrandom = GUICtrlCreateMenuItem("Zufallsgenerator", $ribboncontext)
Global $idclean = GUICtrlCreateMenuItem("Tip löschen", $ribboncontext)
Global $idsim = GUICtrlCreateMenuItem("Simulation starten", $ribboncontext)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateMenuItem("", $ribboncontext)
Global $ribbonexit = GUICtrlCreateMenuItem("Beenden", $ribboncontext)Global $ahCheck[49]
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To 48
$ahCheck[$i] = GUICtrlCreateCheckbox($i + 1, 5 + Mod($i, 7) * 30, 5 + Int($i / 7) * 30, 30, 30, $BS_PUSHLIKE)
GUICtrlSetFont(-1, 12, 400, 0, "IMPACT")
GUICtrlSetTip(-1, "Wählen Sie ihre 6 Zahlen")
NextGlobal $label1 = GUICtrlCreateLabel(' 6 Zahlen auswählen!', 5, 235, 400, 16, 1)
[/autoit] [autoit][/autoit] [autoit]
Global $label3 = GUICtrlCreateLabel('0', 250, 15, 60, 16, 2)
GUICtrlSetFont(-1, 10, 800, '', 'Tahoma')
GUICtrlCreateLabel('x 3 Richtige', 312, 17, 70, 15)
Global $label4 = GUICtrlCreateLabel('0', 250, 35, 60, 16, 2)
GUICtrlSetFont(-1, 10, 800, '', 'Tahoma')
GUICtrlCreateLabel('x 4 Richtige', 312, 37, 70, 15)
Global $label5 = GUICtrlCreateLabel('0', 250, 55, 60, 16, 2)
GUICtrlSetFont(-1, 10, 800, '', 'Tahoma')
GUICtrlCreateLabel('x 5 Richtige', 312, 57, 70, 15)
Global $label6 = GUICtrlCreateLabel('0', 250, 78, 60, 18, 2)
GUICtrlSetFont(-1, 12, 800, '', 'Tahoma')
GUICtrlCreateLabel('x 6 Richtige', 312, 82, 70, 15)
Global $hStatusb = _GUICtrlStatusBar_Create($Form1, -1, "", $SBARS_TOOLTIPS)
Global $aParts[2] = [$breite - 200, $breite]
Global $prozess = GUICtrlCreateProgress(15, 220, 380,
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState()_GUICtrlStatusBar_SetMinHeight($hStatusb, 25)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlStatusBar_SetParts($hStatusb, $aParts)
Global $hIcon = __WinAPI_ShellExtractIcons(@ScriptFullPath, 0, 16, 16)
_GUICtrlStatusBar_SetIcon($hStatusb, 0, $hIcon)_GUICtrlStatusBar_SetText($hStatusb, ' ' & $progname & ' ' & $version, 0)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case $ribbonexit
Exit
Case $ahCheck[0] To $ahCheck[48]
_CheckUserInput()
Case $idrandom
_Randoming()
Case $idclean
_Clear()
Case $idsim
_Start()EndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEndFunc _CheckUserInput()
[/autoit] [autoit][/autoit] [autoit]
Local $iCount = 0
For $i = 0 To UBound($ahCheck) - 1
If BitAND(GUICtrlRead($ahCheck[$i]), $GUI_CHECKED) Then $iCount += 1
Next
If $iCount = 6 Then
For $i = 0 To UBound($ahCheck) - 1
If Not BitAND(GUICtrlRead($ahCheck[$i]), $GUI_CHECKED) Then GUICtrlSetState($ahCheck[$i], $GUI_DISABLE)
Next
Else
For $i = 0 To UBound($ahCheck) - 1
If Not BitAND(GUICtrlRead($ahCheck[$i]), $GUI_CHECKED) Then GUICtrlSetState($ahCheck[$i], $GUI_ENABLE)
Next
EndIf
EndFunc ;==>_CheckUserInputFunc _Randoming()
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To 48
GUICtrlSetState($ahCheck[$i], $GUI_DISABLE)
GUICtrlSetState($ahCheck[$i], $GUI_UNCHECKED)
Next
Local $result, $zahl
For $i = 1 To 6
Do
$zahl = Random(1, 49, 1)
GUICtrlSetState($ahCheck[$zahl - 1], $GUI_CHECKED)
Until StringInStr($result, $zahl) = 0
$result &= StringRight($zahl, StringLen($zahl) - 1)Next
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($idsim, $GUI_ENABLE)
_CheckboxCounter()
If $iCount <> 6 Then _Randoming()
AdlibUnRegister()
EndFunc ;==>_RandomingFunc _Break()
[/autoit] [autoit][/autoit] [autoit]
$bBreak = True
GUICtrlSetState($idsim, $GUI_DISABLE)
GUICtrlSetState($idrandom, $GUI_ENABLE)
GUICtrlSetState($idclean, $GUI_ENABLE)
GUICtrlSetState($prozess, $GUI_HIDE)
GUICtrlSetData($label1, ' Start-Button anklicken!')
EndFunc ;==>_BreakFunc _Clear()
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To 48
GUICtrlSetState($ahCheck[$i], $GUI_ENABLE)
GUICtrlSetState($ahCheck[$i], $GUI_UNCHECKED)
Next
GUICtrlSetState($idsim, $GUI_DISABLE)
GUICtrlSetData($label1, ' 6 Zahlen auswählen!')
EndFunc ;==>_ClearFunc _Start()
[/autoit] [autoit][/autoit] [autoit]
_CheckboxCounter()
If $iCount <> 6 Then _Randoming()
GUICtrlSetState($idrandom, $GUI_DISABLE)
GUICtrlSetState($idclean, $GUI_DISABLE)
GUICtrlSetState($idsim, $GUI_DISABLE)
GUICtrlSetData($label3, 0)
GUICtrlSetData($label4, 0)
GUICtrlSetData($label5, 0)
GUICtrlSetData($label6, 0)
GUICtrlSetState($prozess, $GUI_SHOW)
GUICtrlSetData($prozess, 0)
Local $aTip[6], $aDraw, $iWin = StringLeft(6, 1), $i3, $i4, $i5, $i6
$iCount = 0
For $i = 0 To 48
If BitAND(GUICtrlRead($ahCheck[$i]), $GUI_CHECKED) Then
$aTip[$iCount] = $i + 1
$iCount += 1
EndIf
Next
$iCount = 0
GUICtrlSetData($label1, ' Bitte warten...')$timer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister('_DisplayTimer', 500)
Do$iCount += 1
[/autoit] [autoit][/autoit] [autoit]
$aDraw = _Lottodraw()
Switch _Win($aTip, $aDraw)Case 3
[/autoit] [autoit][/autoit] [autoit]
$i3 += 1
GUICtrlSetData($label3, $i3)
If $i3 = 5 Then GUICtrlSetData($prozess, 1)
If $i3 = 10 Then GUICtrlSetData($prozess, 2)
If $i3 = 25 Then GUICtrlSetData($prozess, 3)
If $i3 = 50 Then GUICtrlSetData($prozess, 4)
If $i3 = 100 Then GUICtrlSetData($prozess, 5)
If $i3 = 1000 Then GUICtrlSetData($prozess, 10)
If $i3 = 2000 Then GUICtrlSetData($prozess, 15)
If $i3 = 3000 Then GUICtrlSetData($prozess, 20)
If $i3 = 5000 Then GUICtrlSetData($prozess, 30)
If $i3 = 7500 Then GUICtrlSetData($prozess, 40)
If $i3 = 10000 Then GUICtrlSetData($prozess, 50)
If $i3 = 15000 Then GUICtrlSetData($prozess, 60)
If $i3 = 20000 Then GUICtrlSetData($prozess, 70)
If $i3 = 30000 Then GUICtrlSetData($prozess, 80)
If $i3 = 50000 Then GUICtrlSetData($prozess, 90)
If $i3 = 75000 Then GUICtrlSetData($prozess, 95)
Case 4
$i4 += 1
GUICtrlSetData($label4, $i4)
Case 5
$i5 += 1
GUICtrlSetData($label5, $i5)
Case 6
$i6 += 1
GUICtrlSetData($prozess, 100)
$bBreak = True
GUICtrlSetData($label6, $i6)
GUICtrlSetData($label1, ' Gewonnen!')
MsgBox(0, 'Lottogewinn', 'Hurra, ' & $iWin & ' Richtige!' & @CRLF & 'Anzahl der Ziehungen: ' _
& _NumberFormatThousand($iCount) & @CRLF & 'Benötigte Zeit: ' & _NumberFormatThousand(Round(TimerDiff($timer) / 1000)) & ' sek.')
GUICtrlSetState($prozess, $GUI_HIDE)
EndSwitchUntil $bBreak
[/autoit] [autoit][/autoit] [autoit]
$bBreak = False
GUICtrlSetState($idclean, $GUI_ENABLE)
GUICtrlSetState($idsim, $GUI_ENABLE)
GUICtrlSetState($idrandom, $GUI_ENABLE)
AdlibUnRegister()
EndFunc ;==>_StartFunc _DisplayTimer()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($label1, ' Bitte warten... ' & _NumberFormatThousand($iCount) & ' Ziehungen')
EndFunc ;==>_DisplayTimerFunc _Lottodraw()
[/autoit] [autoit][/autoit] [autoit]
Local $aTmp = $aLottoNum, $aDraw[6], $iTmp
For $i = 0 To 5
Local $iRandom = Random(0, 48 - $i, 1)
$aDraw[$i] = $aTmp[$iRandom]
$aTmp[$iRandom] = $aTmp[48 - $i]
Next
_ArraySort($aDraw)
Return $aDraw
EndFunc ;==>_LottodrawFunc _Win($aTip, $aDraw)
[/autoit] [autoit][/autoit] [autoit]
Local $iCount = 0
For $i = 0 To 5
If $aTip[$i] = $aDraw[$i] Then $iCount += 1
Next
Return $iCount
EndFunc ;==>_WinFunc _CheckboxCounter()
[/autoit] [autoit][/autoit] [autoit]
Global $iCount = 0
For $i = 0 To 48
$iCount += BitAND(GUICtrlRead($ahCheck[$i]), $GUI_CHECKED)
Next
GUICtrlSetData($label1, ' ' & 6 - $iCount & ' Zahlen auswählen!')
If $iCount = 6 Then
_CheckboxState($GUI_DISABLE)
GUICtrlSetState($idsim, $GUI_ENABLE)
GUICtrlSetData($label1, ' Start-Button anklicken!')
Else
_CheckboxState($GUI_ENABLE)
GUICtrlSetState($idsim, $GUI_DISABLE)
EndIf
EndFunc ;==>_CheckboxCounterFunc _CheckboxState($State)
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To 48
If BitAND(GUICtrlRead($ahCheck[$i]), $GUI_UNCHECKED) Then GUICtrlSetState($ahCheck[$i], $State)
Next
EndFunc ;==>_CheckboxStateFunc _NumberFormatThousand($vNumber, $ret = 'DE') ; bis 18 Vorkommastellen
[/autoit] [autoit][/autoit] [autoit]
Local $sOut = '', $a = StringRegExp(StringReplace($vNumber, '.', ','), "(-?\d{1,3})(\d{3})?(\d{3})?(\d{3})?(\d{3})?(\d{3})?(?:\Z|(,\d+))", 3)
For $i = 0 To UBound($a) - 1
If $a[$i] <> '' Then $sOut &= '.' & $a[$i]
Next
If $ret <> 'DE' Then Return StringTrimLeft(StringReplace(StringReplace($sOut, '.', ','), ',,', '.'), 1)
Return StringTrimLeft(StringReplace($sOut, '.,', ','), 1)
EndFunc ;==>_NumberFormatThousandFunc __WinAPI_ShellExtractIcons($sIcon, $iIndex, $iWidth, $iHeight)
[/autoit]
Local $ret = DllCall('shell32.dll', 'int', 'SHExtractIconsW', 'wstr', $sIcon, 'int', $iIndex, 'int', $iWidth, 'int', $iHeight, 'ptr*', 0, 'ptr*', 0, 'int', 1, 'int', 0)
If (@error) Or ($ret[0] = 0) Or ($ret[5] = Ptr(0)) Then Return SetError(1, 0, 0)
Return $ret[5]
EndFunc ;==>__WinAPI_ShellExtractIcons -
- Offizieller Beitrag
Hier noch eine kürzere Version der Funktion "_CheckUserInput":
Spoiler anzeigen
[autoit]
[/autoit]
Func _CheckUserInput()
Local $iCount = 0
For $Checkbox In $ahCheck
If BitAND(GUICtrlRead($Checkbox), $GUI_CHECKED) Then $iCount += 1
Next
For $Checkbox In $ahCheck
If Not BitAND(GUICtrlRead($Checkbox), $GUI_CHECKED) Then GUICtrlSetState($Checkbox, ($iCount = 6 ? $GUI_DISABLE : $GUI_ENABLE))
Next
EndFunc ;==>_CheckUserInput