Запись звука из Visual Basic

Автор: Мазуров Александр
[Скачать примеры к статье] [Обсудить в форуме]

    Нашей задачей будет записать звук в пустой 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’ам. Первый - Запись, второй - Стоп, третий - Пуск.