mp3 playback

[Rookie]

is there anyway to play mp3 in a program

[Doobrey]

Checkout the Movie commands in the manual..

Although it sounds like it`s made for only playing movies,the manual says..

Windows only: as it uses the DirectX technology, any kind of movie (or better, of media) can be played with this library: AVI, MPG, DivX, Mp3 etc..

[Rookie]

so i can play mp3 with this correct

[freedimension]

ah, ty kale for the pic


p.s.: You can't say it too often: please read the manual before using something. You aren't going to fly a jet without reading the manual first, are you ;-?

[Rookie]

fly a jet would be to
back mean up
foward means down
left is left
rfight is right
trigger guns
buttons missles
run low on gas find a nice deserted place the use the emegrcy excape

[Doobrey]

And whatever you do, don`t pull that handle under your seat..

[Rookie]

BUT THAT IS THE EXCAPE ROUTE

[crypt0night]

<b><font face="Courier" size="4">Test Test...1..2..1..2.. HTML is on? Good.... Hi Guys!
</font></b>

Iam also a bloody beginner! But hey! this would not be the beginner section if questions ,does not matter how stupid, would not be alowed? Wouldn`t it?

I was playing with BlueSpeed`s Tutorial (german)
http://www.robsite.de/download.php?id=2 ... tpurebasic
and learned a lot of cool stuff THANKS BLUESPEED!

Try to compile this, but you need something that it playsback.
I used "sum 41 - Into Deep.mp3" very cool song!
But substite the name with a mp3 of your choice and put it in the same dir as this code.pb

What it should do:
Open a window and everytime you press ok it changes balance and volume.

after pure pascal, delphi, c++ and visual basic: I LOVE PURE BASIC... it`s so intuitive and the compiler is not tooo petty.

Code: Select all

If InitMovie() = 0                                ; Init Movie/Music
MessageRequester("TITEL","InitMovie failed",0)
EndIf

If InitSound() = 0
MessageRequester("TITEL","InitSound failed",0)
EndIf

Balance = -100
Volume = 0

If LoadMovie(0,"sum 41 - Into Deep.mp3")
; PlayMovie(#Movie, WindowID) 
   PlayMovie(0,0)
Else
  MessageRequester("TITLE","LoadMovie MP3 failed - Line 14")
EndIf

Repeat

Volume+20
Balance+20

If Balance > 99
Balance = -100
EndIf

MovieAudio(Volume, Balance) 

MessageRequester("PLAY MP3! BALANCE : "+Str(Balance)+" VOLUME : "+Str(Volume),"PRESS OK To MOVE SOUND FROM LEFT To RIGHT!",0)

ForEver

hope that helped a bit

KEEP DA FAITH!