Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Visual Basic Ses Kaydedici Yapma

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

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 Alt