IMAGE -> ASCII-ART

Commentaire de SatanCorporation le 23/06/2003 15:43:16

ya pas le zip

Commentaire de nono716 le 23/06/2003 17:06:46

Génial ! En plus le code est facilement accessible !
Aller 9/10 !

Commentaire de EBArtSoft le 23/06/2003 19:06:11 administrateur CS

Cool j'ai deja fait un code comme ça... (bien plus rapide)
si je peut te donner un conseil (j'espere que oui ;-D)
utilise tout d'abord une variable tampon pour le texte
genre :

dim MonTexte as String
montexte = montexte + moncaractere
...
puis a la fin du traitement
texte1.text = montexte

car ça evitera que le textbox se rafraichisse tout le temps

autre chose pour au lieu d'utiliser la methode objet.point(x,y)
4 fois de suite utilise plutot :
declare function getpixel& lib "gdi32" (byval hdc&,byval x&,byval y&)
dim Pixel as long
pixel = getpixel(picture1.hdc,x,y)
puis pour convertir les rgb utilises:
declare sub rtlmovememory lib "kernel32" (dst as any , src as any , byval size as long)
dim Ptr as long
ptr=varptr(pixel)
rtlmovememory rouge,byval ptr,1
rtlmovememory vert,byval ptr+1,2
rtlmovememory bleue,byval ptr+2,3

voila ya encore plein d'autre amelioration mais la je pense que tu
peut gagner "pas mal" de cycle.

b@nne prog

(ps : tu pourrais exporter un fichier .html pour eregistrer le nom et la taille de police ;-D)

Commentaire de misterglacon le 23/06/2003 19:31:17

Merci EbArtSoft,
Je vais suivre tes conseils !
J'éspère que j'aurais le temps ce soir !

ET encore MERCI

Commentaire de Tilois le 24/06/2003 10:01:27

le resultat est tou a fait surprenant ...