Comprend pas ce qui se passe !

Question

Voila, j' ai 50 picturebox repr&#233;sentant des boules ( Boule(0)....Boule(49) ) et 50 picturebox vide ( TBoule(0).....TBoule(49) )

Lorsque je clique sur le commandbutton (BtnTirage), je voudrais que les picturebox vide se remplissent avec les images (Boule) et ceci al&#233;atoirement.

J' ai modifi&#233; un code sur ce site mais j' ai un message d' erreur : Type incompatible.
sur la ligne indiqu&#233;e en dessous, j ai beau chercher je ne trouve pas.
Merci de votre aide par avance.

Private Distribuee(0 To 49) As Boolean


Private Sub DistributionBoule(Nb As Long)
Dim I As Long, N As Long
' Remise &#224; z&#233;ro. 
For I = LBound(Distribuee) To UBound(Distribuee)
Distribuee(I) = False
Next
' On distribue les boules au joueur .
For I = 0 To Nb - 1
TBoule(I) = ChargeBoule(I, TireUneBoule, "Joueur")    <--- probl&#233;me ici ***
Next
End Sub


Private Function ChargeBoule(Idx As Long, Boule As Long, AQui As String)
Dim Pic As PictureBox
' Affecte &#224; l'objet Pic la bonne picturebox
Select Case AQui
Case "Joueur"
Set Pic = FrmPlateau.Boule(Idx)
End Select
' Charge le bon BMP
Pic.Picture = FrmPlateau.Boule(Idx)
End Function


Private Function TireUneBoule() As Long
Dim N As Long


' Tire une boule au hasard
N = Int(Rnd * 49)
' Jusqu'a ce que ce soit une boule non encore distribu&#233;e
While Distribuee(N)
' Marque cette boule comme distribuee
Distribuee(N) = True
' Renvoie le num&#233;ro de la boule
TireUneBoule = N
Wend
End Function


Private Sub BtnTirage_Click()
DistributionBoule (50)
End Sub



Fripouil

cs_Jack · Answer

Salut

TBoule est d&#233;fini comment ?
Quel type de donn&#233;e renvoie ta fonction ChargeBoule : ajouter As Integer par exemple derri&#232;re la d&#233;finition
En fait, ta fonction ChargeBoule ne renvoie aucune donn&#233;e.
Il n'y a nulle part dans la fonction de ligne ChargeBoule = x
Donc de toute fa&#231;on, VB ne saura pas quoi mettre dans TBoule.
Eventuellement, change ton appel en oubliant TBoule qui apparemment ne sert &#224; rien :
Call ChargeBoule(I, TireUneBoule, "Joueur")    

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

crenaud76 · Answer

... et fait de ChargeBoule une Sub

Christophe

cs_Fripouil · Answer

J' ai les boules qui s' affichent dans les picturebox ( TBoule ) mais elles s' affichent dans l' ordre : 1 2 3 4 5 6... 50.
Dans le code que je me sers il ya un DO sans son LOOP et un WHILE sans son WEND (voir  ***) moi il en veut je lui en donne sauf que je les ai mis un peu au hasard, le probl&#233;me apr&#233;s est que cela me plante tout.
Si en plus de m' aidez vous m' expliquiez &#224; quoi cela peut il bien servir, merci pour mon savoir.

Private Sub DistributionBoule(Nb As Long)
Dim I As Long, N As Long
For I = LBound(Distribuee) To UBound(Distribuee)
Distribuee(I) = False
Next
For I = 0 To Nb - 1
Call ChargeBoule(I, TireUneBoule, "Joueur")
Next
End Sub



Private Function TireUneBoule() As Long
Dim N As Long
Do                        ***
N = Int(Rnd * 49)
While Distribuee(N)  ***
Distribuee(N) = True
TireUneBoule = N
Wend                    ***
Loop                     ***
End Function


Private Sub ChargeBoule(Idx As Long, RBoule As Long, AQui As String)
Dim Pic As PictureBox
Set Pic = FrmPlateau.TBoule(Idx)
Pic.Picture = FrmPlateau.Boule(Idx)  <-- Y a peut &#234;tre une erreur ici aussi
End Sub



Private Sub BtnTirage_Click()
DistributionBoule (50)
End Sub

Fripouil

PCPT · Answer

salut,
j'ai "vaguement" lu ton probl&#232;me qui me semble &#234;tre tout sauf une question, ainsi que les commentaires en r&#233;sultants, et &#224; mon avis, si tu as besoin d'aide, il va falloir mieux expliquer et peut-&#234;tre m&#234;me avant analyser ton code.

perso, je ne comprend ni ton probl&#232;me, ni ce que tu veux. du moins, pas par rapport au code post&#233;.....

remarque, le probl&#232;me peut venir de moi
PCPT

aieeeuuuuu · Answer

salut, 

effectivement c'est pas tr&#232;s clair, mais si je me tiens a ton premier post qui parlais d'une erreur de type, je dirais que TireUneBoule etantune fonction, il fautmettre des parenthses derrieres, donc remplace

TBoule(I) = ChargeBoule(I, TireUneBoule, "Joueur")    <--- probl&#233;me ici ***

par

TBoule(I) = ChargeBoule(I, TireUneBoule(), "Joueur")    
et je pense que tout ira deja un peu mieux.

maintenant je ne dispas que c'est le seul probl&#232;me, mais ca sera deja un bon debut

Comprend pas ce qui se passe !

5 réponses

Discussions similaires