Page 1 sur 1
[R] Input Random
Posté : ven. 16 janv. 2009 20:29
par 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
Re: [..] Input Random
Posté : ven. 16 janv. 2009 20:55
par Tlem
Hummm, est-ce que à tout hasard, votre problème ne viendrait pas de là :
Random ( [Min [, Max [, Flag]]] )
Re: [..] Input Random
Posté : sam. 17 janv. 2009 00:55
par 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+
Re: [..] Input Random
Posté : sam. 17 janv. 2009 13:17
par NewHere
Merci moutelous,
A bienot.