[R] Input Random

[NewHere]

Bonjour,

j'ai un tout petit probleme : Les input $min et $max ne fonctionne pas avec random,
explication :
Lorsque je fais tourner le script, j'entre les valeurs voulu dans les 2 inputs puis clic sur calculer mais il m edonne le resultat 4.453........ donc je voudrais savoir comment faire pour que le resultat soit suivant les valeurs donnés.

Merci D'avances,
Cordialement NewHere.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
$z = GUICreate("Statistiques", 363, 200, 393, 117)
GUISetFont(7, 400, 0, "Verdana")
$Calculer = GUICtrlCreateButton("Calculer", 0, 115, 363, 25, 0)
$min= GUICtrlCreateInput("", 150, 80, 140, 20, 0)
$max = GUICtrlCreateInput("", 107, 50, 140, 20, 0)


$reuslt1 = Random($min, $max)
$reuslt2 = Random($min, $max)
$reuslt3 = Random($min, $max)
$reuslt4 = Random($min, $max)
$reuslt5 = Random($min, $max)
$reuslt6 = Random($min, $max)
$reuslt7 = Random($min, $max)
$reuslt8 = Random($min, $max)
$reuslt9 = Random($min, $max)
UISetState(@SW_SHOW)
while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
case $Calculer
While 1
    _moyenne()
    
    ExitLoop
WEnd
    EndSwitch
WEnd

func _moyenne()
    $addition = ($reuslt1 + $reuslt2 + $reuslt3 + $reuslt4 + $reuslt5 + $reuslt6 + $reuslt7 + $reuslt8 + $reuslt9)
    $division = ($addition / 9)
    MsgBox(0, "Result", "La moyenne est : " & $division)
    EndFunc

[Tlem]

Hummm, est-ce que à tout hasard, votre problème ne viendrait pas de là :

Random ( [Min [, Max [, Flag]]] )

[moutelous]

Bonsoir,

Quelques erreurs dans le script, j'en ai fait un à ma sauce pour plus de facilités (il n'est pas parfait .... mais pour l'exemple cela suffira)..

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$z = GUICreate("Statistiques", 363, 200, 393, 117)
GUISetFont(7, 400, 0, "Verdana")
$Calculer = GUICtrlCreateButton("Calculer", 0, 115, 363, 25, 0)
GUICtrlSetOnEvent($Calculer, "Calculer")
$min= GUICtrlCreateInput("", 150, 80, 140, 20, 0)
$LblListeSimulation = GUICtrlCreateLabel("Min :", 10, 80, 50, 20)
$max = GUICtrlCreateInput("", 107, 50, 140, 20, 0)
$LblListeSimulation = GUICtrlCreateLabel("Max :", 10, 50, 50, 20)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
GUISetState(@SW_SHOW)
While 1
    Sleep(1000)
WEnd
func Calculer()
$minv=GUICtrlRead($min)
$maxv=GUICtrlRead($max)
$reuslt1 = Random($minv, $maxv)
$reuslt2 = Random($minv, $maxv)
$reuslt3 = Random($minv, $maxv)
$reuslt4 = Random($minv, $maxv)
$reuslt5 = Random($minv, $maxv)
$reuslt6 = Random($minv, $maxv)
$reuslt7 = Random($minv, $maxv)
$reuslt8 = Random($minv, $maxv)
$reuslt9 = Random($minv, $maxv)
$addition = ($reuslt1 + $reuslt2 + $reuslt3 + $reuslt4 + $reuslt5 + $reuslt6 + $reuslt7 + $reuslt8 + $reuslt9)
$division = ($addition / 9)
MsgBox(0, "Result", "La moyenne est : " & $division)

GUICtrlSetData($max,"")
GUICtrlSetData($min,"")

EndFunc 

Func quitter()
Exit
EndFunc

L'erreur la plus ......"problématique" .... est d'affecter l'ID d'un contrôle à une variable entrant dans un calcul mathématique (en l'occurrence $min et $max dans votre script)... il faut passer par un "GUICtrlRead" pour récupérer les valeurs....

A+

[NewHere]

Merci moutelous,

A bienot.