آموزش نحوه استفاده
در اینجا نحوه استفاده از این کتابخانه جهت پردازش اصوات فارسی رو توضیح می دهم
ابتدا متغیرهای لازم رو معرفی می کنیم
Private sRecognizer As irSpeechRecognizer=Null
Private rProgressView As irRecognitionProgressView=Null
Private vcp As irVoicePack
کد مقدار دهی اولیه متغیر رو قرار میدیم
Dim r As Reflector
vcp.init("vcp",r.GetStaticField("anywheresoftware.b4a.BA", "packageName"))
sRecognizer = sRecognizer.createSpeechRecognizer(r.GetContext)
حالا ویوی این کتابخونه رو به برنامه اضافه می کنیم
rProgressView=vcp.getView
Activity.AddView(rProgressView,50%x-100dip,50dip,200dip,200dip)
rProgressView.setSpeechRecognizer(sRecognizer)
vcp.setResult(rProgressView)
رنگ و اندازه دایره های موجود در ویو رو مشخص می کنیم
Dim clrs() As Int= Array As Int (Colors.GREEN,Colors.BLUE,Colors.GRAY,Colors.RED,Colors.YELLOW)
Dim heigh() As Int=Array As Int(60, 76, 58, 80, 55)
rProgressView.setColors(clrs)
rProgressView.setBarMaxHeightsInDp(heigh)
و در نهایت انیمیشن ویو رو فعال می کنیم
rProgressView.play
حالا باید در رویداد مناسبی که در نظر گرفته اید خود پردازش زبان را فعال کنید
Sub btn_Click
vcp.startRecognition(rProgressView ,sRecognizer,"fa")
End Sub
رویداد های مربوط به پردازش رو هم اضافه می کنیم
Sub vcp_Results (out() As Object)
ToastMessageShow(out(0),False)
vcp.startRecognition(rProgressView ,sRecognizer,"fa")
End Sub
Sub vcp_Error (out As Object)
If out==7 Then
vcp.startRecognition(rProgressView ,sRecognizer,"fa")
End If
End Sub
تمام
اینم مثال اون
irVoicePackEx
«موفق باشید.»