[VB.NET] Alterare la riproduzione di un file WAVE (.wav)

[fgnm]

salve a tutti, da un po' di tempo sto cercando di modificare la riproduzione di un file .wav che salvo dopo una registrazione fatta del mic. in modo che sia più acuto o meno. controllando il tutto con una trackbar.....è possibile farlo??

codice:

importo la libreria :

Imports System.Runtime.InteropServices

e

    <DllImport("winmm.dll", SetLastError:=False, ExactSpelling:=True)> _ Public Shared Function mciSendStringA(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer     End Function

codice per registrare :

        
mciSendStringA("open new Type waveaudio Alias registrazione", "", 0, 0)         mciSendStringA("record registrazione", "", 0, 0)

salvo e riproduco :

        
mciSendStringA("save registrazione c:\mvoice.wav", "", 0, 0)         
mciSendStringA("close registrazione", "", 0, 0)        
 My.Computer.Audio.Play("c:\mvoice.wav")

grazie

[oregon]

E quindi?

Per modificare un wav come dici tu bisogna rielaborarne i pacchetti digitali acquisiti.

Non è affatto semplice ricalcolare tali pacchetti e reinserirli al posto giusto.

Sicuramente dovrai utilizzare librerie apposite.

[fgnm]

anche rallentare la riproduzione è così difficile ??

[oregon]

Direi proprio di sì

[fgnm]

cercando su internet ho trovato questo codice che modifica la velocità della riproduzione del file...... unico problema è che non so tradurlo in vb.net potete darmi una mano??

Option Explicit
Private Type RIFF
    riffId As String * 4
    riffLen As Long
    riffType As String * 4
End Type
Private Type RIFF_CHUNK
    chunkId As String * 4
    chunkLen As Long
End Type
Private Type WAVEFORMAT
    wFormatTag As Integer
    nChannels As Integer
    nSamplesPerSec As Long
    nAvgBytesPerSec As Long
    nBlockAlign As Integer
    wBitsPerSample As Integer
End Type

Private Sub Form_Load()

    'make a copy of 'The Microsoft Sound'
    FileCopy "C:\Windows\Media\The Microsoft Sound.wav", "C:\WaveFast.wav"
    'increase the speed of this wave file
    SpeedUp "C:\WaveFast.wav"
    
    'make another copy of 'The Microsoft Sound'
    FileCopy "C:\Windows\Media\The Microsoft Sound.wav", "C:\WaveSlow.wav"
    'decrease the speed of this wave file
    SpeedDown "C:\WaveSlow.wav"
    
    Unload Me
End Sub

Sub SpeedUp(WaveFile As String)
    Dim nFile As Integer
    nFile = FreeFile
    Dim r As RIFF, fmt As RIFF_CHUNK, wf As WAVEFORMAT
    Open WaveFile For Binary As #nFile
    Get #nFile, , r     'the 'RIFF' header
    Get #nFile, , fmt   'the 'fmt ' chunk
    Get #nFile, , wf    'the WAVEFORMAT header
    'increase the sample rate
    wf.nSamplesPerSec = wf.nSamplesPerSec * 2
    wf.nAvgBytesPerSec = wf.nAvgBytesPerSec * 2
    'write back the WAVEFORMAT structure to the file
    Put #nFile, Seek(nFile) - Len(wf), wf
    'close the file
    Close nFile
End Sub

Sub SpeedDown(WaveFile As String)
    Dim nFile As Integer
    nFile = FreeFile
    Dim r As RIFF, fmt As RIFF_CHUNK, wf As WAVEFORMAT
    Open WaveFile For Binary As #nFile
    Get #nFile, , r     'the 'RIFF' header
    Get #nFile, , fmt   'the 'fmt ' chunk
    Get #nFile, , wf    'the WAVEFORMAT header
    'decrease the sample rate
    wf.nSamplesPerSec = wf.nSamplesPerSec / 2
    wf.nAvgBytesPerSec = wf.nAvgBytesPerSec / 2
    'write back the WAVEFORMAT structure to the file
    Put #nFile, Seek(nFile) - Len(wf), wf
    'close the file
    Close nFile
End Sub

[LeleFT]

Richieste di questo tipo sono di competenza del forum "Offro Lavoro / Collaborazione", non essendo propriamente problematiche di "programmazione", quanto piuttosto di traduzione e rielaborazione di un listato da un linguaggio ad un altro.

Devo chiudere.


Ciao.