Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Ses Kaydetme

   Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.  


Ses Kaydetme Programı
Bu derste bilgisayar mikrofonunu kullanarak winmm.dll APIsi ile ses kaydetmeyi öğrenelim.


Imports System.Runtime.InteropServices

        <DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
        End Function

    Public Sub Kaydedici(ByVal islem As String, ByVal path As String, ByVal isim As String)
        If islem = "baslat" Then
            mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
            mciSendString("record recsound", "", 0, 0)
        ElseIf islem = "bitir" Then
            mciSendString("save recsound " & path & "/" & isim & ".wav", "", 0, 0)
            mciSendString("close recsound ", "", 0, 0)
        End If
    End Sub

Kaydı başlat kodu:
Kaydedici("baslat","","")

Kaydet ve bitir kodu :
Kaydedici("bitir","C:","ses_kaydi")

 
Bugün 87 ziyaretçikişi burdaydı!
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol