ارسال پیامک با استفاده از سرویس Google Voice

[Elyas Erfani 3,582]

سلام خدمت دوستان عزیز

 

ارسال پیامک ب دو زبان فارسی و انگلیسی از طریق سرویس گوکل وویس

 

ابتدا کتابخانه

Phone

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

 

سپس در

Sub Process_Globals
 

Sub Process_Globals
Dim vr As VoiceRecognition
End Sub

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

و در

Sub Global

Dim Label1 As Label

حالا در

Activity_Create :

vr.Initialize("vr")
If vr.IsSupported = False Then
ToastMessageShow("گوشی شما از برنامه پشتیبانی نمی کند !" , False)
ExitApplication
Else If vr.IsSupported = True Then
vr.Language = "fa"
vr.Prompt = "پیامک صوتی"
End If

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

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

 

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

vr.Language

رو برابر با

"en"

قرار بدن

vr.Language = "en"

سپس ی ساب با مشخصات زیر ایجاد میکنیم :

Sub vr_Result (Success As Boolean, Texts As List)
 If Success = True Then
				Label1.text = Texts.Get(0)
				Else
				ToastMessageShow("لطفا دوباره امتحان کنید" , False)
   End If   
End Sub

این میاد متنو میریزه توی لیبل1

 

و واسه ارسال پیامک هم از اینتنت استفاده میکنیم ک مورد تایید مارکت ها هست

Dim i As Intent
Dim Tell As String
Tell = "Shomare Mobile"
i.Initialize(In.ACTION_VIEW, "Send Sms:" & Tell)
In.PutExtra("sms_body", Label1.Text)
StartActivity(i)  

و کاربر ارجاع داده میشه ب صفحه ارسال پیامک گوشی و ارسال میکنه

 

موفق باشید

[ha88an 203]

برای من این ارور رو میده

 

کسی کمک کنه ممنون میشم

به in گیر میده

 

 

[Nemesis 1,846]

برای من این ارور رو میده

 

کسی کمک کنه ممنون میشم

به in گیر میده

 

 

 

شما متغیر in رو تعریف کن

متغیر tell1 رو در اینتنت نوشتی tell

Dim in As Intent

[ha88an 203]

 

شما متغیر in رو تعریف کن

متغیر tell1 رو در اینتنت نوشتی tell

Dim in As Intent

میشه بگید زیر برنامه vr_Result رو کجا باید فراخوانی کنیم و ازش استفاده کنیم؟

[Elyas Erfani 3,582]

در ساب vr_result اومدیم گفتیم که اگر‌ تبدیل صدای ما به متن موفقیت امیز بود متنو بنویس داخل لیبل ۱

و‌اگر هم موفقیت امیز‌ نبود ی پیغام نمایش بده با عنوان "لطفا دوباره امتحان کنید"

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

[mohammad-alone 564]

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

 

من گوشیم htc Desire 816 هستش خوب؟

آندروید 5 هم هستش ولی میگه ساپورت نمیشه چرا ؟؟

 

آیا نرم افزار خاصی باید نصب کنم

[Elyas Erfani 3,582]

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

 

من گوشیم htc Desire 816 هستش خوب؟

آندروید 5 هم هستش ولی میگه ساپورت نمیشه چرا ؟؟

 

آیا نرم افزار خاصی باید نصب کنم

سرویس گوگل گوشیتون رو اپدیت کردید ؟؟

 

من خودم اندروید 5 دارم مشکلی نداره

[mohammad-alone 564]

ببخشید درستش کردم.

Google App رو Disable کرده بودم

[davud.b4a مهمان]

متغیر in باید از نوع اینتنت باشه؟؟؟ 

 

 

اگه هست یک ارور میاد میگه

android.content.activitynotfoundexception: no 
activity found to handle intent {
act=android.intent.actoin.view da=send sms.shomareye mobaile flg=0×20000}
continue?

[Elyas Erfani 3,582]

 

متغیر in باید از نوع اینتنت باشه؟؟؟ 

 

 

اگه هست یک ارور میاد میگه

android.content.activitynotfoundexception: no 
activity found to handle intent {
act=android.intent.actoin.view da=send sms.shomareye mobaile flg=0×20000}
continue?

Dim i As Intent
Dim in As Intent
Dim Tell As String
Tell = "Shomare Mobile"
i.Initialize(In.ACTION_VIEW, "Send Sms:" & Tell)
In.PutExtra("sms_body", Label1.Text)
StartActivity(i)  

[davud.b4a مهمان]

ممنون حل شد اما باز هم این ارور میاد 

object should first
be initialized (intent)

continue?