1
Sound Recorde vb.net
Postat av 1337person den 16 Februari 2009, 02:05
1 kommentarer · 168 träffar
Hallo
håller på med en Sound Recorder (Vet finns många redan men vill ha en ja gjort) och jag har fastnat på en sak och googlat på det länga utan någon lösning
När ja spelar in med mitt program så blir det 11000hz 8bit mono, och ja har satt det på 44100hz stereo 16bit, hållar på att dampa snarT
mciSendString("open new Type waveaudio Alias recsound", vbNullString, 0, 0)
mciSendString("set capture samplespersec 44100", vbNullString, 0, 0)
mciSendString("set capture channels 2", vbNullString, 0, 0)
mciSendString("set capture bitspersample 16", vbNullString, 0, 0)
mciSendString("open cdaudio alias cd", vbNullString, 0, 0)
mciSendString("set cd time format milliseconds", vbNullString, 0, 0)
mciSendString("record recsound", vbNullString, 0, 0)
Någon som vet vad ja gör för fel?
Obs, har declarat redan
Private Declare Function mciSendString Lib "winmm.dll" Alias"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
skulle va sjukt schysst om non kunde hjälpa mig
Använder Vb.net 2008
håller på med en Sound Recorder (Vet finns många redan men vill ha en ja gjort) och jag har fastnat på en sak och googlat på det länga utan någon lösning
När ja spelar in med mitt program så blir det 11000hz 8bit mono, och ja har satt det på 44100hz stereo 16bit, hållar på att dampa snarT
mciSendString("open new Type waveaudio Alias recsound", vbNullString, 0, 0)
mciSendString("set capture samplespersec 44100", vbNullString, 0, 0)
mciSendString("set capture channels 2", vbNullString, 0, 0)
mciSendString("set capture bitspersample 16", vbNullString, 0, 0)
mciSendString("open cdaudio alias cd", vbNullString, 0, 0)
mciSendString("set cd time format milliseconds", vbNullString, 0, 0)
mciSendString("record recsound", vbNullString, 0, 0)
Någon som vet vad ja gör för fel?
Obs, har declarat redan
Private Declare Function mciSendString Lib "winmm.dll" Alias"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
skulle va sjukt schysst om non kunde hjälpa mig
Använder Vb.net 2008






