Pick 3 number generator

[Mast3rpyr0]

Simple 50 line app to generate 1000 numbers for each of the 3 numbers in the Pick 3. Which ever number, 0-9, is picked the most is set as one of the digits.

expandcollapse popup

#include <GuiConstants.au3>
#include <Array.au3>

HotKeySet("{ESC}", "_exit")

Global $firstPick, $secondPick, $thirdPick, $arr[10]

$gui = GUICreate("Pick 3 Picker", 300, 200)
$goBtn = GUICtrlCreateButton("  Generate  ", 100, 25, 100)
$first = GUICtrlCreateLabel("1  -  ", 25, 80)
$second = GUICtrlCreateLabel("2  -  ", 25, 120)
$third = GUICtrlCreateLabel("3  -  ", 25, 160)

GUISetState(@SW_SHOW, $gui)

While 1
    $gMsg = GUIGetMsg()
    Switch $gMsg
    Case $GUI_EVENT_CLOSE
        _exit()
    Case $goBtn
        $firstPick = genDigits()
        $secondPick = genDigits()
        $thirdPick = genDigits()
        _updateCtrls()
    EndSwitch
WEnd

Func genDigits()
    For $x = 1 To 1000 Step 1
        $temp = Random(0, 9, 1)
        $arr[$temp] = $arr[$temp] + 1
    Next
    
    $y = _ArrayMaxIndex($arr)
    Global $arr[10]
    Return $y
    
EndFunc

Func _updateCtrls()
    GUICtrlSetData($first, "1  -  " & $firstPick)
    GUICtrlSetData($second, "2  -  " & $secondPick)
    GUICtrlSetData($third, "3  -  " & $thirdPick)
EndFunc

Func _exit()
    exit
EndFunc

[martin]

Simple 50 line app to generate 1000 numbers for each of the 3 numbers in the Pick 3. Which ever number, 0-9, is picked the most is set as one of the digits.

expandcollapse popup

#include <GuiConstants.au3>
#include <Array.au3>

HotKeySet("{ESC}", "_exit")

Global $firstPick, $secondPick, $thirdPick, $arr[10]

$gui = GUICreate("Pick 3 Picker", 300, 200)
$goBtn = GUICtrlCreateButton("  Generate  ", 100, 25, 100)
$first = GUICtrlCreateLabel("1  -  ", 25, 80)
$second = GUICtrlCreateLabel("2  -  ", 25, 120)
$third = GUICtrlCreateLabel("3  -  ", 25, 160)

GUISetState(@SW_SHOW, $gui)

While 1
    $gMsg = GUIGetMsg()
    Switch $gMsg
    Case $GUI_EVENT_CLOSE
        _exit()
    Case $goBtn
        $firstPick = genDigits()
        $secondPick = genDigits()
        $thirdPick = genDigits()
        _updateCtrls()
    EndSwitch
WEnd

Func genDigits()
    For $x = 1 To 1000 Step 1
        $temp = Random(0, 9, 1)
        $arr[$temp] = $arr[$temp] + 1
    Next
    
    $y = _ArrayMaxIndex($arr)
    Global $arr[10]
    Return $y
    
EndFunc

Func _updateCtrls()
    GUICtrlSetData($first, "1  -  " & $firstPick)
    GUICtrlSetData($second, "2  -  " & $secondPick)
    GUICtrlSetData($third, "3  -  " & $thirdPick)
EndFunc

Func _exit()
    exit
EndFunc

Not a clue what it's for

What is the purpose of the function genDigits? It will be biased towards lower numbers and so will not be so random as Random(0, 9, 1). For example, if the scores for digits selected after 1000 selections are equal for one or more digit then _ArrayMaxIndex($arr) will return the first one it finds.

Looks to me like Random(0, 9, 1) would be better than genDigits().

#include <GuiConstants.au3>

HotKeySet("{ESC}", "_exit")

Global $firstPick, $secondPick, $thirdPick, $arr[10]

$gui = GUICreate("Pick 3 Picker", 300, 200)
$goBtn = GUICtrlCreateButton("  Generate  ", 100, 25, 100)
$first = GUICtrlCreateLabel("1  -  ", 25, 80)
$second = GUICtrlCreateLabel("2  -  ", 25, 120)
$third = GUICtrlCreateLabel("3  -  ", 25, 160)

GUISetState(@SW_SHOW, $gui)

While 1
    $gMsg = GUIGetMsg()
    Switch $gMsg
    Case $GUI_EVENT_CLOSE
        _exit()
    Case $goBtn
        _updateCtrls()
    EndSwitch
WEnd

Func _updateCtrls()
    GUICtrlSetData($first, "1  -  " & Random(0,9,1))
    GUICtrlSetData($second, "2  -  " & Random(0,9,1))
    GUICtrlSetData($third, "3  -  " & Random(0,9,1))
EndFunc

Func _exit()
    exit
EndFunc