Прямое взаимодействие с выходным звуковым каналом, такое возможно? Опции

[ChASnock]

А ведь PlaySound работает с задержкой вроде... И если играется один звук то при воспроизведении другого первый закончится...

[Guevara-chan]

И если играется один звук то при воспроизведении другого первый закончится...

Не обязательно - можно использовать флаг #SND_NOSTOP:

The specified sound event will yield to another sound event that is already playing in the same process. If a sound cannot be played because the resource needed to generate that sound is busy playing another sound, the function immediately returns FALSE without playing the requested sound.

If this flag is not specified, PlaySound attempts to stop any sound that is currently playing in the same process. Sounds played in other processes are not affected.

[ChASnock]

Ну тогда всем спасибо Чего-то не обращал на эту функцию внимание, а в самоучителе было объяснение какое-то корявое..

[ChASnock]

А не подскажете вот как и в какой порт писать уровень звука чтоб проигрывать музыку?

И еще обратная сторона медали: как записывать звук с микрофона?

[Guevara-chan]

как и в какой порт писать уровень звука чтоб проигрывать музыку?

waveOutWrite подойдет, или нужно все-таки уровнем повыше ?

как записывать звук с микрофона?

Ну, допустим, можно через MCI (бывают проблемы с качеством, но удобно):

Код

#Second = 1000  ; Миллисекунд.
#Length  = 5    ; Время записи (секунд).
#Samples = 44100; 44.1 kHz (samples/second).
Define Buffer.s{#MAXBYTE}; Буффер выходных данных MCI.
Define Elapsed           ; Прошедшее время по данным MCI.
#Pattern = "Sound files (*.wav)|*.wav|All files (*.*)|*.*"; Шаблон.
Macro MCI(command) : mciSendString_(command, @buffer, #MAXBYTE, 0) : EndMacro; Pseudo-procedure
Macro IntSize : SizeOf(Integer) : EndMacro : Macro BPS : Str(#Samples * IntSize) : EndMacro; Partializers.
MCI("open new type waveaudio alias recsound") : MCI("set recsound time format ms"); Первичная подготовка записи.
MCI("set recsound alignment "+Str(IntSize)+" bitspersample 16 samplespersec "+Str(#Samples)+" channels 2 bytespersec "+BPS)
MCI("record recsound") : Debug "==[Record intitated (" + Str(#Length) + " seconds)]=="; Начинаем цикл записи:
While Elapsed < 5 * #Second : MCI("status recsound position") : Elapsed = Val(Buffer) : Delay(20) : Wend
Debug "==[Record complete]=="; Рапортуем конец записи и спрашиваем, куда сохранить:
Define Clip.s = Trim(SaveFileRequester("Choose location to save sound:", "", #Pattern, 0))
MCI("save recsound " + #DQUOTE$ + Clip + #DQUOTE$) : MCI("close recsound")

[ChASnock]

о боже что это за язык

[Guevara-chan]

о боже

Можно просто «Виктория».

что это за язык

PureBasic v4.51, надо полагать.

[Flashback]

ты ж видела, что он пишет явно не на барсике. хотя можно устроить тандем с ним, если, конечно, в этом чудном компиляторе можно запилить гай-приложение без формы, работающее через консоль, и запускать его через основную программу, когда надо. хотя проще просто запилить либу, но еще проще написать это на том, чем надо.

[Guevara-chan]

ты ж видела, что он пишет явно не на барсике.

Честно говоря, я имею большие сомнения что он вообще там что-то пишет: за почти 4 прошедших с создания темы месяца можно было не только запилить генератор фрактального звука, но еще и успеть организовать продажи в пределах СНГ. Вопросы, впрочем, от этого менее интересными не становятся.

[Flashback]

Хрон, не может такого быть, Чеснок точно что-то замышляет.

Вопросы, впрочем, от этого менее интересными не становятся.

а вот код, написанный на пьюр бейсике, он, к сожалению, не сможет использовать.

[Guevara-chan]

Чеснок точно что-то замышляет.

Он сколько я его помню что-то замышляет. Напомни, с февраля прошлого года были какие-то продвижения ? Нет, мне правда интересно.

а вот код, написанный на пьюр бейсике, он, к сожалению, не сможет использовать.

У нас кто-то обязывался выдавать по первому капризу готовые к использованию библиотеки ? Пример на то и пример, что его надо разбирать.

[Flashback]

У нас кто-то обязывался выдавать по первому капризу готовые к использованию библиотеки ?

нет, но было бы супер

Пример на то и пример, что его надо разбирать.

он же не знает бейсик

[Guevara-chan]

было бы супер

Так приступай, если супер. Кто мешает-то ?

он же не знает бейсик

Пусть учится видеть алгоритм, а не язык – тогда, глядишь, может еще и достигнет чего.

[ChASnock]

Да какой-то странный у вас Бейсик, совсем на Бейсик не похож

[tolich]

Можно подумать, ты много Бейсиков на своём веку повидал.

[ChASnock]

Нет, немного. Всего-то один

[Guevara-chan]

...И тот старше тебя...

[ChASnock]

Что за намёки

[Guevara-chan]

Idle talks, не обращай внимания. У тебя еще вопросы по теме есть ?

[ChASnock]

Не знаю, нет наверно