Programación General > Visual Basic 6.0 e inferiores

 convertir texto a mp3

<< < (3/3)

luismatute:
***AQUI HAGO Q HABLE EL PROGRAMA DESDE EL RICHTEXTBOX
Private Sub Command1_Click()
DirectSS1.Speak txtText.Text
End Sub

Private Sub Command2_Click()
estado = Not estado
If estado = True Then
 Command2.Caption = "pause"
 DirectSS1.Speak txtText.Text
  Else
Command2.Caption = "play"
DirectSS1.AudioPause
End If
End Sub

**ESTE ES UN CODIGO Q OCNSEGUI PERO NO ME FUNCIONA
Dim AudioFile As New SpeechLib.SpFileStream

AudioFile.Format.Type = SAFT22kHz16BitStereo 'Formato WAV
 With cdlgVarios
  .flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn
  .DialogTitle = "Guardar en un archivo WAV"
  .Filter = "Todos los archivos (*.*)|*.*|Archivos Wab" & "(*.wav)|*.wav"
  .FilterIndex = 2
  .ShowSave
  nArAudio = .FileName
 End With
  'Si el usuario no escribe un nombre para el archivo, no se hace nada más
 If nArAudio = "" Then Exit Sub
 
 EscribiendoWav = True 'Para saber que se esta escribiendo un archivo Wab
 DoEvents
 Me.Hide 'Quitamos el form
 DoEvents: DoEvents
 PonerIcono Me, Me.PicIcono, "TTS - [text-to-speech] - Guardando como archivo de audio"
 MostrarGlobo Me, PicIcono, "TTS - [text-to-speech] - Guardando como archivo de audio" _
                          , "Speech - [Guardando como archivo de audio]" _
                          , "Esta operación puede tardar varios minutos, para restaurar el programa debe esperar a que el programa termine de crear el archivo"
 DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
 
 
 AudioFile.Open nArAudio, SSFMCreateForWrite, True
 
 Set nNarrador.AudioOutputStream = AudioFile
 nNarrador.Speak txtTexto.Text, SVSFDefault ' SVSFlagsAsync + SVSFPurgeBeforeSpeak 'SVSFlagsAsync
 
 AudioFile.Close
 Set AudioFile = Nothing

 EscribiendoWav = False

m0skit0:
Échale un vistazo a este enlace. También podrías simplemente usar la grabadora de Windows para guardar la salida de audio en WAV y la pasas a mp3, aunque todo esto se haría manualmente. Supongo que también se podrá automatizar, aunque no he investigado cómo.

luismatute:
HEY MUCHAS GRACIAS ME SIRVIO DE MUCHO YA PUDE COMVERTIR :beer:
GRACIAS POR LA AUYDA :hola:

Navegación

[0] Índice de Mensajes

[*] Página Anterior