[Ex] Random stat

[jumby]

Bonjour,

Je vous fait part de ma création.

Celle-ci permet, une fois que l'utilisateur à défini le nombre de random(1, 10) à faire, d'avoir des données détaillés sur le pourcentage et le nombre d'apparition de chaque nombre de 1 à 10 issus de la fonction random, les écarts des valeurs extrêmes ainsi que l'apparition moyenne des nombres.

Cela peut s'avérer utile si l'on veut voir si l'apparition de chaque nombre est équitable sur par exemple 10.000 random en une poignée de seconde.
J'ai moi même développé ce script pour tester cette fonction puisque je la sollicitais beaucoup.

Voici le code :

► Afficher le texte

Code : Tout sélectionner

;Author:  Jumby
 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Math.au3>

$Form1 = GUICreate("Random stat", 600, 350)
$Label1 = GUICtrlCreateLabel("Tirage nombre 1 : 0 (0%)", 8, 16, 268, 17)
$Label2 = GUICtrlCreateLabel("Tirage nombre 2 : 0 (0%)", 8, 40, 268, 17)
$Label3 = GUICtrlCreateLabel("Tirage nombre 3 : 0 (0%)", 8, 64, 268, 17)
$Label4 = GUICtrlCreateLabel("Tirage nombre 4 : 0 (0%)", 8, 88, 268, 17)
$Label5 = GUICtrlCreateLabel("Tirage nombre 5 : 0 (0%)", 8, 112, 268, 17)
$Label6 = GUICtrlCreateLabel("Tirage nombre 6 : 0 (0%)", 8, 136, 268, 17)
$Label7 = GUICtrlCreateLabel("Tirage nombre 7 : 0 (0%)", 8, 160, 268, 17)
$Label8 = GUICtrlCreateLabel("Tirage nombre 8 : 0 (0%)", 8, 184, 268, 17)
$Label9 = GUICtrlCreateLabel("Tirage nombre 9 : 0 (0%)", 8, 208, 268, 17)
$Label10 = GUICtrlCreateLabel("Tirage nombre 10 : 0 (0%)", 8, 232, 268, 17)
$Label11 = GUICtrlCreateLabel("Moyenne de tirage d'un chiffre : 0 % "&@crlf&"Soit une moyenne de 0 tirage par chiffre."&@crlf&@crlf&"Ecart valeurs extrêmes : 0 % "&@crlf&"Soit 0 tirage d'écart entre les valeurs extrêmes.", 250, 24, 400, 185)
$Label12 = GUICtrlCreateLabel("Tirages effectués : 0 (0 %)", 8, 256, 268, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Start !", 20, 296, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $numbertotest = InputBox('Combien de tirage ?', 'Entrez un nombre entier de tirage à effectuer.', '10000')

$numbertotest2 = number($numbertotest)
                if Isnumber($numbertotest2) and  Isint($numbertotest2) and  $numbertotest2 > 0 Then
                    GUICtrlSetState($Button1, $GUI_DISABLE)
                $percent1 = 0
                $numberof1_2 = 0
                $percent2 = 0
                $numberof2_2 = 0
                $percent3 = 0
                $numberof3_2 = 0
                $percent4 = 0
                $numberof4_2 = 0
                $percent5 = 0
                $numberof5_2 = 0
                $percent6 = 0
                $numberof6_2 = 0
                $percent7 = 0
                $numberof7_2 = 0
                $percent8 = 0
                $numberof8_2 = 0
                $percent9 = 0
                $numberof9_2 = 0
                $percent10 = 0
                $numberof10_2 = 0
                $testminmax2 = 1
    
            
            for $a = 1 to $numbertotest 
                $valuetested = Random(1, 10 , 1)
                if $valuetested = 1 Then
                    $numberof1_1 = $numberof1_2
                    $numberof1_2 = $numberof1_1 + 1
                    $percent1 = ( $numberof1_2 * 100) / $numbertotest
                    $percent1todisplay = StringMid( $percent1, 1, 7)
                    GUICtrlSetData($Label1, "Tirage nombre 1 : "&$numberof1_2  & "  ("&$percent1todisplay&" %)")
                EndIf
                
                if $valuetested = 3 Then
                    $numberof3_1 = $numberof3_2
                    $numberof3_2 = $numberof3_1 + 1
                    $percent3 = ( $numberof3_2 * 100) / $numbertotest
                    $percent3todisplay = StringMid( $percent3, 1, 7)
                    GUICtrlSetData($Label3, "Tirage nombre 3 : "&$numberof3_2  & "  ("&$percent3todisplay&" %)")
                EndIf
                
                if $valuetested = 2 Then
                    $numberof2_1 = $numberof2_2
                    $numberof2_2 = $numberof2_1 + 1
                    $percent2 = ( $numberof2_2 * 100) / $numbertotest
                    $percent2todisplay = StringMid( $percent2, 1, 7)
                    GUICtrlSetData($Label2, "Tirage nombre 2 : "&$numberof2_2  & "  ("&$percent2todisplay&" %)")
                EndIf
                
                if $valuetested = 4 Then
                    $numberof4_1 = $numberof4_2
                    $numberof4_2 = $numberof4_1 + 1
                    $percent4 = ( $numberof4_2 * 100) / $numbertotest
                    $percent4todisplay = StringMid( $percent4, 1, 7)
                    GUICtrlSetData($Label4, "Tirage nombre 4 : "&$numberof4_2  & "  ("&$percent4todisplay&" %)")
                EndIf
                
                if $valuetested = 5 Then
                    $numberof5_1 = $numberof5_2
                    $numberof5_2 = $numberof5_1 + 1
                    $percent5 = ( $numberof5_2 * 100) / $numbertotest
                    $percent5todisplay = StringMid( $percent5, 1, 7)
                    GUICtrlSetData($Label5, "Tirage nombre 5 : "&$numberof5_2  & "  ("&$percent5todisplay&" %)")
                EndIf
                
                if $valuetested = 6 Then
                    $numberof6_1 = $numberof6_2
                    $numberof6_2 = $numberof6_1 + 1
                    $percent6 = ( $numberof6_2 * 100) / $numbertotest
                    $percent6todisplay = StringMid( $percent6, 1, 7)
                    GUICtrlSetData($Label6, "Tirage nombre 6 : "&$numberof6_2  & "  ("&$percent6todisplay&" %)")
                EndIf
                
                if $valuetested = 7 Then
                    $numberof7_1 = $numberof7_2
                    $numberof7_2 = $numberof7_1 + 1
                    $percent7 = ( $numberof7_2 * 100) / $numbertotest
                    $percent7todisplay = StringMid( $percent7, 1, 7)
                    GUICtrlSetData($Label7, "Tirage nombre 7 : "&$numberof7_2  & "  ("&$percent7todisplay&" %)")
                EndIf
                
                if $valuetested = 8 Then
                    $numberof8_1 = $numberof8_2
                    $numberof8_2 = $numberof8_1 + 1
                    $percent8 = ( $numberof8_2 * 100) / $numbertotest
                    $percent8todisplay = StringMid( $percent8, 1, 7)
                    GUICtrlSetData($Label8, "Tirage nombre 8 : "&$numberof8_2  & "  ("&$percent8todisplay&" %)")
                EndIf
                
                if $valuetested = 9 Then
                    $numberof9_1 = $numberof9_2
                    $numberof9_2 = $numberof9_1 + 1
                    $percent9 = ( $numberof9_2 * 100) / $numbertotest
                    $percent9todisplay = StringMid( $percent9, 1, 7)
                    GUICtrlSetData($Label9, "Tirage nombre 9 : "&$numberof9_2  & "  ("&$percent9todisplay&" %)")
                EndIf
                
                if $valuetested = 10 Then
                    $numberof10_1 = $numberof10_2
                    $numberof10_2 = $numberof10_1 + 1
                    $percent10 = ( $numberof10_2 * 100) / $numbertotest
                    $percent10todisplay = StringMid( $percent10, 1, 7)
                    GUICtrlSetData($Label10, "Tirage nombre 10 : "&$numberof10_2  & "  ("&$percent10todisplay&" %)")
                EndIf
                
                $moyenneapparition = ( $percent10 + $percent9 + $percent8 + $percent7 + $percent6 + $percent5 + $percent4 + $percent3 + $percent2 + $percent1 ) / 10
                $moyenneapparitiontodisplay = StringMid( $moyenneapparition , 1, 7)
                $moyenneapparition2 = ( $numberof10_2 + $numberof9_2 + $numberof8_2 + $numberof7_2 + $numberof6_2 + $numberof5_2 + $numberof4_2 + $numberof3_2 + $numberof2_2 + $numberof1_2) / 10
                $moyenneapparition2todisplay = int ( $moyenneapparition2)
if $a = $numbertotest or $a = $testminmax2 Then
                $testmin1_1 = _min($percent1, $percent2)
                $testmin2_1 = _min($percent1, $percent3)
                $testmin3_1 = _min($percent1, $percent4)
                $testmin4_1 = _min($percent1, $percent5)
                $testmin5_1 = _min($percent1, $percent6)
                $testmin6_1 = _min($percent1, $percent7)
                $testmin7_1 = _min($percent1, $percent8)
                $testmin8_1 = _min($percent1, $percent9)
                $testmin9_1 = _min($percent1, $percent10)
                $testmax1_1 = _max($percent1, $percent2)
                $testmax2_1 = _max($percent1, $percent3)
                $testmax3_1 = _max($percent1, $percent4)
                $testmax4_1 = _max($percent1, $percent5)
                $testmax5_1 = _max($percent1, $percent6)
                $testmax6_1 = _max($percent1, $percent7)
                $testmax7_1 = _max($percent1, $percent8)
                $testmax8_1 = _max($percent1, $percent9)
                $testmax9_1 = _max($percent1, $percent10)               
                if $testmin1_1 = $percent1 Then
                if $testmin2_1 = $percent1 Then
                if $testmin3_1 = $percent1 Then
                if $testmin4_1 = $percent1 Then
                if $testmin5_1 = $percent1 Then
                if $testmin6_1 = $percent1 Then
                if $testmin7_1 = $percent1 Then
                if $testmin8_1 = $percent1 Then
                if $testmin9_1 = $percent1 Then
                $minimum = $percent1
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_1 = $percent1 Then
                if $testmax2_1 = $percent1 Then
                if $testmax3_1 = $percent1 Then
                if $testmax4_1 = $percent1 Then
                if $testmax5_1 = $percent1 Then
                if $testmax6_1 = $percent1 Then
                if $testmax7_1 = $percent1 Then
                if $testmax8_1 = $percent1 Then
                if $testmax9_1 = $percent1 Then
                $maximum = $percent1
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_2 = _min($percent2, $percent1)
                $testmin2_2 = _min($percent2, $percent3)
                $testmin3_2 = _min($percent2, $percent4)
                $testmin4_2 = _min($percent2, $percent5)
                $testmin5_2 = _min($percent2, $percent6)
                $testmin6_2 = _min($percent2, $percent7)
                $testmin7_2 = _min($percent2, $percent8)
                $testmin8_2 = _min($percent2, $percent9)
                $testmin9_2 = _min($percent2, $percent10)
                $testmax1_2 = _max($percent2, $percent3)
                $testmax2_2 = _max($percent2, $percent1)
                $testmax3_2 = _max($percent2, $percent4)
                $testmax4_2 = _max($percent2, $percent5)
                $testmax5_2 = _max($percent2, $percent6)
                $testmax6_2 = _max($percent2, $percent7)
                $testmax7_2 = _max($percent2, $percent8)
                $testmax8_2 = _max($percent2, $percent9)
                $testmax9_2 = _max($percent2, $percent10)
                if $testmin1_2 = $percent2 Then
                if $testmin2_2 = $percent2 Then
                if $testmin3_2 = $percent2 Then
                if $testmin4_2 = $percent2 Then
                if $testmin5_2 = $percent2 Then
                if $testmin6_2 = $percent2 Then
                if $testmin7_2 = $percent2 Then
                if $testmin8_2 = $percent2 Then
                if $testmin9_2 = $percent2 Then
                $minimum = $percent2
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_2 = $percent2 Then
                if $testmax2_2 = $percent2 Then
                if $testmax3_2 = $percent2 Then
                if $testmax4_2 = $percent2 Then
                if $testmax5_2 = $percent2 Then
                if $testmax6_2 = $percent2 Then
                if $testmax7_2 = $percent2 Then
                if $testmax8_2 = $percent2 Then
                if $testmax9_2 = $percent2 Then
                $maximum = $percent2
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_3 = _min($percent3, $percent1)
                $testmin2_3 = _min($percent3, $percent2)
                $testmin3_3 = _min($percent3, $percent4)
                $testmin4_3 = _min($percent3, $percent5)
                $testmin5_3 = _min($percent3, $percent6)
                $testmin6_3 = _min($percent3, $percent7)
                $testmin7_3 = _min($percent3, $percent8)
                $testmin8_3 = _min($percent3, $percent9)
                $testmin9_3 = _min($percent3, $percent10)
                $testmax1_3 = _max($percent3, $percent2)
                $testmax2_3 = _max($percent3, $percent1)
                $testmax3_3 = _max($percent3, $percent4)
                $testmax4_3 = _max($percent3, $percent5)
                $testmax5_3 = _max($percent3, $percent6)
                $testmax6_3 = _max($percent3, $percent7)
                $testmax7_3 = _max($percent3, $percent8)
                $testmax8_3 = _max($percent3, $percent9)
                $testmax9_3 = _max($percent3, $percent10)
                if $testmin1_3 = $percent3 Then
                if $testmin2_3 = $percent3 Then
                if $testmin3_3 = $percent3 Then
                if $testmin4_3 = $percent3 Then
                if $testmin5_3 = $percent3 Then
                if $testmin6_3 = $percent3 Then
                if $testmin7_3 = $percent3 Then
                if $testmin8_3 = $percent3 Then
                if $testmin9_3 = $percent3 Then
                $minimum = $percent3
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_3 = $percent3 Then
                if $testmax3_3 = $percent3 Then
                if $testmax3_3 = $percent3 Then
                if $testmax4_3 = $percent3 Then
                if $testmax5_3 = $percent3 Then
                if $testmax6_3 = $percent3 Then
                if $testmax7_3 = $percent3 Then
                if $testmax8_3 = $percent3 Then
                if $testmax9_3 = $percent3 Then
                $maximum = $percent3
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_4 = _min($percent4, $percent1)
                $testmin2_4 = _min($percent4, $percent2)
                $testmin3_4 = _min($percent4, $percent3)
                $testmin4_4 = _min($percent4, $percent5)
                $testmin5_4 = _min($percent4, $percent6)
                $testmin6_4 = _min($percent4, $percent7)
                $testmin7_4 = _min($percent4, $percent8)
                $testmin8_4 = _min($percent4, $percent9)
                $testmin9_4 = _min($percent4, $percent10)
                $testmax1_4 = _max($percent4, $percent2)
                $testmax2_4 = _max($percent4, $percent1)
                $testmax3_4 = _max($percent4, $percent4)
                $testmax4_4 = _max($percent4, $percent5)
                $testmax5_4 = _max($percent4, $percent6)
                $testmax6_4 = _max($percent4, $percent7)
                $testmax7_4 = _max($percent4, $percent8)
                $testmax8_4 = _max($percent4, $percent9)
                $testmax9_4 = _max($percent4, $percent10)
                if $testmin1_4 = $percent4 Then
                if $testmin2_4 = $percent4 Then
                if $testmin3_4 = $percent4 Then
                if $testmin4_4 = $percent4 Then
                if $testmin5_4 = $percent4 Then
                if $testmin6_4 = $percent4 Then
                if $testmin7_4 = $percent4 Then
                if $testmin8_4 = $percent4 Then
                if $testmin9_4 = $percent4 Then
                $minimum = $percent4
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_4 = $percent4 Then
                if $testmax3_4 = $percent4 Then
                if $testmax3_4 = $percent4 Then
                if $testmax4_4 = $percent4 Then
                if $testmax5_4 = $percent4 Then
                if $testmax6_4 = $percent4 Then
                if $testmax7_4 = $percent4 Then
                if $testmax8_4 = $percent4 Then
                if $testmax9_4 = $percent4 Then
                $maximum = $percent4
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_5 = _min($percent5, $percent1)
                $testmin2_5 = _min($percent5, $percent2)
                $testmin3_5 = _min($percent5, $percent3)
                $testmin4_5 = _min($percent5, $percent4)
                $testmin5_5 = _min($percent5, $percent6)
                $testmin6_5 = _min($percent5, $percent7)
                $testmin7_5 = _min($percent5, $percent8)
                $testmin8_5 = _min($percent5, $percent9)
                $testmin9_5 = _min($percent5, $percent10)
                $testmax1_5 = _max($percent5, $percent2)
                $testmax2_5 = _max($percent5, $percent1)
                $testmax3_5 = _max($percent5, $percent4)
                $testmax4_5 = _max($percent5, $percent3)
                $testmax5_5 = _max($percent5, $percent6)
                $testmax6_5 = _max($percent5, $percent7)
                $testmax7_5 = _max($percent5, $percent8)
                $testmax8_5 = _max($percent5, $percent9)
                $testmax9_5 = _max($percent5, $percent10)
                if $testmin1_5 = $percent5 Then
                if $testmin2_5 = $percent5 Then
                if $testmin3_5 = $percent5 Then
                if $testmin4_5 = $percent5 Then
                if $testmin5_5 = $percent5 Then
                if $testmin6_5 = $percent5 Then
                if $testmin7_5 = $percent5 Then
                if $testmin8_5 = $percent5 Then
                if $testmin9_5 = $percent5 Then
                $minimum = $percent5
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_5 = $percent5 Then
                if $testmax3_5 = $percent5 Then
                if $testmax3_5 = $percent5 Then
                if $testmax4_5 = $percent5 Then
                if $testmax5_5 = $percent5 Then
                if $testmax6_5 = $percent5 Then
                if $testmax7_5 = $percent5 Then
                if $testmax8_5 = $percent5 Then
                if $testmax9_5 = $percent5 Then
                $maximum = $percent5
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_6 = _min($percent6, $percent1)
                $testmin2_6 = _min($percent6, $percent2)
                $testmin3_6 = _min($percent6, $percent3)
                $testmin4_6 = _min($percent6, $percent4)
                $testmin5_6 = _min($percent6, $percent5)
                $testmin6_6 = _min($percent6, $percent7)
                $testmin7_6 = _min($percent6, $percent8)
                $testmin8_6 = _min($percent6, $percent9)
                $testmin9_6 = _min($percent6, $percent10)
                $testmax1_6 = _max($percent6, $percent2)
                $testmax2_6 = _max($percent6, $percent1)
                $testmax3_6 = _max($percent6, $percent4)
                $testmax4_6 = _max($percent6, $percent3)
                $testmax5_6 = _max($percent6, $percent5)
                $testmax6_6 = _max($percent6, $percent7)
                $testmax7_6 = _max($percent6, $percent8)
                $testmax8_6 = _max($percent6, $percent9)
                $testmax9_6 = _max($percent6, $percent10)
                if $testmin1_6 = $percent6 Then
                if $testmin2_6 = $percent6 Then
                if $testmin3_6 = $percent6 Then
                if $testmin4_6 = $percent6 Then
                if $testmin5_6 = $percent6 Then
                if $testmin6_6 = $percent6 Then
                if $testmin7_6 = $percent6 Then
                if $testmin8_6 = $percent6 Then
                if $testmin9_6 = $percent6 Then
                $minimum = $percent6
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_6 = $percent6 Then
                if $testmax3_6 = $percent6 Then
                if $testmax3_6 = $percent6 Then
                if $testmax4_6 = $percent6 Then
                if $testmax5_6 = $percent6 Then
                if $testmax6_6 = $percent6 Then
                if $testmax7_6 = $percent6 Then
                if $testmax8_6 = $percent6 Then
                if $testmax9_6 = $percent6 Then
                $maximum = $percent6
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_7 = _min($percent7, $percent1)
                $testmin2_7 = _min($percent7, $percent2)
                $testmin3_7 = _min($percent7, $percent3)
                $testmin4_7 = _min($percent7, $percent4)
                $testmin5_7 = _min($percent7, $percent6)
                $testmin6_7 = _min($percent7, $percent5)
                $testmin7_7 = _min($percent7, $percent8)
                $testmin8_7 = _min($percent7, $percent9)
                $testmin9_7 = _min($percent7, $percent10)
                $testmax1_7 = _max($percent7, $percent2)
                $testmax2_7 = _max($percent7, $percent1)
                $testmax3_7 = _max($percent7, $percent4)
                $testmax4_7 = _max($percent7, $percent3)
                $testmax5_7 = _max($percent7, $percent6)
                $testmax6_7 = _max($percent7, $percent5)
                $testmax7_7 = _max($percent7, $percent8)
                $testmax8_7 = _max($percent7, $percent9)
                $testmax9_7 = _max($percent7, $percent10)
                if $testmin1_7 = $percent7 Then
                if $testmin2_7 = $percent7 Then
                if $testmin3_7 = $percent7 Then
                if $testmin4_7 = $percent7 Then
                if $testmin5_7 = $percent7 Then
                if $testmin6_7 = $percent7 Then
                if $testmin7_7 = $percent7 Then
                if $testmin8_7 = $percent7 Then
                if $testmin9_7 = $percent7 Then
                $minimum = $percent7
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_7 = $percent7 Then
                if $testmax3_7 = $percent7 Then
                if $testmax3_7 = $percent7 Then
                if $testmax4_7 = $percent7 Then
                if $testmax5_7 = $percent7 Then
                if $testmax6_7 = $percent7 Then
                if $testmax7_7 = $percent7 Then
                if $testmax8_7 = $percent7 Then
                if $testmax9_7 = $percent7 Then
                $maximum = $percent7
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_8 = _min($percent8, $percent1)
                $testmin2_8 = _min($percent8, $percent2)
                $testmin3_8 = _min($percent8, $percent3)
                $testmin4_8 = _min($percent8, $percent4)
                $testmin5_8 = _min($percent8, $percent6)
                $testmin6_8 = _min($percent8, $percent7)
                $testmin7_8 = _min($percent8, $percent5)
                $testmin8_8 = _min($percent8, $percent9)
                $testmin9_8 = _min($percent8, $percent10)
                $testmax1_8 = _max($percent8, $percent2)
                $testmax2_8 = _max($percent8, $percent1)
                $testmax3_8 = _max($percent8, $percent4)
                $testmax4_8 = _max($percent8, $percent3)
                $testmax5_8 = _max($percent8, $percent6)
                $testmax6_8 = _max($percent8, $percent7)
                $testmax7_8 = _max($percent8, $percent5)
                $testmax8_8 = _max($percent8, $percent9)
                $testmax9_8 = _max($percent8, $percent10)
                if $testmin1_8 = $percent8 Then
                if $testmin2_8 = $percent8 Then
                if $testmin3_8 = $percent8 Then
                if $testmin4_8 = $percent8 Then
                if $testmin5_8 = $percent8 Then
                if $testmin6_8 = $percent8 Then
                if $testmin7_8 = $percent8 Then
                if $testmin8_8 = $percent8 Then
                if $testmin9_8 = $percent8 Then
                $minimum = $percent8
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_8 = $percent8 Then
                if $testmax3_8 = $percent8 Then
                if $testmax3_8 = $percent8 Then
                if $testmax4_8 = $percent8 Then
                if $testmax5_8 = $percent8 Then
                if $testmax6_8 = $percent8 Then
                if $testmax7_8 = $percent8 Then
                if $testmax8_8 = $percent8 Then
                if $testmax9_8 = $percent8 Then
                $maximum = $percent8
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_9 = _min($percent9, $percent1)
                $testmin2_9 = _min($percent9, $percent2)
                $testmin3_9 = _min($percent9, $percent3)
                $testmin4_9 = _min($percent9, $percent4)
                $testmin5_9 = _min($percent9, $percent6)
                $testmin6_9 = _min($percent9, $percent7)
                $testmin7_9 = _min($percent9, $percent8)
                $testmin8_9 = _min($percent9, $percent5)
                $testmin9_9 = _min($percent9, $percent10)
                $testmax1_9 = _max($percent9, $percent2)
                $testmax2_9 = _max($percent9, $percent1)
                $testmax3_9 = _max($percent9, $percent4)
                $testmax4_9 = _max($percent9, $percent3)
                $testmax5_9 = _max($percent9, $percent6)
                $testmax6_9 = _max($percent9, $percent7)
                $testmax7_9 = _max($percent9, $percent8)
                $testmax8_9 = _max($percent9, $percent5)
                $testmax9_9 = _max($percent9, $percent10)
                if $testmin1_9 = $percent9 Then
                if $testmin2_9 = $percent9 Then
                if $testmin3_9 = $percent9 Then
                if $testmin4_9 = $percent9 Then
                if $testmin5_9 = $percent9 Then
                if $testmin6_9 = $percent9 Then
                if $testmin7_9 = $percent9 Then
                if $testmin8_9 = $percent9 Then
                if $testmin9_9 = $percent9 Then
                $minimum = $percent9
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_9 = $percent9 Then
                if $testmax3_9 = $percent9 Then
                if $testmax3_9 = $percent9 Then
                if $testmax4_9 = $percent9 Then
                if $testmax5_9 = $percent9 Then
                if $testmax6_9 = $percent9 Then
                if $testmax7_9 = $percent9 Then
                if $testmax8_9 = $percent9 Then
                if $testmax9_9 = $percent9 Then
                $maximum = $percent9
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                $testmin1_10 = _min($percent10, $percent1)
                $testmin2_10 = _min($percent10, $percent2)
                $testmin3_10 = _min($percent10, $percent3)
                $testmin4_10 = _min($percent10, $percent4)
                $testmin5_10 = _min($percent10, $percent6)
                $testmin6_10 = _min($percent10, $percent7)
                $testmin7_10 = _min($percent10, $percent8)
                $testmin8_10 = _min($percent10, $percent9)
                $testmin9_10 = _min($percent10, $percent5)
                $testmax1_10 = _max($percent10, $percent2)
                $testmax2_10 = _max($percent10, $percent1)
                $testmax3_10 = _max($percent10, $percent4)
                $testmax4_10 = _max($percent10, $percent3)
                $testmax5_10 = _max($percent10, $percent6)
                $testmax6_10 = _max($percent10, $percent7)
                $testmax7_10 = _max($percent10, $percent8)
                $testmax8_10 = _max($percent10, $percent9)
                $testmax9_10 = _max($percent10, $percent5)
                if $testmin1_10 = $percent10 Then
                if $testmin2_10 = $percent10 Then
                if $testmin3_10 = $percent10 Then
                if $testmin4_10 = $percent10 Then
                if $testmin5_10 = $percent10 Then
                if $testmin6_10 = $percent10 Then
                if $testmin7_10 = $percent10 Then
                if $testmin8_10 = $percent10 Then
                if $testmin9_10 = $percent10 Then
                $minimum = $percent10
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                if $testmax1_10 = $percent10 Then
                if $testmax3_10 = $percent10 Then
                if $testmax3_10 = $percent10 Then
                if $testmax4_10 = $percent10 Then
                if $testmax5_10 = $percent10 Then
                if $testmax6_10 = $percent10 Then
                if $testmax7_10 = $percent10 Then
                if $testmax8_10 = $percent10 Then
                if $testmax9_10 = $percent10 Then
                $maximum = $percent10
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
                EndIf
$testminmax1 = $testminmax2
$testminmax2 = $testminmax1 + 100
            $ecartvalueextrem = $maximum - $minimum
            $ecartvalueextremtodisplay = StringMid($ecartvalueextrem, 1, 7)
            $ecarttirage = int(($ecartvalueextremtodisplay * $numbertotest) / 100)
            Guictrlsetdata($Label11, "Moyenne apparition d'un chiffre : "&$moyenneapparitiontodisplay&" %"&@crlf&"Soit une moyenne d'approximativement "&$moyenneapparition2todisplay&" tirages par chiffre."&@crlf&@crlf&"Ecart valeurs extrêmes : "&$ecartvalueextremtodisplay&" %"& @crlf&"Soit approximativement "&$ecarttirage&" tirages d'écart entre les valeurs extrêmes.")
            $totaltirage = ($numberof10_2 + $numberof9_2 + $numberof8_2 + $numberof7_2 + $numberof6_2 + $numberof5_2 + $numberof4_2 + $numberof3_2 + $numberof2_2 + $numberof1_2)
            $pourcentageglobal = ($totaltirage * 100) / $numbertotest
            $pourcentageglobaltodisplay = StringMid($pourcentageglobal , 1, 5)
            GUICtrlSetData($Label12, "Tirages effectués : "&$totaltirage&" ("&$pourcentageglobaltodisplay&" %)")
EndIf

            Next
            GUICtrlSetState($Button1, $GUI_ENABLE)
        Else
MsgBox(0, 'Nombre incorrect', 'Entrez un nombre entier et suppérieur à 0 de tirage à effectuer.')
        EndIf


    EndSwitch
WEnd
 

[tolf]

Il serait intéressant d'utiliser les tableaux dans votre script pour raccourcir le code :

Code : Tout sélectionner

Dim $Label[10]
For $i = 0 To 9
    $Label[$i] = GUICtrlCreateLabel("Tirage nombre " & $i + 1 & " : 0 (0%)", 8, 16 + 24 * $i, 268, 17)
Next

Sans parler des conditions à rallonge indigestes que vous créez sans les tableaux & boucles

[jumby]

Je programme comme cela me vient et comme cela me chante.

En revanche, les critiques portant sur l'utilité du code ou son fonctionnement seront appréciés.

[Tlem]

jumby, les remarques de tolf ne sont là que pour vous offrir une autre réflexion sur votre code et non pour critiquer.

Prenez ça plutôt comme une attention particulière, car si l'utilisateur et/ou le code ne sont pas intéressant, on ne fait aucun effort.