انا وبكاء طفلتي الصغيرة !

الفكرة ثاقبة بصراحة وفي انتظار ان تكمل بقية المشروع

جزاك الله خير على مواضيعك المميزة جداً ولا غرابة على أهل اليمن الطيبين وكل العرب المسلمين وكان عندي فكرة شبيهه بهذا الامر ولكن عبر الكاميرا والمراقبة عن بعد الله يوفق وبانتظارك يا اخ رغيد

موضوع رائع

ههههههههههههههههههههه :P :) :lol:

كل الشكر والتحية للطفلة الصغيرة التى كانت سببا فى طرح مثل هذا الموضوع الرئع

قبلاتى لها

بالمناسبة انا كمان عندى بنت اختى خديجة ديما بتبكى وتسهر طول الليل

لكن للاسف البرنامج زى دة مش هينفع معاها خالص

لان اصلا ديما بكائها بيكون من اجل تحقيق مطالبها الشخصية مثل الحصول على الشكولاتة والحلوى ......... الخ :lol:

ألف مبروك أستاذنا الحبيب رغيد الطيب على المولودة

ربنا يبارك لك فيها و يرزقك الذرية الصالحة بنين و بنات حتى يمتليء المنتدى

بهذه المواضيع الجميلة. إن شاء الله المولود القادم يكون ولد علشان يكونو

برنامجين. البنت برنامج و الولد برنامجين. :happy:

ههههههههههههههههه

حلو أوي الموضوع دا

ننتظر التكملة يا أخي الكريم

الله يعينك ويوفقك ويباركلك في بنوتك الحلوة

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

ننتقل الان بعون الله تعالى بعد ان اخذنا فكرة عامة لما نحن مقدمون عليه الى مسئلة ادخال الصوت !....

لكي يقوم الكمبيوتر بقراءة الصوت من الميكرفون انت بحاجة للخروج عن الدوت نت قليلا .. لانه لايوجد في الدوت نت مسجل للصوت (على الرغم من انه يوجد فيها مشغل SoundPlayer

) إلا انه وحتى الان لا يوجد مسجل اصوات ضمنيا فيها ولهذا يمكن اللجوء الى عدة خيارات مثل DirectSound او دوال الادخال والاخراج في الـ APIs.

على العموم لتسهيل المهمة قمت بعمل مكتبة صغيرة على السريع تعتمد على الدايركت اكس لنستخدمها في برنامجنا (المكتبة غير مسقرة بعد وغير مجربة بالشكل جيد) غير انها

ستفي بالغرض بإذن الله تعالى.

اسميتها rtaSoundRecorder ... تجدها مرفقة مع البرنامج المرفق بإسم rtaSoundLibrary.dll

المهم في الموضوع ان هذه الآداه يمكن تعريفها بالشكل التالي :

    Private WithEvents Snd As New rtaSoundsLibrary.rtaSoundRecorder

وبهذا يكون لدينا متغير اسمه Snd يمكن استخدامه لقراءة الاصوات من الميكروفون عن طريق الامر Record كالتالي :

Snd.Record( Me.Handle, 1, 8, 8000 )

في السطر السابق قمنا باستدعاء امر التسجيل ومررنا له عنوان الفورم ثم الرقم 1 من اجل قنوات الصوت Channels والرقم 8 ويعني 8 بت (أي بايت واحد) والرقم 8000 ويعني تردد

التسجيل.

كل هذه الارقام تمثل جودة الصوت الذي سيتم ارجاعه لنا ويمكن تغيرها لكن لاتقم بذلك في هذا البرنامج لانها اكثر من كافية ... حيث اننا لا نريد تسجيل الصوت بدقة عالية وانما نريد

فقط استشعار صراخ الطفلة.

ولأننا طلبنا ان تكون البيانات المسجلة بطول 8 بت (بايت واحد) فان الراجع لنا سيكون على شكل مصفوفة من البايتات في الحدث SoundRecorded

    Private Sub Snd_SoundRecoreded(ByVal Sender As Object, ByVal SoundData() As Byte) Handles Snd.SoundRecoreded

    End Sub

لاحظ ان المصفوفة SoundData تحتوي على جميع قيم الصوت المرجعة لنا.

ومثلا لمعرفة اكبر قيمة صوت يمكن استخدام الكود التالي:

Dim MaxValue As Integer = SoundData.Max

وبهذا يكون لدينا المتغير MaxValue والذي فيه اكبر قيمة للصوت المقرؤء لحظيا.

ملاحظة مهمة:

القيم ستكون محصورة في حدود البايت الواحد ... اي من صفر الى 255 ولان القيمة 128 هي المنتصف فالقيمة ستكون محصورة غالبا بين:

128 و 255 ... بحيث ان 128 يرمز الى عدم وجود صوت و 255 ترمز الى اعلى صوت.

دعنا مثلا نعرض الصوت الحالي في Label1 ... سيصبح كود برنامجنا كاملا كالتالي :

Public Class Form1

    Private WithEvents Snd As New rtaSoundsLibrary.rtaSoundRecorder

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Snd.Record(Me.Handle, 1, 8, 8000)
    End Sub

    Private Sub Snd_SoundRecoreded(ByVal Sender As Object, ByVal SoundData() As Byte) Handles Snd.SoundRecoreded
        Dim Max As Integer = SoundData.Max
        Me.Label1.Text = Max - 128
    End Sub

End Class

لاحظ ان هذا هو كل مايلزمنا لقراءة الصوت ورؤية اكبر قيمة له في الفورم وتحديدا في Label1 ...

وقد تكون القيم من 128 الى 255 مربكة بعض الشيء ومن الجميل تحويلها الى نسب مئوية بين الصفر و 100%وذلك عن طريق التعديل التالي :

Public Class Form1

    Private WithEvents Snd As New rtaSoundsLibrary.rtaSoundRecorder

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Snd.Record(Me.Handle, 1, 8, 8000)
    End Sub

    Private Sub Snd_SoundRecoreded(ByVal Sender As Object, ByVal SoundData() As Byte) Handles Snd.SoundRecoreded
        Dim Max As Integer = SoundData.Max
        Dim Value As Integer = Math.Round((Max - 128) / 127 * 100)

        Me.Label1.Text = Value.ToString & " %"
    End Sub

End Class

الى هنا نكون قد انتهينا من ادخال الصوت الى الكمبيوتر بكل سهولة بحمد الله تعالى

ويمكن الاطلاع على المل المرفق.

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

rtaSoundInputTest.zip

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

تحياتي

السلام عليكم

rtaSoundsBars.zip

بارك الله فيك على هكذا موضوع , معك لآخر نفس. :lol:

بسم الله السميع العليم

المرحلة الثانية - تحليل الصوت

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

لكي نقوم بذلك قمت بتصميم فئة بسيطة CryDetector تقوم بتغليف الاداة السابقة rtaSoundLibrary لتسجيل الصوت وتعرفها بهذا الشكل :

    Private WithEvents Detector As New CryDetector(Me)

لاحظ اننا قمنا هنا بتعريف متغير جديد باسم Detector من نوع الفئة الجديدة CryDetector

وهذه الفئة الجديدة فيها خاصيتين مهمتين هما الخاصية CryLevel وتفيد بتحديد القيمة التي سيعتبر اي صوت اعلى منها هو (بكاء للطفلة الصغيرة) بحيث يمكنك ان تضبط الخاصية كما تشاء (وبحسب إزعاج طفلك الصغير) .... والقيمة تتراوح من 0 الى 100 يعني كمثال تجريبي نقول ان كل صوت يتعدى الـخمسة عشر بالمائة عبارة عن بكاء بالشكل التالي :

Detector = New CryDetector(Me)

Detector.CryLevel = 15
Detector.Start()

وهذا الكود ينشى كائن جديد من النوع CryDetector ويطلق عليه الاسم Detector ثم يحدد حساسية البرنامج الى الدرجة 15 بالمئة واخيرا يبداء بالاستماع الى الاصوات عن طريق الامر Start.

والان في اي وقت يتجاوز الصوت 15 بالمئة سوف يتفجر حدث اسمه CryStart وعندما يتوقف البكاء او يهدأ سوف يتفجر الحدث CryStop.

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

الخاصية الثانية بإسم IsCrying وهي تعيد True اذا كان الطفل يبكي و False في الحالة الاخرى(حالة نومه).

ملاحظة مهمة

هذا الجزء من معالجة البيانات يقوم فقد بتحسس الصوت الكبير (الذي يتجاوز القيمة التي تحددها في الخاصية CryLevel) ثم يفجر الاحداث على اساسه .... وهذه الطريقة مجرد مدخل وتحتوي على عيب خطير جدا سنناقشه في الجزء الثاني من تحليل بيانات الصوت بإذن الله تعالى.

في المرفقات

صورتين للبرنامج واحدة عند البكاء و الاخرى عند النوم

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

تحياتي

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

rtaBabyCryingDetector.zip

بسم الله الرحمن الرحيم

والان بعد انتهينا من الجزء الأول من تحليل البيانات والوصول لتفجير الحدث CryStart عند بكاء الطفلة ..... سنجد عيبا خطيرا كنت قد اشرت عليه في ملاحظتي بآخر المشاركة الاخيرة.

وهذا العيب يكمن في ان البرنامج يقوم بمراقبة ترددات الصوت وبمجرد وصولها الى اعلى من الخاصية CryLevel التي تحدد مستوى التحذير ... فإن البرنامج يسوف يعتبر ان هذا بكاء ينبغي التحذير منه ... وهو تصرف غير صحيح ... بسبب الاصوات العابرة.

مثل بكاء قصير لثلاث ثواني مثلا .. او تخيل معي ان احدهم قام بفتح باب الغرفة مصدرا صوت فرقعة بسيط من جراء ارتطام الباب ... فبرنامجنا بحالته هذه سيعتبر ان هذا امرا ينبغي التحذير عنده خاصة اذا تجاوز الصوت 15 بالمئة كما جاء في مثالنا السابق.

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

غير اني هنا سا استخدم طريقة مستوحاه من حكم مصرية قديمة.

اضافة النهكة المصرية لبرنامجنا.

يقول اخوتنا المصريون ( من فات قديمه تاه ) .... كما يقولون ايضا ( اللي مالوش ماضي مالوش مستقبل ) .... وهي اقوال صحيحة الى حد كبير.

ولكي تعرف ما علاقة هذه الامثال ببكاء طفلتنا الصغيرة !! .. ينبغي علينا استغلال الماضي قليلا لنستمتع بحاضرنا ...

دعوات للتأمل ....

كثير من الناس قد يفتح الحنفية ويشرب الماء وهو يلعن هذا الزمن الذي لا يوجد فيه راحة وكله تعب و و و و .... بينما لو تذكر اخينا هذا انه لم يكن من قبل هناك حنفيات في منازلنا وكان ينبغي الذهاب الى البئر في كل مرة نريد ان نشرب فيها لقال الحمد لله واستمتع بحاضره.

اصبحت اجلس في مكتبي الصغير في منزلي وادير راسي باتجاه التلفاز ممسكا بالريموت كونترول واختار القناة التي تروقني ثم اواصل تصفحي في الكمبيوتر لموقع موجود في اقصى الارض وانهل منه المعلومات التي اريدها بينما اكلم اخي الموجود على بعد كيلومترات خارج المنزل بالهاتف الجوال و ازيد من درجة برودة الغرفة بالريموت كونترول ايضاً دون ان اضطر للقيام لهناك ..... ولو حسبت كم اماكن وصلت اليها دون ان تقوم من كرسيك لأصابك الذهول !!! ... لم يكن في الماضي من يجروء او يستطيع مجرد التخيل لهكذا امور ... بينما تمر علينا مرور الكرام ولا اذكر ابدا انني حمدت الله مرة على مجرد كوني قادرا على ان اتصل بمن اريد واكلمه اينما كان على وجه البسيطة .... هل تعلم ان ابي وابوك فقط وفي زمن ليس بالبعيد اذا ذهب احدهم لزيارة الآخر ولم يجده واخبروه بانه خرج من المنزل !! .... فلاتوجد اي قوة في العالم يمكنها ان تجمعهم حتى يعود الى البيت ثانية حتى وإن كان قد ذهب الى المكتبة المجاورة في ركن الشارع لشراء جريدة ما مثلا ... ولا يمكن ان يلتقوا وربما فوتوا لقائهم المنتظر فقط لانه لم يكن هناك اساليب اتصال حديثة ... والخارج من البيت مفقود حتى يعود بحفظ الله .... وكم قد تفطرت اكباد امهات ينتظرن ابناءهم الذين تأخروا خارج البيت لوقت متأخر لكتشف الام بعدها ان الابن كان سهران عند احد اصدقاءه هنا او هناك .... بينما بكل سهولة في هذه الايام يمكن ان يرفع احدهم سماعة هاتفه ويصل اليه ويعرف اين هو في ثواني.

فإذا لم تقل الحمد لله من قبل فقلها الآن إذ أن ربك يقول :

{ اعْمَلُوا آلَ دَاوُودَ شُكْرًا وَقَلِيلٌ مِّنْ عِبَادِيَ الشَّكُورُ }

جعلني الله واياك من الشاكرين

كعادتي اتفلسلف كثيرا واخرج عن الموضوع الاساسي ... اقدم اعتذراتي عن التشتيت ....

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

الحالة الاولى - (ضجيج بعد هدوء)

وهي ان يكون تردد الصوت الان مرتفع (حاضر) بينما التردد السابق منخفض (ماضي) فإن هذا يعني ان الصوت بدأ اي بداية بكاء ولكن في نفس الوقت قد يكون تكون فرقعة باب مثلا او ماشابه ....

الحالة الثانية - (ضجيج بعد ضجيج)

وهي ان يكون التردد الان مرتفع (حاضر) بينما التردد السابق كان مرتفعا ايضا(ماضي) فإن هذا يعني ان الصوت هو ضجيج مستمر وبالتالي فات الامر هنا اقرب الى بكاء الطفل وقد نرغب حينها في إعلام الأم بذلك ....

الحالة الثالثة - (هدوء بعد ضجيج)

وهي ان يكون التردد الان منخفض (حاضر) بينما التردد السابق مرتفع (ماضي) فإن هذا يعني ان الضجيج انتهاء وهدءت الامور.

الحالة الأخيرة (هدوء بعد هدوء)

وهي احب الحالات الى قلبي والتي تعني ان الطفلة نائمة بهدوء ولا يوجد اي ضجيج في جوار.

في الحالات السابقة نرى بوضوح ان الماضي والحاضر مرتبطان ويمكن بدراستهما الخروج بمعلومات مفيده ... والذي يهمنا هنا هو الحالة الثانية (ضجيج بعد ضجيج) ... ومعناها .. البكاء المتواصل...

للإستفادة من ذلك في برنامجنا قمت بإضافه متغير جديد الى اليه بإسم History يقوم بتخزين قيم الصوت الأخيرة في مصفوفة ثم يستخرج متوسط (معدل Average) الصوت فإذا تجاوز الـ 15 بالمئة وهي قيمة الخاصية CryLevel فانه يتم التحذير.

لمساعدتك على استيعاب الفكرة ... تخيل معي ان المتغير History يخزن القيم العشر الاخيرة للصوت ... وبالتالي ... لندرس الحالات التالية: :

الحالة الاولى

تخيل ان تكون القيم العشر تساوي صفرا اي انه لايوجد صوت (هدوء بعد هدوء).... ثم فجاءة يفتح احدهم الباب فيرتفع مستوى الصوت الى 70 بالمئة مثلا لتمثيل الضجيج الحاصل من صوت الباب (ضجيج بعد هدوء) .... اذا حصل ذلك في برنامجنا الاول فانه سوف يفجر الحدث CryStart وسيعتبر ان الطفل يبكي ويجب تحذير الام.... بينما في برنامجنا الان بعد الاضافة الاخيرة سيقوم البرنامج بجمع القيم العشر الموجودة في المتغير History وهي عبارة عن القيمة الاخيرة 70 والتسع الباقيات صفر ... وبالتالي فالمجموع هو :

70 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0 -------> = 70

وبالتالي فأن المتوسط هو :

70 / 10 = 7

حين نقسم المجموع (70) على عدد القيم المخزنه وهي عشر فالناتج عندها هو 7 بالمئة اي اقل من 15 بالمئة فلايوجد داعي للتحذير.

تخيل ان الصوت في اللحظة التي تليها استمر 70 مرة اخرى (ضجيج بعد ضجيج) فأن هذا يعني ان القيميتن الاخيرتين هما 70 بينما الثمان القيم الباقية 0 و بالتالي فالمجموع هو 140 والمتوسط 14 (بالقسمة على عشرة) وهو ايضا دون المستوى 15 ولا يحتاج الى تحذير.

بينما لو استمر الامر كما هو وجائت القيمة التي تليها ايضا 70 او لنقل 50 مثلا (ايا تردد كان) ... (ضجيج بعد ضجيج ) فانه سيكون لدينا ثلاث قيم 70 و 70 و 50 و البقية اصفار ... فالمجموع عندها 190 والمتوسط 19 بالمئة اي يفوق الـ 15 بالمئة وعندها يتوجب تحذير الأم لان الصوت قد استمر فترة طويلة نسبيا.

لهذا ينبغي الان التركيز على انه وعلى الرغم من ان الصوت الحالي في حالتنا الاولى كان 70 إلا ان المتوسط هو 7 فقط وفي حالتنا الثانية كانت القيمة الحالية 70 و المتوسط 14 واما في الاخيرة فالقيمة الحالية كانت 50 بينما المتوسط 19 ... وما اريد قوله هو انه وعند اي لحظة زمنية اصبح لدينا قيمتان (قيمة الصوت الحالية ) و (قيمة الصوت المتوسطة) ... ولهذا الغرض فقد اضفت الخاصية AverageValue الى الفئة CryDetector كي نستخدمها لمعرفة موسط الصوت عند اي لحظة .... ويجد الذكر بانني جعلت البرنامج يحفظ آخر خمسين عينة للصوت ويوجد المتوسط لها ... وليس العشر الاخيرة كما جاء للتوضيح فقط منذ قليل.

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

واتركم الان مع البرنامج المعدل ... و الذي انهينا فيه تحليل الصوت ... و سننتقل في الجزء القادم الى قسم التبيهات وإبلاغ الام بما قمنا بتحليله هنا.

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

rtaBabyCryingDetector.zip

دائما راعي الأولة يا استاذ رغيد

رائع جداً واحنا بانتظار فقرة التنبيه للام

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

جزاك الله كل خير..

في انتظار المتابعة..

سلمت يداك اخي

الله اخليكم لبعض

وبارك الله فيك