مشکل در VoiceRecognition

[Milad-Mohammadi 401]

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

سه تا باتن گذاشتم رو هر کدوم کلیک شد پنل تشخیص صدای گوگل با یه زبان خاصی نمایش داده بشه(هر باتن یه زبان و متن خودش)

حالا مشکل اینجاست بار اول که رو هر کدوم از دکمه ها کلیک میشه زبان مورد نظر من نیست و متنی که من گذاشتم برای prompt نمیاد

حتما باید یبار پنل صدا رو ببندم و دوباره رو باتن کلیک کنم که پنل صدا با مشخصاتی که من گفتم بالا بیاد

مشکل از کجاست دوستان؟؟؟

ممنون میشم راهنمایی کنید

[Elyas Erfani 3,582]

زبان انگلیسی رو باید فقط en قرار بدید این اشتباه اولتون

اشتباه دومتون هم اینه ک شما اول اومدی گفتی vr.Listen و بعدش گفتی زبان و متنو عوض کن ک اشتباهه و اول میاد با زبان پیشفرض ب صدا گوش میده

به این صورت تغییر بدید هر 3 قسمت کدارو

If CheckInternet = True Then

"Vr.Language = "en

"Vr.prompt ="Touch here

Vr.Listen

Else

'''////نت قطعه

End If

[Elyas Erfani 3,582]

سلام

منظورتون از پنل صدا پنل خود گوگله؟؟

کداییو ک استفاده کردید قرار بدید

[Milad-Mohammadi 401]

سلام

منظورتون از پنل صدا پنل خود گوگله؟؟بله

کداییو ک استفاده کردید قرار بدید

Sub Btn2_Click
	If CheckInternet = True Then
	
		vr.Listen
			vr.Prompt = "pronounce your sentence in a quiet place"
			vr.Language = "en-US"
				
	Else
	
		Msgbox2("دستگاه شما به اینترنت متصل نیست" , "خطا" , "باشه" , "" , "" , Null)
	
    End If
End Sub

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