رفتن به مطلب

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


Elyas Erfani

ارسال های توصیه شده

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

 

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

 

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

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)  

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

 

موفق باشید :gol:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

به in گیر میده

 

 

18914437432666260555.jpg

 

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

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

Dim in As Intent

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

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

Dim in As Intent

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 ماه بعد...

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

 

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

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

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

 

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

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

 

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

android.content.activitynotfoundexception: no 
activity found to handle intent {
act=android.intent.actoin.view da=send sms.shomareye mobaile flg=0×20000}
continue?
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

متغیر 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)  
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...