Android Code Snippet Voice Recognition with Resumable Subs

The ability of resumable subs to return values (added in B4A v7.3) makes it very simple to add voice recognition to your app.

Code:

Private Sub RecognizeVoice As ResumableSub
   vr.Listen
   Wait For vr_Result (Success As Boolean, Texts As List)
   If Success And Texts.Size > 0 Then
     Return Texts.Get(0)
   End If
   Return ""
End Sub

You can call it like this:

Wait For (RecognizeVoice) Complete (Result As String)

Example:

Sub Activity_Click
   Wait For (RecognizeVoice) Complete (Result As String)
   If Result <> "" Then
     Activity.Title = Result
   End If
End Sub

Example is attached.

 

[jimmyF]

Thank you! This is excellent and just what I was looking for.

 

[rtek1000]

When it fails to recognize the voice, it prompts the user to try again by clicking on the button in the dialog.

How to abort it?

 

[Erel]

Please start a new thread for this question.

 

[Beja]

When starting new question as advised by Erel, I suggest that people leave a link to the new thread so it can easily be found and followed.

 

[DonManfred]

it can easily be found and followed

https://www.b4x.com/android/forum/threads/offline-continuous-speech-recognition-xml.87400/

 

[ykucuk]

hi,
it doesn't work with a tablet with android 8.1

Error

onActivityResult: wi is null

 

[Erel]

Are you running the example as-is? What do you see when you click on the activity?

 

[ykucuk]

Are you running the example as-is? What do you see when you click on the activity?

i used an example project. Nothing happened. Any of dialogs cant appear. I checked log the error is

onActivityResult: wi is null

 

[Erel]

Can you post the full logs?

Maybe the process is being killed at some point.

 

[Beja]

The ability of resumable subs to return values (added in B4A v7.3) makes it very simple to add voice recognition to your app.

Code:

Private Sub RecognizeVoice As ResumableSub
   vr.Listen
   Wait For vr_Result (Success As Boolean, Texts As List)
   If Success And Texts.Size > 0 Then
     Return Texts.Get(0)
   End If
   Return ""
End Sub

You can call it like this:

Wait For (RecognizeVoice) Complete (Result As String)

Example:

Sub Activity_Click
   Wait For (RecognizeVoice) Complete (Result As String)
   If Result <> "" Then
     Activity.Title = Result
   End If
End Sub

Example is attached.

Hi Erel,
Is it possible that I can use a language for recognition other than English?

Thank you. -B

 

[Erel]

Yes, but please start a new thread for this question.