[R] Le pourcentage des réussites

[loockys]

Salut a tous

J'explique mon problème :
J'aimerais créer un pourcentage de réussite. Mais je ne sais pas si je m'y prends bien pour la gestion de taux de pourcentage.
Je voudrais que le script affiche les réussites, mais aussi les échecs.

Exemple :
Le taux de réussite est de 2 % sur 10.
Qui nous feront un nombre de huit échecs et un nombre de deux de réussites.
Est-ce que vous pouvez m'offrir une solution a mon problème D'avance merci.

► Afficher le texteScript %

Code : Tout sélectionner

For $i =1 to 10 step 1
   
Global $Chance = Random(1,10,1), $Taux = 2

If ($Chance <= $Taux) Then
   ConsoleWrite("Félicitation" & @CRLF)
Else
   ConsoleWrite("Echec" & @CRLF)
EndIf

Next
 

[matwachich]

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 390, 166, 437, 184)
GUICtrlCreateLabel("Sur", 30, 21, 20, 17)
$I_Total = GUICtrlCreateInput("", 54, 18, 73, 21)
GUICtrlCreateLabel("Test(s)", 132, 21, 36, 17)
$I_Win = GUICtrlCreateInput("", 54, 54, 73, 21)
GUICtrlCreateLabel("Réussi(s), qui représent(ent)", 132, 57, 135, 17)
$I_P_Win = GUICtrlCreateInput("", 270, 54, 49, 21)
GUICtrlCreateLabel("%", 324, 57, 12, 17)
$I_Lose = GUICtrlCreateInput("", 54, 78, 73, 21)
GUICtrlCreateLabel("Raté(s), qui représent(ent)", 132, 81, 126, 17)
$I_P_Lose = GUICtrlCreateInput("", 270, 78, 49, 21)
GUICtrlCreateLabel("%", 324, 81, 12, 17)
$B_Go = GUICtrlCreateButton("Test", 157, 120, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $Total = 0, $Reussi = 0, $Echec = 0

AdlibRegister("_Test", 250)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $B_Go
            _Test()
    EndSwitch
WEnd

Func _Test()
    ; lance un nouveau test
    $Total += 1
    ; ---
    Local $taux = 10
    Local $resultat = Random(0, 20, 1)
    ; ---
    If $resultat < $taux Then
        $Echec += 1
    Else
        $Reussi += 1
    EndIf
    ; ---
    ; on note les résultats
    ; Les nombres de tests
    GUICtrlSetData($I_Total, $Total)
    GUICtrlSetData($I_Lose, $Echec)
    GUICtrlSetData($I_Win, $Reussi)
    ; ---
    ; les pourcentages
    GUICtrlSetData($I_P_Lose, Round(($Echec / $Total) * 100))
    GUICtrlSetData($I_P_Win, Round(($Reussi / $Total) * 100))
EndFunc

[loockys]

Merci matwachich pour ton exemple, mais je ne le trouve pas fiable.
(Sans doute que je n'arrive pas à utiliser correctement.)
Voici du changement sur le script que j'avais annoncé plus haut (en vert)

► Afficher le texte

Code : Tout sélectionner

For $i =1 to 10 step 1
   
Global $Chance = [color=#40BF00]$i[/color], $Taux = 2

If ($Chance <= $Taux) Then
   ConsoleWrite("Félicitation" & @CRLF)
Else
   ConsoleWrite("Echec" & @CRLF)
EndIf

Next

Le résultat montre les deux réussites et les huit échecs, mais je ne suis pas satisfait du résultat.
j'aurais voulu que les deux réussites ne soient pas mise en début de boucle, mais plutôt aléatoire.
Avez-vous une idée à me suggérer ou un script diffèrent au mien. D'avance merci.

Code : Tout sélectionner

Félicitation
Félicitation
Echec
Echec
Echec
Echec
Echec
Echec
Echec
Echec

[matwachich]

Vous parlez de chance, mais vous voulez avoir exactement 2 réussite et 8 échec!!!
Je ne comprend pas très bien...

Je pense que quand on parle de chance, même si on décrète que un score de > 2/10 suffit à gagner, ça ne veut pas dire que sur 10 essais on aura exactement 2 réussites et 8 échecs!

L'exemple que je vous ai donné décrète que il faut avoir minimum 10/20 pour gagner:
il génère un numéro au hasard (Random(0, 20, 1)) entre 0 et 20, si il est égale ou supérieur à 10, on incrémente la variable $Reussi, si non, on incrémente la variable $Echec, et après, on calcule les pourcentages et on les affiche.

Vous dans votre script, vous faites un boucle, dont le $i passera successivement par 1, 2, ... 10. Donc ou est la chance la dedans???

[mikell]

Le problème comme dit matwachich c'est que dans ton script ya absolument rien d'aléatoire
Si tu veux de l'aléatoire, faut un script de ce type

Code : Tout sélectionner

Global $n = "", $r = 0, $nbr = 20
Dim $loterie[$nbr]
For $i =0 to $nbr-1
   $loterie[$i] = Random(1, $nbr, 1)
Next
For $i =0 to UBound($loterie)-1
   If $loterie[$i] < 4 Then 
    $n &= $i+1 & " : félicitations" & @crlf
    $r += 1
   Else
    $n &= $i+1 & " : échec" & @crlf
   EndIf    
Next
$n &= "taux de réussite = " & ($r/$nbr)*100 & " %"
MsgBox(0,"", $n)

[loockys]

Veuillez excusé mon égarement et vous avez entièrement raison quand vous parlez de chance dans un pourcentage, bref encore merci pour votre mise au point.
Si je peux me permettre il y a un léger problème a votre script matwachich, il est basé sur les échecs au lieu des réussites.

Merci mikell et matwachich pour c'est deux jolis exemples de script.

[matwachich]

Ya pas de quoi!
Mais j'ai pas très bien compris ce que vous voulez dire:
Si c'est de ça que vous parlez:

Code : Tout sélectionner

$resultat < $taux

Alors il suffirait de mettre ça à la place:

Code : Tout sélectionner

$resultat >= $taux

Ou tout ce que vous voulez!

[loockys]

Je tiens à m'excuser d'avance à faire monter ce poste inutilement, mais je voulais à tout prix apporter ma pierre à l'édifice.

► Afficher le texteSimulateur

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>


$Form1 = GUICreate("Loockys", 601, 438, 192, 124)
GUISetBkColor(0xA6CAF0)
$Taux1 = GUICtrlCreateInput("25", 20, 20, 70, 32)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUICtrlCreateLabel("%", 100, 23, 21, 28)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
$Nbr1 = GUICtrlCreateInput("10", 20, 60, 70, 32)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUICtrlCreateLabel("Nbr de fois répété", 100, 60, 171, 28)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
$Max1 = GUICtrlCreateInput("100", 20, 100, 70, 32)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUICtrlCreateLabel("Max", 100, 103, 42, 28)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
$Edit1 = GUICtrlCreateEdit("", 300, 20, 280, 405)
$hEdit1 = GuiCtrlGetHandle($Edit1)

GUICtrlSetData(-1, "Auto-It Loockys")
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Edit2 = GUICtrlCreateEdit("", 20, 216, 260, 89)
$hEdit2 = GuiCtrlGetHandle($Edit2)

GUICtrlSetData(-1, "By")
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlCreateLabel("Résultat final", 80, 170, 129, 28)
GUICtrlSetFont(-1, 13, 800, 6, "Arial Black")
$Btn1 = GUICtrlCreateButton("Envoyer", 20, 320, 260, 50)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
$Btn2 = GUICtrlCreateButton("Effacer", 20, 376, 260, 50)
GUICtrlSetFont(-1, 13, 800, 2, "Arial Black")
GUISetState(@SW_SHOW)



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

         Case $Btn1
              Global $Nbr2 = GUICtrlRead($Nbr1), $R1 = "", $R2 = ""
         _Btn1()
   
         Case $Btn2
         _Btn2()

    EndSwitch
WEnd




Func _Btn1()


GUICtrlSetData($Edit1, "")
GUICtrlSetData($Edit2, "")
   
                        For $i = 1 to $Nbr2 Step 1
                        Global $Max2 = GUICtrlRead($Max1), $Loterie1 = Random(1,$Max2,1), $Taux2 = GUICtrlRead($Taux1)
    
                        If $Loterie1 <= $Taux2 Then
                              GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & $i & "- Réussite  " & @CRLF)
                             _GUICtrlEdit_LineScroll($hEdit1, 0, _GUICtrlEdit_GetLineCount($hEdit1))
                              $R1 += 1

                        Else
   
                              GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & $i & "- Echec  " & @CRLF)
                             _GUICtrlEdit_LineScroll($hEdit1, 0, _GUICtrlEdit_GetLineCount($hEdit1))
                              $R2 += 1

                        EndIf


                        Next
 GUICtrlSetData($Edit2, "taux de réussite = " & ($R1/$Nbr2)*100 & " %" & @CRLF & "taux   d'échec    = " & ($R2/$Nbr2)*100 & " %")
_GUICtrlEdit_LineScroll($hEdit2, 0, _GUICtrlEdit_GetLineCount($hEdit2))
 
EndFunc


Func _Btn2()
   GUICtrlSetData($Edit1, "")
   GUICtrlSetData($Edit2, "")
EndFunc
 

EDIT : (Corriger) Merci Mikell

Simulateur : Réussite et Echec

[mikell]

Jolie gui
Pour les détails :
- Il vaut mieux déclarer les variables en Global en début de script, pas dans les fonctions
- Si dans une condition If-Else tu as 2 fois la même instruction, alors tu peux mettre cette instruction après la condition
- pour l'oeil, je préfère "taux d'échec" à "taux de échec"