Où chaînes vectorielle. Programmé en VB6, ce code simule une chaîne posée une table que l'on manipulerait par le bout. Autrement dit, c'est parfaitement inutile et donc absolument incontournable et fascinant.
C'est la version minimale de l'application du concept que je vous livre ici ULTRA COMMENTÈE. Donc, si vous êtes débutant, vous apprendrez pas mal de choses sans trop vous emmerder (du moins, je l'espère!).
Cependant, la compréhension du concept (expliqué via croquis livrés dans le zip) nécéssite les bases de la trigonométrie à savoir :
- le théorème de Phytagore
- le Sinus et le Cosinus.
Outre toutes les explications, j'ai également pensé aux non détenteurs du VB6 en fournissant l'exécutable (qu'il faut cependant renommer). Mais ATTENTION, sont utilisation est A VOS RISQUES ET PERILS !!! Ni moi ni VBFrance n'en portera la responçabilité!
Amusez-vous bien!
Source / Exemple :
'Coeur du programme :
tblPoints(1, 1) = X
tblPoints(1, 2) = Y
xx1 = tblPoints(1, 1)
yy1 = tblPoints(1, 2)
For varPoint = 2 To varNbrPts
xx2 = tblPoints(varPoint, 1)
yy2 = tblPoints(varPoint, 2)
xx = xx2 - xx1
yy = yy2 - yy1
RayHypo = Sqr((Abs(xx) ^ 2) + (Abs(yy) ^ 2))
CosX = xx / RayHypo
SinY = yy / RayHypo
tblPoints(varPoint, 1) = xx1 + (varEspaces * CosX)
tblPoints(varPoint, 2) = yy1 + (varEspaces * SinY)
xx1 = tblPoints(varPoint, 1)
yy1 = tblPoints(varPoint, 2)
Next varPoint
Call procAffiPoints
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.