[dubai.eig]

السلام عليكم ورحمة الله


يسعد الله اوقاتكم


من فترة كتبت موضوع بس ما حصلت طريقه له
هنا
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 ك ب / التحميلات : 19)


ان شاءالله احصل الطريقه اللي يقراء ويترجم بارك الله فيكم