probleme de répétitiveRésolu

Question

J'ai un problème avec du code (partie en rouge), il reste faux quoi qu'il arrive.

Do
n = n + 1
MsgBox Picture1(Index + n).Picture = Picture1(Index).PictureLoop Until (Picture1(Index + n).Picture Picture1(Index).Picture) Or n 3

merci

Gobillot · Accepted Answer

le test du handle, parce c'est la propriété par défaut sera toujours faux
bon supposons qu'il y a 4 images (index 1 à 4)
et qu'il n'y a qu'un nombre limité d'images à charger

    Dim i As Integer
    Dim x As Integer
    Dim Tableau(4) As String

' on met le nom des images à charger dans un tableau
    Tableau(1) = "C:\IMAGES\01.bmp"
    Tableau(2) = "C:\IMAGES\02.bmp"
    Tableau(3) = "C:\IMAGES\03.bmp"
    Tableau(4) = "C:\IMAGES\04.bmp"
    
' on charge les images au hasard
    Randomize
    For i = 1 To 4
        x = Int(Rnd * 4) + 1
        Picture1(i).Tag = x
        Picture1(i).Picture = LoadPicture(Tableau(x))
        Next
    
' et on teste si 2 images successives sont identiques
    For i = 1 To 3
        If Picture1(i).Tag = Picture1(i + 1).Tag Then
           MsgBox i & " et " & i + 1
           End If
        Next

Daniel

Gobillot · Answer

même si c'est les même images le handle ne sera pas identique
sauf si les deux pictures sont vides, dans ce cas ce sera zéro
    MsgBox Picture1(1).Picture
    MsgBox Picture1(1).Picture.Handle

Daniel

gazghul33 · Answer

C'est vrai mais alors comment peut remédier à ce problème?

chaibat05 · Answer

Bonsoir,
Qu' est ce qui reste faux ,
et qu' est ce qui est censé changer ?
A quoi sert ton MsgBox ?
et qu' est ce que ta boucle est supposé faire ?

-

Gobillot · Answer

il doit tester si 2 pictures ont des images identiques parmis les 3
donc 1 avec 2, 2 avec 3, ... et ben c'est fini
c'est au moment où tu charges tes images que tu sais lesquelles tu as mises
sinon après c'est difficile, à moins de tester pixel par pixel

Daniel

gazghul33 · Answer

C'est pas jouable avec la proprieté Index?

cs_lermite222 · Answer

Bonjour
Je ne vois pas ce que tu veux faire avec ta routine, de plus j'ai eu beau retourner l'aide pour MsgBox, je n'ai pas trouvé qu'il pouvait affiché des images.
ou alors, c'est le nom de l'image que tu veux affiché ?
Plus d'explication Svp
Cordialement
louis

chaibat05 · Answer

ne commences jamais une boucle avec Do sans petre certain que
ton code s' éxécutera au moins une fois.
Commences plutôt par la condition Do While n<3

-

-

gazghul33 · Answer

le msgbox sert a verifier si la condition est vrai ou fausse. (je pense...)

cs_lermite222 · Answer

pas en le libellant comme il le fait

Gobillot · Answer

la condition sera toujours fausse puisqu'ici on ne teste que le Handle de l'image
et non pas l'image elle-même bien sûr


au moment du chargement met le nom de l'image (ou le chemin complet) dans la propriété Tag


ensuite il reste plus qu'à tester le Tag

Daniel

gazghul33 · Answer

Oulah...Tu sais je suis un novice il va falloir ke tu m en dise un peu plus .stp

chaibat05 · Answer

je pense que ça ira avec ça :
Do While n<=3
If (Picture1(Index + n).Picture = Picture1(Index).Picture) Then
    MsgBox index & " / " n 
    'tu sauras alors de quelles images il s' agit
    Exit Do
End If
Loop

-

-

chaibat05 · Answer

pardon il faut ajouter
n=n+1 dans la boucle
-

-

cs_lermite222 · Answer

je vient de m'apercevoir que c'est gazghul qui dit (je pense)


Alors si toi-même tu ne sais pas ce que sa veux vaire, comment les autres peuvent-il répondre


Bonsoir


Terminer

gazghul33 · Answer

C'est bizarre avec ce que tu ma dis n=4

chaibat05 · Answer

le problème est dans l' index qui ne change pas
autre code :
n=1


Do While n< 3
   If (Picture1(Index + n).Picture = Picture1(Index+n+1).Picture) Then Exit Do
   n=n+1
Loop


MsgBox n


si c' est 1 => 1 avec 2
si c' est 2 => 2 avec 3
si n=3 alors aucune correspondance

-

-

jrivet · Answer

Salut,
Je veux juste rebondir  sur un truc (même si le problème est résolu)
> [auteurdetail.aspx?ID= 1025868 lermite222] : "Je ne vois pas ce que tu veux faire avec ta routine, de plus j'ai eu
beau retourner l'aide pour MsgBox, je n'ai pas trouvé qu'il pouvait
affiché des images." tu pourrais testé les différentes lignes avant de dire que MSGBOX doit afficher des Images et que ce 

Lorsque tu écris:
MsgBox Picture1(Index + n).Picture = Picture1(Index).Picture  le MSgbox montrera  Vrai  ou Faux
Lorsque tu écris:
MsgBox Picture1(Index + n).Picture  MSgbox Affichera le Handle de la Picture du PictureBox
Ce qui est équivalent à  MsgBox Picture1(Index + n).Picture.Handle

@+: =89254 Ju£i?n
Pensez: Réponse acceptée
PS: si je me suis trompé dans ce que je dis, MERCI de me corriger

cs_lermite222 · Answer

Réponse à jrivet


Bon.. si je me suis tromper merci de me corriger. et excuser moi.

Mais c'est plutôt mon explication qui prète à confusion, je ne vois toujours pas à quoi sert sont MSGBOX, si ce n'est que de créer un point d'arrèt
de plus msgbox comme écrit ne retourne rien !!!
Désolé de te contredire mais j'ai tester, avec 

check=MsgBox (Picture1(0).Picture = Picture1(Index).Picture)

et check est toujours Faux
Ce qui vient bien à dire que l'approche faite n'est pas la bonne
debbug 
print Picture1(0).Picture=-301654024 
print Picture1(1).Picture=-1459281872 
Suggétion

Private Sub Command1_Click()
Dim check As Boolean
Static n As Integer
n = n + 1
If n > 2 Then n = 1
    If Picture1(0).Point(100, 100) = Picture1(n).Point(100, 100) Then
        check = True
    End If
    MsgBox check
End Sub

cela fonctionne
Si je me trompe encore, merci de me corriger.
cordialement
louis

Probleme de répétitive

19 réponses

Votre réponse

Discussions similaires