انا ممنون لك بما يعجز عنه الكلام

وسبحان الله انا انشاء الله ساستخدم المايكرو نفسه اللذي اشرت اليه اي :
16f877
وان بانتظارك وكلي امل

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

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

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

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

اللهم صلي على خير الانبياء سيدنا محمد عليه افضل الصلاة والسلام

السلام عليكم

قمت بعمل برنامج للمشروع الي طلبته ولكن الضوء جعلته متقطع والصوت كذلك

و البرنامج مكتوب ببروتون

ملاحظة قيمة ال 500 هي قيمة تجريبية يحب التاكد من القيمة الحقيقة بمعايرة قيمة ال analog to digital converter بمقيس حرارة واقعي
البرنامج


'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 2/26/2010 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
Device = 16F877
Xtal 4
Declare Adin_Res 10 ' 10-bit result required
Declare Adin_Tad FRC ' RC OSC chosen
Declare Adin_Stime 50 ' Allow 50us sample time
TRISA.0=1
TRISB=0
Symbol sound_pin = PORTB.0
Symbol LED = PORTB.1
LED =0
　
　
Dim x As Word
Dim limit As Word
'limit=eread 0 ' or any value that is equivilant to 90 C
ADCON1 = %10000000 ' Set analogue input on PORTA.0
limit=500 ' thid an assumbtion that 90C = 100 this number should be calibirated
main:
x=ADIn 0
If x > limit Then
LED =1
DelayMS 1000
Sound sound_pin,[100,100]
'freqout sound_pin, 1000, 2000
Else
LED =0
EndIf
GoTo main
'sound



واللنك به السميوليشن والبرنامج

http://www.4shared.com/file/22982168...8aea/LM35.html

والسلام عليكم

السلام عليكم شكرا على الكود و لكن انت وضعت variable resistance as lm35
ولكن الاخ يريد ان يصل الى ال90 درجة اي 0.90 volt at the outpout of the lm35
لذلك لو ممكن تعدل في الكود و ساكون مشكور جدا

السلام عليكم

أخي المشكلة ما عندي هذه القطعة ونظريا احنا استخدمنا ADC مع 5 فولت كمرجع وعشرة بت من ناحية الدقة للADC
اي حوالي 5 ميلي فولت للدقة

ونظريا تغير الحرارة ييكون بمقدار حوالي 10 ميلي فولت لكل درجة سيليزية
بالتالي يمكن ان تكون قيمة التقريبيه 180 للADC ولكن المشكلة لا اعرف اذا كان هنالك ازاحة
ثانيا مقدار ال 10 ميلي فولت لكل درجة هي متوسط


بناءا على ذلك اقترحت للشاب ان يقوم بالمعايرة مع جهاز اخر عند درجة حرارة 90 ومن ثم يأخذ قراءة الفولت من السنسور إما بالفولت ميتر او ADC ومن ثم يمكن حساب الرقم بدقة

وذلك بقسمة الفولت على الدقة 5 ميلي فولت ( 0.0048828125 فولت)

والسلام عليكم

إذا افترضنا ان القيمة المماثلة ل 90 درجة هي 0.9 فولت بالتالي القيمة المماثلة لها بال ADC هي حوالي 185
بالتالي البرنامج سيكون كالتالي


'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 2/26/2010 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
Device = 16F877
Xtal 4
Declare Adin_Res 10 ' 10-bit result required
Declare Adin_Tad FRC ' RC OSC chosen
Declare Adin_Stime 50 ' Allow 50us sample time
TRISA.0=1
TRISB=0
Symbol sound_pin = PORTB.0
Symbol LED = PORTB.1
LED =0
　
　
Dim x As Word
Dim limit As Word
'limit=eread 0 ' or any value that is equivilant to 90 C
ADCON1 = %10000000 ' Set analogue input on PORTA.0
limit=185 ' thid an assumbtion that 90C = 100 this number should be calibirated
main:
x=ADIn 0
If x > limit Then
LED =1
DelayMS 1000
Sound sound_pin,[100,100]
'freqout sound_pin, 1000, 2000
Else
LED =0
EndIf
GoTo main
'sound



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

http://www.4shared.com/file/23045455...e/LM35new.html

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