Membuat Sound recorder menggunakan visual basic 2008

Membuat Sound recorder menggunakan visual basic 2008 sebenarnya sangatlah mudah sekali jika anda sudah mengetahui sedikit kode system windows, karena sound recorder yang akan saya buat adalah sound recorder dengan ekstensi file wav, visual basic 2008 bisa dikatakan program dengan menu terlengkap karena apa saja yang dibutuhkan dapat digunakan pada Microsoft visual basic 2008 ini.

Dan selanjutnya saya akan memulai Membuat Sound recorder menggunakan visual basic 2008, disini saya akan membuat 1 form dengan 1 progressbar, 3 button 4 label dan 2 timer seperti gambar dibawah ini:

 

Kemudian saya membuat kode seperti dibawah ini:

Public Class Form1
    Dim sv As New SaveFileDialog
    Private Declare Function record Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
            Label1.Text = sv.FileName & ".wav"
            record("save recsound " & sv.FileName & ".wav", "", 0, 0)
            record("close recsound", "", 0, 0)
            Timer1.Enabled = False
            ProgressBar1.Value = 0
        Else

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        record("open new Type waveaudio Alias recsound", "", 0, 0)
        record("record recsound", "", 0, 0)
        Label3.Text += 1
        If Label3.Text = 60 Then
            Label3.Text = 0
            Label4.Text += 1
        End If
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Audio.Play(Label1.Text, AudioPlayMode.Background)
        Timer2.Enabled = True
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label3.Text += 1
        If Label3.Text = 60 Then
            Label3.Text = 0
            Label4.Text += 1
        End If
    End Sub
End Class

Sekarang waktunya mencoba sound recorder buatan saya.