Sound.Play - Microsoft Small Basic - форумы русскоязычного сообщества

Sound.Play Что с ним?

#1 buffon

Младший программист

Группа: Пользователи
Сообщений: 32
Регистрация: 29-January 10
Пол:Мужчина
Город:Сумы
Интересы:MuOnline and CS16 Server Development

Отправлено 13 February 2010 - 16:43

Здравствуйте!
Проблема заключается в том, что Sound.Play не работает
Раньше Sound.Play работал, с проблемой не встречался
Попробовал код от Michael Mix который утверждал что у него все работает!

m_file = ""
Graphicswindow.Show()

buttonOpenFile = Controls.AddButton(80,50,"Open file")
Controls.RegisterMouseDownEvent(buttonOpenFile,"openFile")

buttonPlay = Controls.AddButton(50,50,"Play")
Controls.SetLeft(buttonPlay,80)
Controls.RegisterMouseDownEvent(buttonPlay,"play")

get = Controls.AddButton(50,50,"Pause")
Controls.SetLeft(get,130)
Controls.RegisterMouseDownEvent(get,"tot")


Sub openFile
  m_file = Dialogs.AskForFile()
  Graphicswindow.DrawBoundText(10, 100, 600, "Выбран файл: " + m_file)
EndSub

Sub play
  Sound.Play(m_file)
  Graphicswindow.Title = "Воспроизводится файл: " + m_file
EndSub

Sub tot
  Sound.Pause(m_file)
  Graphicswindow.Title = "Пауза"
EndSub

У меня не работает музыка, просто тишина и все... Попробовал для эксперимента:

filepath = "d:\music\02-tiesto_-_club_life_105-cable-04-03-2009-talion.mp3"
Sound.Play(filepatch)
и
Sound.Play(Program.Directory + "/tiesto.mp3")

Не работает...
А другие Sound работают, такие как:

Sound.PlayBellRing()
и др.

На другом компьютере ИГРАЕТ!!
Что не так, объясните!
Заранее спасибо!
>>>>>>>>>>>>>>>>>>>>>>> Update >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Еще такой вопрос, как сделать:
1) Что б время обновлялось, например я добавил в окно показывать время, как сделать чтоб оно "шло" а не показывала время, когда программа запустилась
2) Как сделать "бар" - полоску воспроизведения музыки?

Сообщение отредактировал buffon: 13 February 2010 - 18:29