Oppure

Loading
23/03/10 12:56
ilgrandere
Ciao a tutti,
avrei bisogno per un programma che sto creando di creare un tasto per la registrazione audio dal microfono e che questo mi possa essere salvato in un file.
Ma non sono riuscito a trovare niente che mi possa aiutare a fare una registrazione audio con visual basic..qualcuno mi può aiutare?
Grazie.

ps. avevo un codice che registrava in wave e poi lo trasformava in mp3 ma l'ho perso cavolo :(
aaa
23/03/10 13:07
ilgrandere
support.microsoft.com/kb/87768/…

ho trovato questo metodo ma non riesco a trovare quel file..
aaa
23/03/10 13:13
Alfonso
Googoleggiando "registrazione audio vb.net"

il primo della lista:
vbnet.it/articoli/252/Cattura-audio-video-con-vb-net-e-librerie-avicap32-dll-e-user32-dll/

:)
aaa
23/03/10 13:19
ilgrandere
lo avevo gia letto..ma e insieme audio e video..a me serve solo audio..:k:
aaa
23/03/10 13:48
Alfonso
Ti chiedo scusa, avevo letto solo l'inizio dell'articolo e pensavo fossero separabili i due canali audio e video.:(
aaa
23/03/10 15:19
lorenzo
beh, certo che si può estrapolare l'audio...quello è un file .avi no? Basta usare qualche libreria per scindere audio da video. Così su due piedi non saprei cosa usare di preciso ma certamente qualcosa esiste dato che molti programmi free permettono appunto quella funzione
aaa
23/03/10 19:59
LittleHacker
Postato originariamente da lorenzo:

beh, certo che si può estrapolare l'audio...quello è un file .avi no? Basta usare qualche libreria per scindere audio da video. Così su due piedi non saprei cosa usare di preciso ma certamente qualcosa esiste dato che molti programmi free permettono appunto quella funzione


beh si potrebbe usare ffmpeg...:k:
aaa
24/03/10 9:39
ilgrandere
allora sto provando a fare la registrazione audio e video..
ma non riesco a visualizzare nella listbox i driver del pc..
Private Sub getSorgentiHw()
Dim NomeDriver As String = Space(80)
Dim VersioneDriver As String = Space(80)
For i As Integer = 0 To 9
 If capGetDriverDescriptionA(i,NomeDriver,80,VersioneDriver,80) Then
  lstVideoSorgenti.Items.Add(NomeDriver.Trim)
 End If
Next
End Sub

Non capisco questa a cosa si riferisce..(getSorgentiHw?)
xk non mi permette di popolare la listbox....

questa e la listbox
Private Sub lstVideoSorgenti_SelectedIndexChanged( _  
ByVal sender As System.Object, ByVal e As System.EventArgs) _  
Handles lstVideoSorgenti.SelectedIndexChanged  
  
  InterrompiPreview()  
  VideoSource = lstVideoSources.SelectedIndex  
  VideoPreview(PictureBoxvideo)  
  
End Sub 

Ultima modifica effettuata da ilgrandere 24/03/10 9:42
aaa