PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Compétition PurePunch Noël 2014

https://www.purebasic.fr/french/viewtopic.php?t=14960

Page 3 sur 13

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 9:29
par falsam
djes a écrit :Oui, ça compte, désolé...
Et ça peut se réduire

Code : Tout sélectionner

Restore sd
For i=0 To 3
  Read.s MyFirstData$
  Debug MyFirstData$
Next

Restore nd

Debug MyFirstData$
For i=0 To 3
  Read.i v
  Debug v
Next
  
DataSection
  nd:    
    Data.l 100, 200, -250, -452, 145
      
  sd:
    Data.s "Hello", "This", "is ", "What ?"
EndDataSection
la data section devient

Code : Tout sélectionner

DataSection:nd: :Data.l 100,200,-250,-452,145:sd: :Data.s "Hello","This","is ","What ?":EndDataSection

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 10:14
par Cool Dji
Hello,

Vous utilisez un outil particulier pour transformer un fichier en datasection ?

J'utilisais avant un éditeur de C avec un tool pour intégrer des ressources dans le code mais je ne l'ai plus et j'ai pas trouvé d'outil modulable sur le net.
Sinon, si je ne trouve pas ce que je cherche, j'en programmerai un sur le modele de celui de Fortix...

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 10:19
par falsam
Cool Dji a écrit :Vous utilisez un outil particulier pour transformer un fichier en datasection ?
Oui : Bin2Data
:arrow: http://www.purebasic.fr/english/viewtop ... t=Bin2Data

j'ai pu par exemple mettre un fichier midi en datasection

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 11:00
par Cool Dji
Ok, merci, je testerai ça à la casa

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 19:27
par majikeyric
falsam a écrit :j'ai pu par exemple mettre un fichier midi en datasection
Et tu arrives à le jouer en boucle avec les commandes mcisendstring() ?

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 19:35
par majikeyric
falsam a écrit :la data section devient

Code : Tout sélectionner

DataSection:nd: :Data.l 100,200,-250,-452,145:sd: :Data.s "Hello","This","is ","What ?":EndDataSection
ah ok, merci, je l'avais vu quelque part cette ruse mais ne m'en rappelais plus :lol:

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 21:43
par falsam
majikeyric a écrit :Et tu arrives à le jouer en boucle avec les commandes mcisendstring() ?
Non pas acec les commandes mci. J'utilise la bibiliothéque movie.

Code : Tout sélectionner

Macro i:If:EndMacro:Macro ei:EndIf:EndMacro:InitMovie();;;;;;;;;;;;;;;;;;;;;;;;
i CreateFile(1,"s1.mid"):WriteData(1,?mid_start,?mid_end-?mid_start);;;;;;;;;;;
CloseFile(1):ei:OpenWindow(0,100,150,200,50,"Midi File"):StringGadget(0,10,20,;
100,22,""):LoadMovie(0,"s1.mid"):Repeat:i MovieStatus(0)=0:i MoviePlay=#False;;
PlayMovie(0,WindowID(0)):MoviePlay=1:ei:Else:i MovieStatus(0)>0:MoviePlay=0:ei;
SetGadgetText(0,Str(MovieStatus(0))):ei;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Until WindowEvent()=#PB_Event_CloseWindow:DataSection:mid_start: :;;;;;;;;;;;;;
Data.q $060000006468544D,$544D600005000100,$FF00350000006B72,$474E4D5957410703,
$6D65540D04FF0052,$53656D69542F6F70,$00000259FF006769,$0020A1070351FF00,;;;;;;;
$00081802030458FF,$006B72544D002FFF,$450A03FF005D0300,$206F6E616950202E,;;;;;;;
$6C6F520C04FF0031,$352D435320646E61,$4A90408104C00035,$815F4A00004A605F,;;;;;;;
$48305F4800004A10,$000047605F470000,$4500004710815F47,$605F43000045305F,;;;;;;;
$0043605F43000043,$40000042605F4200,$815F3E000040605F,$3E605F3E00003E40,;;;;;;;
$003E10815F3E0000,$3E000040305F4000,$605F3E00003E605F,$0045605F4500003E,;;;;;;;
$40000042605F4200,$605F3E000040605F,$0043605F4300003E,$00004740815F4700,;;;;;;;
$5F4A00004A605F4A,$305F4800004A1081,$0047605F47000048,$00004710815F4700,;;;;;;;
$5F43000045305F45,$43605F4300004360,$000042605F420000,$5F3E000040605F40,;;;;;;;
$605F3E00003E4081,$4810815F4800003E,$000047305F470000,$5F47000045605F45,;;;;;;;
$45605F4500004760,$000043605F430000,$5F40000045605F45,$42605F4200004060,;;;;;;;
$004340815F430000,$4A00004A605F4A00,$5F4800004A10815F,$47605F4700004830,;;;;;;;
$004710815F470000,$43000045305F4500,$605F43000043605F,$0042605F42000043,;;;;;;;
$3E000040605F4000,$5F3E00003E40815F,$10815F3E00003E60,$0040305F4000003E,;;;;;;;
$3E00003E605F3E00,$605F4500003E605F,$0042605F42000045,$3E000040605F4000,;;;;;;;
$605F4300003E605F,$4740815F47000043,$00004A605F4A0000,$4800004A10815F4A,;;;;;;;
$605F47000048305F,$4710815F47000047,$000045305F450000,$5F43000043605F43,;;;;;;;
$42605F4200004360,$000040605F400000,$3E00003E40815F3E,$815F4800003E605F,;;;;;;;
$47305F4700004810,$000045605F450000,$5F45000047605F47,$43605F4300004560,;;;;;;;
$000045605F450000,$5F42000040605F40,$40815F4300004260,$004A605F4A000043,;;;;;;;
$00004A10815F4A00,$5F47000048305F48,$10815F4700004760,$0045305F45000047,;;;;;;;
$43000043605F4300,$605F42000043605F,$0040605F40000042,$00003E40815F3E00,;;;;;;;
$5F3E00003E605F3E,$305F4000003E1081,$003E605F3E000040,$4500003E605F3E00,;;;;;;;
$605F42000045605F,$0040605F40000042,$4300003E605F3E00,$815F47000043605F,;;;;;;;
$4A605F4A00004740,$004A10815F4A0000,$47000048305F4800,$815F47000047605F,;;;;;;;
$45305F4500004710,$000043605F430000,$5F42000043605F43,$40605F4000004260,;;;;;;;
$003E40815F3E0000,$4800003E605F3E00,$5F4700004810815F,$45605F4500004730,;;;;;;;
$000047605F470000,$5F43000045605F45,$45605F4500004360,$000040605F400000,;;;;;;;
$5F43000042605F42,$002FFF0000434081,$910200006B72544D,$50202E450A03FF00,;;;;;;;
$FF0031206F6E6169,$646E616C6F520C04,$C10035352D435320,$47605F4791408104,;;;;;;;
$004710815F470000,$43000045305F4500,$815F3E000043605F,$3C305F3C00003E10,;;;;;;;
$00003B605F3B0000,$5F3E000040605F40,$3C605F3C00003E60,$003B40815F3B0000,;;;;;;;
$3C00003B605F3B00,$5F3C00003C20825F,$605F3C00003C2082,$3B40815F3B00003C,;;;;;;;
$003E40815F3E0000,$47000047605F4700,$5F4500004710815F,$43605F4300004530,;;;;;;;
$003E10815F3E0000,$3B00003C305F3C00,$605F4000003B605F,$003E605F3E000040,;;;;;;;
$3B00003C605F3C00,$5F4260003B40815F,$825F3E0000422082,$20825F3C00003E20,;;;;;;;
$3B40815F3B00003C,$000047605F470000,$4500004710815F47,$605F43000045305F,;;;;;;;
$3E10815F3E000043,$00003C305F3C0000,$5F4000003B605F3B,$3E605F3E00004060,;;;;;;;
$00003C605F3C0000,$3B00003B40815F3B,$825F3C00003B605F,$20825F3C00003C20,;;;;;;;
$003C605F3C00003C,$00003B40815F3B00,$4700003E40815F3E,$815F47000047605F,;;;;;;;
$45305F4500004710,$000043605F430000,$3C00003E10815F3E,$605F3B00003C305F,;;;;;;;
$0040605F4000003B,$3C00003E605F3E00,$815F3B00003C605F,$20825F4260003B40,;;;;;;;
$3E20825F3E000042,$003C20825F3C0000,$00003B40815F3B00,$5F47000047605F47,;;;;;;;
$305F450000471081,$0043605F43000045,$00003E10815F3E00,$5F3B00003C305F3C,;;;;;;;
$40605F4000003B60,$00003E605F3E0000,$5F3B00003C605F3C,$605F3B00003B4081,;;;;;;;
$3C20825F3C00003B,$003C20825F3C0000,$3B00003C605F3C00,$5F3E00003B40815F,;;;;;;;
$605F4700003E4081,$4710815F47000047,$000045305F450000,$5F3E000043605F43,;;;;;;;
$305F3C00003E1081,$003B605F3B00003C,$3E000040605F4000,$605F3C00003E605F,;;;;;;;
$3B40815F3B00003C,$004220825F426000,$00003E20825F3E00,$3B00003C20825F3C,;;;;;;;
$2FFF00003B40815F,$0200006B72544D00,$202E450A03FF0073,$0031206F6E616950,;;;;;;;
$6E616C6F520C04FF,$0035352D43532064,$305F2B92208204C2,$0032305F3200002B,;;;;;;;
$00003740815F3700,$5F3200002B305F2B,$40815F3700003230,$3720825F37000037,;;;;;;;
$00002B305F2B0000,$5F37000032305F32,$825F360000374081,$20825F3600003620,;;;;;;;
$3220825F32000036,$00002B305F2B0000,$5F37000032305F32,$305F2B0000374081,;;;;;;;
$0032305F3200002B,$00003740815F3700,$5F3200002B305F2B,$40815F3700003230,;;;;;;;
$3720825F37000037,$00002B305F2B0000,$5F37000032305F32,$825F390000374081,;;;;;;;
$20825F3700003920,$3920825F39000037,$003240815F320000,$3200002B305F2B60,;;;;;;;
$815F37000032305F,$2B305F2B00003740,$000032305F320000,$3700003740815F37,;;;;;;;
$5F2B00003720825F,$32305F3200002B30,$003740815F370000,$00003620825F3600,;;;;;;;
$3200003620825F36,$5F2B00003220825F,$32305F3200002B30,$003740815F370000,;;;;;;;
$3200002B305F2B00,$815F37000032305F,$2B305F2B00003740,$000032305F320000,;;;;;;;
$3700003740815F37,$5F2B00003720825F,$32305F3200002B30,$003740815F370000,;;;;;;;
$00003920825F3900,$3900003720825F37,$5F3200003920825F,$305F2B6000324081,;;;;;;;
$0032305F3200002B,$00003740815F3700,$5F3200002B305F2B,$40815F3700003230,;;;;;;;
$3720825F37000037,$00002B305F2B0000,$5F37000032305F32,$825F360000374081,;;;;;;;
$20825F3600003620,$3220825F32000036,$00002B305F2B0000,$5F37000032305F32,;;;;;;;
$305F2B0000374081,$0032305F3200002B,$00003740815F3700,$5F3200002B305F2B,;;;;;;;
$40815F3700003230,$3720825F37000037,$00002B305F2B0000,$5F37000032305F32,;;;;;;;
$825F390000374081,$20825F3700003920,$3920825F39000037,$003240815F320000,;;;;;;;
$6B72544D002FFF00,$0A03FF0089010000,$6F6E616950202E45,$6F520C04FF003120,;;;;;;;
$2D435320646E616C,$93208204C3003535,$2B00002B20825F2B,$5F3000002B20825F,;;;;;;;
$825F2B0000302082,$20825F2D00002B20,$3220825F3200002D,$002B20825F2B0000,;;;;;;;
$00002B20825F2B00,$2B00002B20825F2B,$5F3000002B20825F,$825F2B0000302082,;;;;;;;
$20825F3200002B20,$3220825F32000032,$003040815F300000,$2B000032605F3200,;;;;;;;
$5F2B60002B40815F,$825F2B00002B2082,$20825F3000002B20,$2B20825F2B000030,;;;;;;;
$002D20825F2D0000,$00003220825F3200,$2B00002B20825F2B,$5F2B00002B20825F,;;;;;;;
$825F2B00002B2082,$20825F3000002B20,$2B20825F2B000030,$003220825F320000,;;;;;;;
$00003220825F3200,$3200003040815F30,$815F2B000032605F,$20825F2B60002B40,;;;;;;;
$2B20825F2B00002B,$003020825F300000,$00002B20825F2B00,$3200002D20825F2D,;;;;;;;
$5F2B00003220825F,$825F2B00002B2082,$20825F2B00002B20,$2B20825F2B00002B,;;;;;;;
$003020825F300000,$00002B20825F2B00,$3200003220825F32,$5F3000003220825F,;;;;;;;
$605F320000304081,$2B40815F2B000032:Data.b $00,$00,$FF,$2F,$00;;;;;;;;;;;;;;;;;
mid_end:;:EndDataSection;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-Le fichier midi avait un poids de 4 Ko et a été codé en datasection avec le Bin2Data.
-Ne pas utiliser l'API mci permet de rendre le code Cross-Platform en principe. Si quelqu'un peut tester ce code sous Mac OS et Linux, je le remercie d'avance :)

Re: Compétition PurePunch Noël 2014

Publié : jeu. 04/déc./2014 22:29
par majikeyric
Merci beaucoup pour l'info, je ne savais pas qu'on pouvait le faire nativement! C'est encore mieux :D

Re: Compétition PurePunch Noël 2014

Publié : ven. 05/déc./2014 9:56
par Good07
Bonjour à tous,
Marche Nickel sur Mac (Yosemite version 10.10.1
Superbe programme, merci pour le partage. :D

Re: Compétition PurePunch Noël 2014

Publié : sam. 06/déc./2014 15:15
par djes
Je n'ai pas encore mis à jour, mais je suis heureux de vous annoncer qu'il y aura d'autres cadeaux !

Re: Compétition PurePunch Noël 2014

Publié : sam. 06/déc./2014 21:07
par majikeyric
Un mug PureBasic de Noël ??? :)

Mon punch avance bien :mrgreen:

C'est une impression ou y a pas grand monde de motivé ??? :?

Re: Compétition PurePunch Noël 2014

Publié : sam. 06/déc./2014 22:19
par falsam
majikeyric a écrit :C'est une impression ou y a pas grand monde de motivé ???
Si si :)

Re: Compétition PurePunch Noël 2014

Publié : dim. 07/déc./2014 0:29
par graph100
Sympa le thème, j'ai hâte de voir les productions ! (Mais je ne peux pas participer :x )

Re: Compétition PurePunch Noël 2014

Publié : dim. 07/déc./2014 14:20
par djes
Dommage... Une autre fois j'espère !

Re: Compétition PurePunch Noël 2014

Publié : dim. 07/déc./2014 15:34
par Cool Dji
majikeyric a écrit :C'est une impression ou y a pas grand monde de motivé ???
Si si :)
Fuseau horaire sur UTC+01:00
Page 3 sur 13

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

Traduction française officielle © Qiaeru