Compétition PurePunch Noël 2014

[falsam]

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

[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...

[falsam]

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

Oui : Bin2Data
http://www.purebasic.fr/english/viewtop ... t=Bin2Data

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

[Cool Dji]

Ok, merci, je testerai ça à la casa

[majikeyric]

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

Et tu arrives à le jouer en boucle avec les commandes mcisendstring() ?

[majikeyric]

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

[falsam]

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

[majikeyric]

Merci beaucoup pour l'info, je ne savais pas qu'on pouvait le faire nativement! C'est encore mieux

[Good07]

Bonjour à tous,
Marche Nickel sur Mac (Yosemite version 10.10.1
Superbe programme, merci pour le partage.

[djes]

Je n'ai pas encore mis à jour, mais je suis heureux de vous annoncer qu'il y aura d'autres cadeaux !

[majikeyric]

Un mug PureBasic de Noël ???

Mon punch avance bien

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

[falsam]

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

Si si

[graph100]

Sympa le thème, j'ai hâte de voir les productions ! (Mais je ne peux pas participer )

[djes]

Dommage... Une autre fois j'espère !

[Cool Dji]

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

Si si