Я понимаю, что я что-то делаю не так, но вот что именно - ни как не доходит. Вот еще раз ВЕСЬ код который у меня написан для воспроизведения музыки:
Код:
Graphics3D 1024,768,32,1
................
SeedRnd(MilliSecs())
Function UpdateMusic(channel)
If ChannelPlaying (channel) = 0 channel=SelectRandMusic("music")
Return channel
End Function
Function SelectRandMusic(DIR$)
Local counter%=0
Local channel%=0
Local dir_h%=ReadDir(DIR$)
While True
file$=NextFile$(dir_h)
If Upper$(Right(file$,3))="MP3"
counter=counter+1
EndIf
If file$="" Exit
Wend
CloseDir dir_h
Print "files="+counter
Local iR%=Rand(1,counter%)
If Not counter Return False
counter=0
dir_h%=ReadDir(DIR$)
While True
file$=NextFile$(dir_h)
If Upper$(Right(file$,3))="MP3"
counter=counter+1
If counter%=iR
Print "select - "+IR+" = "+file$
channel=PlayMusic(DIR$+"\"+file$)
Exit
EndIf
EndIf
Wend
Return channel
End Function
channel=UpdateMusic(channel)
.............................
Flip
Wend
End
Вот!А теперь по поводу высказывания alcoSHoLiK'a мне кажеться, что именно он подобрался к сути вопроса - как вызывать функцию?Потомучто как мне казалось - строка
Код:
channel=UpdateMusic(channel)
как раз таки ее и вызывает!Объясните или дополните кодом. :SOS: :unsure: :dontknow: |
