Discussion :

[gaetan0120]

salut,
ben d'abord je suis un débutant sur VB6
je suis en trein de faire un projet sur un bras robot commander en VB6 via une plaquette usb, j'ai dessiner ce robots sur VB6 ( avec les formes) a coter du programme et j'aimerais bien savoir si le dessin peut changer en fonction de la position du robot, et si oui comment ?


gaetan

[méphistopheles]

eh bien, tu à différentes possibilités.

Suppososn que tu aie récupéré la position du bras du robot(en 2D je suppose, en 3D, il faut que tu utilise le composant adéquat (me rapelle plus le nom)ou que tu te programme un mini moteur 3D (mais c'est lergement faisable tant que tu shématise ton robot par des lignes)). tu aura donc quatre coordonées, appelons-les x,y,a,b de deux points du bras de ton robot (disons les extremités)
tu peut par exemple shématiser ce robot par une ligne et tracer une ligne

Code :

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

line(x,y)-(a,b)

et, lorsque le bras bouge, retracer cette ligne avec la couleur de fond (

Code :

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

taform.forecolor=taform.BackColor

) et tracer la nouvelle en remettant la couleur normale.

sinon, tu peut utiliser des shapes, et à peu pres tout ce qui est à ta disposition, mais il serais utilie de savoir avec quoi tu à "dessiné" ton robot.


bonne chance

[avigeilpro]

Je sais que sous Delphi il y a GlScene qui permet de faire des objets 3D, Peut-être y-a-t-il un equivalent sous VB.

[gaetan0120]

re
ben tt d'abort merci d'avoir repondu,
pour l'instant j'essaye j'uste de travcer le bras robot avec "line"
et avec une vscrollbar pour illustrer l'entrée qui servira a indiquer a quelle position est le robot, pour ca je travaille tout d'abort sur une ligne pivotan sur un point fixe, pour cela j'avais écris ce petit programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub VScroll1_Change()
Label1 = VScroll1.Value
Cls
X1 = 1320
Y1 = 2520
X2 = VScroll1.Value
r = ((X2 - X1) ^ 2 + (Y1 - Y2) ^ 2) ^ 2
a = Atn(Y2 / X2)
Y2 = r * Sin(a)
Line = (X1 - Y1) - (X2 - Y2)
End Sub

mais voila il met met que la ligne "line" n'est pa un argument facultatif
si non j'av

[ProgElecT]

La syntaxe est :

Code :

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

Line.X1 = 123 : Line.X2 = 345 : Line.Y1 = 567 : Line.Y2 = 789

[avigeilpro]

je crois qu'il y a aussi cette syntaxe là :

Code :

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

1
2
 
Line (X1,Y1)-(X2,Y2)