• Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

Visual Basic Ses Kaydedici Yapma

Üyelik Tarihi
7 Ocak 2015
Konular
4,091
Mesajlar
4,274
MFC Puanı
40
Kod:
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")
 
Üst