Двойной звук по Click

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Двойной звук по Click

Сообщение Summer.05 » 26.08.2006 (Сб) 21:16

Код: Выделить всё


Странная картинка:

Private Sub cmdClear_Click()
With Adodc1
  .RecordSource = "SELECT * FROM DB order by Name"
  .Refresh
    End With

With MMControl1
        .FileName = App.Path & "\" & "Select.wav"
        .Command = "Open"
        .Command = "Sound"
        .Command = "Close"
    End With

End Sub


Событие звука происходит дважды, хотя файд Select.wav сам по себе издает звук один раз.

Идеи есть?

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 26.08.2006 (Сб) 21:20

Код: Выделить всё
.Command = "Sound"

Пробовал убрать эту строку?

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 26.08.2006 (Сб) 21:27

Ennor
Попробовал...
Звука вообще нет.

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 27.08.2006 (Вс) 0:31

"Sound"? Может, все таки "Play"?
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 27.08.2006 (Вс) 9:52

Насколько я разобрался, оператор Sound применяется при использовании дэвайса Wave Audio (MMControl1) в условиях, когда оно продключено к событию, которое ждет, когда эта музыка прозвучит.

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

Кроме того, для проигрывания звуков типа wav, mp3 используется именно Wave Audio, а следовательно, и оператор Sound

Я в чем-то не прав?

Oxygen
Белая и пушистая
Белая и пушистая
Аватара пользователя
 
Сообщения: 1314
Зарегистрирован: 15.07.2003 (Вт) 7:14
Откуда: Москва

Сообщение Oxygen » 27.08.2006 (Вс) 10:17

А где, если не секрет это написано? С чего ты это взял? А что получается, если ты будешь использовать объект MediaPlayer или проигровать твой звук средствами API?
Процедура клонирования завершена.
Коррекция имплантированного сознания соответствует принятым алгоритмам.
Уникальный идентификатор скопирован в чип временного паспорта.
Активация прав гражданина ожидается в течение 24 часов

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 27.08.2006 (Вс) 10:54

Oxygen
Привет, Пушистая!
Взял из книжки С.Н. Лукина.
Твои варианты не пробовал. Сейчас попробую.
Советы конкретные есть?

PS.
Попробовал WMPlayer. Не поддерживает метод, говорит.
API пробовал, но этот метод мне показался проще.
Спасибо за внимание!

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 27.08.2006 (Вс) 13:22

Summer.05 писал(а):Я в чем-то не прав?


Да, в выборе литературы для чтения.
MCI
clsMedia
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 27.08.2006 (Вс) 14:08

BV
ОК, пойду читать заумную литературу :?

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 27.08.2006 (Вс) 19:29

Кажется, почти справился.
Думаю, причина в том, что у меня сразу были открыты все формы и я управлял ими посредством Visible = True / False.
Предполагаю, что где-то происходила накладка и осуществлялся повтор. После того, как я ввел Unload и Load форм все стало на свои места. Почти.
Спасибо за советы.

Debugger
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1667
Зарегистрирован: 17.06.2006 (Сб) 15:11

Сообщение Debugger » 28.08.2006 (Пн) 9:02

Summer.05 писал(а):BV
ОК, пойду читать заумную литературу :?

Да, я однажды увидел в книжке, что "Picture Box имеет ненужный свойства окна (Hdc и пр.) и следует размещать только image"

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 28.08.2006 (Пн) 12:22

Debugger
ОК, это я тоже уже где-то встречал.
Удачи!

Debugger
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1667
Зарегистрирован: 17.06.2006 (Сб) 15:11

Сообщение Debugger » 28.08.2006 (Пн) 14:14

Можно сочинять "Книги бывают разные: тупые, тупые и нормальные"

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 29.08.2006 (Вт) 21:47

Debugger
Книги бывают разные, естественно.
Но двойной звук при одном и том же коде - сюрприз...

Debugger
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1667
Зарегистрирован: 17.06.2006 (Сб) 15:11

Сообщение Debugger » 30.08.2006 (Ср) 10:21

Это какк :shock:
У разных людей один и тот же код по разному? :shock:

Summer.05
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 28.12.2005 (Ср) 20:19
Откуда: Москва

Сообщение Summer.05 » 30.08.2006 (Ср) 11:43

Debugger
Смотри мой верхний пост. Один и тот же код в разных местах дает один или два звука.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 79

    TopList