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

cs_Tidus Messages postés 78 Date d'inscription dimanche 21 avril 2002 Statut Membre Dernière intervention 7 juillet 2003 - 6 juil. 2002 à 21:17
nid69ita Messages postés 2 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 6 août 2009 - 6 août 2009 à 21:23

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
6 août 2009 à 21:23

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
6 août 2009 à 21:00

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
16 juil. 2002 à 18:34

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
10 juil. 2002 à 20:30

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
10 juil. 2002 à 20:29

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 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
9 juil. 2002 à 13:31

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
8 juil. 2002 à 19:01

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
8 juil. 2002 à 16:04

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
8 juil. 2002 à 11:40

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 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
8 juil. 2002 à 09:14

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
7 juil. 2002 à 21:52

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 1258 Date d'inscription mercredi 21 mars 2001 Statut Membre Dernière intervention 21 juin 2009 2
7 juil. 2002 à 21:05

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
7 juil. 2002 à 12:11

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
7 juil. 2002 à 11:56

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
7 juil. 2002 à 11:14

merci à tous

cs_Mercury Messages postés 329 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 7 octobre 2005
7 juil. 2002 à 08:06

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
7 juil. 2002 à 00:28

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
6 juil. 2002 à 21:57

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
6 juil. 2002 à 21:43

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
6 juil. 2002 à 21:17

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

Discussions similaires

Gestion adhérent salle de sport

logiciel de gestion du service d'etat civil addministratif

gestion de stock+douchette de code à barre

gestion rendez vous+application open source

GED

Votre réponse

Discussions similaires