Sayısal Loto Tahmini V1 + V2

[SimpsoN_Bart]

Basit olarak sayısal tahmin yapıyor, kim bilir bu programla belki sizde zengin olabilirsiniz.

Kodlamada örnek alınabilir yerler koydum örneğin tek butonla 2 iş yapmak, random kullanımı kodlama da en çok kullandığım AdlibRegister() ve AdlibUnRegister() kodu kullanımı ve dizi kullanımı umarım işinize yarar.Kolay gelsin.

 

 

;Coder By SimpsoN_Bart

Global $_BUTTON = False
Local $GUI = GUICreate("Loto Tahmini", 230, 100)
Local $LABEL = GUICtrlCreateLabel("Sayısal Loto Tahmini için Sayı Üret:", 5, 10)
Local $GENERATE = GUICtrlCreateButton("Sayı Üret", 10, 30, 100, 20)
Local $EXIT = GUICtrlCreateButton("Kapat", 116, 30, 100, 20)
Global $I[6]
For $N = 1 To 6
	$I[$N - 1] = GUICtrlCreateInput("", 10 + 35 * ($N - 1), 60, 30, 20)
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, 'Dur')
				AdlibRegister('_SK_RANDOM_NUMBER', 50)
			EndIf
			If $_BUTTON = False Then
				GUICtrlSetData($GENERATE, 'Sayı Üret')
				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

Program + Source Code v1+v2
https://www.box.com/s/sikapn3htb7ssf1pymr1
https://www.box.com/s/va710629db1qokjc8znk

Edited February 6, 2013 by SimpsoN_Bart

[m3hm3t1991]

linkte sorun var..

[SimpsoN_Bart]

[font="Georgia"]Bende hata vermedi ama tekrar upload ediyorum hemen[/font]

[blackman12]

Seçtiği sayıları sıralıyor:
[codebox]
#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 S.K
#AutoIt3Wrapper_Res_LegalCopyright=TNCTR
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;Coder By SimpsoN_Bart
#include <Array.au3>
Dim $Sayilar[6]
Global $_BUTTON = False
Local $GUI = GUICreate("Loto Tahmini", 230, 100)
Local $LABEL = GUICtrlCreateLabel("Sayısal Loto Tahmini için Sayı Üret:", 5, 10)
Local $GENERATE = GUICtrlCreateButton("Sayı Üret", 10, 30, 100, 20)
Local $EXIT = GUICtrlCreateButton("Kapat", 116, 30, 100, 20)
Global $I[6]
For $N = 0 To 5
$I[$N] = GUICtrlCreateInput("", 10 + 35 * ($N), 60, 30, 20)
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, '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
WEnd

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[/codebox]

[SimpsoN_Bart]

[font="Georgia"]
[font="Georgia"][img]http://i.imgur.com/hZZHU.png[/img]
[/font]Hemen ardıdan V2 versiyonu sizlerle.. [/font]
[font="Georgia"][codebox]#include <Array.au3>

Local $Form1 = GUICreate("Loto Tahmini", 392, 153, 192, 114)
Local $Button1 = GUICtrlCreateButton("Sayı Üret", 72, 112, 89, 25)
Local $Button2 = GUICtrlCreateButton("Kapat", 216, 112, 97, 25)

$Label1 = GUICtrlCreateLabel("", 8, 72, 36, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("", 72, 72, 36, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("", 136, 72, 36, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("", 200, 72, 36, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("", 264, 72, 36, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("", 328, 72, 36, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel("Sayısal Loto Tahmini için Sayı Üret:", 8, 40, 182, 17)
GUISetState(@SW_SHOW)
Global $array[6]

While 1
$nMsg = GUIGetMsg()
If $nMsg = $Button1 Then
$sayac = 6
While $sayac > 0
$sayi = Random(1, 49, 1)
_ArraySearch($array, $sayi)
If @error Then
_ArrayInsert($array, "", $sayi)
$sayac = $sayac - 1
EndIf
WEnd
$Progress1 = GUICtrlCreateProgress(192, 24, 193, 9)
$Label8 = GUICtrlCreateLabel("İşlem...", 192, 0, 59, 17)
GUICtrlSetData($Progress1, 10)
Sleep(1000)
GUICtrlSetData($Label1, $array[0])
GUICtrlSetData($Progress1, 20)
Sleep(800)
GUICtrlSetData($Label2, $array[1])
GUICtrlSetData($Progress1, 35)
Sleep(600)
GUICtrlSetData($Label3, $array[2])
GUICtrlSetData($Progress1, 50)
Sleep(400)
GUICtrlSetData($Label4, $array[3])
GUICtrlSetData($Progress1, 70)
Sleep(200)
GUICtrlSetData($Label5, $array[4])
GUICtrlSetData($Progress1, 100)
GUICtrlSetData($Label6, $array[5])
GUICtrlSetData($Label8, "Sayılarınız!")
EndIf
If $nMsg = $Button2 Then
Exit
EndIf
WEnd[/codebox]
[/font]

[font="Georgia"][color="#ff0000"]Edit v1+v2 blackman12 modifye source + program;[/color][/font]
[font="Georgia"]http://www.mediafire.com/download.php?71aie64p7rzsnzt[/font]

Edited December 1, 2011 by SimpsoN_Bart

[MostWanted]

Ve bence tek tek input yapacağına bi textbox koysaydın hepsini.Olsun düşünce güzel, gelişme süper.

[g.a]

[center][b]Alternetif Link:[/b]
[img]http://i.imgur.com/HgTbI.png[/img]
[quote]http://gokberk.byethost11.com/slt/[/quote][/center]

Edited December 2, 2011 by g.a

[xxselxx]

çok güzel bu hafta sayısal bende, sayısal bayinin yazar kasayı bile alacam elinden