1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Ecrans de veille
  5. Fractsaver, économiseur d'écran fractal

Fractsaver, économiseur d'écran fractal

0/5 (7 avis)

Vue 8 588 fois - Téléchargée 735 fois

Télécharger le projet
Commenter

Description

Et oui, encore un !
Mais comme je le trouvais assez joli, j'ai quand même voulu le poster.
Ce screensaver fait des zooms successifs sur l'ensemble de Mandelbrot, chaque nouvelle image vient se mettre en surimpression sur la précédente, et la première se met en surimpression sur le bureau (voir la capture, c'est peut-être plus clair).

Afin d'accélérer le calcul sur les pixels, l'image est calculée dans un tampon sous forme de matrice.
Je crois que ce prog ne fonctionnera que sous WinXP et Win2K (je ne suis pas sûr).

Conclusion :


Pour une meilleure efficacité du prog, je vous conseille avant de le compiler, de cocher toutes les cases dans Projet>Propriétés de FractSaver onglet Compilation, Optimisations avancées.

PS : Je viens de faire une toute chtite mise à jour, le prog est maintenant 5 fois plus rapide pour tracer les images.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cedricbi Messages postés 185 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 21 mars 2011
20 août 2003 à 13:00
Vraiment génial, très beau, assez rapide (pour VB).
il faudrai essayer de le faire en C, C++ ou Delphi.
Allez 10/10
MoiOlivier Messages postés 172 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 4 août 2005
20 août 2003 à 16:34
-> cedricbi : Merci, ça fait vraiment plaisir. Tu devrais retélécharger la source parce que comme c'est dit plus haut, je viens de la mettre à jour et maintenant, le prog est beaucoup plus rapide (bon, je sais ce n'est pas encore du C, mais c'est déjà pas mal pour du VB).

J'attends d'autres commentaires, please.
Si quelqu'un sait comment faire une prévisualisation dans la fenêtre des parametres d'affichage, je suis preneur. Ou si quelqu'un s'amuse à le faire à partir de ma source, ce serait sympa de me prévenir, merci.

Bonne prog.
L'auteur.
TTMan Messages postés 104 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 12 février 2007
20 août 2003 à 17:43
En un mot: Excellent!!! (mais pas lent... LOL). La vitesse d'exécution est assez surprenante pour un truc comme ça en VB. Bravo!!
Bonne Prog et un chti 10/10 pour la route!
pcman5 Messages postés 132 Date d'inscription mercredi 12 juin 2002 Statut Membre Dernière intervention 26 janvier 2006
20 août 2003 à 17:58
He bas j'ai eu du mal a l'envoyer ce commantaire

Ouai c'est sympa.
En tous c'est beau, mais ca devien tré vit sombre.
Mon idéé serait (Ce n'est qu'une idéé douteuse mais bon...) de faire effacer progressivement les images ancienne.
Mais bon je n'ai pas regarder le code donc peut-etre que ce n'est pas possible.
En tous cas bravo!!

10/10 ;)

PCMAN5
cedricbi Messages postés 185 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 21 mars 2011
21 août 2003 à 09:04
Pour qu'il n'y aie plus de transparence il faut mettre cela (à la place de la fonction FusePointQ) :

Public Sub FusePointQ(ByVal X As Long, ByVal Y As Long, Col As RGBQUAD)
BufferB(X, Y).rgbRed = CByte(CInt(Col.rgbRed))
BufferB(X, Y).rgbGreen = CByte(CInt(Col.rgbGreen))
BufferB(X, Y).rgbBlue = CByte(CInt(Col.rgbBlue))
End Sub

C'est vrai, que la vitesse est impressionnante.
Ca serai du C avec cette vitesse, les messages ne seraient pas très gratifiant ! lol
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 (MoiOlivier)