رفتن به مطلب

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


محمدرضا معتمدی

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

سلام و خسته نباشید

اول قصد داشتم در فروشگاه منتشر کنم به قیمت 1500 تومن فقط

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

پس بیخیال

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

پس برنامه نیاز به نت داره , این برنامه صحبت ما رو تبدیل به متن میکنه

و یه شماره میدیم به برنامه و میفرسته همین

خب بسم الله شروع میکنیم کتابخانه ی Phone رو تیک میزنیم

و تعریف میکنیم در Procces_Globals

    Dim mt As VoiceRecognition

در اکتیویتی کریت

mt.Initialize("mt")
    If mt.IsSupported = False Then
       Msgbox("برنامه روی موبایل شما کار نمیکند", True)
    End If
		mt.Language="fa"
    mt.Prompt = "بگو و پیامک کن"

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

بعد

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

در ساب کلیک روی دکمه

    mt.Listen 

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

Sub mt_Result (Success As Boolean, Texts As List)
  If Success = True Then
			EditText1.text = Texts.Get(0)
  End If   
End Sub

کد معلوم هست کاراییش

و در نهایت برای ارسال این متن به عنوان پیام

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

Dim payamak As PhoneSms

payamak.Send(EditText2.Text,EditText1.Text)
Msgbox("ارســال شد !","بگو و پیامک کن")

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

و تموم

توجه کنید که یه همچین برنامه ای جزو پرفروش ترین های مایکت هست قیمت فک کنم 850 بود دانلود بیش از هزار

یا حق

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

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

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

ممنون عالی بود

ولی دو جاش واسم مبهم بود

اول اونجا که گفتی

در ساب کلیک روی دکمه

mt.Listen

خب این ساب کلیک چیه؟؟ باتن درست کنیم اینو تو باتن بزاریم؟

قسمت دومم اینکه گفتی

((

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

کد PHP:

Dim payamak As PhoneSms

payamak.Send(EditText2.Text,EditText1.Text)

Msgbox("ارســال شد !","بگو و پیامک کن")

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

خب برادر این کد و کجا بزنیم دقیقا ؟؟؟

کاش یه عکس هم از دیزاینرت میزاشتی واس ما تازه واردا!!!

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

این امضات کشندست داداش. لطفا یکمی لحنشو درست کن :

جناب مدیر سایت !

اگه سرور تیم اسپیک خواستی یدونه رایگان 1024 اسلاته اختصاصی بدم بهتون :)

اگه سرور گیم خواستی یدونه رایگان 50 اسلاته اختصاصی بدم بهتون :)

راستی معتمدی جان در صورت امکان سورس بزار. یکمی نامفهومه :S

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

این امضات کشندست داداش. لطفا یکمی لحنشو درست کن :

راستی معتمدی جان در صورت امکان سورس بزار. یکمی نامفهومه :S

چرا دااااش؟

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

سلام

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

منظور از ساب کلیک همون باتون و باتون کلیک هست

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

کلا بیخیال

سورس دانلود کنید

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

رایگان

دانلود سورس : قیمت = 2 تا صلوات یدونه فاتحه

http://s4.picofile.com/file/8179516534/BegooPayamakKon.zip.html

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

برنامت مایکت قبول کرده یه اشگال کوچلو داره

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

یا حق

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

بایگانی شده

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

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

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