|   FOROS      |     Tutoriales    |     KIO4 |      
   Inicio B4A (Basic4Android) App inventor 2 Arduino
   Elastix - VoIP Cosas de Windows Webs interesantes  Telecomunicaciones

 


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

Nueva sección en esta web: Elastix - VoIP

¿Qué es esto?

- Monta un servidor telefónico en tu ordenador para poderte comunicar mediante tu móvil con otros móviles que estén en tu red Wifi. Parecido a Skipe o Whatsapp-teléfono, pero en este caso tú controlas al servidor.

- Si sabes abrir puertos del router, también puedes comunicarte con tu móvil de una red Wifi a teléfonos de otra red Wifi.

- También puedes comunicarte con teléfonos "normales", pero para eso necesitas un dispositivo que vale unos 60 €.

- Es muy recomendable aprender el funcionamiento de este servidor telefónico Asterisk-Elastix.

 Elastix - VoIP

 

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial                    Return to index tutorial

____________________________

Basic4Android.

24.- Video Player. De Texto a Voz. Reconocedor de voz.

Tutoriales. Video Player. De Texto a Voz. Reconocedor de voz.

Presentación

- Vamos a ver tres códigos de funciones multimedia. Se completan con uno visto anteriormente, el Player de sonido: MediaPlayer.

_________________________________
a)
Video Player

Código del Vídeo Player
Sub Process_Globals
  
End Sub

Sub Globals
    Dim video As VideoView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    video.Initialize("video")
    Activity.AddView(video, 10dip, 10dip, 250dip, 250dip)
    video.LoadVideo(File.DirAssets, "unvideo.mp4")
    ' video.LoadVideo(File.DirRootExternal, "unvideo.mp4")
    ' video.LoadVideo("http","http://unsitioweb.com/unvideo.mp4")

     video.Play
End Sub

Sub video_Complete
    Log("Terminado")
End Sub
          

 

Del sitio oficial...

http://www.basic4ppc.com/android/help/audio.html#videoview

- Este elemento es bastante pejiguera, es muy crítico con el formato de vídeo.

- Para realizar las pruebas es conveniente que el archivo de vídeo no sea de gran tamaño, para que no tarde mucho en cargar.

 

 

- Es necesario cargar la Librería Audio

 

- Si tu ordenador no emite en español, puedes bajar las librerías de voces españolas de Loquendo (programa comercial)

_________________________________

b) De Texto a Voz

Escribimos un texto en un casillero y Android lo pronuncia.

Código de Texto a voz
Sub Process_Globals
  ' Juan Antonio Villalpando
  ' juana1991@yahoo.com
End Sub

Sub Globals
    Dim Button1 As Button
    Dim EditText1 As EditText
    Dim TTS1 As TTS
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    TTS1.Initialize("TTS1")
End Sub

Sub Button1_Click
     TTS1.Speak(EditText1.Text, True)
End Sub
                

Sitio oficial de la librería TTS...

http://www.basic4ppc.com/android/help/tts.html

Librería:
http://www.basic4ppc.com/forum/additional-libraries-classes-official-updates/7044-text-speech-library.html#post40481

 

En mi proyecto he construido mediante con el Designer un "Layout" con estos elementos:

Button1
EditText1

 

- Es necesario cargar la Librería TTS

- En los foros puedes encontrar un ejemplo más completo con esta librería, en donde puedes elegir varios parámetros de voz.

Ejemplo más completo.

- En ese ejemplo de los foros hay una línea para elegir idiomas, concretamente:
spnrLanguages.AddAll(Array As String("en", "fr", "de"))

a esta línea le podemos añadir el español:

spnrLanguages.AddAll(Array As String("en", "fr", "de", "spa"))

La opción para elegir zona e idioma es:

SetLanguage (Language  As String , Country  As String )  As Boolean

Podemos probar con distintas formas del español, escribiendo estos parámetros.

' ("es","US"), ("es","LA"), ("spa","US"), ("spa","MEX")

Para realizar el ejemplo, crea con el Designer un Layout llamado "1" con...



Label1 (Text: Tono)
Label2 (Text: Rapidez)
EditText1
Button1
SeekBar (llamado barPitch con Max value: 20)
SeekBar (llamado barSpeechRate con Max value: 20)
Spinner (llamado spnrLanguages)

Código en: Ejemplo más completo.

 

- Es necesario cargar la Librería TTS

_________________________________

c) Reconocimiento de voz

Hablamos delante del micrófono y Android escribe lo que hemos pronunciado.

Código de Reconocimiento de voz
'Activity module
Sub Process_Globals
    Dim VR As VoiceRecognition
    Dim TTS1 As TTS
    End Sub

Sub Globals
    Dim boton As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
    VR.Initialize("VR")
    TTS1.Initialize("TTS1")
    End If

   ' Crea Botón (Button)
    boton.Initialize("boton")
    boton.TextColor = Colors.Red
    boton.Text = "Pulsa"
    Activity.AddView(boton, 0dip, 10dip, 100%x, 10%y)

    If VR.IsSupported Then
        ToastMessageShow("Voice recognition is supported.", False)
    Else
        ToastMessageShow("Voice recognition is not supported.", True)
    End If
    VR.Prompt = "Say your message"
End Sub

Sub boton_Click
    VR.Listen 'calls the voice recognition external activity. 
   'Result event will be raised.
End Sub

Sub VR_Result (Success As Boolean, Texts As List)
    If Success = True Then
        ToastMessageShow(Texts.Get(0), True)
       TTS1.Speak(Texts.Get(0), True)
    End If
End Sub

 

Sitio oficial...

http://www.basic4ppc.com/forum/basic4android-getting-started-tutorials/8055-voice-recognition-example.html

 

- El programa escribe lo que hemos pronunciado en una caja de mensajes: ToastMessageShow(Texts.Get(0), True)

 

 

- Es necesario cargar las Librerías:

Phone
TTS

 

________________________________

Si quieres que este tutorial se mantenga y lo actualice con más programas, escríbeme un correo a Juan Antonio: juana1991@yahoo.com

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información