1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Divers
  5. Jonglage en notation siteswap

Jonglage en notation siteswap

0/5 (3 avis)

Vue 5 312 fois - Téléchargée 325 fois

Télécharger le projet
Commenter

Description

Il s'agit d'un programme qui génère une animation d'un jongleur d'après la notation siteswap* de la figure.
Il gère les notations synchrones et asynchrones avec les notations les plus couramment utilisées ( 53 (6,4) (4x,4x) ). Une echelle de temps variable permet de ralentir le mouvement.

Pour ceux qui ne connaissent pas cette notation, cela leur permettra de se faire une idée de la richesse offerte par cette notation, et pour les jongleurs confirmés, c'est un outil pour trouver de nouvelles figures.

Conclusion :


Quelques modifications permettraient de gérer le multiplex ou d'ajouter un générateur siteswap.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
4 févr. 2006 à 16:53
ps : j'ai oublier de preciser une chose :

Dans l'unité Unit1 du Déclare dans les Uses l'unité QT mais celle ci provoque une erreur à la compilation il suffit de la retirer

@+
Cirec
cs_cam91 Messages postés 19 Date d'inscription dimanche 9 juin 2002 Statut Membre Dernière intervention 4 février 2006
4 févr. 2006 à 16:50
En fait pour la 2° form c'est parce qu'au départ j'avais fait un composant jonglage, puis j'ai trouvé ca inutile, donc j'ai réintegré le composant dans une 2° form par manque de temps, mais une simple unit aurait suffit. Sinon merci des conseils ;-)
cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
4 févr. 2006 à 14:07
Salut,

en premier lieu, l'animation est réussie bravo mais si tu ajoutes un DoubleBuffered := True; dans le OnCreate de la Form1 elle sera encore plus fluide.
Maintenant j'ai pas bien compris pourquoi tu utilises une deuxième Form que tu n'affiches jamais (me semble t'il) une simple unité ferait l'affaire.
En suite tu utilises une panoplie de If Then à la suite dans certain cas tu pourrais utiliser un Case Of à la place ce qui améliorera le traitement.
Et dans ce genre de code :
If x = 1 Then
Begin
B := 5;
End; par Exemple
Le Begin End; n'est pas utile.
Mais bon ce sont des bricoles.

Par contre il est indispensable de nommer les composants pour faciliter la lecture du code pour nous et pour toi aussi, si tu dois reprendre ton code dans quelques mois il sera plus simple pour toi de rentrer à nouveau dedans.

Pour l'instant je ne met pas de note mais après quelques petites modifications ça mériterait bien un 10/10

Bonne Prog.
@+
Cirec
S'inscrire maintenant

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.

Du même auteur (cs_cam91)