Lotto

[Skorpion]

Lotto

Selam dostlar

sizlerden bir istegim var burdan bir tane lotto icin bir script buldum 

6 numara sorunsuz oluyor

fakat ben 6 numara  ve asagi kisima iki kutucuk daha 0 dan 10 kadar sayi atmasini istiyorum

denedim fakat basarili olamadim

sizlerden ricam bunu benim icin ayarlayabilirmisiniz acaba

 

;Coder By SimpsoN_Bart

Global $_BUTTON = False
Local $GUI = GUICreate("Lotto", 240, 100)
Local $LABEL = GUICtrlCreateLabel("7 Nummer ", 15, 10)
Local $GENERATE = GUICtrlCreateButton("Zahlen", 10, 30, 100, 20)
Local $EXIT = GUICtrlCreateButton("Schließen", 130, 30, 100, 20)
Global $I[6]
For $N = 1 To 6
	$I[$N - 1] = GUICtrlCreateInput("", 10 + 35 * ($N - 1), 60, 30, 20, 10)
Next
GUISetState()

While 1
	$MSG = GUIGetMsg()
	Select
		Case $MSG = -3 Or $MSG = $EXIT
			Exit
		Case $MSG = $GENERATE
			If $_BUTTON = False Then
				$_BUTTON = True
			Else
				$_BUTTON = False
			EndIf
			If $_BUTTON = True Then
				GUICtrlSetData($GENERATE, 'Stop')
				AdlibRegister('_SK_RANDOM_NUMBER', 50)
			EndIf
			If $_BUTTON = False Then
				GUICtrlSetData($GENERATE, 'Zahlen')
				AdlibUnRegister('_SK_RANDOM_NUMBER')
			EndIf
	EndSelect
WEnd



Func _SK_RANDOM_NUMBER()
	For $N = 1 To 6
		GUICtrlSetData($I[$N - 1], Random(1, 49, 1))
	Next
EndFunc   ;==>_SK_RANDOM_NUMBER

 

Edited November 6, 2018 by Skorpion

[darendeli]

Daha once soyle bir   gelistirme denemistim loto hakkında

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=E:\İCO,PNG,BMP\icolar\3035.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=SAYISAL LOTO T.
#AutoIt3Wrapper_Res_Description=Coder
#AutoIt3Wrapper_Res_LegalCopyright=
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>

;-----------sayısalloto-------------
Dim $Sayilar[6]
Global $_BUTTON = False
Local $GUI = GUICreate("Loto Tahmini", 365, 500)
Local $LABEL = GUICtrlCreateLabel("Sayısal Loto Tahmini için Sayı Üret: [6/49]", 20, 10)
Local $GENERATE = GUICtrlCreateButton("Sayı Üret", 10, 30, 210, 20)
GUICtrlSetTip(-1,"Sayısal Loto Tahmini icin Sayı üretiliyor...")
$Group1 = GUICtrlCreateGroup("", 3, 0, 223, 85)
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $I[6]
For $N = 0 To 5
$I[$N] = GUICtrlCreateInput("", 10 + 35 * ($N), 60, 30, 20)
Next
;-----------sayısalloto-------------


;-----------süperloto-------------
Dim $Sayilar1[6]

Global $_BUTTON1 = False

Local $LABEL1 = GUICtrlCreateLabel("Süper Loto Tahmini için Sayı Üret: [6/54]", 25, 90)
Local $GENERATE1 = GUICtrlCreateButton("Sayı Üret", 10, 110, 210, 20)
GUICtrlSetTip(-1,"Süper Loto Tahmini icin Sayı üretiliyor...")
$Group1 = GUICtrlCreateGroup("", 3, 79, 223, 87)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $sayI[6]

For $SP = 0 To 5
$sayI[$SP] = GUICtrlCreateInput("", 10 + 35 * ($SP), 140, 30, 20)
Next
;-----------süperloto-------------

;-----------On Numara-------------

Dim $Sayilar2[10]

Global $_BUTTON2 = False

Local $LABEL2 = GUICtrlCreateLabel("On Numara Tahmini için Sayı Üret: [1/80]", 25, 170)
Local $GENERATE2 = GUICtrlCreateButton("Sayı Üret", 10, 190, 210, 20)
GUICtrlSetTip(-1,"On Numara Tahmini icin Sayı üretiliyor...")
$Group1 = GUICtrlCreateGroup("", 3, 79, 223, 87)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $sayI1[10]

For $ON = 0 To 9
$sayI1[$ON] = GUICtrlCreateInput("",10 + 35 * ($ON), 220, 30, 20)
Next

;-----------On Numara-------------

; ---------ortak ürün :D----------
Local $EXIT = GUICtrlCreateButton("Kapat", 10, 470, 210, 20)
GUISetState()
; ---------ortak ürün :D----------


While 1
$MSG = GUIGetMsg()
;-----------sayısalloto-------------
Select
Case $MSG = -3 Or $MSG = $EXIT
Exit
Case $MSG = $GENERATE
If $_BUTTON = False Then
$_BUTTON = True
Else
$_BUTTON = False
EndIf
If $_BUTTON = True Then
GUICtrlSetData($GENERATE, 'Dur')
AdlibRegister('_SK_RANDOM_NUMBER', 50)
EndIf
If $_BUTTON = False Then
GUICtrlSetData($GENERATE, 'Sayı Üret')
_ArraySort($Sayilar)
For $N = 0 To 5
GUICtrlSetData($I[$N], $Sayilar[$N])
Next
AdlibUnRegister('_SK_RANDOM_NUMBER')
EndIf
EndSelect
;-----------sayısalloto-------------

;-----------süperloto-------------
Select
Case $MSG = $GENERATE1
If $_BUTTON1 = False Then
$_BUTTON1 = True
Else
$_BUTTON1 = False
EndIf
If $_BUTTON1 = True Then
GUICtrlSetData($GENERATE1, 'Dur')
AdlibRegister('_SP_RANDOM_NUMBER', 50)
EndIf
If $_BUTTON1 = False Then
GUICtrlSetData($GENERATE1, 'Sayı Üret')
_ArraySort($Sayilar1)
For $SP = 0 To 5
GUICtrlSetData($sayI[$SP], $Sayilar1[$SP])
Next
AdlibUnRegister('_SP_RANDOM_NUMBER')
EndIf
EndSelect
;-----------süperloto-------------

;-----------On Numara-------------
Select
Case $MSG = $GENERATE2
If $_BUTTON2 = False Then
$_BUTTON2 = True
Else
$_BUTTON2 = False
EndIf
If $_BUTTON2 = True Then
GUICtrlSetData($GENERATE2, 'Dur')
AdlibRegister('_ON_RANDOM_NUMBER', 50)
EndIf
If $_BUTTON2 = False Then
GUICtrlSetData($GENERATE2, 'Sayı Üret')
_ArraySort($Sayilar2)
For $ON = 0 To 9
GUICtrlSetData($sayI1[$ON], $Sayilar2[$ON])
Next
AdlibUnRegister('_ON_RANDOM_NUMBER')
EndIf
EndSelect
;-----------On Numara-------------
WEnd



;-----------sayısalloto-------------
Func _SK_RANDOM_NUMBER()
For $N = 0 To 5
$Sayilar[$N] = Random(1, 49, 1)
GUICtrlSetData($I[$N], $Sayilar[$N])
Next
EndFunc ;==>_SK_RANDOM_NUMBER

;-----------sayısalloto-------------



;-----------süperloto-------------

Func _SP_RANDOM_NUMBER()
For $SP = 0 To 5
$Sayilar1[$SP] = Random(1, 54, 1)
GUICtrlSetData($sayI[$SP], $Sayilar1[$SP])
Next
EndFunc ;==>_SK_RANDOM_NUMBER

;-----------süperloto-------------


;-----------On Numara-------------

Func _ON_RANDOM_NUMBER()
For $ON = 0 To 9
$Sayilar2[$ON] = Random(1, 80, 1)
GUICtrlSetData($sayI1[$ON], $Sayilar2[$ON])
Next
EndFunc ;==>_SK_RANDOM_NUMBER

;-----------On Numara-------------