PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

[Résolu] Comment créer une Datasection à partir d'une image

http://forums.purebasic.com/french/viewtopic.php?t=16821

Page 1 sur 1

[Résolu] Comment créer une Datasection à partir d'une image

Publié : mar. 11/juil./2017 9:22
par Micoute
Bonjour à tous,

toujours dans programme de monnaie, j'aurais besoin de créer des données à partir d'images, je sais que je peux faire LoadSprite() ou CatchSprite(), mais pour montrer mon programme sue ce forum, par exemple, ce serait plus portable même si ça grossi énormément le programme, mais c'est surtout pour améliorer mes connaissances en programmation.

Je vous remercie beaucoup pour votre aide bienveillante.

Re: Comment créer une Datasection à partir d'une image

Publié : mar. 11/juil./2017 9:31
par TazNormand
Salut Micoute,

regardes ce topic

Pour limiter le nombre de sprite, utilise la technique du "SpriteSheet", la feuille de sprite : tous tes sprites sont regroupés sur un seul fichier image et tu crées ce que tu as besoin via GrabSprite() et les coordonnées. C'est une technique très très utilisées en Web pour éviter le chargement de n sprites puisqu'au final tu ne charges qu'un seul fichier image.

Re: Comment créer une Datasection à partir d'une image

Publié : mar. 11/juil./2017 9:37
par Marc56
Pour la mise au point du programme et pour mettre des exemples légers sur le forum créé simplement des cercles avec la valeur inscrite dessus.
Tu mettras les images ensuite.
Ou tu peux même créer un code qui créé l'image (cercle + texte) s'il ne trouve pas l'image sur le disque.

:wink:

Re: Comment créer une Datasection à partir d'une image

Publié : mar. 11/juil./2017 9:47
par Micoute
@TazNormand Il y a une petite erreur à la ligne 90 : remplacer Read a.l par Read.l a.l, il faut dire que c'est une version qui date

@Marc56 C'est tellement évident, que je n'y ai même pas pensé, ce ne sont que des enfants qui vont au CP, mais c'est vrai qu'avec des "vraies" pièces, c'est plus joli

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 10:18
par Zorro
@Micoute

tu utilise EPb je crois !??

dans les outils tu as un outils qui s’appelle "EPB_img2data" qui sert exactement a ça !! ;)

tu lances l'outil , tu choisi le nombre de data par ligne que tu veux (20 par defaut )
tu click sur Run , tu choisi l'image a mettre en data
tu decide de generer des data seul ou bien avec le loader integré au listing

ça te propose de sauvegarder le listing
ça te colle le resultat complet dans EPB !!

voici un exemple obtenu , avec loader integré

Code : Tout sélectionner

; Loader_Data :Génré Par img2data_EPB (by Dobro)
UseJPEGImageDecoder()
UsePNGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()
Enumeration
		#fenetre
		#image
		#alerte
EndEnumeration
If InitSprite() = 0
		MessageRequester("Erreur","Impossible d'ouvrir l'écran & l'environnement nécessaire aux sprites !",#PB_MessageRequester_Ok)
		End
EndIf
If OpenWindow (#alerte, 0, 0, 320, 50,"alerte",#PB_Window_BorderLess|#PB_Window_ScreenCentered ) 
		If StartDrawing(WindowOutput(#alerte)) 
				DrawText(50, 24, "Patience ! je charge les Datas ",RGB(255,50,0),RGB(0,0,0)) 
		StopDrawing() 
EndIf 
EndIf
Read Largeur
Read Hauteur
Global Dim tableau(Largeur, Hauteur)
CreateImage(#image, Largeur, Hauteur)
If StartDrawing(ImageOutput(#image))
		; ***********mise en tableau ************
		For i = 0 To Hauteur -1
				For j = 0 To Largeur -1 
						Read a.l 
						tableau(j, i)=a.l 
				Next j
		Next i
		; **************************
		For i = 0 To Hauteur -1
				For j = 0 To Largeur -1 
						Plot(j,i,tableau(j,i)) 
				Next j
		Next i
StopDrawing() 
EndIf
titre$="D:\Dobro\PureBasic\dobro\ExemplePerso\case\Image2.png"
If OpenWindow (#fenetre, 0, 0, Largeur, Hauteur,titre$,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget|#PB_Window_SizeGadget)
		If  OpenWindowedScreen(WindowID(#fenetre), 0, 0, Largeur, Hauteur, 1, 1, 1) 
				If StartDrawing(ScreenOutput())
						DrawImage(ImageID(#image), 0, 0)  
				StopDrawing() 
		EndIf
		Largeur=800 ; affiche en 800 x600 la vrais resolution est de :32x32
		Hauteur=600 ; affiche en 800 x600 la vrais resolution est de :32x32
		ResizeWindow(#fenetre,0,0,Largeur,Hauteur)
		CloseWindow(#alerte)
		Repeat
		Until WaitWindowEvent()= #PB_Event_CloseWindow
EndIf
EndIf 
End 
DataSection
		Data.l 32,32
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $F2FF,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$F2FF
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED
		data.l $F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF,$F2FF,$F2FF,$241CED,$241CED,$241CED
		data.l $241CED,$F2FF,$F2FF,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$F2FF,$F2FF
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED,$241CED
		data.l $241CED,$241CED,$241CED,$241CED,$241CE
		
EndDataSection
; Epb

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 14:51
par Micoute
Je savais que j'avais vu ça quelque part, mais je ne me rappelais plus où, alors que je l'avais sous les yeux. On ne devrait pas vieillir ...

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 17:56
par Tonio
Bonjour Zorro

Merci pour ce partage Epb est cool

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 18:04
par Zorro
Merci :)

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 19:05
par Tonio
je viens de testé ton code
j'ai un message à cette ligne :
Global Dim tableau(Largeur, Hauteur)
Accés mémoire invalide
testé avec
Purebasic 5.60 64 bits

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 19:25
par Zorro
c'est normal ! :)

lorsque j'ai codé ça je ne codais qu'en 32bits (d'ailleurs , je ne continue a coder qu'en 32 bits !! )

pour que ça marche en 64 bit il faut Chercher /remplacer Data.l (long) par Data.i (integer )

.L pour les 32 bits et .i pour 64 bits ...

je modifierai l'outils de conversion en ajoutant une case 64 bits ou 32 bits

Merci pour le bug trouvé

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 21:27
par Tonio
Zorro a écrit :c'est normal ! :)

lorsque j'ai codé ça je ne codais qu'en 32bits (d'ailleurs , je ne continue a coder qu'en 32 bits !! )

pour que ça marche en 64 bit il faut Chercher /remplacer Data.l (long) par Data.i (integer )

.L pour les 32 bits et .i pour 64 bits ...

je modifierai l'outils de conversion en ajoutant une case 64 bits ou 32 bits

Merci pour le bug trouvé
De rien mon ami

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mar. 11/juil./2017 23:13
par falsam
Bin2Data.pb est un code crée par ts-soft (Forum anglophone) permetant de générer les data section pour des images, des sons et des icones par glisser déposer.

Demo.pb montre la façon d'utiliser la datasection.

:arrow: https://github.com/pbcodex/Bin2Data/archive/master.zip

Re: [Résolu] Comment créer une Datasection à partir d'une im

Publié : mer. 12/juil./2017 7:10
par Micoute
Merci falsam pour le bon conseil et pour le lien.
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru