FRACTSAVER, ÉCONOMISEUR D'ÉCRAN FRACTAL

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
MoiOlivier Messages postés 172 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 4 août 2005 - 21 août 2003 à 11:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8291-fractsaver-economiseur-d-ecran-fractal

MoiOlivier Messages postés 172 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 4 août 2005
21 août 2003 à 11:02
Le problème sous W98 (si problème il y a) semble provenir des deux api que j'utilise pour placer et récupérer un bitmap dans un tampon mémoire : SetDIBits et GetDIBits. Seulement, d'après AllAPI.net, elles sont compatibles avec tous les Windows, donc je pige pas.
Pour plus d'info, tu peux peut-être aller voir ma source précédente (http://www.vbfrance.com/article.aspx?Val=10047) dans laquelle j'utilisais déjà ces deux api, et où l'on m'a prévenu de ce problème. Certains commentaires pourront peut-être t'éclairer, moi en tout cas je n'y suis pas arrivé (en plus je n'ai que WinXP chez moi et je ne peux donc pas tester sur d'autres systèmes).

Bonne prog.
L'auteur.
jannoman Messages postés 256 Date d'inscription jeudi 17 avril 2003 Statut Membre Dernière intervention 20 février 2008 1
21 août 2003 à 10:36
Il a l'air bien, mais saurais tu comment le faire marcher pour 98 stp ?
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
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
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!
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.
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
Rejoignez-nous