سرویس گوگل و دکمه شناور

[aloneboy7617 155]

سلام دوستان

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

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("main")
	
	
p1.Initialize("vr")
 p1.Language = "fa"
 p1.Prompt = "لطفا درخواست خود را اعلام کنید"
End Sub


Sub vr_Result (Success As Boolean, Texts As List)
If Success Then
 Dim s As String
 s = Texts.Get(0)
 ToastMessageShow(s,False)

 If s.IndexOf("برد") <> -1 Then 
 med.Initialize2("")
 med.Load(File.DirAssets,"anten.mp3")
 med.Looping = False
 med.Play
End If
End Sub



Sub Button1_Click

	p1.Listen
End Sub

حالا همین کد رو که داخل یه سرویس ماژول واسه دکمه شناور مینویسم کار نمیکنه

لطفا راهنمایی کنید که چطور میشه کاری کرد که تو دکمه شناورم اجرا بشه

[aloneboy7617 155]

دوستان کسی نبود کمک کنه بخدا خیلی فوریه

[aloneboy7617 155]

آقا خدایی 5-6 روزه گذاشتم هنو جوابی نگرفتم

دوستان خواهش میکنم اگه کسی میتونه راهنمایی کنه

ممنون

[aloneboy7617 155]

سومین باریه دارم اسپم میزنیم از همه عذر خواهی میکنم

دوستان بخدا خیلی لازم دارم

اساتید محترم آقای ایزدی .. آقای مجید آرتا.. آقای پژمان نیکروان...آقای امین شاهدی و بقیه دوستان و اسایتد

تورو خدا یه کمکی بکنید خیلی لازمش دارم

[Nemesis 1,846]

نمونه سورس رو پیوست کنید یا پ خ کنید بررسی بشه