A l'aide Bug dans mon script

Alors voila j'ai un erreur dans mon code et voici l'erreur (suite apres les images)

Je ne comprends pas pourquoi cette erreur mais bref si quelqu'un pourrais m'aider et par de meme corriger mon code ce serais apprécier:

<----Début
Option Explicit
'Danny Doiron
'Examen Similaire à la S.A.A.Q.
'v. 0.01
'Knight Animation Studios
'http://www.knightanimationstudios.com
Dim numéro As Integer, résulat As Integer, total As Integer, un As Boolean, deux As Boolean, trois As Boolean, quatre As Boolean, cinq As Boolean, six As Boolean, sept As Boolean, huit As Boolean, neuf As Boolean, dix As Boolean

Private Sub Form_Activate()
    Optchoixa.Value = False
    Optchoixb.Value = False
    Optchoixc.Value = False
    Optchoixd.Value = False
End Sub

Private Sub Form_Load()
    wmp1.URL = App.Path & "F:\VB\bienvenue.wav"
    wmp2.URL = App.Path & "F:\VB\welcome.wav"
    wmp3.URL = App.Path & "F:\VB\bon.wav"
    wmp4.URL = App.Path & "F:\VB\erreur.wav"

    un = True
    deux = True
    trois = True
    quatre = True
    cinq = True
    six = True
    sept = True
    huit = True
    neuf = True
    dix = True
    Random
End Sub

Private Sub Random()
    numéro = Int((10 * Rnd) + 1)
    Question
End Sub

Private Sub Question()
    If numéro = 1 And un = True Then
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Que signifi ce panneau?"
        Etiquestion2.Caption = ""
        Imgimage.Picture = LoadPicture("stop.bmp")
        Optchoixa.Caption = "Interdiction d'effectuer un virage en ''U''."
        Optchoixb.Caption = "Obligation de tourner à droite."
        Optchoixc.Caption = "Dépassement Interdit."
        Optchoixd.Caption = "Obligation d'arrêter." '*
        un = False
    ElseIf un = False Then
        attente
    End If
    If numéro = 2 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Que signifi ce panneau?"
        Etiquestion2.Caption = ""
        Imgimage.Picture = LoadPicture("hopital.bmp")
        Optchoixa.Caption = "La proximité d'un aéroport."
        Optchoixb.Caption = "La proximité d'un hopital." '*
        Optchoixc.Caption = "L'interdiction de stationner."
        Optchoixd.Caption = "L'obligation d'aller tout droit."
        deux = False
    ElseIf deux = False Then
        attente
    End If
    If numéro = 3 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Dans l'illustration suivante vous êtes la voitre ''A''"
        Etiquestion2.Caption = "Vous est-il permis de dépasser la voiture ''B''"
        Imgimage.Picture = LoadPicture("ill1.bmp")
        Optchoixa.Caption = "Oui parce que la loi le permet."
        Optchoixb.Caption = "Oui car il n'y a pas de danger."
        Optchoixc.Caption = "Non cela est interdit." '*
        Optchoixd.Caption = "Je l'ignore."
        trois = False
    ElseIf trois = False Then
        attente
    End If
    If numéro = 4 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Vous arrivez a une intersection et vous faites face"
        Etiquestion2.Caption = "à un feu rouge clignotant. Vous devez alors..."
        Timer2.Enabled = True
        Optchoixa.Caption = "... continuez."
        Optchoixb.Caption = "... ralentir."
        Optchoixc.Caption = "... vérifier la circulation."
        Optchoixd.Caption = "... immobiliser votre véhicule a la ligne d'arrêt." '*
        quatre = False
    ElseIf quatre = False Then
        attente
    End If
    If numéro = 5 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Que signifi ce panneau?"
        Etiquestion2.Caption = ""
        Imgimage.Picture = LoadPicture("ill3.bmp")
        Optchoixa.Caption = "La hauteur maximal libre."
        Optchoixb.Caption = "Obligation de tourner à droite."
        Optchoixc.Caption = "La vitesse maximal permise." '*
        Optchoixd.Caption = "Obligation d'arrêter."
        cinq = False
    ElseIf cinq = False Then
        attente
    End If
    If numéro = 6 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Est-ce que je suis obligé de céder le pasasage"
        Etiquestion2.Caption = "à un véhicule d'urgence?"
        Imgimage.Picture = LoadPicture()
        Optchoixa.Caption = "Seulement si urgence."
        Optchoixb.Caption = "Seulement si les lumières sont en fonctions."
        Optchoixc.Caption = "Seulement si la sirène fonctionne."
        Optchoixd.Caption = "Toutes les réponses." '*
        six = False
    ElseIf six = False Then
        attente
    End If
    If numéro = 7 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "A-t-on le droit de conduire"
        Etiquestion2.Caption = "avec un baladeur sur la tête?"
        Imgimage.Picture = LoadPicture("stop.bmp")
        Optchoixa.Caption = "Si la musique est basse."
        Optchoixb.Caption = "Oui."
        Optchoixc.Caption = "Si la police ne me voit pas."
        Optchoixd.Caption = "Non" '*
        sept = False
    ElseIf sept = False Then
        attente
    End If
    If numéro = 8 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Avez-vous le droit de prêter votre permis"
        Etiquestion2.Caption = "de conduire?"
        Imgimage.Picture = LoadPicture()
        Optchoixa.Caption = "Non." '*
        Optchoixb.Caption = "Seulement en ville."
        Optchoixc.Caption = "À mon frère jumeau seulement."
        Optchoixd.Caption = "Seulement en cas d'urgence."
        huit = False
    ElseIf huit = False Then
        attente
    End If
    If numéro = 9 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Avez-vous le droit d'avoir un détecteur de radar?"
        Etiquestion2.Caption = ""
        Imgimage.Picture = LoadPicture()
        Optchoixa.Caption = "Seulement en campagne."
        Optchoixb.Caption = "Oui."
        Optchoixc.Caption = "Non." '*
        Optchoixd.Caption = "Seulement en ville."
        neuf = False
    ElseIf neuf = False Then
        attente
    End If
    If numéro = 10 And un = True Then
        Optchoixa.Value = False
        Optchoixb.Value = False
        Optchoixc.Value = False
        Optchoixd.Value = False
        EtiNumero.Caption = "Question # " & numéro
        Etiquestion.Caption = "Qui est obligé de mettre ca ceinture de sécurité?"
        Etiquestion2.Caption = ""
        Imgimage.Picture = LoadPicture()
        Optchoixa.Caption = "Aucun passager."
        Optchoixb.Caption = "Les passager avant."
        Optchoixc.Caption = "Les passager arrière."
        Optchoixd.Caption = "Tous les passager d'un véhicule." '*
        dix = False
    ElseIf dix = False Then
        attente
    End If
End Sub

Private Sub Timer1_Timer()
    Etiheure.Caption = "Il est présentement " & Time
End Sub

Private Sub Timer2_Timer()
        Imgimage.Picture = LoadPicture("ill2b.bmp")
        Timer3.Enabled = True
        Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
        Imgimage.Picture = LoadPicture("ill2a.bmp")
        Timer2.Enabled = True
        Timer3.Enabled = False
End Sub

Private Sub QT()
    If total = 10 Then
        Etiresultat.Visible = True
        Etiresultat.Caption = "Signalisation - Votre résultat est de : " & résulat / 10 & "%"
        If résulat = 10 Then
            Etiresultat.BackColor = QBColor(15)
        ElseIf résulat = 8 Or résulat = 9 Then
            Etiresultat.BackColor = QBColor(10)
        ElseIf résulat = 7 Or résulat = 6 Or résulat = 5 Or résulat = 4 Or résulat = 3 Or résulat = 2 Or résulat = 1 Or résulat = 0 Then
            Etiresultat.BackColor = QBColor(4)
        End If
    End If
End Sub

Private Sub Rep()
    If numéro = 1 Then
        If Optchoixd = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 2 Then
        If Optchoixb = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 3 Then
        If Optchoixc = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 4 Then
        If Optchoixd = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 5 Then
        If Optchoixc = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 6 Then
        If Optchoixd = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 7 Then
        If Optchoixd = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 8 Then
        If Optchoixa = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 9 Then
        If Optchoixc = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
    If numéro = 10 Then
        If Optchoixd = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
End Sub

Private Sub attente()
    Optchoixa.Value = False
    Optchoixb.Value = False
    Optchoixc.Value = False
    Optchoixd.Value = False
    Random
End Sub

Private Sub Optchoixa_Click()
    Rep
End Sub

Private Sub Optchoixb_Click()
    Rep
End Sub

Private Sub Optchoixc_Click()
    Rep
End Sub

Private Sub Optchoixd_Click()
    Rep
End Sub
Fin-------->

alors voila.

E0091 - La modération à la programmation a bien meilleur gout!

salut,

ah bah ouai, le .net c'est pas si différent du VB6....

sinon j'aime bien tes chemins relatifs pour WMP aussi :
wmp1.URL = App.Path & "F:\VB\bienvenue.wav"

familier des groupes de contrôles?

faut pas copier/coller sans chercher à comprendre...

---

Prenez un instant pour répondre à ce sondage svp

PCPT non tout ce qui est la ben je l'avais deja utiliser jadis qwuand jetais a l'école alors ca va mais c l'erreur qui me fais ... si tu pourrais m'aider a corriger le problème ca serais sympa de ta pare.

E0091-La modération à la programmation a bien meilleur gout!

"espace pile insuffisante" (quand le message est correct et correspond bien, ce qui n'est pas toujours le cas en VB6... [voir ta rubrique choisie]), çà peut être un appel à Question en boucle

tes changements de valeur des optionbuttons ne rapelle pas ta sub en boucle?
c'est un mic-mac incroyable que tu nous a fait là...

compte ton nombre de passage dans Question (mets STOP en première ligne puis fait F5 à chaque fois), si tu y passes plus d'une fois c'est que ton bug vient bien de là

++

---

Prenez un instant pour répondre à ce sondage svp

D'accord mais je vais essayer de programmer de facon différente voir si je ne pourrais pas contourner ce probleme

E0091-La modération à la programmation a bien meilleur gout!

Bon alors meme en essayant de modifier il en revient de meme que le random fais 2 question en une passe alors il aurais pas un moyen de faire des question au hazard maid d'une facon différente?

E0091-La modération à la programmation a bien meilleur gout!

Bonjour,

Houlala ....
Mama mia...
Tu es certains de ne pouvoir "organiser" tout de bazar différemment ?
Au load, tu lances déjà une question (puisque tu lances Random) qui devrait modifier des contrôles qui ne sont pas forcément déjà chargés ...

Des timers "passent leur temps" à charger une image en jpouant au ping pong inlassablement ...

Private Sub Timer2_Timer()
        Imgimage.Picture = LoadPicture("ill2b.bmp")
        Timer3.Enabled = True
        Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
        Imgimage.Picture = LoadPicture("ill2a.bmp")
        Timer2.Enabled = True
        Timer3.Enabled = False
End Sub

C'est plutôt surprenant ...

Je viens de relire ce bazar ...
Tu ne pourrais pas relire ta sub question ? et te demander si l'utilisation d'un tableau dynamique de 10 x 12 ne conviendrait pas, au lieu de tous ces ifs ?
Kif kif pour les réponses, qui pourraient d'ailleurs être tout simplement ajoutées (les réponse attendues) au tableau ci-dessus ?

tu y verrais au moins déjà plus clair ... et nous également

Tu ne pourrais pas charger dans 2 images tremplins, d'entrée de jeu, tes 2 images "en mouvement" ...puis utiliser ces 2 templins plutôt que de charger sans cesse 2 fichiers ?

J'ignore en plus ce que sont ces 2 images mais me dis qu'elles sont identiques pour l'essentiel et que seule est modifiée la position d'un véhicule... Je me dis que dans un tel cas je ferais simplement se déplacer sur un fond (toujours le même) l'image (avec transparence) du seul véhicule...

Bref ... je me dis de façon très claire qu'il vaudrait mieux tout recommencer... complètement !.

et je passe sur ce genre d'expression , pour tous les Optchoixb  de topus les "numéro" :
   If numéro = 2 Then
        If Optchoixb = True Then
            MsgBox "Bonne réponse!", vbOKOnly, "Bravo"
            résulat = résulat + 1
            total = total + 1
           
            attente
        Else
            MsgBox "Mauvaise réponse!", vbOKOnly, "Bravo"
            total = total + 1
           
            attente
        End If
    End If
alors, si c'est TOUJOURS ==>>  total = total + 1 et  attente, quel que soit le numéro et quelle que soit l'option... t'aurait pas une petite idée, non ?
Je crois que tu devrais vraiment te relire, réfléchir.... et tout reprendre à zéro....

arf ouais pourle ping pong jai oublier que pendant et seulement la question le (timer2 et 3) bah c pour faire un feu rouge clignotant c pour ca dsl.

mais sinon je croit que j'ai une autre solution mais si cela ne fonctionne pas vous pourriez me dire comment faire un tableau?

E0091-La modération à la programmation a bien meilleur gout!