آموزش دستور صوتی فارسی و اجرای کار با دستور صوتی !

[محمدرضا معتمدی 612]

پس پیش نیاز این برنامه نرم افزار گوگل پلی هست و اینترنت ؟!

 

اگه راهی برای آفلاین بودن برنامه پیدا کردین ما رو هم در جریان بزارین . ممنون   

 

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

 

چشم حتما , خواهش میکنم

[reza2001 587]

آقای معتمدی دو تا سوال دیگه . ممنون میشم جواب بدین !

 

می خوام بگم اگه گفته ما شبیه اون چبزی که توی برنامه وارد کردیم نبود یه پیغام نوشته نمایش داده بشه !

 

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

 

 

[محمدرضا معتمدی 612]

آقای معتمدی دو تا سوال دیگه . ممنون میشم جواب بدین !

 

می خوام بگم اگه گفته ما شبیه اون چبزی که توی برنامه وارد کردیم نبود یه پیغام نوشته نمایش داده بشه !

 

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

 

 

 

وظیفس

 

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

 If str.IndexOf("پیامک") <> -1 Then 
StartActivity(payamak) 
Else Msgbox("دستور وارد شده اشتباه هست ! " , "ارور") 

2.حقیقتا این رو زیاد بلد نیستم , چیزی به ذهنم نرسید

[طاها 480]

محمدرضا جان، داداش نمیتونی یه سورس ساده بزاری از آمورشت؟؟

[محمدرضا معتمدی 612]

محمدرضا جان، داداش نمیتونی یه سورس ساده بزاری از آمورشت؟؟

 

 الان یکم سرم شلوغه چشم حتما میزارم

[MahdiHD 1,748]

آقای معتمدی بسیار ممنون از آموزش خوب و کاربردیتون در واقع کلید بسیاری از برنامه های بازار رو دادید بهمون! فقط لطف کنید یک بخش مهم و حیاتی رو بهش اضافه کنید بخشی که در اون پیش نیاز های این کار بررسی بشه و اگر اون پیش نیاز ها رو کاربر نداشت در قالب یک مسیج به اون اطلاع داده بشه بسیار ممنون

[محمدرضا معتمدی 612]

آقای معتمدی بسیار ممنون از آموزش خوب و کاربردیتون در واقع کلید بسیاری از برنامه های بازار رو دادید بهمون! فقط لطف کنید یک بخش مهم و حیاتی رو بهش اضافه کنید بخشی که در اون پیش نیاز های این کار بررسی بشه و اگر اون پیش نیاز ها رو کاربر نداشت در قالب یک مسیج به اون اطلاع داده بشه بسیار ممنون

 

خواهش میکنم انجام وظیفه بود

 

چشم

 

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

 

موفق باشید

[reza2001 587]

آقای معتمدی یا دیگر دوستان نتونستید راهی پیدا کنید که این کلمه ما مثلا پیامک رو از فایل تکست بخونه ؟!

 

و یک سوال دیگه این که کلمه ما میتونه جمله باشه ؟! یا فقط مثل پیامک یک کلمه باشه ؟!

[reza2001 587]

وظیفس

 

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

 If str.IndexOf("پیامک") <> -1 Then 
StartActivity(payamak) 
Else Msgbox("دستور وارد شده اشتباه هست ! " , "ارور") 

2.حقیقتا این رو زیاد بلد نیستم , چیزی به ذهنم نرسید

 

این کد کار نمی کنه متاسفانه

 

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

[reza2001 587]

من تنها روی این دو سوال موندم :

 

1 . چطور اون متن یا کلمه که قراره گفته بشه از فایل تکست فراخوانی بشه

 

2 . چظور بگیم وقتی کلمه گفته شده به آنچه توی برنامه گفتیم شباهت نداشت یه اکتیویتی باز کنه یا یه مسیج باکس نشون بده ؟!

 

ممنون میشم جواب بدین . کارم گیره

[reza2001 587]

 

من تنها روی این دو سوال موندم :

 

1 . چطور اون متن یا کلمه که قراره گفته بشه از فایل تکست فراخوانی بشه

 

2 . چظور بگیم وقتی کلمه گفته شده به آنچه توی برنامه گفتیم شباهت نداشت یه اکتیویتی باز کنه یا یه مسیج باکس نشون بده ؟!

 

ممنون میشم جواب بدین . کارم گیره

 

 

 

من همچنان منتظر جواب این دو سوال هستم   

[پژمان نیکروان 6,055]

 

من همچنان منتظر جواب این دو سوال هستم   

 

خیلی راحت.

به فرض اگه اسم فایلی متنی که ذخیره کردین matn.txt بود ، میاین اینکارو میکنید:

Sub mt_Result (Success As Boolean, Texts As List)
If Success Then
 	Dim str As String 
	str=File.ReadString(File.DirInternal,"matn.txt")
	Dim g As String
	g=Texts.Get(0)
	If g=str Then
		کاری که میخواین انجام بشه
	End If
	End If
End Sub

و یا اگه به فرض طرف یه متن طولانی گفت ، شما میخواین اگه کلمه مورد نظر جزء حرف های این طرف بود بیاد کاری انجام بده اینجوری:

Sub mt_Result (Success As Boolean, Texts As List)
If Success Then
 	Dim str As String 
	str=File.ReadString(File.DirInternal,"matn.txt")
	Dim g As String
	g=Texts.Get(0)
	If g.Contains(str)=True Then
		کاری که میخواین انجام بشه
	End If
	End If
End Sub

[reza2001 587]

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

[mamalliii 214]

سلام 

ممنون از اموزش خوبتون

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

 

من میخام کاربر حرف بزنه و توی یه فایل تکس ذخیره بشه 

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

میخام هر چیزی که گفت همون ذخیره بشه

[mamalliii 214]

من هنوز منتظرم

دوستان لطفا جواب بدین

[Elyas Erfani 3,582]

سلام و تشکر از محمد رضای عزیز

 

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

 

بعد هم به سادگی با یک خط کد اون متنو به صورت txt ذخیره کنید

Dim vr As VoiceRecognition

vr.Initialize("vr")

vr.Language = "fa"

vr.Prompt = "دستور صوتی"

در ساب دکمه مورد نظر واسه گوش دادن

vr.Listen

در ساب

vr_Result

Sub vr_Result (Success As Boolean, Texts As List)

Dim txt As String

txt = Texts.Get(0)

File.WriteString(File.DirRootExternal , "Google_Voice.txt" , txt)

End Sub

این کد :

File.WriteString(File.DirRootExternal , "Google_Voice.txt" , txt)

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

 

موفقیت

[mamalliii 214]

ممنون واقعا لطف کردین

 

ولی یه مشکل وجود داره

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

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

[mamalliii 214]

من منتظرم

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

[پژمان نیکروان 6,055]

ممنون واقعا لطف کردین

 

ولی یه مشکل وجود داره

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

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

این میاد اولین متن رو میگیره:

Texts.Get(0)

اما اگه میخواین آیتم های بعدیش هم بگیرید کافیه جای 0 بذارید 1 یا 2 و...

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

	For i=0 To Texts.size-1
		listview1.AddSingleLine(texts.get(i))
	Next

[mamalliii 214]

 

این میاد اولین متن رو میگیره:

Texts.Get(0)

اما اگه میخواین آیتم های بعدیش هم بگیرید کافیه جای 0 بذارید 1 یا 2 و...

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

	For i=0 To Texts.size-1
		listview1.AddSingleLine(texts.get(i))
	Next

 

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

من میخام مثلا کاربر یک بار روی باتن که کلیک کرد و حرف زد و ذخیره میخام دفعه دوم که کلیک کرد و حرف زد میخام حرف هاش هم به متنی که از قبل سیو شده بود اضافه بشه