Un peu paumé

Narzedar_a · Message par **Narzedar_a** » sam. 27/oct./2007 12:31

Salut a tous,
Je débute dans la programmation (je suis un vrai débutant mais j'apprend vite ), cela fait déjà quelques jours que je bloque sur quelques choses de bidon et j'aurai bien besoin que l'on m'aide un peu

Voila c'est tous béte: à l'ouverture de mon programme je veux lire une musique. C'est vraiment bateau mais j'ai vraiment du mal avec ça.

J'ai quand même essayé (petit bou de mon programme):

;{-son d'ouverture
If InitSound()
CatchSound(0, ?Music)

DataSection
Music: IncludeBinary "C:\Documents and Settings\Steeve\Bureau\purebasic\projet\Zelda\music\battle.mid"
EndDataSection

IsSound(#son)
LoadSound(#son, "C:\Documents and Settings\Steeve\Bureau\purebasic\projet\Zelda\music\battle.mid")
PlaySound(#son ,0)
Delay(10000)
StopSound(#son)
FreeSound(#son)
EndIf
;}

Voila je suis sur que je doit pas être trés loin mais je galére un peu, si quelqu'un pouvais m'aidez je lui en serrez reconnaissant.
Merci d'avance.

venom · Message par **venom** » sam. 27/oct./2007 12:57

salut a toi !

moi je ferai comme sa

Code : Tout sélectionner

InitMovie()
  If LoadMovie(0, "c:/projet 2.mp3") ;<--- on indique le chemin
   OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie", #PB_Window_Invisible);<-- on ouvre une fenetre en mode invisible
    PlayMovie(0, WindowID(0));<-- on lit le son precedament indiquer
  EndIf 
Delay(10000);<-- avec un sertain delai

voila

@++

Chris · Message par **Chris** » sam. 27/oct./2007 12:58

De mémoire, il me semble que la librairie Sound ne lit que les .wav et .ogg (avec le plugin). A confirmer.

En tous cas, tu n'as pas besoin d'utiliser à la fois CatchSound() et LoadSound(). Ca revient à charger deux fois la même chose en mémoire.

venom · Message par **venom** » sam. 27/oct./2007 12:59

oui c'est pour sa que je lui et montree avec movie().

@++

Backup · Message par **Backup** » sam. 27/oct./2007 13:08

une autre façon de faire

; lecture MIDI
#window =1
Buffer$= Space (128 )
mciSendString_ ( "open 5.MID type sequencer alias mid" ,Buffer$,128,0)
mciSendString_ ( "play mid" ,0,0,0)

OpenWindow ( #window ,10,10,320,200, "play" , #PB_Window_SystemMenu )
Repeat
event= WaitWindowEvent ()
Until Event = #PB_Event_CloseWindow ; On s'en va!!!
mciSendString_ ( "CLOSE MIDI" ,0,0,0)

RV · Message par RV » sam. 27/oct./2007 13:12

Pas mal le code

je le garde sous le coude!

Narzedar_a · Message par **Narzedar_a** » sam. 27/oct./2007 13:37

Merci pour vos réponse rapide

J'ai préférez utilisez la methode de venom, j'ignore laquel méthode et la meilleur mais pour moi la méthode de venom et plus simple à comprendre.

C'était ma premiére question sur ce forum et sa ne sera pas la derniérre ...je pense revenir sur ce forum réguliérement

Bonne vacances (pour ceux qui sont en vancances)