Discussion :

[Renaud976]

Bonjour,

En VB6, je souhaite afficher le déplacement d'un point (cercle) sur une trajectoire constituée de segments (tableau de points) à une vitesse constante.
Je sèche... la semaine a été rude et j'ai les neurones en choucroute...
Par ailleurs mes recherches ont été vaines. Voudriez-vous me filer un coup de pouce pour me débloquer? Il serait très bienvenu.

Voici quelques éléments :

Code :

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

1
2
3
4
5
6
7
8
9
Type PointTrajectoire
    X As Single
    Y As Single
End Type
 
Public Type Trajectoire
   NbPoints As Long
   Point() As PointTrajectoire
End Type

Ma trajectoire est affichée dans une PictureBox avec AutoRedraw=true.
Pour ne pas avoir à tout retracer à chaque fois, je passe en AutoRedraw=false pour travailler sur un autre plan, avec un timer de 50ms (20 images par seconde si j'ai bien calculé).

Code :

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

1
2
3
4
5
6
Private Sub TimerTrajectoire_Timer()
   PictureTrajectoire.AutoRedraw=false
   PictureTrajectoire.Cls
   '...
   PictureTrajectoire.Circle(Xcercle, Ycercle),R
End Sub

Et c'est là que ça coince, j'ai du mal à trouver comment calculer la position du cercle à tracer (les points de suspension ci-dessus) ; sur un seul segment je pense que j'y arriverai, mais il faut gérer le passage d'un segment à un autre et donc la distance parcourue sur le segment précédent et le reliquat...

Note : il est possible que ma façon de faire ne soit pas la bonne.

Question subsidiaire : avec AutoRedraw, on a deux plans ; peut-on en avoir trois? (un pour mon fond, un pour ma trajectoire qui est modifiable, un pour mon point qui se déplace?).

Bien cordialement,
Renaud.

[Jean-Marie Grave]

Bonjour Renaud976.

Les types sont faciles à employer, mais deviennent insuffisants dès que les choses se compliquent un peu. Ils faut passer aux classes. Si vous n'en avez jamais faites, le moment est venu de vous y mettre, et je suis prêt à vous aider en cette aventure, mais non à faire le travail à votre place.

Si j'ai bien compris votre problème, il vous faut créer quatre classes,

Point
Points
Segment
Segments

L'interface de la classe Point comprendra

une propriété x As Single, qui renvoie ou définit l'abcisse du centre du point,
une propriété y As Single, qui renvoie ou définit l'ordonnée du centre du point,
une méthode Dessiner(Box As PictureBox) qui dessine le point sur le contrôle Box.

La classe Points est une collection d'objets de classe Point. Son interface comprendra

les quatre procédures classiques d'une collection
une méthode Dessiner(Box As PictureBox, n As Long) qui dessine sur le contrôle Box les points de rang 1 à n.

L'interface de la classe Segment comprendra

une propriété Départ As Point, qui renvoie ou définit le point de départ du segment,
une propriété Arrivée As Point, qui renvoie ou définit le point d'arrivée du segment,
une méthode Dessiner(Box As PictureBox) qui dessine le segment sur le contrôle Box.

La classe Segments est une collection d'objets de classe Segment. Son interface comprendra

les quatre procédures classiques d'une collection
une méthode Dessiner(Box As PictureBox, n As Long) qui dessine sur le contrôle Box les segments de rang 1 à n.

À ce stade, vous aurez construit votre caisse à outils. Il ne vous restera plus qu'à jouer avec. N'hésitez pas à me faire savoir si vous être coincé,
en me donnant évidemment la partie de code qui 'est en cause.

Amicales salutations.

PS. Réponse à la question subsidiaire : vous faut-il aussi les faveurs de la fermière ?

[Renaud976]

Bonjour Jean-Marie,

Merci pour votre réponse. Le code clé en main ne m'intéresse pas outre mesure, il permet de débloquer une situation, et est à ce titre très tentant, mais il ne fait pas progresser.

En l'état c'est essentiellement l'algo qui me bloque, ou tout du moins les grandes lignes de l'aglo que j'ai du mal à visualiser de façon complète.

Concernant les classes, je suis de formation plutôt conception mécanique et je programme comme tel : parfois il me faut 20 lignes pour faire ce que les informaticiens évacuent en une ligne sans y penser, c'est un peu besogneux, mais ça a le mérite de me permettre de me relire et de comprendre mon soft même plusieurs mois après avoir mis le code de côté. Chacun fait avec ses moyens.
Tout cela pour dire que les classes me font un peu peur en ce sens que je crains de devoir passer beaucoup de temps en apprentissage pour les maîtriser. Mais peut-être le jeu en vaut-il la chandelle? Je vais regarder plus en détail ce dont vous me parler et essayer de comprendre.

Pour info, je suis le développeur du soft "Complexes" qui est téléchargeable sur le site 5xproject et qui sert à travailler des profils pour la découpe au fil chaud.


L'algo dont j'ai besoin me servira à simuler le déplacement du fil.

Pour la fermière, ça dépend de la fermière...

Bien cordialement.

[Jean-Marie Grave]

Bonsoir Renaud976.

C'est précisément la structuration par classes qui rendra évident l'algorithme. C'est dans la nature même de ce que l'on appelle la

programmation orientée objet

horrible anglicisme qui met en apposition en adjectif et un substantif. Je parle pour ma part de

méthode objet

car c'est avant tout une méthode qui dépasse la programmation. En ce qui concerne le temps d'apprentissage, je conçois votre crainte. La possibilité de créer des classes est apparue dans Vb4. Il m'a fallu trois mois pour la maîtriser, mais sans aucune aide que la documentation, qui est parfois bien absconse. J'estime qu'un mois est suffisant quand on est aidé. Je vous prépare un tutoriel pour la création et l'utilisation de la classe Point.

[Renaud976]

Merci Jean-Marie,

J'étudierai avec intérêt votre tutoriel. Je vais faire quelques recherches par ailleurs.
Je ne dispose cependant pas de beaucoup de temps (je rénove notre maison et ça me prends tout mon temps) alors ne vous étonnez pas si je ne suis pas toujours très réactif.

Bien cordialement,
Renaud.

[Renaud976]

Bonjour,

Mon problème a été résolu de la façon suivante :
- choix d'un "pas" correspondant à la distance séparant deux affichages du point sur la trajectoire,
- création du tableau des points correspondants (on part du point 1, on ajoute la distance du pas sur la trajectoire, ça donne le point 2, on ajoute le pas sur la trajectoire, ça donne le point 3, etc.). Les distances sont calculées classiquement à l'aide du théorème de Pythagore.
- choix d'un intervalle de Timer,
- on lance le timer qui affiche les points à chaque intervalle (après un .cls, propriété Autoredraw à false).

Je ne peux pas fournir directement les sources car la partie calculatoire des distances avec les joyeusetés de boucles et de conditions imbriquées (mon principal problème dans l'affaire) n'est pas de moi.

Bien cordialement,
Renaud.

P.S.: Je suis toujours intéressé par les classes.