تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] التعرف على الصوت باستخدام vb2010
#1
السلام عليكم
اتمنى ان تكونوا بااحسن حال
وكل عام وانتم بخير

انا اشتغل حاليا على مشروع بسيط واجهاته مصممه ببرنامج الفيجوال بيسك مرتبط ببرنامج الفلاش بحيث انه عند النقر على ازارير معينه تفتح لعبة فلاشيه تستقبل صوت المستخدم ويتم التعرف على الصوت للانتقال الى فلاش اخر عن طريق الفيجوال بيسك

فااحتاج واتمنى المساعده الضروريه في طريقة التعرف على الصوت الخارجي من خلال الفيجوال بيسك
و جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
الله يسسعدكم ضروري محتاجه Sad
الرد }}}
تم الشكر بواسطة:
#3
فقط اريد كود فتح المايك لااستقبال الصوت من المستخدم عند الضغط على زر معين
بحيث انه اذا كان الصوت اقل من قيمة معينه تظهر فلاشه معينه و اذا كان اكبر من هذه القيمة تظهر فلاشة اخرى

اريد كود لهذا الغرض والله يعطيكم العافيه
الرد }}}
تم الشكر بواسطة:
#4
اختي نور ..

هل قصدك ان البرنامج يتعرف على صوتك وينفذ الاوامر ؟

مثلا لو قلتين بالمايك shutdown computer ، يقوم البرنامج بإطفاء الكمبيوتر ؟

اذا كان كذلك . فببساطة يمكنك استخدام محرك كشف الاصوات بسهولة

-

كتبت مقالة حول ذلك في المنتدى القديم ولكن للأسف رحل المنتدى Sad

ولم يتبقى سوا المثال الذي قمت بعمله حينها

والمثال مكتوب بالسي شارب

انا اقتبست الاكواد المطلوبة وقمت بتحويلها للفيجوال بيسك :

PHP كود :
Private _Recognizer As New SpeechRecognitionEngine()

Private 
Sub StartButton_Click(sender As ObjectAs EventArgsHandles StartButton.Click
    _Recognizer
.LoadGrammar(New Grammar(New GrammarBuilder("shutdown computer")))
    
'اضافة كلمة'

    
_Recognizer.RequestRecognizerUpdate()
    
'كود مهم لتحديث الفئة بعد كل اضافة لكلمة'

    
_Recognizer.SetInputToDefaultAudioDevice()
    
'تحديد مصدر الصوت'

    
AddHandler _Recognizer.SpeechRecognized AddressOf _Recognizer_SpeechRecognized
    
'اضافة اجراء يتم استدعائه عندما يتم اطلاق الحدث

    _Recognizer.RecognizeAsync(RecognizeMode.Multiple)
    '
تشغيل قانص الاصوات في مسار اخر لايؤثر على البرنامج
End Sub




'سيتم الدخول للإجراء ادناه لو انك قلتي في المايك'
'shutdown computer'
Private Sub _Recognizer_SpeechRecognized(sender As ObjectAs SpeechRecognizedEventArgs)
    
Select Case e.Result.Text
        
Case "shutdown computer"
        'اكتبي هنا الكود الذي سيقوم بإطفاء الكومبيوتر'
    
End Select
End Sub 


في المرفقات ستجدين مثال يقوم ب (تشغيل الحاسبة من خلال امر صوتي)

والامر هو ان تقولي (open calculator) وسيقوم البرنامج بفتحها

تحياتي


الملفات المرفقة
.zip   Speech Recongizer vb4arb.zip (الحجم : 65.08 ك ب / التحميلات : 446)
الرد }}}
تم الشكر بواسطة: aftfm , @@أبورائد@@ , noor , sooriaty03 , Sajad , dubai.eig , dubai.eig
#5
الف شكر اخي الشاكي لله

لكن الكود المكتوب بعد وضعة في مثال vb.net 2008
ظهرت بعض الاخطاء في السطر

Private _Recognizer As New SpeechRecognitionEngine()


Private Sub _Recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)


_Recognizer.LoadGrammar(New Grammar(New Grammar Builder("shutdown computer")))


_Recognizer.RecognizeAsync(RecognizeMode.Multiple)

ارجوا التوضيح

هذا مثال للكود الذي وضعته

ممكن تعدل عليه


الملفات المرفقة
.rar   AudioSelect.rar (الحجم : 24.37 ك ب / التحميلات : 233)
الرد }}}
تم الشكر بواسطة:
#6
(12-10-13, 09:48 PM)aftfm كتب : الف شكر اخي الشاكي لله

لكن الكود المكتوب بعد وضعة في مثال vb.net 2008
ظهرت بعض الاخطاء في السطر

Private _Recognizer As New SpeechRecognitionEngine()


Private Sub _Recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)


_Recognizer.LoadGrammar(New Grammar(New Grammar Builder("shutdown computer")))


_Recognizer.RecognizeAsync(RecognizeMode.Multiple)

ارجوا التوضيح

هذا مثال للكود الذي وضعته

ممكن تعدل عليه

اه

نسيت اقول عليك بإضافة مكتبة System.speech الى References من خلال
Project > Add References

ثم اضافة مجال الاسماء :

PHP كود :
Imports System.Speech.Recognition 
الرد }}}
تم الشكر بواسطة: aftfm , @@أبورائد@@
#7
جزاك الله الف خير

بعد اضافة المكتبة واضافة مجال الاسماء

وبعد التشغيل والضغط على ازرار StartButton
ظهرت رسالة في كود اضافة كلمة
_Recognizer.LoadGrammar(New Grammar(New GrammarBuilder("shutdown computer")))
الرسالة
No recognizer is installed.

ما معنى هذه الرسالة
الرد }}}
تم الشكر بواسطة: @@أبورائد@@ , noor
#8
(12-10-13, 10:28 PM)aftfm كتب : جزاك الله الف خير

بعد اضافة المكتبة واضافة مجال الاسماء

وبعد التشغيل والضغط على ازرار StartButton
ظهرت رسالة في كود اضافة كلمة
_Recognizer.LoadGrammar(New Grammar(New GrammarBuilder("shutdown computer")))
الرسالة
No recognizer is installed.

ما معنى هذه الرسالة

هل المثال الذي ارفقته يعمل معك ؟

بحثت عن المشكلة

يقولون ان بعض نسخ الوندوز لايتوفر معها كاشف الاصوات

المفروض ان وندوز فيستا وما فوقه يكون مدمج معاه كاشف الاصوات (هم سووه عشان المعاقين)

بس اذا كان غير مرفق اعتقد عليك تنزيل الsdk التال وتقوم بتنصيبه

التحميل هنا
الرد }}}
تم الشكر بواسطة: @@أبورائد@@
#9
جزاك الله خير اخي وكثر من امثالك

نعم اريد ان يتعرف الكمبيوتر على الصوت بااستخدام الفيجوال بيسك ولكن
اولا :
اريد ان يتخذ البرنامج اجراء معين اثناء دخول الصوت في نفس البرنامج مثل اظهار لعبة فلاشيه مرتبطه بالبرنامج وليس خارجه مثل اطفاء الجهاز
ثانيا :
برنامجي ليس تعرف على كلمات مثل ان يتعرف على جملة shutdown computer وحينها يقوم بالاطفاء ولكن عباره عن ادخال صوت عادي ليرى مستوى الصوت بحيث انه اذا كان اقل من قيمة معينه تظهر لعبة فلاشية معينه و اذا كان اكبر من هذه القيمة تظهر فلاشة اخرى

هكذا
عند الضغط على زر ابدأ يدخل المستخدم صوته
اذا كان مستوى الصوت اقل مثلا من 1000 تبقى هذه الفلاشة التي تتحرك فيها سياره واحدة

[img]http://im40.gulfup.com/cbj0P.jpg"> [/img]

واذا كان اكبر من 1000 تظهر فلاشة اخرى تتحرك فيها سيارتان تتسابقان



وجزاكم الله خير اخواني
الرد }}}
تم الشكر بواسطة:
#10
بكل بساطة:
PHP كود :
Private Sub StartButton_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles StartButton.Click
        recognizer 
= New SpeechRecognitionEngine
        recognizer
.LoadGrammar(New Grammar(New GrammarBuilder("just nothing")))

        
AddHandler recognizer.AudioLevelUpdatedAddressOf recognizer_AudioLevelUpdated

        recognizer
.SetInputToDefaultAudioDevice()
        
recognizer.RecognizeAsync(RecognizeMode.Multiple)
    
End Sub
    
Private Sub recognizer_AudioLevelUpdated(ByVal sender As ObjectByVal e As AudioLevelUpdatedEventArgs)
        If 
e.AudioLevel 50 Then
            MessageBox
.Show("درجة الصوت اعلى من 50")
        
End If
    
End Sub 
الرد }}}
تم الشكر بواسطة: Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
  طلب مساعدة في حفظ قالب للبصمة باستخدام جهاز SecuGen u20 assuhimi 5 696 15-05-23, 10:26 AM
آخر رد: assuhimi
Video تحويل الصوت الى نص vb.net Basil Abdallah 3 655 17-02-23, 01:40 AM
آخر رد: Basil Abdallah
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 10 5,827 20-12-22, 10:21 PM
آخر رد: احمد السعدنى
  قراءة البريد الالكتروني باستخدام الفيجوال بازيك صبري زينوبي 0 378 24-08-22, 05:47 PM
آخر رد: صبري زينوبي
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 14 11,991 25-07-22, 07:48 PM
آخر رد: عبد الجليل سراج
Star مطلوب رابط بنامج VB2010 لو سمحتم أبو خالد الشكري 10 1,155 14-07-22, 06:22 AM
آخر رد: سعود
  تصدير بيانات datagridview الى ايكسيل باستخدام فيجوال ستوديو 2005 bassant 2 1,218 13-03-22, 06:34 PM
آخر رد: Taha Okla
  مشكلة في تحويل الصوت mohmmadadli 1 1,194 10-03-22, 12:41 AM
آخر رد: asmarsou

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم