Скопировать ссылку
Перейти к посту
Пользователь
громкость не работает, вверх вниз
5 val%=10
15 snd_eth$ = "http://stream.frenchkissfm.com:80/"
25 sound "new", snd_eth$
45 sound "play", snd_eth$
40 if left(0) then sound "stop", snd_eth$
70 if right(0) then sound "del", snd_eth$
75 val1%=val%
80 if up(0) then val%=val%+1:soundset volume (v), snd_eth$,val%
90 if down(0) then val%=val%-1:soundset volume (v), snd_eth$,val%
100 if val%>95 or val%<5 then val%=val1%
110 goto 40
soundinfo(cmd$, res$) (sinf(cmd$, res$)) - функция возвращающая информацию по следующим командам:
>>> команда (сокращенная форма) - описание
>>> duration (d) - возвращает длину медиа в милисекундах (вызывать можно только после воспроизведения медиафайла иначе вернет 0);
>>> mediatime (m) - возвращает текущую позицию воспроизведения в милисекундах (вызывать можно только после воспроизведения медиафайла иначе вернет 0).
Использовать аналогично SOUND.
[add] soundset cmd$, res$, val% (snds cmd$, res$, val%)
>>> команда (сокращенная форма) - описание
>>> volume (v) - устанавливает громкость (0 - 100).
>>> mediatime (m) - устанавливает позицию воспроизведения, указывать val% в милисекундах
знает толк
