- Код: Выделить всё
Call Wav2Flac("c:\1.wav", "c:\1.flac")
есть класс class1 (подключен,добавлен как модуль)в нём функция Wav2Flac
- Код: Выделить всё
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports CUETools.Codecs
Imports CUETools.Codecs.FLAKE
Namespace GoogleSpeech
Public NotInheritable Class SoundTools
Private Sub New()
End Sub
''' <summary> Конвертирование wav-файла во flac </summary>
''' <returns>Частота дискретизации</returns>
Public Shared Function Wav2Flac(wavName As [String], flacName As String) As Integer
Dim sampleRate As Integer = 0
Dim audioSource As IAudioSource = New WAVReader(wavName, Nothing)
Dim buff As New AudioBuffer(audioSource, &H10000)
Dim flakewriter As New FlakeWriter(flacName, audioSource.PCM)
sampleRate = audioSource.PCM.SampleRate
Dim audioDest As FlakeWriter = flakewriter
While audioSource.Read(buff, -1) <> 0
audioDest.Write(buff)
End While
audioDest.Close()
audioDest.Close()
Return sampleRate
End Function
End Class
End Namespace
пишет что Wav2Flac не определено...
Но когда эту функцию влепил в Public Class Form1
всё заработало, но код загромождается .
ВОПРОС:
как вынести функцию отдельно в модуль и передать ей значения?
