Page 1 sur 1

Un peu paumé

Publié : sam. 27/oct./2007 12:31
par Narzedar_a
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. :wink:
Merci d'avance.

Publié : sam. 27/oct./2007 12:57
par venom
salut a toi !

moi je ferai comme sa :wink:

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


@++

Publié : sam. 27/oct./2007 12:58
par Chris
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.

Publié : sam. 27/oct./2007 12:59
par venom
oui c'est pour sa que je lui et montree avec movie().


@++

Publié : sam. 27/oct./2007 13:08
par Backup
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)


Publié : sam. 27/oct./2007 13:12
par RV
Pas mal le code :D je le garde sous le coude! :wink:

Publié : sam. 27/oct./2007 13:37
par Narzedar_a
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) 8)