cedricbi
Messages postés185Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention21 mars 2011
-
20 août 2003 à 13:00
MoiOlivier
Messages postés172Date d'inscriptionmardi 15 juillet 2003StatutMembreDerniè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.
MoiOlivier
Messages postés172Date d'inscriptionmardi 15 juillet 2003StatutMembreDerniè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és256Date d'inscriptionjeudi 17 avril 2003StatutMembreDernière intervention20 février 20081 21 août 2003 à 10:36
Il a l'air bien, mais saurais tu comment le faire marcher pour 98 stp ?
cedricbi
Messages postés185Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention21 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és132Date d'inscriptionmercredi 12 juin 2002StatutMembreDernière intervention26 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és104Date d'inscriptionlundi 17 décembre 2001StatutMembreDernière intervention12 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és172Date d'inscriptionmardi 15 juillet 2003StatutMembreDerniè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és185Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention21 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
21 août 2003 à 11:02
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.
21 août 2003 à 10:36
21 août 2003 à 09:04
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
20 août 2003 à 17:58
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
20 août 2003 à 17:43
Bonne Prog et un chti 10/10 pour la route!
20 août 2003 à 16:34
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.
20 août 2003 à 13:00
il faudrai essayer de le faire en C, C++ ou Delphi.
Allez 10/10