Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
26/07/2013 19:28
Konu Sahibi
zetyu
Yorumlar
1
Okunma
1114
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

zetyu

Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
29/05/2017,03:40
ses kayıt işlemi yapabilirmiyim diye araştırdığımda aşağıdaki vb kodlrını gördum örnekte denedim ama başaramadım yardımlarınızı bekliyorum...

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")


Ek Dosyalar
.rar   ses kaydet.rar (Dosya Boyutu: 10,16 KB / İndirme Sayısı: 14)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

zetyu

Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
29/05/2017,03:40
ses kayıt için kodlar var ve ekte mevcut .hocalarımın gözünden kaçmış olabilir tekrar hatırlatmak istedim


zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  iki tarih arası filtre yapmak alperadn01 2 1.502 12/10/2014, 20:47 Darla
  Alt formla entegre edilmiş ana formda arama yapmak F.Ç 0 1.157 03/08/2013, 13:06 F.Ç
  Gizlenmiş Formu Unhide yapmak Batuna 2 1.327 21/06/2013, 21:15 Batuna
  Birden fazla değere sahip alanda kritere göre sorgu yapmak chakal22ff 2 1.641 03/06/2013, 07:51 chakal22ff
  Düzelme butonu ve Aynı kaydı var ise kaydetmeme soguk27 2 932 29/01/2012, 07:29 benremix

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.