Кибор » Кибор - Интегрированная среда разработки ботов » О программе Кибор » Версия 4.02 Проигрывание звука, разделение цвета на каналы RGB и обратно

Страниц (2): [1] 2 »
 

1. Kibor - 11 Марта, 2015 - 13:20:02 - перейти к сообщению
sound - проигрывает wav файлы.
 Цитата:
sound ("C:\t.wav", 1);

первый параметр - путь к файлу
второй:
0 - один раз проиграть
1 - зациклить.

не останавливает выполнение скрипта.

остановить проигрывание
 Цитата:
sound (0);


можно паковать в ресурсы и проигрывать так примерно..
 Цитата:
unpack("C:\club.wav", tempfolder()+"t.wav", 1);
sound (tempfolder()+"t.wav", 1);
messagebox ("стоп");
sound (0);

RESOURCE
{
"C:\club.wav"
}



Одновременное проигрывание wav или mp3 файлов можно осуществить с помощью mciSendString
CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open C:\1\b.wav", 0, 1, 0);//Длинный
mciSendString("open C:\1\h.wav", 0, 1, 0);//Короткий
loop()
{
mciSendString("play C:\1\b.wav", 0, 1, 0);
loop(20)
{
mciSendString("play C:\1\h.wav", 0, 1, 0);
sleep(100);
mciSendString("close C:\1\h.wav", 0,1, 0);
}
mciSendString("close C:\1\b.wav", 0,1, 0);
}


Зацикливание проигрывания
CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

char SST[256];
int adr=address(#SST[0]);
mciSendString("open C:\1\b.wav", 0, 1, 0);

loop()
{
mciSendString("play C:\1\b.wav", 0, 1, 0);
mciSendString("status C:\1\b.wav mode", adr, 256, 0);
while(format(#SST[0])=="playing")mciSendString("status C:\1\b.wav mode", adr, 256, 0);
mciSendString("close C:\1\b.wav", 0,1, 0);


messagebox ("Усе. Можно сначала");//Закоментировать для зацикливания


}






Пример записи с микрофона

CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new Type waveaudio Alias recsound", "", 0, 0);
mciSendString("set recsound bitspersample 16", "", 0, 0);
mciSendString("set recsound samplespersec 44100", "", 0, 0);
mciSendString("record recsound", "", 0, 0);



pause(5000);//Это время будет записывать



mciSendString("save recsound c:\111.wav", "", 0, 0);
mciSendString("close recsound", "", 0, 0)




Этот код выведет уровень звука который воспринимает микрофон.
От 0 до 128

 Цитата:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new alias ScriptMicrophone type waveaudio wait", "", 0, 0);

char t[4];
loop()
{
mciSendString("status ScriptMicrophone level", address(#t[0]), 16, 3);
textout(0, 100, 50, format(#t[0])+"---------", 0);
}



============================================

получение компонентов цвета в RGB

 Цитата:
int a=16776960;// цвет в int

int r=rvalue(a);//красный компонент (1 байт)
int g=gvalue(a);//зеленый
int b=bvalue(a);//синий

int col=rgb(r, g, b);//обратно в int

messagebox (b);
messagebox (col);
2. Skycrew - 12 Марта, 2015 - 03:35:32 - перейти к сообщению
Здорово что звуки включили! У меня до этого играла примитивная милодия на старых звуках))
А по поводу цветов можно было и раньше разделять на компонентны, только нужно было поплясать с бубном..))
В общем спасибо!
3. Kibor - 12 Марта, 2015 - 03:49:03 - перейти к сообщению
 Skycrew пишет:
Здорово что звуки включили! У меня до этого играла примитивная милодия на старых звуках))
А по поводу цветов можно было и раньше разделять на компонентны, только нужно было поплясать с бубном..))
В общем спасибо!

пользуйтесь)
4. yo1 - 12 Марта, 2015 - 04:02:04 - перейти к сообщению
Картинки в диалоговых окнах не планируются?
И есть ли возможность по нажатию кнопки в диалоговом окне открывать другое диалоговое окно со своими настройками? BUTTONSCRIPT только запускает и всё, увы.
5. Kibor - 12 Марта, 2015 - 04:13:27 - перейти к сообщению
 yo1 пишет:
Картинки в диалоговых окнах не планируются?
И есть ли возможность по нажатию кнопки в диалоговом окне открывать другое диалоговое окно со своими настройками? BUTTONSCRIPT только запускает и всё, увы.

нет. картинки не стоят сложности доработки..
настройки в окне... тоже сложно ..пока нет
6. SOLNCE - 11 Сентября, 2016 - 19:54:25 - перейти к сообщению
не проигрывает почему то, не beep, не sound..
7. Kibor - 11 Сентября, 2016 - 21:47:51 - перейти к сообщению
в микшере громкости добавить звук системные звуки
8. SOLNCE - 12 Сентября, 2016 - 11:31:06 - перейти к сообщению
ага спасибо beep теперь слышно) а вот sound-а нету (
9. Kibor - 12 Сентября, 2016 - 11:45:37 - перейти к сообщению
 SOLNCE пишет:
вот sound-а нету (

выберите другой файл. бывает что не все проигрывает.
10. SOLNCE - 13 Сентября, 2016 - 16:38:54 - перейти к сообщению
да спасибо дейсвтильено не все воспроизводит, нашел подходящий... видимо что то с частотой/битностью/моно-стерео связано

Powered by ExBB FM 1.0 Final