Chaîne vertébrale minimale

Soyez le premier à donner votre avis sur cette source.

Vue 3 655 fois - Téléchargée 329 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
ScSami>Oui j'ai vue l'autre et le commentaire etait pour l'ensemble optimal & minimum ! En fait ça me donne des idées ta source... et puis le combo avec les differents effet c'est super

Aller encore une fois (car ça fait toujours plaisir) Bravo !

;)
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
23
Darky : Regarde mieux... "xxx.EXE.renommez". Bon, si tu veux vraiment, malgré mon avertissement, je le vire (mais je sais que je vais encore recevoir des mails de gars qui n'ont pas VB6!)

EBart : Franchement, ça me touche particulièrement que tu apprécis cette petite source. Mais as-tu vu la version "optimale" ?

Charles : C'est clair! Moi c'est pareil, on ne sait pas quoi faire de ce truc tout con mais il tellement fascinant...

Merci de vos commentaires!
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
33
J'adore, c marrant, c'est bien commenté.
J'y suis resté pas mal de temps tellement ca m'amuse.
Bon code 10/10
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Excelent ! J'aime bcp

@+
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
124
Ca ne sert à rien de mettre l'exe : il est automatiquement supprimé lors de l'envoi du zip pour éviter les virus !

Sinon, je ne sais pas ce qu'en pense les autres admins, mais ta source, (au nom très similaire de ton autre source) aurait sûrement mérité d'être mise avec la version optimisée, je les laisse juge pour savoir si on désactive ou pas l'autre source...

DarK Sidious

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.