Feu d'artifice sous excel vba
Description
Je me suis inspiré d'une source VB6 déposée le 20/05/2007 par margot000 "FEUX ARTIFICES TOUTES LES COULEUR" pour disposer d'un feu d'artifice sous Excel.
Comme il n'y a pas de timers sous VBA, indispensables pour faire fonctionner les tirs, j'ai d'abord développé un code en utilisant des timers API Windows. C'est le fichier "Feu d'artifice1_timerAPI.xls".
Puis, j'ai fait une version avec le timer VBA que j'ai créé (cf ma source "TIMER POUR VBA" du 28/08/2006), avec la mise en place et l'enregistrement automatique du timerVBA.ocx joint au zip (et qui doit être dans le même chemin que le fichier code): c'est le fichier "Feu d'artifice1_timerVBA.xls"
Les 2 versions donnent les mêmes résultats, et ont les particularités suivantes:
Ouvert bien sûr à tout commentaire ou modification
Comme il n'y a pas de timers sous VBA, indispensables pour faire fonctionner les tirs, j'ai d'abord développé un code en utilisant des timers API Windows. C'est le fichier "Feu d'artifice1_timerAPI.xls".
Puis, j'ai fait une version avec le timer VBA que j'ai créé (cf ma source "TIMER POUR VBA" du 28/08/2006), avec la mise en place et l'enregistrement automatique du timerVBA.ocx joint au zip (et qui doit être dans le même chemin que le fichier code): c'est le fichier "Feu d'artifice1_timerVBA.xls"
Les 2 versions donnent les mêmes résultats, et ont les particularités suivantes:
- tracé parabolique aléatoire du tir des boules de couleur. Pour les matheux, une explication du calcul des paramètres des paraboles est donné sur les feuilles du fichier (timerAPI seulement).
- utilisation de sons (avec le contrôle WindowsMediaPlayer) pour les tirs et éclatements (le dossier Bruit doit être dans le même chemin, que le fichier code.
- la taille de la form peut être modifiée (par étirement des bords) pendant le fonctionnement du feu, et même être mise en écran total: tous les paramètres de tir sont automatiquement ajustés.
- pour les éclatements, j'ai utilisé des contrôles labels avec des images, mais comme il n'y a pas de groupe de contrôles sous VBA, je les crée en dynamique en les regroupant dans un tableau que l'on peut gérer ensuite avec les index.
Conclusion :
Ouvert bien sûr à tout commentaire ou modification
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.