Показать сообщение отдельно
Старый 03.09.2005, 18:35   #10
alcosholik
 
Сообщений: n/a
PlayCDTrack (трек,[режим] )

Параметры
трек = номер трека для проигрывания
режим = 1: проиграть трек один раз; 2: проигрывать бесконечно; 3: проиграть до конца комакт-диска

Описание
Команда проигрывает трек с компакт-диска и возвращает указатель на канал.

Необязательный параметр режим позволяет проигрывать трек разными способами. Запомните, что воспроизведение происходит через кабель внутри компьютера, который соединяет CR-ROM и звуковую карту. На многих компьютерах (по каким-либо причинам) данный кабель не подключен. В этом случае вы НЕ услышите звук с компакт-диска, даже если слышите остальные звуковые эффекты и музыку.

Пример
; PlayCDTrack – пример использования 

; Пользователь вводит номер трек для проигрывания 
track=Input$("Введите номер трека:") 

; Проиграть трек, назначить его каналу (проиграть только один раз)
chnCD=PlayCDTrack(track,1) 

; Запомнить текущее время
oldTime=MilliSecs() 
; Играть до окончания трека или до нажатия Esc
While ChannelPlaying(chnCD) And (Not KeyHit(1)) 
; Очистить экран и написать, сколько прошло времени с начала проигрывания
Cls 
Locate 0,0 
Print "Прошло времени (в секундах):" + ((MilliSecs()-oldTime)/1000) 
Wend 

; Остановить канал
StopChannel chnCD
 
Ответить с цитированием