Help with Music and Buttons
Author |
Message |
xXKennyXx
|
Posted: Wed May 04, 2011 6:24 pm Post subject: Help with Music and Buttons |
|
|
What is it you are trying to achieve?
a program that plays a song and is able to stop the song whenever.
What is the problem you are having?
When the song starts i can't push any buttons to stop it
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
import GUI
var canvas : int := GUI.CreateCanvas (10,150, maxx+140 , maxy )
var choice1 : boolean := false
var choice2 : boolean := false
var choice3 : boolean := false
var Song1,Song2,Song3:int
setscreen("graphics:800;600")
procedure MusicA
if choice1 = false then
Music.PlayFile ("hedley - perfect.mp3")
end if
end MusicA
procedure MusicB
if choice2
then
Music.PlayFile ("Never too late.mp3")
end if
end MusicB
procedure MusicC
if choice3 then
Music.PlayFile ("music.mp3")
end if
end MusicC
procedure S
loop
Music.PlayFileStop
exit when GUI.ProcessEvent
end loop
end S
var quitBtn : int := GUI.CreateButton (200, 10, 0, "Quit", GUI.Quit)
Song1:= GUI.CreateButton (0, 120,0 , "Song1", MusicA)
Song2:= GUI.CreateButton (0, 80,0 , "Song2", MusicB)
Song3:= GUI.CreateButton (0, 40, 0, "Song3", MusicC)
var Stop:int:=GUI.CreateButton(100,55,0,"Stop",S)
loop
exit when GUI.ProcessEvent
end loop
[/syntax]
Please specify what version of Turing you are using
<Answer Here> |
|
|
|
|
|
Sponsor Sponsor
|
|
|
Tony
|
|
|
|
|
xXKennyXx
|
Posted: Wed May 04, 2011 9:34 pm Post subject: Re: Help with Music and Buttons |
|
|
Thanks!
Now is there anyway to play the song again if i stop it? |
|
|
|
|
|
Tony
|
Posted: Wed May 04, 2011 10:54 pm Post subject: RE:Help with Music and Buttons |
|
|
You'd have to handle those parts yourself. |
Tony's programming blog. DWITE - a programming contest. |
|
|
|
|
xXKennyXx
|
Posted: Thu May 05, 2011 9:16 pm Post subject: Re: Help with Music and Buttons |
|
|
The thing is that i just started to use GUI and i have no idea what to do, can you lead me into the direction of where i need to go? |
|
|
|
|
|
|
|