AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 06:39:28
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 !

POT DE PEINTURE (REMPLISSAGE/FLOOD)


Information sur la source

Catégorie :Graphique Classé sous : floodfill, remplir, algorithme, peinture, graphique Niveau : Débutant Date de création : 09/11/2005 Vu / téléchargé: 6 056 / 510
Auteur : ScSami Ecrire un message privé
Note :
8,67 / 10 - par 3 personnes
8,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Où pot de peinture. Programmé en VB6, ce code a pour vocation de montrer une technique - parmis bien d'autres - de programmation de "pot de peinture". Cette technique n'est pas la meilleur, le code n'est pas le meilleur, mais le débutant s'y retrouvera en apprenant, via un GRAND NOMBRE DE COMMENTAIRES, bon nombre de concepts élémentaires et techniques sous-jascentes. Ce code permet en outre de prendre conscience du mode opératoire potentiel de cet outil si répandu.

J'ai également pensé aux non détenteurs du VB6 en fournissant l'exécutable (qu'il faut cependant renommer). Mais ATTENTION, sont utilisation est A VOS RISQUES ET PERILS !!! Ni moi ni VBFrance n'en portera la responçabilité! Le fait de renommer le fichier engage démontre votre responçabilité.

Amusez-vous bien!
 

Source

  • (Cf. Zip)
  • 0) Scan (boucle) de la 1ere matrice :
  • 1) Prendre un pixel préalablement mémorisé dans la matrice (tableau) en cours
  • 2) Tester la couleur du fond
  • 3) La modifier au besoin
  • 4) Prendre ses 4 pixels directement contigus (haut, bas, gauche, droite)
  • 5) Les mémoriser à leur tour dans une autre matrice (tableau)
  • 6) Terminer le scanne (boucle)
  • 7) Inverser l'utilisation des matrices
  • 8) Recommencer
(Cf. Zip)
0) Scan (boucle) de la 1ere matrice :
1) Prendre un pixel préalablement mémorisé dans la matrice (tableau) en cours
2) Tester la couleur du fond
3) La modifier au besoin
4) Prendre ses 4 pixels directement contigus (haut, bas, gauche, droite)
5) Les mémoriser à leur tour dans une autre matrice (tableau)
6) Terminer le scanne (boucle)
7) Inverser l'utilisation des matrices
8) Recommencer

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 !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de DARKSIDIOUS le 09/11/2005 17:11:20 administrateur CS

Quitte à montrer la technique de remplissage, il aurait fallu également présenter les fonctions de l'API FloodFill et ExtFloodFill qui sont plus optimisées que ta fonction perso : si un débutant recherche une fonction de remplissage, qu'il tombe sur ta source, et ne cherche pas plus loin, il perdra pas mal de temps pour essayer d'optimiser ton algorithme et obtenir les performances de paint par exemple, alors qu'avec l'utilisation directe des fonctions standard de Windows, c'est bien plus rapide.

Note : en utilisant ma classe de gestion d'image, tu aurais pu obtenir un résultat plus rapide !

Sinon, c'est une bonne source pédagogique très commentée qui plus est !

DarK Sidious

signaler à un administrateur
Commentaire de ScSami le 09/11/2005 17:51:37

Oui, c'est vrai, tu as raison. C'est clair que si on veut être efficace il faut passer par les API ou des class comme la tienne ;-)

Le but de cette source est plus de comprendre le concept que d'obtenir un algo "opérationnel" !
Elle est donc déstinée :
- Aux débutants s'il veulent s'exercer sur un problème pas facile
- A tous les passionnés qui aiment réinventer la roue en découpants les existantes pour comprendre pourquoi elle sont toutes si rondes ;-)

Je vais réfléchir à un message d'avertissement plus clair à l'attention des débutants à mettre dans mes sources de ce genre que j'affectionne particulièrement (puisque fondement de ma propre passion)...

Bon, je l'jure, il m'en reste plus beaucoup au fond de mes tiroirs... Encore quelques unes pi j'arrête ;-)

Prochaines prévue (à commenter et formater) :
- Les courbes de Bézier...
- Stéganographie ou Travail sur les bits
et peut-être un tuto sur la couleur ou, justement, le travail sur les bits...
Pi j'ai toujours l'envie de coder une contrôle du genre de celui de Photoshop, tu sais, avec plusieurs "Calques", plein de fonctions de manipulation pi la gestion de l'anti-aliasing... Mais je sais pas si ça en vaut la peinne avec VB.Net (que je n'ai pas et que je ne connais donc pas) [???].

Bref, tant de choses à faire et si peu de temps! Ainsi va la vie comme on dit.

signaler à un administrateur
Commentaire de DARKSIDIOUS le 09/11/2005 18:01:15 administrateur CS

Hum, et encore tu ne bosse pas il me semble : j'étais comme toi au début, et dès que tu rentre dans la vie professionnelle, tu n'a plus le temps pour t'amuser comme un petit fou sur le traitement graphique ! sniff !

DarK Sidious

signaler à un administrateur
Commentaire de Gobillot le 09/11/2005 20:42:25

avec ta méthode, sais tu que tu retestes plusieurs fois le même point ?
la preuve, le MsgBox est sorti 4 fois.
pourquoi prendre 2 matrices, une seule suffit, il suffit de mettre les nouveaux points à tester à la suite.
d'autre part pour éviter de tester plusieurs fois le même point, il faut une autre table, ça divise les temps par 4.

Private Sub TstPoint(ByVal SensTableaux As Boolean, ByVal X, ByVal Y)
Dim varCoulPicked As Long

If X = 220 And Y = 190 Then
    MsgBox "oui"
    End If

etc ...

Daniel

signaler à un administrateur
Commentaire de ScSami le 09/11/2005 23:52:58

Dark : Ce code est vieux... Je lui ai juste arrangé un peu... Mais tu sais, quand on bosse pas comme tu dis, on en est pas moins toujours occupé avec des rendez-vous à la con qui servent à rien où on t'écoute pas! Ce matin même...
Ceci dit, lorsque tu travaille, tu as toujours le temps!!! De part chez moi on dit souvent "Qui veut peut" ce avec quoi je ne suis pas vraiment d'accord mais qui relève un point important : on a toujours le choix! Autrement dit, tu n'as qu'a travailler moins si le fait d'aider les autres (sur VBF ou autre) ou de coder des petits progs comme ça t'apporte plus que de posséder ta zolie petite maison avant tes 40 ans pour pouvoir payer les études de tes 2 charmant gosses que tu feras - quoi qu'il arrive - avant 35 ans... La vie est trop courte! Apprenons des erreurs des autres, évitons les clichés et faisons de nos vies ce que n'en voulons et non ce que les autres voudrait nous en voir faire!
Tout ça pour dire : je ne regrette pas ;-)

Goby :
Si j'ai employé 2 matrices (à l'époque) c'est justement pour ne pas avoir un tableau à ralonge! Mais je te l'accorde, y'a sans aucun doute plus simple à faire!
Quant aux points testés plusieurs fois, je ne me souvient plus vraiment... C'est possible! Mais il me semble quand même que j'ai blondé le système, via un teste de couleur de fond, afin de ne pas boucler at-eternam.
Mais bon, je te fais quand même confiance! Ceci dit, je le répète, la performance n'était pas à l'ordre du jour!

Pi je le redit aussi : il doit exister une tripoté de méthodes différentes pour faire ça (un peu comme pour dessiner un simple cercle!). A vous d'en trouver de plus originales!
Pi qui sait, une compile ne serait peut-être pas de trop sur VBF !

signaler à un administrateur
Commentaire de Gobillot le 10/11/2005 00:08:50

je te met ma première méthode,
les couleurs sont dans Ztab()
les tailles de l'image sont bw * bh
les couleurs de références à tester sont Rx, Vx, Bx et en plus il y a la transparence dans Tx
Mpixel() c'est la fonction qui traite le point sélectionné.
il y a plus court à écrire
seulement il y a des problèmes de pile et on est limité en taille.

Private Sub Fill(i As Integer, j As Integer)
    If Ztab(i, j).Red <> Rx Then Exit Sub
    If Ztab(i, j).Green <> Vx Then Exit Sub
    If Ztab(i, j).Blue <> Bx Then Exit Sub
    If Ztab(i, j).Trans <> Tx Then Exit Sub
    Mpixel i, j
    If j > 0 Then Fill i, j - 1
    If i > 0 Then Fill i - 1, j
    If j + 1 < bh Then Fill i, j + 1
    If i + 1 < bw Then Fill i + 1, j
End Sub

signaler à un administrateur
Commentaire de Renfield le 24/11/2005 13:52:00 administrateur CS

ajouter mémorisation des points traités... accelerera la chose

signaler à un administrateur
Commentaire de lexsty le 21/04/2006 20:36:03

       Bonjour.

Très bien pour les commentaires pédagogiques.

  A+ JP

signaler à un administrateur
Commentaire de ScSami le 21/04/2006 23:46:09

Ah ben ça fait plaisir !!! Merci ^^
Y'en a au moins un qui a apprécié :D

Je me demande d'ailleurs qui à bien pu me coller un petit "3" en douce... hum...

Enfin, Lexsty, s'il te reste des question tant sur ce code que sur ses alternatives (comme suggéré), demande moi :)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Image et graphique [ par ERICVB7 ] Bonjour,Je programme en VB.NET (sous XP) et je cherche un code source me permettant de remplir une zone de couleur uniforme dans une image (type bitma graphique à partir de données excel [ par chevaliervampire ] Bonjour,j'ai mes données qui sont dans une feuille excel et je voudrais pouvoir créer un graphique grâce à une macro. Le seul petit problème c'est que [VB.NET] remplir un form a partir d'une classe [need HELP inside] [ par nanus ] Je me doute que ça doit pas etre tres clair comme soucis.Je détaille :J'ai un form qui contient un ListView, avec des renseignements sur des gens. Jus Problème de raffraichissement graphique [ par kaira008 ] Salut a tous,Voila j'ai fais un petit programme pour afficher des valeurs provenant d'un convertisseur analogique numérique et de les enregistrer dans Encore un racer!!!! Enfin j'suis pas sure de lui donner ce nom. [ par qbced ] Lu à tous! Certains connaissent surment mon prog racer ( 1 et 2 ) dans la section graphique directx du site vbfrance.com.(pour ceux qui connaissent pa Microsoft graph et access [ par isams ] Bonjour,J'utilise le grapher dans une bdd access et le résultat est assez capricieux. Le graphique traduit les données contenues dans une requête. Cet faire un graphique sans mschart [ par cmoilastar ] Salut tout le monde, j'ai un programme sous windows 2000 qui dessine un graphique en onction des valeurs que j'enregistre en temps réél. Je me sers du Creation graphique avec Objet OLE MSGRAPH [ par alex2828 ] Bonjour a tous ,comment peut-on changer de type de graphique Dim Msg As String Dim NL, TB ' Déclare les variables. TB = Chr(9) ' Caractère couleur graphique [ par flyom ] Bonjour,Voila mon probleme : Je fais un graphique par rapport à un tableau à deux colonnes. Jusque là, tout va bien :)Ce que je voudrais faire, c'est Creer un graphique avec .net [ par Thufenn ] Bonjour a tous et a toutes,Je voudrais savoir si il existe un moyen de creer des graphiques du genre y=f(x) avec Visual basic .net.Merci


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.