Spanish Escribir mayusculas al dicta por voz.

'Activity module
Sub Process_Globals
    Dim VR As VoiceRecognition
    Dim texto as string
 
End Sub

Sub Globals

End Sub

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

    Activity.LoadLayout("1")
    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 Button1_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)
     texto=ucase((Texts.Get(0)) 'Ponemos el texto en mayúsculas
     'aqui colocas el texto en el textbox o edittext o donde quieras
    End If
End Sub

Sub Globals
Dim EstoyCambiando = False As Boolean
' ...............
' ...............
' ...............

Sub EditText1_TextChanged (Old As String, New As String)

  If EstoyCambiando Then Return ' para que no entre cuando cambies a mayúsculas

   EstoyCambiando = True
   EditText1.Text = New.ToUpperCase
   EditText1.SelectionStart = EditText1.Text.Length
   EstoyCambiando = False

End Sub