COLO V1.0 (( LOGICIEL DE COLORIAGE ET D'IMAGE POUR ENFANTS ))

Signaler
Messages postés
78
Date d'inscription
dimanche 21 avril 2002
Statut
Membre
Dernière intervention
7 juillet 2003
-
nid69ita
Messages postés
2
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
6 août 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3931-colo-v1-0-logiciel-de-coloriage-et-d-image-pour-enfants

nid69ita
Messages postés
2
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
6 août 2009

Okay, le zip n'est pas a zip de winzip me a zip de winrar (.rar) :-))
nid69ita
Messages postés
2
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
6 août 2009

Excuse moi, J'ai eu un probleme avec le zip. :-((
dedson
Messages postés
6
Date d'inscription
vendredi 10 mai 2002
Statut
Membre
Dernière intervention
6 septembre 2002

Ton code est génial, je débute en Vb et je sens que j'ai encore du chemin à faire
crossblade
Messages postés
113
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
3 février 2007

je ne pense pas l'avoir tailler à la serpe... Mais je n'ai pas de site et je n'avais un problème que de 25ko (au fait quelle est la taille maximale de zip car avant je croyait que c'était 350ko ?) et plus de personne peuvent en profiter sur un gros site comme VBfrance.com... bonne prog Patrice99
crossblade
Messages postés
113
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
3 février 2007

je ne pense pas l'avoir tailler à la serpe... Mais je n'ai pas de site et je n'avais un problème que de 25ko et plus de personne peuvent en profiter sur un gros site comme VBfrance.com... bonne prog Patrice99
cs_Patrice99
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

ouais, domage, ca à l'air jolie, qd tu as un zip trop gros, tu n'a qu'à le mettre la ou tu veux sur le web et mettre un lien en indiquant la taille, plutot que de tailler ton prog à la serpe !
crossblade
Messages postés
113
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
3 février 2007

je ne vois pas ce que tu veut dire jia2812.. ????
jia2812
Messages postés
57
Date d'inscription
mardi 17 avril 2001
Statut
Membre
Dernière intervention
10 janvier 2003

Hey, ça déchire ton prog!!!!!!!! Putain, respect niveau design!... ;-)
Sino, y manke des effets, ça vaut ps encore Photoshop, mais bon, cé déjà ps mal!... ;-P

Dis-moi comment tu fais au niveau contrôles personnalisés, surtout au niveau propriétés, car j'y comprends que dalle, pr en créer??? 1 bon tuto' là-dessus?...

Bone prog'!!!!!!!!!!!!

Gogogogogogogogoogogooooooooooooooooooooooo
crossblade
Messages postés
113
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
3 février 2007

pour répondre à patrice99 il faut que tu remplace le module3 partie FilterG par

Public Sub FilterG(ByVal Filtro As iFilterG, ByVal Pic As Long, ByVal Factor As Long, ByRef pProgress As Long)
Dim hdcNew As Long
Dim oldhand As Long
Dim ret As Long
Dim BytesPerScanLine As Long
Dim PadBytesPerScanLine As Long
If WorkFilterG = True Then Exit Sub
WorkFilterG = True
'On Error GoTo FilterError:
'get data buffer
Call GetObject(Pic, Len(PicInfo), PicInfo)
hdcNew = CreateCompatibleDC(0&)
oldhand = SelectObject(hdcNew, Pic)
With DIBInfo.bmiHeader
.biSize = 40
.biWidth = PicInfo.bmWidth
.biHeight = -PicInfo.bmHeight
.biPlanes = 1
.biBitCount = 32
.biCompression = BI_RGB
BytesPerScanLine = ((((.biWidth * .biBitCount) + 31) 32) * 4)
PadBytesPerScanLine = _
BytesPerScanLine - (((.biWidth * .biBitCount) + 7) 8)
.biSizeImage = BytesPerScanLine * Abs(.biHeight)
End With
ReDim iDATA(1 To 4, 1 To PicInfo.bmWidth, 1 To PicInfo.bmHeight) As Byte
ReDim bDATA(1 To 4, 1 To PicInfo.bmWidth, 1 To PicInfo.bmHeight) As Byte
ret = GetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, iDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
ret = GetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, bDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
Select Case Filtro
Case iNEGATIVE: Call NegativeImage(pProgress)
Case iDIFFUSE: Call Diffuse(pProgress, Factor)
Case iSMOOTH: Call Smooth(pProgress)
Case iCONTOUR: Call Contour(pProgress, Factor)
Case iGREYSCALE: Call GreyScale(pProgress)
Case iRELIEF: Call Relief(pProgress)
Case iBRIGHTNESS: Call Brightness(pProgress, Factor)
Case iPIXELIZE: Call Pixelize(pProgress, Factor)
Case iAQUA: Call Aqua(pProgress)
End Select
ret = SetDIBits(hdcNew, Pic, 0, PicInfo.bmHeight, iDATA(1, 1, 1), DIBInfo, DIB_RGB_COLORS)
SelectObject hdcNew, oldhand
DeleteDC hdcNew
ReDim iDATA(1 To 4, 1 To 2, 1 To 2) As Byte
ReDim bDATA(1 To 4, 1 To 2, 1 To 2) As Byte
WorkFilterG = False
Exit Sub
FilterError:
MsgBox "Filter Error"
WorkFilterG = False
End Sub

Car étant donner que comme indiquer ci-dessus je n'ai pas fais les modules, j'ai supprimer des procédures que je n'utilisait pas pour gagner de la place car le prog était trop gros.... merci, bone prog et encore une fois bonne vacances B-)
cs_Patrice99
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Chez moi ca ne marche pas, vb ne trouve pas la procédure Sharpen !?
CaptainChoc
Messages postés
35
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 juin 2006

Ton adresse mail !! C'est pour ca que je t'ai donn la mienne pour que tu m'crives ;-) Ecris moi cette adresse stp ==> dbprog@laposte.net
Je te remercie. A bientot
blackwizzard
Messages postés
1277
Date d'inscription
mercredi 21 mars 2001
Statut
Modérateur
Dernière intervention
21 juin 2009
2
heu...waow!
je suis sur le cul là...
crossblade
Messages postés
113
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
3 février 2007

quelle adresse ? mon adresse e-mail ou personnelle
CaptainChoc
Messages postés
35
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
20 juin 2006

Magnifique :-)
Moi je met 10 pour ce petit prog sympathique !
J'aimerai rentrer en conctact avec toi (crossblade), tu pourrais me donner ton adresse stp... Ecris moi cette adresse: dbprog@laposte.net
Je te remercie, et franchement bravo, j'ai mme pas trouv de bug ;-)
crossblade
Messages postés
113
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
3 février 2007

merci à tous
cs_Mercury
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005

Vraiment bien. Les fonctions graphiques sont intéressantes, la partie code l'est aussi. J'espère que tu vas le faire évoluer. 10/10. Excellent travail.
cs_OphidiaN
Messages postés
235
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
9 novembre 2007

hé mec, continue comme ça, t'arrache tout :)
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
Ouah trop fort...
C'est un excellent programme...
Toi je sens que tu vas réussir ta vie...
En plus il est beau ton prog...
Bravo...
crossblade
Messages postés
113
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
3 février 2007

J'ai eu un petit problème de zip et j'ai du réduire sa taille. j'ai donc enlevé tous les sauts de ligne inutiles (car à mon plus grand étonnement, ca prend de la place ) ainsi que les commentaires ainsi que le nom de son auteur (partie module) Manuel Augusto Nogueira dos Santos .. Merci, bonnes vacances à tous et bonne prog B-)
cs_Tidus
Messages postés
78
Date d'inscription
dimanche 21 avril 2002
Statut
Membre
Dernière intervention
7 juillet 2003

Joli design ... ca sent le déchirage à donf ...