Запись звука из Visual Basic (c примерами)

Нашей задачей будет записать звук в пустой WAV файл. Для того, чтобы сделать пустой WAV файл можно воспользоваться стандартной Windows программой - Звукозапись. Необходимо просто зайти в неё и сохранить пустую запись с именем "01" в папку с вашим проектом. После этого откройте Visual Basic. Далее я пронумеровал задания, чтобы было легче делать.

  • Шаг 1 - Создайте стандартный проект

  • Шаг 2 - Сделайте три CommandButton’а

  • Шаг 3 - Щёлкните правой кнопкой мыши на панели ToolBar и в появившемся меню выберите Components…

  • Шаг 4 - Выберите компонент Microsoft Multimedia Control 6.0 (число 6.0 может быть и другим, оно зависит от версии Visual Basic)

  • Шаг 5 - Натяните этот объект на форму и придайте его значению Visible=false

  • Шаг 6 - Дважды щёлкните по форме

  • Шаг 7 - Введите ниже написанные строки

Private Sub Form_Load() 
 MMControl1.FileName=app.path & "\01.wav"
 MMControl1.Command = "open" 
End Sub
Private Sub Command1_Click() 
 MMControl1.Command = "prev" 
 MMControl1.Command = "record" 
 Command2.Enabled = True 
End Sub 
Private Sub Command2_Click() 
 MMControl1.Command = "stop" 
 MMControl1.Command = "save" 
 MMControl1.Command = "prev" 
 Command3.Enabled = True 
End Sub 
Private Sub Command3_Click() 
 MMControl1.Command = "play" 
 MMControl1.Command = "prev" 
End Sub 

Шаг 8 - Задайте свойство Caption CommonButton’ам. Первый - Запись, второй - Стоп, третий - Пуск.

 


Страница сайта http://silicontaiga.ru
Оригинал находится по адресу http://silicontaiga.ru/home.asp?artId=5408