Jump to content
Sign in to follow this  
Skorpion

Lotto

Recommended Posts

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 by Skorpion

Share this post


Link to post
Share on other sites

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-------------

 

  • Like 1

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...