vb6/directx8 et direct3d

Bonjour à tous
Je voudrais vous soumettre un bug incompréhensible qui se produit dans le programme que je suis en train de mettre au point à savoir:
C'est un jeu de bandit manchot en 3d et dans ma sub de rendu de direct3d , je fait un test de couleur pour savoir sur quelle case s'arrete la roue ( j'utilise pour cela l'API Windows GETPIXEL....).
Et donc je veux qu'en fonction de la couleur , la variable gain change de valeur.
Quand je lance le programme il arrive que de temps en temps la variable gain reste à 0 alors que la couleur est bien testée ( car je l'affiche à l'écran pour les tests).J'ai vérifié au moins 30 fois mon code et il n'y a pas d'erreur et de plus ,ce defaut se produit que sur la roue du centre alors qu'il y en a trois , pourquoi ? et pourquoi de manière aléatoire , car s'il y avait une erreur dans le code , le bug apparaitré chaque fois .
bien sur l'API GETPIXEL est bien déclarée en début de module
Ainsi que toutes les variables utilisées (long pour la couleur et Integer pour la variable gain).
Voici un extrait de mon code dans la sub rendu3D

couleur=getpixel(form1.hdc,x,y) ' x et y étant les coordonnées du point à tester.
if couleur=&hff00ff then gain=1
if couleur=&hffff00 then gain=2
etc
J'ai fait les tests 20 fois et au 21e , le bug apparait mais il peut aussi apparaitre au bout de 5 ,8 ou 15 tests.
Je devient fou de ne pas comprendre alors si quelqu'un peut m'aider , j'en serais très reconnaissant.
Encore merci et cordiales salutations

Bonjour,

es tu sur que le rendu 3D ne modifie absolument pas les couleurs, je ne connais pas du tout mais s'il y a rendu 3D c'est aussi entenant compte des lumieres et des ombres j'imagines ? Dans ce cas, il faudrait tester sur des plages de couleur plutot que sur des couleurs exactes.
Et déjà, après avoir testé toutes les couleurs attendues, au moins pour débugage tu pourrais avoir une ligne du style :
Code:

1 2 If Gain = 0 then debug.print Couleur
Ca te permettrait de voir si la couleur trouvée est vraiment une couleur attendue ou non.

vb6 et directx , et direct3D

bonjour,
Merci de t'intéresser à mon problème.
A la fin du rendu juste avant le endscene j'affiche la variable couleur et elle me donne la bonne valeur.
De plus j'ai 3 routines identiques dans la mème sub vu que j'ai 3 roues et il n'y en a qu'une ou le bug apparait.
Pour tester j'ai mis une variable intermédiaire du genre:
couleurinter=couleur
et j'affiche les deux variables , curieusement par moment , la valeur de couleur n'est pas bien transmise à couleurinter et à l'affichage cela donne:
couleur=FF00FF
couleurinter=FF0039 ' Alors??????????????
Je tourne en rond , j'ai tout essayé et là désespoir je plante
Cordiales salutations

il doit bien y avoir une autre procédure qui change la valeur de ta variable couleur alors non ?

Salut
Les bizarreries de VB et de Windows.
J'ai aussi ce type de bug de temps en temps, il n'est pas impossible que Windows n'actualise réellement le contenu de la variable au moment T ou tu veux l'utiliser pour la suite de ton traitement (il peut considérer qu'il a d'autres priorités), un DoEvents permet (des fois) de supprimer le problème.
Code:

1 2 3 4 couleur=getpixel(form1.hdc,x,y) ' x et y étant les coordonnées du point à tester. DoEvents If couleur=&hff00ff Then gain=1 If couleur=&hffff00 Then gain=2
De plus, si ta sub traite 3 appels à getpixel, j'en ajouterai bien entre chaque appel.

vb6/directx/direct3D

J'ai bien essayé comme le préconise ProgElect de mettre un Doevents après chaque test de couleur , mais cela ne règle pas le problème.
Pour répondre à OhMonBato , non , il n'y a pas d'autres sub qui modifierait la variable ou la couleur ( tout tourne dans la sub rendu du 3D).
Ce qui est bizarre c'est que sur les 3 gestions identiques inclusent dans la sub rendu , c'est toujours la mème qui pose problème.
J'ai mème essayé de modifier les coordonnées pour la prise de couleur par l'appel à GETPIXEL rien n'y fait.
Ca tourne bien 10,20ou 30 coups et tout à coup le bug se produit sans qu'on sache pourquoi.
Je poursuit mes tests et le premier qui trouve aura gagné toutes mes félicitations
Encore merci à tous

Une idée qui ne solutionnera pas pour autant ton problème mais permettrait de comprendre de quoi cela peut provenir.
Si c'est toujours sur la même suite de ligne d'appel à getpixel (3° appel ?) qui réagit bizarrement, essayes de permuter un des appels et vois si le problème ce déclenche toujours à l'appel N°x (le même 3° appel), si toutes fois l'ordre n'a pas de conséquence dans l'enchaînement pour ce que tu désires comme résultat de la sub.

vb6/directx/direct3d

Effectivement j'y ai déjà pensé et j'ai déjà croisé l'ordre des ligne dans la sub et le problème se produit toujours dans la mème suite d'instructions ce qui ferait penser qu'il y a une erreur de programmation et pourtant non.En fait la variable couleur semble garder la valeur mais c'est la variable gaindumilieu qui ne prend pas toujours sa valeur en fonction de la couleur transmise
Ci dessous le code de la sub rendu
Mon programme est déjà presque terminé reste la gestion des gains et si quelqu'un veut le zip (environ 5Mo)qu'il m'écrive et je le ferais parvenir ( pour l'instant je ne veut pas mettre sur le site un logiciel qui contient un bug).
Presque toutes les variables sont déclarées en global dans un module principal
J'ai mis en commentaire toutes les lignes inutiles pour l'instant pour essayer de trouver la solution au problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _
        ByVal X As Long, ByVal Y As Long) As Long ' fonction pour tester la couleur sur laquelle s'arrete chaque roue ( permet d'en déduire les gains)
Dim testokdroite As Boolean 'permet d'arréter les roues dans un bon alignement
Dim testokcentre As Boolean
Dim testokgauche As Boolean
Public Sub Prendu()
PDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET Or D3DCLEAR_ZBUFFER, RGB(0, 0, 0), 1#, 0
PDevice.BeginScene
'XXXXXXXXXXXXXX ci dessous , si les roues sont en rotation , la touche SPIN est rouge sinon bleu XXXXXXX
'XXXXXXXXXXXX on va chercher une géométrie différente XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
If tournedroite = False And tournecentre = False And tournegauche = False Then changespin1 Else changespin2
 
PDevice.SetRenderState D3DRS_LIGHTING, 0 'si=,0 l'éclairage n'est pas géré sinon =,1
'PDevice.SetRenderState D3DRS_AMBIENT, RGB(40, 40, 40) ' limite inférieure pour la puiisance de la lumière
PDevice.SetRenderState D3DRS_ZENABLE, 1 'buffer de profondeur
PDevice.SetVertexShader PFVF
 
'xxxxxxxxxxxxxxxxxxxx calcul pour les rotations des roues xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxxxxxxxxxxxxxxxxx roue du centre xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
'XXX C'est là le problème XXXXXXX
 
nbretourcentre = nbretourcentre - 0.5' vitesse de rotation
couleur(1) = GetPixel(Form1.hdc, 540, 245) ' on teste la couleur
If testokcentre = True And couleur(1) <> &HFFFFFF Then
tournecentre = False'si on n'est pas sur du blanc la roue stoppe
sndPlaySound Ppath & "stoproue.wav", &H1 ' le h0 permet d'attendre la fin du wave avant de rendre la main
stopcentre = True
End If
If anglerouecentre = 0.01 And couleur(1) = &HFFFFFF Then testokcentre = True Else testokcentre = False
If nbretourcentre < -200 Then anglerouecentre = 0.04 '0.06
If nbretourcentre < -300 Then anglerouecentre = 0.03 '0.05
If nbretourcentre < -400 Then anglerouecentre = 0.02 '0.04' la vitesse de rotation diminue
If nbretourcentre < -500 Then anglerouecentre = 0.01 '0.03
 
'xxxxxxxxxxxxxxxxxxxxx roue de droite xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
nbretourdroite = nbretourdroite - 0.5
couleur(2) = GetPixel(Form1.hdc, 570, 245) ' on teste la couleur sur laquelle pass la roue
If testokdroite = True And couleur(2) <> &HFFFFFF Then 'autorisation à l'arret de la roue
tournedroite = False ' on stoppe la rotation de  la roue
sndPlaySound Ppath & "stoproue.wav", &H1 ' le h0 permet d'attendre la fin du wave avant de rendre la main
stopdroite = True
End If
If anglerouedroite = 0.01 And couleur(2) = &HFFFFFF Then testokdroite = True Else testokdroite = False ' pour etre sur que la roue stoppe bien au centre
If nbretourdroite < -200 Then anglerouedroite = 0.04 ' on diminue au fur et à mesure la vitesse de rotation
If nbretourdroite < -300 Then anglerouedroite = 0.03
If nbretourdroite < -400 Then anglerouedroite = 0.02
If nbretourdroite < -500 Then anglerouedroite = 0.01
 
'xxxxxxxxxxxxxxxxxxxxx roue de gauche xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
nbretourgauche = nbretourgauche - 0.5
couleur(0) = GetPixel(Form1.hdc, 250, 245)
If testokgauche = True And couleur(0) <> &HFFFFFF Then
tournegauche = False
sndPlaySound Ppath & "stoproue.wav", &H1 ' le h0 permet d'attendre la fin du wave avant de rendre la main
stopgauche = True
End If
If anglerouegauche = 0.01 And couleur(0) = &HFFFFFF Then testokgauche = True Else testokgauche = False
If nbretourgauche < -200 Then anglerouegauche = 0.04 '0.05
If nbretourgauche < -300 Then anglerouegauche = 0.03 '0.04
If nbretourgauche < -400 Then anglerouegauche = 0.02 '0.03
If nbretourgauche < -500 Then anglerouegauche = 0.01
 
'xxxxxxxxxxxxxxxxxx calcul des gains xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
If stopgauche = True And stopcentre = True And stopdroite = True Then
calculgain' cest la sub qui va calculer les gains
stopgauche = False
stopcentre = False
stopdroite = False
End If
 
'XXXXXXXXXXXXXXXXXX fond du jeu XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'PDevice.SetTexture 0, texture9 'photo des calanques
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexfondjeu(0), Len(vertexfondjeu(0)) ' le 2=nbre de triangles a dessiner
'XXXXXXXXXXXXXXXXXXXX DESSINS DES TROIS ROUES XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'xxxxxxxxxxxxxxxxxxxx A chaque segment des roues correspond un motif xxxxxxxxx
PDevice.SetTexture 0, texture1 ' motif 1
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(0), Len(vertexrouecentre(0)) ' on dessine 2 triangles à partir du no 0
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(0), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(0), Len(vertexrouedroite(0))
PDevice.SetTexture 0, texture2
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(6), Len(vertexrouecentre(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(6), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(6), Len(vertexrouedroite(0))
PDevice.SetTexture 0, texture3
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(12), Len(vertexrouecentre(0)) ' on dessine 2 triangles à partir du no 12
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(12), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(12), Len(vertexrouedroite(0))
PDevice.SetTexture 0, texture4
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(18), Len(vertexrouecentre(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(18), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(18), Len(vertexrouedroite(0))
PDevice.SetTexture 0, texture5
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(24), Len(vertexrouecentre(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(24), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(24), Len(vertexrouedroite(0))
PDevice.SetTexture 0, texture6
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(30), Len(vertexrouecentre(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(30), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(30), Len(vertexrouedroite(0))
PDevice.SetTexture 0, texture7
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(36), Len(vertexrouecentre(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(36), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(36), Len(vertexrouedroite(0))
PDevice.SetTexture 0, texture8
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouecentre(42), Len(vertexrouecentre(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouegauche(42), Len(vertexrouegauche(0))
PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexrouedroite(42), Len(vertexrouedroite(0))
 
'xxxxxxxxxxxxx AFFICHAGE DU TABLEAU DES GAINS POSSIBLE 1000 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'initfont
'textrect.Top = 160 ' y
'textrect.Left = 150 ' x
'textrect.bottom = 300
'textrect.Right = 500
'Pd3dx.DrawText mainfont, &HFFFF0000, "=1000", textrect, DT_TOP
'PDevice.SetTexture 0, texture3
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 6, vertexgainjeu(0), Len(vertexgainjeu(0)) ' le 2=nbre de triangles pour l'objet 2
'xxxxxxxxxxxxx AFFICHAGE GAIN POSSIBLE 500 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'initfont
'textrect.Top = 205 ' y
'textrect.Left = 150 ' x
'textrect.bottom = 300
'textrect.Right = 500
'Pd3dx.DrawText mainfont, &HFFFF0000, "=500", textrect, DT_TOP
'PDevice.SetTexture 0, texture2
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 6, vertexgainjeu(18), Len(vertexgainjeu(0)) ' le 2=nbre de triangles pour l'objet 2
'xxxxxxxxxxxxx AFFICHAGE GAIN POSSIBLE 100 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'initfont
'textrect.Top = 255 ' y
'textrect.Left = 150 ' x
'textrect.bottom = 300
'textrect.Right = 500
'Pd3dx.DrawText mainfont, &HFFFF0000, "=100", textrect, DT_TOP
'PDevice.SetTexture 0, texture5
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 4, vertexgainjeu(36), Len(vertexgainjeu(0)) ' le 2=nbre de triangles pour l'objet 2
 
'xxxxxxxxxxxxx AFFICHAGE GAIN POSSIBLE 50 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'initfont
'textrect.Top = 300 ' y
'textrect.Left = 150 ' x
'textrect.bottom = 400
'textrect.Right = 500
'Pd3dx.DrawText mainfont, &HFFFF0000, "=50", textrect, DT_TOP
'PDevice.SetTexture 0, texture8
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 4, vertexgainjeu(48), Len(vertexgainjeu(0)) ' le 2=nbre de triangles pour l'objet 2
 
'xxxxxxxxxxxxx AFFICHAGE GAIN POSSIBLE 10 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'initfont
'textrect.Top = 350 ' y
'textrect.Left = 150 ' x
'textrect.bottom = 400
'textrect.Right = 500
'Pd3dx.DrawText mainfont, &HFFFF0000, "=10", textrect, DT_TOP
'PDevice.SetTexture 0, texture4
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexgainjeu(60), Len(vertexgainjeu(0)) ' le 2=nbre de triangles pour l'objet 2
 
'xxxxxxxxxxxxx AFFICHAGE GAIN POSSIBLE 1 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'initfont
'textrect.Top = 400 ' y
'textrect.Left = 150 ' x
'textrect.bottom = 450
'textrect.Right = 500
'Pd3dx.DrawText mainfont, &HFFFF0000, "=1", textrect, DT_TOP
'PDevice.SetTexture 0, texture6
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertexgainjeu(66), Len(vertexgainjeu(0)) ' le 2=nbre de triangles pour l'objet 2
 
'xxxxxxxxxxxxx AFFICHAGE GAIN POSSIBLE BONUS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'initfont
'textrect.Top = 450 ' y
'textrect.Left = 150 ' x
'textrect.bottom = 500
'textrect.Right = 500
'Pd3dx.DrawText mainfont, &HFFFF0000, "BONUS", textrect, DT_TOP
'PDevice.SetTexture 0, texture7
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 4, vertexgainjeu(72), Len(vertexgainjeu(0)) ' le 2=nbre de triangles pour l'objet 2
 
'XXXXXXXXXXXXXXXXXXXXX AFFICHAGE FOND POUR LES GAINS , LE CAPITAL , LES MISES XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'PDevice.SetTexture 0, Nothing ' sinon tout est noir
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 14, vertexplacegain(0), Len(vertexplacegain(0))
'initfont2 ' grande taille
'textrect.Top = 70 ' y
'textrect.Left = 280 ' x
'textrect.bottom = 200
'textrect.Right = 400
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "GAINS", textrect, DT_TOP
'textrect.Top = 70 ' y
'textrect.Left = 550 ' x
'textrect.bottom = 550
'textrect.Right = 700
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "CAPITAL", textrect, DT_TOP
'textrect.Left = 580 ' x
'textrect.Top = 115 ' y
'Pd3dx.DrawText mainfont, &HFFFFFFFF, capital, textrect, DT_TOP
'initfont
'textrect.Top = 450 ' y
'textrect.Left = 270 ' x
'textrect.bottom = 600
'textrect.Right = 650
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "Touche A=MISE  10 euros , Gain X1", textrect, DT_TOP
'textrect.Top = 500 ' y
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "Touche Z=MISE  50 euros , Gain X2", textrect, DT_TOP
'textrect.Top = 545 ' y
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "Touche E=MISE 100 euros , Gain X3", textrect, DT_TOP
'textrect.Left = 540 ' x
'textrect.Top = 480 ' y
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "VOTRE MISE", textrect, DT_TOP
'textrect.Left = 30 ' x
'textrect.Top = 30 ' y
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "Pour sortir du jeu , tapez sur P", textrect, DT_TOP
'textrect.Left = 560 ' x
'textrect.Top = 500 ' y
'Pd3dx.DrawText mainfont, &HFFFFFFFF, mise, textrect, DT_TOP
'textrect.Left = 665 ' x
'textrect.Top = 540 ' y
'Pd3dx.DrawText mainfont, &HFF00FF00, "Touche S", textrect, DT_TOP ' couleur verte
'initfont2
'textrect.Top = 490 ' y
'textrect.Left = 665 ' x
'textrect.bottom = 800
'textrect.Right = 750
'Pd3dx.DrawText mainfont, &HFF00FF00, "SPIN", textrect, DT_TOP
initfont
textrect.Top = 90 ' y
textrect.Left = 50 ' x
textrect.bottom = 130
textrect.Right = 40
'Pd3dx.DrawText mainfont, &HFFFFFFFF, "X", textrect, DT_TOP
 
Pd3dx.DrawText mainfont, &HFFFFFFFF, Hex(couleur(1)), textrect, DT_TOP
textrect.Top = 70 ' y
Pd3dx.DrawText mainfont, &HFFFFFFFF, Hex(couleurtest), textrect, DT_TOP
textrect.Top = 110 ' y
Pd3dx.DrawText mainfont, &HFFFFFFFF, gaindumilieu(0) & gaindumilieu(1) & gaindumilieu(2), textrect, DT_TOP
 
 
 
 
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'PDevice.DrawPrimitiveUP D3DPT_TRIANGLELIST, 2, vertextriangle(0), Len(vertextriangle(0)) 'les deux flèches sur les cotés
 
PDevice.EndScene
PDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub
 
Private Sub calculgain()
'For X = 0 To 2' pour l'instant je ne teste que la roue du centre celle du bug
If couleur(1) = &H84 Then gaindumilieu(1) = "1"
If couleur(1) = &HFF Then gaindumilieu(1) = "2"
If couleur(1) = &H4282FF Then gaindumilieu(1) = "3"
If couleur(1) = &HFF0000 Then gaindumilieu(1) = "4"
If couleur(1) = &HFF0084 Then gaindumilieu(1) = "5"
If couleur(1) = &HFF00FF Then gaindumilieu(1) = "6"
If couleur(1) = &HFF8200 Then gaindumilieu(1) = "7"
If couleur(1) = &HFFFF00 Then gaindumilieu(1) = "8"
'If X = 1 And gaindumilieu(1) = "" Then gaindumilieu(1) = "xx"
'Next X
End Sub

les propriétés textrect bottom et right doivent etre affinées mais je ne pense pas que le problème vienne de là

vb6/directx/direct3d

Alors voilà j'ai essayé autre chose:
J'ai plaçé une variable intermédiaire nommée couleurtest dans la sub calculgain et j'attribue la valeur de la couleur sur laquelle s'est arrété la roue

Code:

couleurtest=couleur(1)

Puis je place dans ma sub rendu une ligne pour afficher la valeur de cette variable intermédiaire.
Bizarre la variable couleurtest n'a pas la mème valeur que couleur(1) alors je me pose deux questions , soit la variable couleur(1) a changé de valeur en allant sur la sub calculgain , soit c'est l'inverse et c'est la variable couleurtest qui a perdu sa valeur en retournant sur la sub rendu.
Je crois avoir testé aussi en supprimant la sub calculgain et en gérant tout dans la sub rendu j'avais aussi ce problème aléatoire.
Les deux sub calculgain et rendu font partie du mème module "rendu" seules les variables sont déclarées dans le module principal
LE MYSTERE S'EPAISSI ET JE BRASSE TERRIBLE
Encore une boite d'ASPRO et peut etre que la lumière jaillira

vb6/directx/direct3d

BINGO
Pour solutionner mon problème il suffit de faire les tests de gain juste sous la ligne de détection de couleur et là , aucun problème.
A mon avis , la vitesse de la boucle du rendu empèche par moment le passage correct de valeur entre variables.
Merci à tous de vous etre penché sur ce problème mais peut etre que ça nous servira de leçon quand à l'utilisation de code dans direct3D
cordialement

Citation:

Envoyé par yvanovitch

couleur=getpixel(form1.hdc,x,y) ' x et y étant les coordonnées du point à

GetPixel ne fonctionnera pas avec Direct3d !
Direct X by-passe le GDI
Sauf si on passe par une Direct3DSurface avec Lock et Unlock

vb6/directx/direct3d

Alors voilà pour clore cette discussion et pour aider ceux qui comme moi vont galérer avec l'API GETPIXEL sous direct3D qui malgré tout fonctionne sous directx.
1) Les valeurs des 3 composantes de couleurs sont différentes si on les testent dans PAINT NET et dans DIRECTD ( ceci pour les nuances et non pour les couleurs franches)
2)Certaines valeurs doivent etre testées en notation Hexa et d'autres en RGB pourquoi ?? Mystère
par exemple
Code:

1 2 3 4 5 6 7 8 9 couleur(1) = GetPixel(Form1.hdc, 410, 245) ' on teste la couleur If couleur(1) = &HF7 Then gaindumilieu(1) = "fraise" If couleur(1) = RGB(0, 255, 0) Then gaindumilieu(1) = "lingot" If couleur(1) = &HFF0000 Then gaindumilieu(1) = "ananas" If couleur(1) = RGB(255, 255, 0) Then gaindumilieu(1) = "blason" If couleur(1) = &HFF00FF Then gaindumilieu(1) = "fleur" If couleur(1) = &HFFFF00 Then gaindumilieu(1) = "pomme" If couleur(1) = &HC68200 Then gaindumilieu(1) = "banane" If couleur(1) = RGB(231, 130, 0) Then gaindumilieu(1) = "citron"
Salutations à tous