EFFET SUR DES PICTUREBOX : CODE TRES SIMPLE, FLUIDE ET COMMENTER
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
27 juin 2004 à 17:47
gandalfkhorne
Messages postés70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004
-
28 juin 2004 à 16:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
gandalfkhorne
Messages postés70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004 28 juin 2004 à 16:10
Une sauvegarde de menu ok, jvais la faire des ce soir, jvais modifié les deux ou trois saloperies, thx.
cs_Arknoth
Messages postés96Date d'inscriptionjeudi 2 janvier 2003StatutMembreDernière intervention22 août 2004 28 juin 2004 à 12:54
A mon avis ta ligne
Dim msg_ As Msg
a oublié d'aller dans la procédure DoEvnts()
Bravo, bonne source, niquel les commentaires, te reste plus qu'à mettre une fonction de sauvegarde :)
allez hop 9
@ pluche
gandalfkhorne
Messages postés70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004 28 juin 2004 à 11:18
C'est vrai c constantes servent à rien mais j'avais pas fait attention à ce module de doevents, je n'y porte pas trop d'interêt bien qu'il soit tres utile et pour les opérateur sont ils plus rapide?
Saros
Messages postés921Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention23 septembre 2010 28 juin 2004 à 11:03
Private Const PM_NOYIELD = &H2
Private Const PM_NOREMOVE = &H0
Elles servent à rien les constantes, non ?
Pour extraire les composantes d'une couleur, j'utilise une autre manière avec seulement deux opérateurs :
Red = ((ClRc And &HFF0000) / &H10000)
Green = ((ClRc And &HFF00&) / &H100)
Blue = (ClRc And &HFF&)
gandalfkhorne
Messages postés70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004 27 juin 2004 à 17:55
mais quel con pour se rafraichissement lol, ca se voit trop l'erreur, je n'ai pas mis la condition pour quitter le sub plus tot :$
Sinon jvais mettre à jour vite fait, et je n'ai pas fait un rafraichissement automatique car à chaque clique tu aurais une attente et plu l'image et longue plus il en mettrait, de plus j'ai utilisé le Doevents perso pour gagner de la vitesse. et tu m'a appris qq chose que le Or etc... pouvez etre utiliser comme opérateur pour implémenter, merci :)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 27 juin 2004 à 17:47
pourquoi utiliser un Doevents "perso" ??
tu pourrais accelerer ton code en n'utilisant pas GetPixel et SetPixel , mais GetDibBits , par exemple
d'autre part, j'ai noté que l'image etait toute grise s'il elle etait raffraichie avec les trois canaux activés
ce serait pas mal, de plus que l'image soit raffraichie dès que l'on change les canaux (sans faire F5)
petite remarque enfin :
If Not (Red Or Green Or Blue) Then NB = True
equivaut à :
NB = Not (Red Or Green Or Blue)
mais c'est un bon exemple de l'utilisation des API, et l'application de l'effet est interessant
28 juin 2004 à 16:10
28 juin 2004 à 12:54
Dim msg_ As Msg
a oublié d'aller dans la procédure DoEvnts()
Bravo, bonne source, niquel les commentaires, te reste plus qu'à mettre une fonction de sauvegarde :)
allez hop 9
@ pluche
28 juin 2004 à 11:18
28 juin 2004 à 11:03
Private Const PM_NOREMOVE = &H0
Elles servent à rien les constantes, non ?
Pour extraire les composantes d'une couleur, j'utilise une autre manière avec seulement deux opérateurs :
Red = ((ClRc And &HFF0000) / &H10000)
Green = ((ClRc And &HFF00&) / &H100)
Blue = (ClRc And &HFF&)
Voilà, sinon j'ai trouvé aucun problème...
10/10
Saros
27 juin 2004 à 17:55
Sinon jvais mettre à jour vite fait, et je n'ai pas fait un rafraichissement automatique car à chaque clique tu aurais une attente et plu l'image et longue plus il en mettrait, de plus j'ai utilisé le Doevents perso pour gagner de la vitesse. et tu m'a appris qq chose que le Or etc... pouvez etre utiliser comme opérateur pour implémenter, merci :)
27 juin 2004 à 17:47
tu pourrais accelerer ton code en n'utilisant pas GetPixel et SetPixel , mais GetDibBits , par exemple
d'autre part, j'ai noté que l'image etait toute grise s'il elle etait raffraichie avec les trois canaux activés
ce serait pas mal, de plus que l'image soit raffraichie dès que l'on change les canaux (sans faire F5)
petite remarque enfin :
If Not (Red Or Green Or Blue) Then NB = True
equivaut à :
NB = Not (Red Or Green Or Blue)
mais c'est un bon exemple de l'utilisation des API, et l'application de l'effet est interessant