begin process at 2012 02 10 20:10:35
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > DESSINEUR V:3.0

DESSINEUR V:3.0


 Information sur la source

Note :
7,6 / 10 - par 5 personnes
7,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Niveau :Débutant Date de création :21/06/2003 Date de mise à jour :01/07/2003 00:23:01 Vu / téléchargé :2 875 / 260
Auteur : jotrash

Ecrire un message privé
Site perso
Commentaire sur cette source (51)
Ajouter un commentaire et/ou une note

 Description

Bon encore une grosse amelioration puisque passage vers form MDI
bon bcp de bug du coup donc pour l'instant voila c'est pas genial
mais bon on peut maintenant decide des tailles des images et en ouvrir plusieurs
voili voila normalement demain je fais une version avec tous vos conseil et vais enlever tous les bugs
@ demain pour la nouvelle version
bon prog a tous



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip PROG DE DESSIN
Toutes les sources de jotrash

 Sources de la même categorie

Source avec une capture GRAPH PHP COURBE DE CHARGE par s.defaye
Source avec Zip Source avec une capture BOULE DE CRISTAL par BLUEBIBUBBLE
VB6 - DÉPLACEMENT D'UN CONTRÔLE SUR UN SEGMENT DE DROITE DÉL... par ucfoutu
Source avec Zip Source .NET (Dotnet) APPLICATION DE DESSIN par fsafsafsaf
Source avec Zip Source avec une capture Source .NET (Dotnet) MERGEIMAGES par Le Pivert
Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de jotrash le 21/06/2003 07:46:47

Bon ben a vous les commentaires et aidez moi pour créer ce code pour picture ox et pour faire une pipette

Commentaire de Tellmarch le 21/06/2003 12:12:01

Pour faire une pipette, utilise l'instruction point à l'endroit où tu clique pour trouver la couleur.

Commentaire de jotrash le 21/06/2003 13:47:33

merci ca marche je mettrai le prog a jour et pour transforme le code en picturebox ?

Commentaire de TheHacker le 21/06/2003 13:52:59

moi perso j'aime pas, et puis si tu trouves pas de progs qui fait des dessins ou des lignes comme tu dis c que t'as pas cherché parce que j'en ai deja vu plusieurs  bon @+

Commentaire de jotrash le 21/06/2003 14:52:03

quest-ce que tu naimes pas thehacker dis moi des remarques constructives stp que je lameliore

Commentaire de TheHacker le 21/06/2003 15:33:07

niveau interface ya rien,j'vois des command1..... dans le code mais sur le form ya rien alors c dur de changer d'option.....
j'laurai aps fait comme ca moa, j'trouve ta construction de programme un peu bizarre, chacun sa méthode.
ya rien sur ce prog il ets pas du tt achevé ????

voila bonne continuation

Commentaire de jotrash le 21/06/2003 16:27:11

ahhh non c paske le code je lai fait en 1280*1024
cpour ca que tu vois rien paske sinon ya des chose lol

Commentaire de jotrash le 21/06/2003 16:43:12

voila thehackers retelecharge la source
tu verras autre chose qu'une feuille blanche

Commentaire de TheHacker le 21/06/2003 17:05:47

ah c explik pas mal de choses merci j'vaisq rééssayer

Commentaire de TheHacker le 21/06/2003 17:07:13

tjr rien :-((((

Commentaire de Tellmarch le 21/06/2003 17:12:59

Moi ça marche maintenant :)

Commentaire de jotrash le 21/06/2003 18:00:32

the hacker tu as quellle resolution
retelecharge la source et passe en 1024*768

Commentaire de jotrash le 21/06/2003 18:01:04

the hacker tu as quellle resolution
retelecharge la source et passe en 1024*768

Commentaire de TheHacker le 21/06/2003 19:26:53

ah ben ca chante tout !!!

j'viesn de mettre mon ordi en 1024*768 c bcp + classe d'un coup ya des bouttons et tout :-p
franchement c pas male alors, excuse d'avoir jugé si vite mais j'pigeais pas.... sinon c quand meme con de devoir apsser par le changement de résolution pour voir ton prog tu devrais modifier ca, voila @+

Commentaire de TheHacker le 21/06/2003 19:30:09

encore un truc, j'trouve que c un peu con de s'etre amusé a faire un picturebox pour chaques couleurs alors que tu peux ouvrir une boite de dialogue par défaut, c un peu moins bo mais bon c + intelligent comme technique....

Commentaire de Tellmarch le 21/06/2003 20:26:46

Il y a un petit bug pour la largeur du pinceau, ça se plante quand tu remets à 0...
Tu pourrais changer les prop min et max du controle je pense

Commentaire de max12 le 22/06/2003 05:15:50 administrateur CS

Domage qu'on puisse pas  faire des oval :( Mais le reste c'est bien :D

Commentaire de jotrash le 22/06/2003 19:22:36

Pour les ovales c'est quasiment fait
euh pour les pictures box g fait un avis sur le tchat on ma dit que cetait mieux
je mets des vrais icones je change pour la taille du curseur ete je le passe en 800*600
@+ bonne prog

Commentaire de jotrash le 22/06/2003 21:16:37

bon ben voila je vous conseille de retelecharger le prog car c'est le jour et la nuit maintenant images recupere de paintshoppro

Commentaire de jotrash le 22/06/2003 21:43:37

et encore un nouveau prog
avec ajout de la gomme
optimisation de code
donnez mopi une note , des remarques
et surtout dites moi comment faire une pipette car jy arrive po

Commentaire de jotrash le 22/06/2003 22:11:18

et encore une amelioration:
grossissement du pinceau qui marche parfaitement
pipette avec la procedure point merci Tellmarch
bon ben je suis en train de créedr des menus
laissez moi des notes et des remarques please
@+ et bonne prog

Commentaire de Urgo le 23/06/2003 00:09:00

Vraiment très bien fait ! 9/10

A améliorer:

- La résolution !! Modifie en mettant une form_load la position de Toolbar1 et Frame2 ! Car en 1024 * 768 c moche
- Lorsqu'on a sélectionné la couleur avec la pisette, il devrait mettre automatiquement le pinceau !
- Il n'y a qu'un seul curseur ??
- La gomme annule le dernier évènemment produit, mais elle devrait plutot éffacer la partie sélectionné, enfin comme dans Paint quoi :)

Voilà, fait comme bon te sembles mais améliore encore un peu ton prog et il va vite devienir excellent ! ;)

Commentaire de Urgo le 23/06/2003 00:41:27

Va là :

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=39391&lngWId=1

Tu y trouveras peut etre quelques solutions et idées, comme tu veux
Bye

Commentaire de jotrash le 23/06/2003 09:14:27

merci tes messages me font grave plaisir
bon je sais mon prog est encore a ameliorer mais bon je trouve ca pas mal quand meme, je voulais surtout un prog de desqsin qui transforme le dessin en fod d'écran, mais maintenant le propg de dessin minterresse et je vais sur tout m preoccuper de ca
voila merci je vais referme la gomme mais par contre pour la pipette; normalement quand on click gauche sur une couleur ca doit la selectionné pour le click gauche du crayon.
enfin bon je vais reessayer mais ce que tu me dis me semble bizarre.
dites moi ce que vous pensez du prog et de la fonction du fond d'écran; je vais amelioreraussi pour que quand on charge ca lance dans la config de chacun car moi on ma enguelé pour ceux qui avait que 800*600
voila @+ et bonne prog

Commentaire de jotrash le 23/06/2003 09:21:31

en fait mon but serait dariver à un resultat du genre paint shop pro pas tous les menus et tous mais juste les outils etc
jessaie de faire des menus avec les fonctions enregistrer en tous formats maius bon deja bmp g du mal alors le reeste lol

Commentaire de jotrash le 23/06/2003 10:33:57

et ditess moi aussi comment faire pour faire des ovales (avec quoi proceder

Commentaire de jotrash le 23/06/2003 13:04:37

bon encore une mise a jour a propos des remarques de Urgo

Commentaire de TheHacker le 23/06/2003 13:21:27

Effectivement c bcp mieux qu'avant ! :-D

Commentaire de Saros le 23/06/2003 15:37:07

Le programme n'est pas entièrement optimisé, mais il fonctionne (9/10)...
Queslques trucs à signaler :
-Le spray se content de tracer quelques points autour d'un cercle, et non pas de tracer un cercle rempli... Le spray ressemblerait plutôt à ça :
    Picture5.DrawWidth = 1
    Randomize
    Dim lSX As Single
    Dim lSY As Single
    For lCnt = 0 To 20
        lSX = 100 * Rnd * Cos(Rnd * 6.28) + X
        lSY = 100 * Rnd * Sin(Rnd * 6.28) + Y
        If d = True Then Picture5.PSet (lSX, lSY), Picture2.BackColor 'le spray
    Next lCnt
En tout cas, chez moi ça marche...
-La fonction de remplissage ne marche pas, c'est normal ?
-C'est vrai que la 'gomme' irait mieux sous le nom de 'Undo'...
À part ça, tout fonctionne...
Saros

Commentaire de jotrash le 23/06/2003 17:35:42

le remplissage pour le cerlce non ce nest pas normal mais le pot de peinture se contente POUR L'instant juste de changer la couleur de la page
bon j'ameliore le tout et je le réenvoie
merci encore pour tout vos commentaire

Commentaire de jotrash le 23/06/2003 19:14:31

bon encore une chite amelioration vraiment chite
le spray marche genial merci Saros
sinon g essaye quelque chose pour la gomme ca marche po dites moi ou est l'erreur
et ma procedure pour appeler une boite dee plette de couleur marche pas laquelle est-ce
merci de votre aide @+

Commentaire de jotrash le 23/06/2003 21:33:39

bon ben une grosse petite enfin comme vous le sentez g tout expliqué en haut
bon ben tjrs ouvert au commentaire notes suggestions aides..
enfin vous savez @+ bonne prog

Commentaire de Saros le 25/06/2003 11:35:31

Re-bonjour ;
J'ai regardé la nouvelle version, c'est vrai qu'elle arrange beaucoup de trucs par rapport à la première (bravo)...
Pour le remplissage, il y a une méthode récursive qui marche très bien, je ne sais pas si tu la connais :
CoulSol désigne la couleur à remplacer par Coul.

Private Sub Remplir(X as integer, Y as Integer, Coul as Long, CoulSol as Long)
If Picture5.Point(X, Y) <> CoulSol Then Exit Sub
Picture5.PSet (X, Y), Coul
Remplir(X+1, Y, Coul, CoulSol)
Remplir(X, Y+1, Coul, CoulSol)
Remplir(X-1, Y, Coul, CoulSol)
Remplir(X, Y-1, Coul, CoulSol)
End Sub

Je ne l'ai pas essayé (je te laisse le soin de l'implémenter comme tu le sens) mais généralement ça ressemble à ça.
Et plutôt que de créer 10 variables, parmi lesquelles 1 ou 2 ont la valeur True, créé une variable (style 'ModeActuel') qui peut prendre des valeurs numériques, correspondantes aux différents modes de dessin. Sinon, il y a toujours un risque de s'embrouiller...
Pour faire des ovales, pourquoi ne fait-tu pas de fonction 'à la main', puisque apparemment il n'y a pas de fontions Ovale dans un PctBox ?
Bonne continuation
Saros

Commentaire de jotrash le 25/06/2003 12:11:05

oui ce sont des bonnes idees je vais essayer tout ca c'est vrai que ca fait un changement par rapport a la première version merci de toutes ces aides
@+

Commentaire de jotrash le 25/06/2003 22:47:45

slt merci encore pour ta participation Saros
Par contre pour ta fonction de remplissage je n'y comprends rien lol
qu'en jessaie de l'implementer il me sort qu'il y a besoin d'un "=" ???
bon ben @+
merci pour tes conseille je vais les executer

Commentaire de Tellmarch le 26/06/2003 08:17:18

ne mets pas de parenthèses à Remplir(X+1, Y, Coul, CoulSol).
Par contre, cet algo n'est pas vraiment opyimisé Saros, car chaque point sera examiné un grand nombre de fois...

Commentaire de jotrash le 26/06/2003 09:47:52

oki merci tellmarch je vais essayer avec ca et essayer de loptimiser
ou sinon faudrai tmarcher par api mais bon comme je sais pas comment faire

Commentaire de jotrash le 26/06/2003 10:16:02

dsl je ne comprends pas tellement (en tou cas ca marche pas ) mais bon a mon avis c'est normal puisque je comprends rien
(jsuis debutant faut yaller molo.lol
bon @+

Commentaire de Saros le 26/06/2003 12:08:09

Encore bonjour ;
Oula c'est vrai j'avais oublié d'enlever les parenthèses...
Euh... à propos, Tellmarch, je connais pas d'autre algorithmes (c'est le seul que j'ai trouvé, mis à part une méthode par lignes horizontales, mais très peu performante et lente). Je vais à l'instant chercher plus d'informations (merci).
Et je vais voir pourquoi cet algorithme ne marche pas dans ton programme.
Pour l'explication :
Remplir, cela consiste à remplacer, dans une zone délimitée par une certaine couleur, cette dite couleur par une autre.
Ce que fait la fonction remplir, c'est voir si le pixel à la position qu'on lui a donné (X et Y) est de la couleur à remplacer (qu'on lui donne aussi : CoulSol)

Commentaire de Saros le 26/06/2003 12:33:01

[Il y a eu un problème, je continue]
Si c'est bon, il change la couleur du pixel en la nouvelle couleur : Coul.
Ensuite (et c'est tout l'intêret), il va répéter toute cette opération sur tous les pixels adjacents (sauf diagonales) : ainsi, si le pixel adjacent ne doit pas être changé il ne le sera pas, mais sinon il l'est.
Il répète cette opération indéfiniment, jusqu'à ce que toute la zone soit changée, 'remplie'.
Si tu ne comprends pas, regarde son fonctionnement au pas-à-pas.

Il faut appeller cette fonction ainsi :
Remplir X, Y, Picture2.BackColor, Picture5.Point(X, Y)
Car la zone à remplir est de la couleur située sous le curseur, et la couleur de remplacement est la couleur primaire, et que le point de départ du remplissage est la position du curseur...
Essaie comme ça.

Commentaire de Saros le 26/06/2003 12:45:23

En fait il faut mettre :

ElseIf a = True Then
Remplir X, Y, Picture2.BackColor, Picture5.Point(X, Y)

et :

Private Sub Remplir(X As Single, Y As Single, Coul As Long, CoulSol As Long)
On Error GoTo Err_Hnd
If Picture5.Point(X, Y) <> CoulSol Then Exit Sub
Picture5.PSet (X, Y), Coul
Remplir X + 15, Y, Coul, CoulSol
Remplir X, Y + 15, Coul, CoulSol
Remplir X - 15, Y, Coul, CoulSol
Remplir X, Y - 15, Coul, CoulSol
DoEvents
Err_Hnd:
End Sub

Mais j'ai regardé ce que ça donne et ce n'est vraiment pas ça. En plus d'être lent, cet algorithme oublie de pixels un peu partout, de plus, il demande trop de mémoire (au bout d'un petit moment, VB affiche un problème de mémoire stack), d'où le On Error.

Commentaire de jotrash le 26/06/2003 15:31:33

merci saros pour tout merci aussi telmach
bon g essaye le code c'est pas tres rapide effectivement; mais bon cest mieux que le miien
apparemment cette lenteur ne vient pas de mon prog puisque je lai eesayé sur dautre et ne viens pas non plus du fait que ce soit une picture box
je pense sinon faire unpot de peinture qui colorie jusqua un obstacle ou ligne je suis en train de reflechir de dessus
bon @+ e merci enf ait de ton explication saros

Commentaire de jotrash le 26/06/2003 16:55:04

BON NOUVELLE MISE A JOUR UNE GROSSE EST EN PREPARATION MAIS LA C4EST JUSTE UN VRAI POT DE PEINTURE POUR PAS QUE VOUS CHERCHIEZ POUR RIEN ENFIN BON JESPERE QUIL VA VOUS PLAIRE PARCE QUI L MA COUTE TOUTE MON APRESMIDI
@+

Commentaire de Tellmarch le 26/06/2003 18:31:40

je ne comprend pas le +15... c'est peut etre une question d'echelle, pixel ou je sais plus quoi? on meut mettre scalemode à pixel dans ce cas

Commentaire de Saros le 28/06/2003 22:13:13

Effectivement le 15 c'est pour l'echelle ; mais j'ai pris cette valeur de Screen.TwipsParPixelX et Y, elles peuvvent varier, il vaut donc mettre ScaleMode à Pixel et 1 à la place...

Commentaire de maximberman le 29/06/2003 10:15:23

Le prog est super mais j'arrive pas à changer de couleur et la taille ou voir la couleur active... il doit me manquer une barre d'outil (je suis en 1024*768). Sinon g des conseils:
-normalement quand le spray reste à la mm place, il devrait continuer à taguer
-le curseur devrait être au centre du carré de la gomme
-ovales...
- ensuite si tu veux ressembler à paint shop pro tu deveait limiter la zone de travail
bon en tt cas bravo, je débute en vb et la source est bien commentée

Commentaire de Saros le 29/06/2003 19:48:30

Pour ta fonction Couleur, il faut (si tu y tiens tellement) créer une variable globale BoutonActu (As Byte) :
Public BoutonActu As Byte
Ensuite :
Private Function Couleur() As Long   'Seule une fonction renvoie une valeur
If BoutonActu = 1 Then
Couleur = Picture2.BackColor
ElseIf BoutonActu = 2 Then
Couleur = Picture3.BackColor
End If
End Function
Je ne peux pas l'essayer pour l'instant, j'ai un disque dur qui a pété, du coup je n'ai plus VB et je n'ai pas pu non plus essayer la nouvelle version de ton programme...

Commentaire de jotrash le 30/06/2003 17:04:08

Oui a mon avis il doit de manquer une barre d'outils
pour ressembler a paint shop pro la fonction est en cours
en fqait saros cette fonction va maider parce que par exemple pour le spray je nepeux pas repetyer le code plusieur fois donc je ne peux pas avoir deux couleurs
je vais essayer ta fronction meric (ce soir ajout d'une nouvelle mise a jour si tous se passe bien)
Pour les ovales si vous avez une solution (enfin g une petite idée mais pour linstant je ne l'ai pas tester)
pour la gomme euh bon c'est pas tellement grave mais je vais essayer de resoudre ce pb
et pour le spray je vais arranger le pb aussi
IMPORTANT!!!: g fait une fonction qui permet de faire tourner limage (a langle voulmue) malheureusement elle est lente est pas parfaite puisque ma picturebox sur lequel je dessine a comme prop sclemode pixel et mon prog marche sous twip comment faire donnez moi des liens ou un code ou une aide
Bon merci encore a tous pour tous ces mesqsages aides et commentaires je vais arranger toutes les pb désselés
mise a jour ce soir normalement
@+ bonne prog
jotrash

Commentaire de Saros le 30/06/2003 21:16:15

Pour ton ovale :
Private Sub Ovale(Xc, Yc, Xr, Yr)
Dim Angle As Double
Dim APosX, APosY, CPosX, CPosY
APosX = Xc + Xr
APosY = Yc
For Angle = 0 to 360 Step 20
CPosX = Xc + Xr * Cos(Angle)
CPosY = Yc + Yr * Sin(Angle)
Picture5.Line (CPosX, CPosY, APosX, APosY), Picture2.BackColor
Next Angle
End Sub
Bon là encore je n'ai pas essayé, mais il n'y a pas de raison qu'il y ait de problème.
Bonne continuation.

Commentaire de Saros le 30/06/2003 21:19:18

Ah oui j'ai oublié les explication :)
On appelle Ovale ainsi :
Ovale [X du centre], [Y du centre], [Rayon sur X], [Rayon sur Y]
Voilà. Je ne sais pas si tu as vu le cercle trigonométrique (programme de seconde générale), sinon cherche sur internet, il doit y avoir des milliers de pages qui en traitent.

Commentaire de jotrash le 01/07/2003 00:23:40

donc chose promis chose du mais bon faut voir la gueule lol
bon alors voila  g refait le prog sous form mdi pour pouvoir ourir plusiueurs pages etc bon la je vous lla deconseille car beaucoup de chose bug et desfois quand je clique une form souvre on sait pas pk
merci bcp saros je vais essayer de faire un truc bien demain paske la vais me coucher
bon alors si vous etes reveille vous pouvez tjr regarder mais c'est pas brillant

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Single Large Rock Formation in Monument Valley
Photo Offroad Vehicle on a Remote Beach in Hawaii 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,374 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)