smart_storm
27-01-2006, 11:13 AM
بسم الله الرحمان الرحيم
هذه الدائرة عبارة عن جهاز لقياس عدد نبضات القلب بالطريقة الضوئية باستخدام الكمبيوتر
طريقة العمل :
1. اولا وكما هو موضح في الدائرة تتم عملية قياس او عد نبضات القلب بوضع الاصبع السبابة
يفضل السبابة ولكن ممكن أي اصبع اخر المهم المبدأ هو ان المقاومة الضوئية LDR تتغير
بتغير شدة الاستضاءة
اذا وكما نعلم ان معدل سريان الدم في الاصبع يتغير وبذلك لو وضع الاصبع بين المقاومة
الضوئية ومصدر ضوء قوي ومباشر في عدم وجود اضواء اضافية لتفادي الخطا والتشويش
اذا المقاومة الضوئية ستتغير تبعا لتغير او لجريان الدم ومقدار الجهد الناتج من الجزء الخاص
بالمقاومة الضوئية والمكون من R1)يفضل ان تكون متغيرة للحصول علي افضل النتائج ( يعتبر حمل و R2 هي المقاومة وهذا مايسمي ب
Voltage divider circuit او مقسم الجهد اذا الخرج سيكون ضعيف جدا وبالتالي سيحتاج لعملية تكبير والدائرة مكونة من مرحلتي تكبير two amplifier stages وهما IC وIC2
يبقي IC3 يقوم بعملية TRIGER ويربط المنفذ المتوالي SERIAL PORT
في حديثنا تكلمنا عن المقاومة الضوئية والربط بالسيريل لذلك سنوضح طريقة عمل المقاومة الضوئية ونتكلم عن كيفية استقبال الاشارة باستخدام الكمبيوتر عن طريق الفيجوال بيسك
http://www.gr8.cc/2/xmwtlh.jpg
2. المقاومة الضوئية LDRLDR(Light Dependent Resistors) وهي مقاومة تعتمد علي التغير في الضوء
أي ان مقاومتها تتغير بتغير شدة الاستضاءة
مقاومة هذا العنصر تتعلق بكمية الضوء المسلط عليه . المسار الذي يظهر في واجهة هذا العنصر هو طبقة من مادة كادميوم- سلفايد ( CDS Cadmium Sulphide ) . من كل جانب هناك طبقة معدنية موصولة إلى أسلاك التوصيل ( قم بوصل مقياس أوم ولاحظ تغير قيمة المقاومة عند تغير شدة الضوء الساقط على المادة الحساسة للضوء ) .
والاشكال التالية توضح المقاومة
http://www.gr8.cc/2/tktbty.jpg
http://www.gr8.cc/2/ldr.jpg
3. والان ناتي للقسم الشيق وهو عملية INTERFACE سنستخدم الفيجوال بيسك
البرنامج ببساطه عبارة عن FORM به عدد 2 LABEL الاول لكتابة توضيح مثل "عدد نبضات القلب في الدقيقة" والثاني لعرض عدد النبضات
وسنحتاج الي الاداة MSCOMM الموجودة اصلا في الفيجوال بيسك وطريقة وضعها في البرنامج كالتالي
نضغط بالزر الايمن في مكان علي مربع الادوات ونختار من القائمة COMPONENTS ثم نبحث عن الاداة والتي اسمها MICROSOFT COMM CONTROL وايقونتها تشبه التليفون نضغط عليها مرتين لتتم اضافتها
ونحتاج ايضا لاداة التايمر ونضع في قيمتها 1500 واليكم البرنامج
Dim Counter As Variant
Private Sub Form_Load( )
MSComm1.PortOpen = True
Label1.Caption = 0
End Sub
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent =comEvCTS) Then
Counter = Counter + 1
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Counter * 2
Counter = 0
End Sub
في السطر الاول عرفنا متغير باسم COUNTER لتوضع فيه عدد النبضات
ثم فتحنا منفذ السيريل ووضعنا القيمة 0 لنبدا بها
جملة IF عبارة عن روتين صغير ينتظر كل تحول في رجل ال CTS ويضيف 1 للمتغير counter كلما تحسس تحول transition اذا كل 15 ثانية يقوم الجزء الخاص بالتايمر بمضاعفة قيمة الcounter ويصفر من جديد لاستقبال قراءة
ادا النظام يقرا نبضتين كل دقيقة يمكن جعلها نبضة بتغيير القيمة في التايمر الي 30000
والشكل الاتي يوضح البرنامج في وضعية العمل runtime
http://www.gr8.cc/2/ppvfzf.jpg
وبهذا اكون انهيت الشرح راجيا من الله ان تكونو استفدو ولو قليلا
ايضا امل ممن ينفذ الدائرة ممن لديهم مشاريع تخرج مثلا ان يخبرنا لانني بصراحة
حاولت مرة التنفيذ وفشلت لا اعلم ولكن ربما الخطا في التوصيل او عدم ايجاد القطع الاصلية
اخيرا المشروع عبارة عن ترجمة يشكل جزئي لدائرة موجودة في باب INTERFACE
في عدد اغسطس 2003 من مجلة الالكترونات المتخصصة EPE اضفت له شرح مبسط للمقاومة الضوئية ايضا يوجد في عدد اخر نسخة مطورة من المشروع باستخدام LCD يعرض مخطط لنبضات القلب
شكرا لقرائتكم للموضوع ولا تنسونا من دعوة صالحة
هذه الدائرة عبارة عن جهاز لقياس عدد نبضات القلب بالطريقة الضوئية باستخدام الكمبيوتر
طريقة العمل :
1. اولا وكما هو موضح في الدائرة تتم عملية قياس او عد نبضات القلب بوضع الاصبع السبابة
يفضل السبابة ولكن ممكن أي اصبع اخر المهم المبدأ هو ان المقاومة الضوئية LDR تتغير
بتغير شدة الاستضاءة
اذا وكما نعلم ان معدل سريان الدم في الاصبع يتغير وبذلك لو وضع الاصبع بين المقاومة
الضوئية ومصدر ضوء قوي ومباشر في عدم وجود اضواء اضافية لتفادي الخطا والتشويش
اذا المقاومة الضوئية ستتغير تبعا لتغير او لجريان الدم ومقدار الجهد الناتج من الجزء الخاص
بالمقاومة الضوئية والمكون من R1)يفضل ان تكون متغيرة للحصول علي افضل النتائج ( يعتبر حمل و R2 هي المقاومة وهذا مايسمي ب
Voltage divider circuit او مقسم الجهد اذا الخرج سيكون ضعيف جدا وبالتالي سيحتاج لعملية تكبير والدائرة مكونة من مرحلتي تكبير two amplifier stages وهما IC وIC2
يبقي IC3 يقوم بعملية TRIGER ويربط المنفذ المتوالي SERIAL PORT
في حديثنا تكلمنا عن المقاومة الضوئية والربط بالسيريل لذلك سنوضح طريقة عمل المقاومة الضوئية ونتكلم عن كيفية استقبال الاشارة باستخدام الكمبيوتر عن طريق الفيجوال بيسك
http://www.gr8.cc/2/xmwtlh.jpg
2. المقاومة الضوئية LDRLDR(Light Dependent Resistors) وهي مقاومة تعتمد علي التغير في الضوء
أي ان مقاومتها تتغير بتغير شدة الاستضاءة
مقاومة هذا العنصر تتعلق بكمية الضوء المسلط عليه . المسار الذي يظهر في واجهة هذا العنصر هو طبقة من مادة كادميوم- سلفايد ( CDS Cadmium Sulphide ) . من كل جانب هناك طبقة معدنية موصولة إلى أسلاك التوصيل ( قم بوصل مقياس أوم ولاحظ تغير قيمة المقاومة عند تغير شدة الضوء الساقط على المادة الحساسة للضوء ) .
والاشكال التالية توضح المقاومة
http://www.gr8.cc/2/tktbty.jpg
http://www.gr8.cc/2/ldr.jpg
3. والان ناتي للقسم الشيق وهو عملية INTERFACE سنستخدم الفيجوال بيسك
البرنامج ببساطه عبارة عن FORM به عدد 2 LABEL الاول لكتابة توضيح مثل "عدد نبضات القلب في الدقيقة" والثاني لعرض عدد النبضات
وسنحتاج الي الاداة MSCOMM الموجودة اصلا في الفيجوال بيسك وطريقة وضعها في البرنامج كالتالي
نضغط بالزر الايمن في مكان علي مربع الادوات ونختار من القائمة COMPONENTS ثم نبحث عن الاداة والتي اسمها MICROSOFT COMM CONTROL وايقونتها تشبه التليفون نضغط عليها مرتين لتتم اضافتها
ونحتاج ايضا لاداة التايمر ونضع في قيمتها 1500 واليكم البرنامج
Dim Counter As Variant
Private Sub Form_Load( )
MSComm1.PortOpen = True
Label1.Caption = 0
End Sub
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent =comEvCTS) Then
Counter = Counter + 1
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Counter * 2
Counter = 0
End Sub
في السطر الاول عرفنا متغير باسم COUNTER لتوضع فيه عدد النبضات
ثم فتحنا منفذ السيريل ووضعنا القيمة 0 لنبدا بها
جملة IF عبارة عن روتين صغير ينتظر كل تحول في رجل ال CTS ويضيف 1 للمتغير counter كلما تحسس تحول transition اذا كل 15 ثانية يقوم الجزء الخاص بالتايمر بمضاعفة قيمة الcounter ويصفر من جديد لاستقبال قراءة
ادا النظام يقرا نبضتين كل دقيقة يمكن جعلها نبضة بتغيير القيمة في التايمر الي 30000
والشكل الاتي يوضح البرنامج في وضعية العمل runtime
http://www.gr8.cc/2/ppvfzf.jpg
وبهذا اكون انهيت الشرح راجيا من الله ان تكونو استفدو ولو قليلا
ايضا امل ممن ينفذ الدائرة ممن لديهم مشاريع تخرج مثلا ان يخبرنا لانني بصراحة
حاولت مرة التنفيذ وفشلت لا اعلم ولكن ربما الخطا في التوصيل او عدم ايجاد القطع الاصلية
اخيرا المشروع عبارة عن ترجمة يشكل جزئي لدائرة موجودة في باب INTERFACE
في عدد اغسطس 2003 من مجلة الالكترونات المتخصصة EPE اضفت له شرح مبسط للمقاومة الضوئية ايضا يوجد في عدد اخر نسخة مطورة من المشروع باستخدام LCD يعرض مخطط لنبضات القلب
شكرا لقرائتكم للموضوع ولا تنسونا من دعوة صالحة