Discussion :

[Daniel_P]

Bonjour ,

je suis en train de faire un petit jeu, un sokoban en vb 6.0. pour l'école. J'ai réussi à faire bouger mon bonhomme en faisant ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If KeyCode = vbKeyRight Then
Imgbonhomme.Left = Imgbonhomme.Left + 100
End If

même code pour la gauche, bas et haut.

Ce que j'aimerais savoir c'est si c'est corecte comme code ou il y a plus simple et plus performant ? et aussi comment savoir si mon bonhomme arrive sur une autre image par exemple un mur donc si un pixel de mon bonhomme touche sur un pixel du mur par exemple...?

Si vous ne comprenez pas toutes mes questions n'hésitez pas à me le dire .

Daniel.

[ucfoutu]

En ce qui concerne ta 1ère question : je n'ai rien à redire au code montré.

En ce qui concerne la seconde : ce n'est qu'un calcul purement arithmétique basé sur la propriété left d'une des 2 images et l'addition des propriétés left et Width de l'autre !

[Daniel_P]

Salut,

tu pourrais me donner un petit exemple ? Je viens de commencer le VB donc

en attendent, j'essai de mon côté

merci.

[ucfoutu]

Rien à voir avec VB, mais tout avec l'arithmétique élémentaire, quel que soit le langage de développement utilisé.

Donc ? relis ce que j'ai écrit plus haut : tout y est.

[Asdorve]

ucfoutu, une question:

dans ce cas cité plus haut, en fonction de la position de son bonhomme, comment faire pour savoir quelle image le bonhomme touche?

où alors je n'ai pas tout suivi...

[Daniel_P]

D'accord je vais essayer de décortiqué tout ça ^^

merci

Serais-je dans la bonne voie si je fais ça ?

If ImgMur.Left = 2000 AND Imgbonhomme.Left = 2000 then
...
End If

je n'ai pas testé...

[Asdorve]

If ImgMur.Left = 2000 AND Imgbonhomme.Left = 2000 then
...
End If

perso, je ne pense pas, à cette condition, le bonhomme est déjà dans le mur, non?

regarde peut être dans ce sens:
si le bonhomme se déplace vers la droite et touche un mur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Imgbonhomme.Left + ImgBonhomme.width = ImgMur.Left then
...
End If