Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 18:12:36

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PROBLEME D'ECRITURE DE CODE par PCPT

LISTVIEW ET TRI par Sator

RE : OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : ERREUR : éLéMENTS DUPLIQUéS NON PRIS EN CHARGE PAR LE PARAMèTRES "RESOURCES" par cboulas

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

+ de logiciels à télécharger

1 465 404 membres
449 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 096 codes, 1 303 306 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FXMEISTER - REVOLUTION DE LA RETOUCHE D'IMAGE SUR VBFRANCE

Information sur la source

Catégorie :Graphique Niveau : Expert Date de création : 27/03/2005 Date de mise à jour : 27/03/2005 19:17:10 Vu / téléchargé: 4 507 / 795

Auteur : Progmeister

Site perso

Ecrire un message privé

Note :

10,00 / 10

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ce logiciel est un logiciel de retouche graphique... mais différent de ceux déjà présents sur VBFrance, en effet celui ci utilise des APIs différentes permettant de décupler la rapidité des filtres graphiques. De plus il implémente de nouveaux effets (convolution, dégradé...), son but est toutefois principalement éducatif...

Son but principal est de vous montrer comment utiliser les API GetDIBits et SetDIBits pour créer des effets graphiques. Sur VBFrance, tous les effets graphiques sont réalisés à l'aide des fonctions GetPixel et SetPixel, qui sont particulièrement lentes. Ce programme vous montre donc comment réaliser des effets graphiques rapides et efficaces. Les effets Contraste, Saturation, Noir et Blanc, Diffusion, Derrière une vitre, Inverser les couleurs, sont là dans un but éducatif, pour vous montrer comment utiliser ces APIs.

Le logiciel montre ensuite comment faire des effets par produit de convolution. Le principe est expliqué dans le code, cela permet de faire à peut près tous les effets de base proposés par PaintShop, comme le flou, le Sharpen, le traçage de contour, la mise en relief, et bien d'autres encore, il suffit de connaitre leur matrice de convolution. Le logiciel propose quelques matrices de convolution basiques, vous pouvez en trouver d'autres sur internet.

J'ai aussi implémenté un effet de dégradé assez complet, bien qu'il subsiste encore un bug (pas grand chose, il est noté dans le code mais l'algorithme en lui même ne contient aucun bug), le logiciel est fournit avec quelques dégradés de base, vous pouvez aussi créer les votres.

Le logiciel montre enfin comment utiliser correctement la fonction StretchBlt (dans le code j'utilise setDIBits mais ça revient au même), IL FAUT faire un appel à setStretchBltMode avant l'appel, sinon le rendu est particulièrement moche pour des redimensionnements importants. l'appel de ces deux fonctions remplace avec brio la fonction PaintPicture de VB (que je ne recommande pas d'utiliser... particulièrement lente)

Le logiciel n'implémente pas d'autres effets graphiques volontairement, les autres sont en grande partie déjà présent sur VBFrance et sur Internet et je vous laisse le soin de les ajouter grace aux APIs SetDIBits et GetDIBits.

Pour toute suggestion ou question, vous pouvez me contacter à l'adresse polo18623@hotmail.com ou directement sur VBFrance.

J'espere que ce code pourra vous aider...
Progmeister

Source

Public Sub AllisintheZip(filename as String)
Dezip(filename)
End Sub

Public Sub AllisintheZip(filename as String)
  Dezip(filename)
End Sub

Conclusion

Le zip ne contient pas de .exe mais je vous conseil de le compiler pour apprécier
sa vitesse.

Merci de laisser vos commentaires...

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Contraste.bas 2 789 octets
ConvEffects.eff1 770 octets
Convolution.bas 5 858 octets
Degrade.bas 11 286 octets
DegradEffects.eff635 octets
DerriereVitre.bas 3 053 octets
Diffusion.bas 3 002 octets
Form1.frm 60 566 octets
Form1.frx17 701 octets
FXMeister.ico 2 238 octets
General.bas 2 449 octets
InteractionForm1.bas 21 453 octets
Inversion.bas 2 073 octets
LISEZMOI.txt 2 486 octets
Projet1.vbp 1 402 octets
Projet1.vbw 350 octets
Saturation.bas 3 550 octets

Télécharger le zip

Historique

27 mars 2005 19:17:10 :: Ce n'est pas réellement une mise à jour c'est juste une correction du texte accompagnant la source

Sources du même auteur

3D OBJECT CREATOR (LOGICIEL STYLE 3DMAX)

3D : UTILSER JOYSTICKS, SOURIS ET CLAVIER DANS VOS JEUX

TORES EN 3D AVEC DIRECT3D IM

3D : VISION PANORAMIQUE COMME DANS HALF-LIFE

ROTATION INTUITIVE AVEC LA SOURIS EN DIRECT3D IM

Toutes les sources de Progmeister

Sources de la même categorie

AFFICHEUR 7 SEGMENTS par elguevel

SCREENCOLORINVERTER par slayer418

CHART COURBE STATISTIQUE DAO par amita

GABSCREENSHOT : FAITES SIMPLEMENT ET RAPIDEMENT VOS CAPTURES... par GabSoftware

BITBLT ENTRE 2 PICTUREBOX EN VB NET par Galain

Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de BozzoDodo le 27/03/2005 21:05:38

Tu n'as pas inventer l'utilisation des api GetDIBits et SetDIBits dans les logiciels de retouches graphiques...

Commentaire de ScSami le 27/03/2005 21:57:51

C'est clair, Bozzo a raison. Y'a plein de sources sur VBF concernant Get et Set DIBits (cf. les sources, entre autre, de DarkSidious)!!!

De plus, si tu connais un moyen plus rapide que SetPixel, ben ça ne peut être que SetPixelV qui, je le rappel, n'a pas la précision colorimétrique du premier!

Mais bon, l'intention est bonne.

Cependant, si tu veux vraiment faire un truc inédit sur VBF, fait nous une bonne source pour faire des panoramas (voir même des anaglyphs panoraniques ;-)
Ou alors une source de stéréogrammes.

Bonne prog... meister

Commentaire de Progmeister le 28/03/2005 01:11:02

Bon les gars je sais bien que je n'ai pas inventé les apis SetDIBits et GetDIBits, c'est d'ailleurs sur VB que j'en ai eu l'idée et d'ailleurs grace à DarkSidious mais:
1 - L'API était mal utilisée, le tableau de Bytes passé en paramètre pour récupéré les pixel était mal dimensionné ce qui le rendait inutilisable pour des filtres plus complexe, et les paramètres de la structure BITMAPINFO étaient mal définis si bien que l'on ne pouvait pas appliquer de filtre sur la plupart des images chargées avec la fonction loadpicture (ou avec les apis pour les puristes)
2 - Je déplore que sur VBFrance, 98% des effets graphiques programmés, aussi bons soient ils, utilisent les fonctions GetPixel et SetPixel (SetPixelV si tu veux, ca ne change pas grand chose ici) qui sont particulièrement lentes...

Voila ma source est donc à but pédagogique, pour faciliter l'utilisation de ces deux fonctions si peu utilisées

De plus cette source était à la base faite pour présenter l'effet de produit de convolution, utilisé par tous les logiciels de retouche d'image

Merci pour tes idées ScSami mais j'ai d'autres projets pour le moment....

Commentaire de ScSami le 28/03/2005 17:30:34

Sur toutes ces précieuses précisions, je ne regrette qu'une chose : que tu ai d'autre projet :-(((

;-)

Je trouves cependant que certain de tes effets sont plutot lent! (non, là j'te taquine ;-)

Commentaire de MoiOlivier le 28/03/2005 18:16:08

Salut,
Merci, merci et merci, etc.
J'aime bien.
Vraiment bien.

Juste une (toute petite) chose : pense à cocher toutes les case dans la fenêtre "options avancées" des options de compilation, ça fait gagner pas mal de temps lors du calcul des effets...

Ah oui, toujours pour l'optimisation (et c'est encore un détail) : utilise des Long, toujours des Long, et non des Integer quand tu peux (perso, j'ai remarqué que c'était plus rapide aussi...)

Bonne prog, @+

Commentaire de bidoch78 le 29/03/2005 09:41:26

En tous cas, force est de constater que le code est tres pro : bien commenté, aéré, lisible.

Commentaire de ennixo le 30/03/2005 19:23:02

@MoiOlivier:
L'utilisation est Long rend les algos plus rapides car le Long est de 32 bits et nos processeurs (pour la plupart) sont 32 bits et sont donc optimisés pour etre au plus rapide avec ces valeurs ! celà explique pourquoi un long est plus rapide qu'un integer ou meme qu'un byte !!!

@Progmeister:
pas mal mais tu pourrais accélérer en cochant les cases pour optimiser la rapidié comme le dit MoiOlivier et surtout NE PAS UTILISER de progressbar !!! la progressbar il faut la rafraichir à intervals réguliers sinon tu perds énormément de temps !!!

et juste une petite astuce aussi quand tu inverse l'image. le calcul c'est effectivement NouvelleComposanteDeCouleur = 255 - AncienneComposanteDeCouleur

mais il s'agit de byte, donc d'octet et celà revient au même résultat de faire NouvelleComposanteDeCouleur = Not AncienneComposanteDeCouleur

sauf que c'est plus rapide pour le processeur =)

bonne continuation