Вопрос по Bass_RecordStart

Форумы Помощь по пакетуВопрос по Bass_RecordStart ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 65

Рейтинг: 1

#1: 2010-02-13 20:08:09 ЛС | профиль | цитата

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

code_16893.txt

карма: 1

файлы: 1

code_16893.txt [1.3KB] [141]

Ответов: 14

Рейтинг: 1

#2: 2010-02-13 20:10:32 ЛС | профиль | цитата

ну можно так...

code_16894.txt

карма: 1

файлы: 1

code_16894.txt [768B] [115]

Голосовали:

Radio

Администрация

Ответов: 15295

Рейтинг: 1519

#3: 2010-02-13 20:11:35 ЛС | профиль | цитата

или проверять состояние канала


Add(BASS_ChannelPlay,6182225,441,322)
{
}

карма: 27

https://hiasm.com

Голосовали: Radio

Ответов: 65

Рейтинг: 1

#4: 2010-02-13 20:29:11 ЛС | профиль | цитата

а нельзя ли про вариант с



Add(BASS_ChannelPlay,6182225,441,322)
{
}

поподробнее пожалуйста, как на нем это дело организовать ?

карма: 1

Администрация

Ответов: 15295

Рейтинг: 1519

#5: 2010-02-13 20:36:20 ЛС | профиль | цитата

проверять состояние точки State

карма: 27

https://hiasm.com

Голосовали:

Radio

Ответов: 65

Рейтинг: 1

#6: 2010-02-13 20:37:53 ЛС | профиль | цитата

Dilma
Спасибо, почти понятно

------------ Дoбавленo в 22.42:
И все таки сломал уже весь мозг, как же можно вот конкретно в этой схеме применить элемент Bass_ChannelPlay, нужно чтобы не проходил повторно сигнал на запись, т.е если запись уже идет то повторно запись может произойти только после того как пройдет сигнал Останавливающий запись.


Add(If_else,9024950,518,119)
{
 Op1=String()
 Op2=String(True)
 link(onTrue,7743591:doStart,[])
 link(onFalse,7743591:doStop,[])
 link(Op1,1630174:RData,[(524,107)(499,107)(499,180)(398,180)])
}
Add(Timer,5944871,322,133)
{
 Interval=100
 link(onTimer,1630174:doRead,[(384,139)(384,133)])
}
Add(ChangeMon,15191738,448,126)
{
 Data=String()
 link(onData,9024950:doCompare,[(506,132)(506,125)])
}
Add(Registry,1630174,392,127)
{
 HKey=1
 Key="SoftwareVB and VBA Program SettingsValues"
 Value="Got"
 link(onRead,15191738:doData,[(436,133)(436,132)])
}
Add(BASS_ChannelPlay,3047460,469,28)
{
 Channel="MainSound"
}
Add(BASS_RecordStart,7743591,582,119)
{
 FileName="111.wav"
 Freq=44100
 Channels=2
 Name="mainrec"
}