Jump to content
Forum Windows-az.com

Microphone Record


Guest Musa_

Recommended Posts

Salam...

Bu gün mən sizə Visual Basic 2008-də Mikrofondakı səsi yadda saxlamaq üçün proqram yaratmağı göstərəcəm...

(Qeyd 1.: Videoda səslər gəlmir..Lakin proqram işləyir

2.: Kodları videoda necə əlavə etdimsə elə əlavə edin! )

Online Video

 

Kodlar:

 

Başlığa əlavə ediləcək kod:

 

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

 

Başla:

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

record("open new Type waveaudio Alias recsound", "", 0, 0)

 

record("record recsound", "", 0, 0)

 

End Sub

 

Dayan + Yadda saxla:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 

record("save recsound c:\mic.wav", "", 0, 0)

 

record("close recsound", "", 0, 0)

 

End Sub

 

Oynat:

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

 

My.Computer.Audio.Play("c:\mic.wav", AudioPlayMode.Background)

 

End Sub

Link to comment
Share on other sites

Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...