19-11-18, 03:05 AM
السلام عليكم ورحمة الله
يسعد الله اوقاتكم
من فترة كتبت موضوع بس ما حصلت طريقه له
هنا
http://vb4arb.com/vb/showthread.php?tid=26081
واليوم حصلت موضوع قريب جدا من الفكرة الكود للاستاذ الشاكي لله
هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=...07#pid2407
انا حاولت اغير في الكود ليعمل بالطريقه الي اريدها بس ما ضبط وهيه
المقصد من الكود ان يقراء الصوت اللي داخل في الجهاز ويترجمه
مثلا
هنا الصوت
الصوت
اذا سمع
.-
يترجمه الى
حرف A
وهذه اشارات المورس
وهذه المكتبه
System.Speech (1).zip (الحجم : 240.04 ك ب / التحميلات : 12)
ان شاءالله احصل الطريقه اللي يقراء ويترجم بارك الله فيكم
يسعد الله اوقاتكم
من فترة كتبت موضوع بس ما حصلت طريقه له
هنا
http://vb4arb.com/vb/showthread.php?tid=26081
واليوم حصلت موضوع قريب جدا من الفكرة الكود للاستاذ الشاكي لله
هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=...07#pid2407
انا حاولت اغير في الكود ليعمل بالطريقه الي اريدها بس ما ضبط وهيه
كود :
Imports System.Speech.Recognition
Public Class Form1
Private _Recognizer As New SpeechRecognitionEngine()
'سيتم الدخول للإجراء ادناه لو انك قلتي في المايك'
'shutdown computer'
Private Sub _Recognizer_SpeechRecognized(sender As Object, e As SpeechRecognizedEventArgs)
Select Case e.Result.Text
Case ".-"
MsgBox("A")
End Select
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_Recognizer.LoadGrammar(New Grammar(New GrammarBuilder(".-")))
'اضافة كلمة'
_Recognizer.RequestRecognizerUpdate()
'كود مهم لتحديث الفئة بعد كل اضافة لكلمة'
_Recognizer.SetInputToDefaultAudioDevice()
'تحديد مصدر الصوت'
AddHandler _Recognizer.SpeechRecognized, AddressOf _Recognizer_SpeechRecognized
'اضافة اجراء يتم استدعائه عندما يتم اطلاق الحدث
_Recognizer.RecognizeAsync(RecognizeMode.Multiple)
'تشغيل قانص الاصوات في مسار اخر لايؤثر على البرنامج
End Sub
End Class
المقصد من الكود ان يقراء الصوت اللي داخل في الجهاز ويترجمه
مثلا
هنا الصوت
الصوت
اذا سمع
كود :
Case ".-"
.-
يترجمه الى
حرف A
وهذه اشارات المورس
كود :
{"a", ".-"}, {"b", "-..."}, {"c", "-.-."}, {"d", "-.."},
{"e", "."}, {"f", "..-."}, {"g", "--."}, {"h", "...."}, {"i", ".."},
{"j", ".---"}, {"k", "-.-"}, {"l", ".-.."}, {"m", "--"}, {"n", "-."},
{"o", "---"}, {"p", ".--."}, {"q", "--.-"}, {"r", ".-."}, {"s", "..."},
{"t", "-"}, {"u", "..-"}, {"v", "...-"}, {"w", ".--"}, {"x", "-..-"},
{"y", "-.--"}, {"z", "--.."}, {"1", ".----"}, {"2", "..---"},
{"3", "...--"}, {"4", "....-"}, {"5", "....."}, {"6", "-...."},
{"7", "--..."}, {"8", "---.."}, {"9", "----."}, {"0", "-----"},
{".", ".-.-.-"}, {"?", "..--.."}, {",", "--..--"}, {"'", ".----."},
{".", ".-.-.-"}, {",", "--..--"}, {"?", "..--.."}, {"/", "-..-."},
{"=", "-...-"}, {"+", ".-.-."}, {"*", "...-."}}
وهذه المكتبه
System.Speech (1).zip (الحجم : 240.04 ك ب / التحميلات : 12)
ان شاءالله احصل الطريقه اللي يقراء ويترجم بارك الله فيكم