voice recognition in una text

[fifiddu70]

come faccio a prendere il risultato di voice recognition e metterlo in una editTex?

[vb1992]

'Activity module
Sub Process_Globals
    Dim VR As VoiceRecognition
    Dim MyText 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")

'
'supportati
'
    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"  ' Parla il messaggio


End Sub

Sub Button1_Click

 ' chiamate l'attivit� di riconoscimento vocale esterno. Evento risultato sar� sollevata.

    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)

MyText = Texts.Get(0)
      

'   SendMyText
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "sms:0123456789")  ' Phone Number | Numero di telefono
i.PutExtra("sms_body", MyText )
StartActivity(i)



End If


End Sub

[fifiddu70]

grazie per la risposta, credevo che fossi rimasto solo su questo forum, adesso mi metto a lavoro e ti farò sapere.

[fifiddu70]

il tuo codice funziona, ma non e quello che volevo per esattezza in sostanza io volevo che alla fine del voice recognition, mi mettesse il risultato in una view e cioè in una editext che ho rinominato in txtsms. invece il tuo codice fa aprire un'altra schermata con il testo digitabile e le varie opzioni. spero di essere stato chiaro. comunque grazie in anticipo