المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : تحويل الاوامر الصوتية الي نصوص باستخدام مكتبة SpeechLib



Chakira
11-01-2013, بتوقيت غرينيتش 04:10 PM
http://www.dzbatna.com/images/icons/icon18.gif طھط*ظˆظٹظ„ ط§ظ„ط§ظˆط§ظ…ط± ط§ظ„طµظˆطھظٹط© ط§ظ„ظٹ ظ†طµظˆطµ ط¨ط§ط³طھط®ط¯ط§ظ… ظ…ظƒطھط¨ط© SpeechLib (http://www.dzbatna.com/t1940020/)




السلام عليكم ورحمة الله
هذا الموضوع يتحدث عن تحويل (http://www.cafe4egy.com/showthread.php?t=3531) الصوت الي نصوص (http://www.cafe4egy.com/showthread.php?t=3531) من خلال الاعتماد علي بعض المكتبات مثل مكتبة (http://www.cafe4egy.com/showthread.php?t=3531) SpeechLib (http://www.cafe4egy.com/showthread.php?t=3531) و التي يمكن من خلالها تحويل (http://www.cafe4egy.com/showthread.php?t=3531) الصوت الي نص مكتوب في البرنامج و يمكن تطوير هذه الطريقة الي اوامر نصية تحول الي كلمات .وهذه الكلمات تكون معرفة في البرنامج علي انها مهام يمكن تنفيذها تلقائيا .
كما في نظام speech recognition في ويندوز سفن حيث يمكننا تنفيذ العديد من المهام المعروفة بالنسبة للويندوز من خلال اوامر صوتية ك open computer , close it ,try,start وغيرها ...

ولا بالنسبه للمشروع فانه يعمل علي ويندوز xp بدون اي مشاكل بالاعتماد منظومة speech sdk و التي تتضمن العديد من المكتبات لعمليات تحويل (http://www.cafe4egy.com/showthread.php?t=3531) الصوت لاي نص او العكس و مهام اخري كثيرة لا اعرفها .

في المشروع الان سنقوم باضافة الاداه SpeechLib.dll
وفي قسم التعريفات Imports SpeechLib

و سنعتمد في هذه الطريقة علي الدالة التالية :

Public Sub SPReco_Create()
Dim rule As ISpeechGrammarRule
Dim propvalue As Object = ""
Dim wrd As Char
objrec = New SpSharedRecoContext()
grammer = objrec.CreateGrammar(0)
rule = grammer.Rules.Add("MenuCommand", SpeechRuleAttributes.SRADynamic Or SpeechRuleAttributes.SRATopLevel, 0)
rule.InitialState.AddWordTransition(Nothing, "new", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "old", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "help", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "open", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "close", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "start", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "try", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "do", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "sleep", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
rule.InitialState.AddWordTransition(Nothing, "shut down", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)



rule.InitialState.AddWordTransition(Nothing, "yes", " ", SpeechGrammarWordType.SGLexical, wrd, 0, propvalue, 1.0)
grammer.Rules.Commit()
grammer.CmdSetRuleState("MenuCommand", SpeechRuleState.SGDSActive)
End Sub

تقوم هذه الداله بالتحقق من قواعد نطق الكلمات المضمنة بداخلها فاذا كانت الكلمة المنطوقة متطابقة مع التعبيرات المخزنة في ذاكرة المكتبة فانة سيتم اظهار الكلمة في اداة textbox
و في حالة عدم حدوث تطابق فان المكتبة ستتجاهل الكلمة الي ان تنطق بالطريقة الصحيحه ..

-في قسم التعاريف للمتغيرات و اثوابت :
Public WithEvents objrec As SpSharedRecoContext
Public grammer As ISpeechRecoGrammar
Dim rule As ISpeechGrammarRule
Dim propvalue As Object = ""

الدالة الاتية لمتابعة عملية تسجيل الصوت في ذاكرة البرنامج :
Public Sub Reco_Event(ByVal streamnmber As Integer, ByVal streamposition As Object, ByVal Recognitiontype As SpeechRecognitionType, ByVal Result As ISpeechRecoResult) Handles objrec.Recognition
Dim str As String
str = Result.PhraseInfo.GetText(0, -1, True)
TextBox1.Text = str.ToString
End Sub
و من خلالها ايضا يتم عرض الكلمة في اداة نص ..

-في حدث ال load :
SPReco_Create()

بحيث نهيئ الدالة للعمل .

داله لتحديد حالة المترجم :
Public Sub stoprec()
grammer.CmdSetRuleState("MenuCommand", SpeechRuleState.SGDSInactive)
End Sub

رابط تحميل المشروع :
http://download956.mediafire.com/7o2...545/Speech.rar (http://download956.mediafire.com/7o28xtk9iyhg/m4ym6nc859f6545/Speech.rar)






ألعاب الأندرويد مجانا و حصريا (http://www.apotox.info/forum)




https://fbcdn-sphotos-d-a.akamaihd.net/hphotos-ak-ash4/482113_236967293114455_1193518507_n.png (http://www.dzbatna.com)
©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى (http://www.dzbatna.com)©

استعمل مربع البحث في الاسفل لمزيد من المواضيع


سريع للبحث عن مواضيع في المنتدى