SoloCodigo

hola amigos necesito ayuda, estoy haciendo un sistema en VB 6.0 necesito capturar voz y hacer  que cuando uno hable por el microfono de la PC este me lo capture y lo escriba en un richtextbox q tengo como texto, en pocas palabras como un dictador q cuando uno hable x el micrifono este lo escriba en el richtextbox, e estado leyendo un poco y dicne q se puede con la sapi de windows pero solo en inglesparece, nose si se puede en español, sino como se puede hacer utilizando loqueando q es una herramienta muy util , si saben algo por favor respondame que necesito ayuda.  o algun tutorial, o  en el mejor de slos caos un ejemplo con codigo. deantemano gracias

***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

OK GRACIAS POR LAS RESPUESTA PERO REALMANTE NO ENTIENDO PUCHO COMO HACERLO, NOSE SI SABEN DE UNBUEN TUTORIAL Q EXPLIQUE COMO HACER ESO, O SI ME PUEDEN PASAR UN EJEMPLO SE LOS AGRADECERIA MUCHO

Hola amigos de necesito ayuda, estoy haciendo un sistema en VB 6.0 tengo un RichTextBox que es donde cargo texto desde un archivo, ahora lo que quiero saber es como poder hacer que desde   ese  RichTextBox lo pueda convertir a un archivo mp3 cuadno ya este funcionandoel sistema, tengo muchas dudas    de antemano muchas gracias por la ayuda me sirve muchoo.

 

Usa RichTextBox. Aunque no entiendo esta frase tuya:

Cita de: "luismatute"

soporte mas texto al echar a andar el sistema

a gracias por el dato del richtextbox, no lo que quiero decir era simplemente el control q me soportara mas texto, es que al echar andar el sistema tengo q escribir y pegar texto en el control    gracias