اموزش متنی جست و جوی صوتی در اینترنت

[Elyas Erfani 3,582]

سلام خدمت اساتید اندروید :tashvigh:

 

ی اموزش ساده و اسون ولی در عین حال جدید اماده کردم خدمت دوستان

 

امیدوارم ک مفید باشه

 

ایشالا ی سری قابلیت های اینجوری توی نسخه 2 دستیار صوتی میذارم

 

 ( جست و جوی صوتی در اینترنت  )

 

ابتدا کتابخانه Phone رو فعال کنید

 

در

Sub Global

Dim vr As VoiceRecognition

ی متغیر از نوع
VoiceRecognition

تعریف کردیم

 

سپس شروع میکنیم ب کدنویسی در Activity_Create :

If vr.IsSupported = False Then
ToastMessageShow("Not Supported" , True)
Else If vr.IsSupported = True Then
vr.Initialize("vr")
vr.Language = "fa"
vr.Prompt = "جستجوی صوتی"
End If

اومدیم گفتیم ک اگر موبایل از این سیستم صوتی پشتیبانی نکرد پیغامی نشون بده و بگو ک پشتیبانی نمیشه

*پیغام هارو انگلیسی مینویسم توی کدا , راحت ترم*

و اگر هم ک پشتیبانی میکرد متغیرمون رو اینیشیالیز کردیم و زبان فارسیو انتخاب کردیم

و اسم متن رو هم جست و جوی صوتی میذاریم

 

ی دکمه هم در برنامه میذاریم ک واسه شروع با نام مثلا صحبت کنید

و اسمش هم Button1

Sub Button1_Click
	vr.Listen
End Sub

و ی ساب ایجاد میکنیم با نام

vr_Result (Success As Boolean, Texts As List)

 

و توی اون مینویسیم :

Sub  vr_Result (Success As Boolean, Texts As List)
If Success = False Then
ToastMessageShow("Error , Try Again",False)
Else If Success = True Then
Dim s As String
Dim p As PhoneIntents
s = Texts.Get(0)
Msgbox("Your Search Result Is :"&s&"Pls Wait" , "Result")
StartActivity(p.OpenBrowser("https://www.google.com/#q="&s))
End If
End Sub

اینجا اومدیم گفتیم ک اگه دریافت متن موفقیت امیز نبود پیغامی نشون بده و بگو موفقیت امیز نیست و دوباره امتحان کنید

و اگر هم موفقیت امیز بود ی متغیر از نوع رشته یا String و یکی هم از نوع PhoneIntents معرفی کردیم

و متن دریافتی رو ریختیم توی رشته

و ی پیغام نمایش دادیم ک متن دریافتی شما s هستش

 

 

حالا مثلا میخوایم متن دریافتیم توی گوگل سرچ کنیم

با استفاده از کد بالا امکان پذیره و متن ما ب راحتی داخل گوکل جست و جو میشه

 

 

با یکم خلاقیت بیشتر میشه به راحتی ی برنامه جدید ساخت و واسه مارکت ها فرستاد و شک نکنید چون جدیده دانلود بالایی هم میخوره

 

پسندیدم فراموش نشه

 

و موفق باشید

[محمد رشوند 1,208]

خوب بود

میشه لطف کنید یه اموزش متنی کار با کتابخانه Tts که مربوط به همین موضوع میشه و کاراییش رو اسون تر کرده بدین

[محمد رشوند 1,208]

If vr.IsSupported = False Then
ToastMessageShow("Not Supported" , True)
Else If vr.IsSupported = True Then
vr.Initialize("vr")
vr.Language = "fa"
vr.Prompt = "جستجوی صوتی"
end if

END IF نزاشته بودی که

[Elyas Erfani 3,582]

خوب بود

میشه لطف کنید یه اموزش متنی کار با کتابخانه Tts که مربوط به همین موضوع میشه و کاراییش رو اسون تر کرده بدین

 

چشم سر فرصت

 

If vr.IsSupported = False Then
ToastMessageShow("Not Supported" , True)
Else If vr.IsSupported = True Then
vr.Initialize("vr")
vr.Language = "fa"
vr.Prompt = "جستجوی صوتی"
end if

END IF نزاشته بودی که

 

 

پست ویرایش شد

حالا ی End If هم اگه من فراموش کردم شما به بزرگیه خودت ببخش