المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : مشروع ترموستات بالسفن سجما


احمدابوالمعاطى
02-24-2011, 04:27 AM
مشروع كامل للترموستات

من 0 الى 99 درجه

باستخدام حساس lm34

وميكروكونترول pic16f877a


وشاشة عرض سفن سجما

لضبط درجة الحراره المطلوبه

يتم ضغط المفتاح (p1)


(+) للزياده


او

(-) للتقليل


لقراءة درجة الحراره


يحرر المفتاح (p1)


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



http://www.dbaasco.com/vb/imgcache/335.png[/URL]



البرنامج من هنا




http://ifile.it/czm37ya

مرجع
http://filaty.com/f/1103/40315/counter-7-segment.rar.html

eng_a_sayed
02-24-2011, 05:18 PM
مشروع رائع يدل على الخبرة الكبيرة

جزاك الله كل خير أستاذ أحمد

وياسلام لو ترفق لنا ملف البرمجة سواء بالاسمبلى أو بالسى

تحياتى

سعيد قادر
02-24-2011, 11:00 PM
جزاك الله كل الخير وياريت تكمل جميلك وتشرح الكود

احمدابوالمعاطى
02-25-2011, 02:19 AM
مشروع رائع يدل على الخبرة الكبيرة

جزاك الله كل خير أستاذ أحمد

وياسلام لو ترفق لنا ملف البرمجة سواء بالاسمبلى أو بالسى

تحياتى

شكرا يا هندسه وماذا نحن بجواركم

احمدابوالمعاطى
02-25-2011, 02:24 AM
جزاك الله كل الخير وياريت تكمل جميلك وتشرح الكود

شكرا اخى والكود قريبا

مع شرح وافى

احمدابوالمعاطى
02-25-2011, 02:28 AM
باذن الله سوف ارفع الكود قريبا

وهو بلغة السى

الان احاول القيام بعمل اضافه للكود

بحيث يتم حفظ درجة الحراره المطلوبه

فى الذاكره الداخليه للبيك عند انقطاع التيار

ارجو من الله ان يوفقنى

ولا تنسونا بدعاكم

eng_a_sayed
02-25-2011, 02:50 AM
وكلنا ننتظر الكود منك أيها المبدع

والموضوع التالى ربما ينفعك فى الاضافة التى تريدها http://www.dbaasco.com/vb/showthread.php?t=5035
لا تتأخر علينا

تحياتى لك

احمدابوالمعاطى
02-25-2011, 04:03 AM
اشكرك جدا يا هندسه على تعاونك معى

وجعله الله فى ميزان حسناتك


وشكرا على التثبيت

eng_a_sayed
02-25-2011, 11:27 AM
اشكرك جدا يا هندسه على تعاونك معى

وجعله الله فى ميزان حسناتك


وشكرا على التثبيت

أمثالك يجب على الجميع التعاون معهم

وأن شاء الله نثبت كل مواضيعك المميزة

احمدابوالمعاطى
03-02-2011, 06:05 AM
اولا اعتذر عن التاخير

حاولت كثيرا فى اضافة كود الابروم

وحتى الان لم انجح

واخر ما وصلت اليه هذه الرساله

ولا اعلم لماذا بالرغم ان (x) معرفه من قبل

وتعمل بالبرنامج قبل اضافة كود الابروم

ارجو المساعده لمعرفة اين الخطأ
http://www.dbaasco.com/vb/imgcache/334.png"]http://www.dbaasco.com/vb/imgcache/334.png[/URL]

eng_a_sayed
03-02-2011, 10:07 AM
الرجاء التأكد من السطر رقم 90 هل طريقة الكتابة صحيحة ؟؟؟ وما المطلوب منه

تحياتى

احمدابوالمعاطى
03-10-2011, 08:12 AM
سوف اقوم برفع المشروع والبرنامج كما هو

لاننى حتى الان لم استطع اضافة مرحلة الابروم

الى البرنامج ومن الممكن ان نتعاون معا لتكملة

مرحلة الابروم حتى يصبح مشروع متكامل

احمدابوالمعاطى
03-10-2011, 08:19 AM
بسم الله الرحمن الرحيم

تفاصيل المشروع

اولا فكرة المشروع:

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

حسب درجة الحراره المسجله من قبل


ثانيا طريقة العمل :

باستخدام الحساس lm34 وهو يعطى

ملى فولت متناسب مع درجة الحراره الذى سيتم تحويله الى حراره

عن طريق المتحكم pic16f877a

ويقارنها مع الحراره المسجله من قبل و المتحكم بها بواسطة الازرار

وعرضها على شاشه سفن سجما

ثالثا لغة البرمجه المستخدمه

لغة السى

رابعا مكونات المشروع :

1 _ الميكروكونترول pic16f877a

2 _ عدد (2) شاشه عرض سفن سجما

3 _ حساس حراره lm34

4 _ عدد (3) مفتاح ضاغط

5 _ عدد (3) مقاومه 4700 اوم

صورة المشروع :

http://filaty.com/i/1103/90420/trmostat.JPG

المشروع +البرنامج

http://filaty.com/f/1103/72982/TEMP.rar.html

ولا تنسونا بالدعاء

eng_a_sayed
03-10-2011, 09:17 AM
جزاك الله كل خير مهندسنا المبدع أحمد

نرجو منك عدم الانقطاع وأن تمدنا بأداعاتك بأستمرار

تحياتى لك وللجميع

احمدابوالمعاطى
03-10-2011, 09:48 AM
جزاك الله كل خير مهندسنا المبدع أحمد

نرجو منك عدم الانقطاع وأن تمدنا بأداعاتك بأستمرار

تحياتى لك وللجميع

اشكرك اخى وارجو من الله ان تعم الفائده على الجميع

احمدابوالمعاطى
03-12-2011, 12:49 AM
الاخ المهندس eng_a_sayed

ارجو ان تساعنا فى انجاز مرحلة

الابروم لاننى حاولت معها ولم اصل اى نتيجه



http://m7ml.com/uploads7/d60e5404d3.jpg

احمدابوالمعاطى
03-16-2011, 10:42 PM
الاخ المهندس eng_a_sayed

ارجو المساعده فى اضافة الابروم


مشروعى لديك ارجو الرد

eng_a_sayed
03-17-2011, 12:30 AM
أخى الحبيب وصديق برنامج الميكرو سى مهندسنا الكبير" أحمد عبد العاطى"

أريد أن أأصل شيئ مهم وهو عملياً متى أستخدم الاى بروم؟؟؟

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

نعود:

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

بداية البرنامج

قرأة الاى بروم من المكان الذى سنخزن فيه




البرنامج عادى جداً

الوصول الى المتغير المراد تخزينه
تخزينه مباشرة فى الاى بروم


وفقط

وبرنامجك أن شاء الله أنظر فيه واقوم بالتعديل أن شاء الله

تحياتى

eng_a_sayed
03-17-2011, 12:47 AM
أستاذ احمد
نظرت حالاً فى برنامجك ... واضح جداً المجهود المبذول فيه والافكار الرائعة التى به

لكن

الملاحظات كالتالى:

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

ثانياً: بالنسبة للأى بروم أنا لا أعلم ما الوظيفى التى تريدها فيها فى مثل هذا البرنامج فبرنامجك يقيس درجة الحرارة الحالية ولا يوجد داعى لتسجيل حرارة سابقة

منتظر ردك

تحياتى

احمدابوالمعاطى
03-17-2011, 04:07 AM
أستاذ احمد
نظرت حالاً فى برنامجك ... واضح جداً المجهود المبذول فيه والافكار الرائعة التى به

لكن

الملاحظات كالتالى:

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

ثانياً: بالنسبة للأى بروم أنا لا أعلم ما الوظيفى التى تريدها فيها فى مثل هذا البرنامج فبرنامجك يقيس درجة الحرارة الحالية ولا يوجد داعى لتسجيل حرارة سابقة

منتظر ردك

تحياتى

بالفعل وجدت ملاحظتك الاولى وتم تعديلها كدخل

بالنسبه البرنامج حاليا يقوم بتسجيل الحراره المطلوبه

من المفتاح p1 مع (+ او - ) وبتحرير المفتاح p1

نقراء الحراره المقاسه المطلوب عمل ابروم للحراره المطلوبه

واعتذر على الاطاله

وشكرا

eng_a_sayed
03-17-2011, 12:34 PM
unsigned short digit_no, digit10, digit1, digit, i; x; Y;
unsigned int temp_res;
unsigned short mask(unsigned short num) {
switch (num) {
case 0 : return 0xC0;
case 1 : return 0xF9;
case 2 : return 0xA4;
case 3 : return 0xB0;
case 4 : return 0x99;
case 5 : return 0x92;
case 6 : return 0x83;
case 7 : return 0xF8;
case 8 : return 0x80;
case 9 : return 0x98;
}
}
void interrupt() {
if (digit_no==0) {
PORTC = 0; // Turn off all 7seg displays
PORTD = digit1; // send mask for ones digit to PORTD
PORTC = 1; // turn on 1st 7 seg., turn off 2nd
digit_no =1;
} else {
PORTC = 0; // Turn off all 7seg displays
PORTD = digit10; // send mask for tens digit to PORTD
PORTC = 2; // turn on 2nd 7 seg., turn off 1st
digit_no = 0;
}

TMR0 = 0; // clear TMRO
INTCON = 0x20; // clear T0IF and set T0IE
}
void main() { char read ;
OPTION_REG = 0x80; // Timer0 settings
TMR0 = 0;
INTCON = 0xA0; // Disable PEIE,INTE,RBIE,T0IE
PORTC = 0; // clear PORTc (make sure both displays are off)
TRISC = 0b11111100; // designate PORTc pins as output
PORTD = 0; // clear PORTD (make sure LEDs are off)
TRISD = 0; // designate PORTD pins as output
TRISA = 255; //PORTA I/POT
TRISB = 0; //PORTB O/POT
PORTB = 0;
x = EEPROM_Read(0x00);
maty:
while(1)

{ if(i<=x){PORTB=0b00000001;} // TEST
if(i>=x){PORTB=0b00000010;} // TEST

temp_res = ADC_Read(2);
temp_res = (temp_res *5)/10;
i = temp_res;
if(i<=99)
if(i>=0)
if( portc.f5==1) // TEMP
{
digit = i % 10u;
digit1 = mask(digit); // prepare ones digit
digit = (char)(i / 10u) % 10u;
digit10 = mask(digit); // prepare tens digit
Delay_ms(200); }
if( portc.f5==0) { // HETR1
if(portc.f6==0) {
(x);
delay_ms(50);
x++;
EEPROM_Write(0x00, x);}
if(portc.f7==0) {
(x);
delay_ms(50);
x--;
EEPROM_Write(0x00, x);}
if(x<=99)
if(x>=0)
{
digit = x % 10u;
digit1 = mask(digit); // prepare ones digit
digit = (char)(x / 10u) % 10u;
digit10 = mask(digit); // prepare tens digit
Delay_ms(200); }
}

}
goto maty
}

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

ولكن لى طلب منك

أريد أن توضح بتفصيل فائدة السطور الزرقاء

ما فائدة الانترربت

مافائدة سطر الاختبار بودن أن تقوم بعمل جواب شرط له
if(x<=99)
ما وظيفة العلملية
% 10u;

منتظر تجربتك وشرحك الجميل

تحياتى

احمدابوالمعاطى
03-18-2011, 11:31 PM
اشكرك جدا مهندسنا الغالى eng_a_sayed

عملت تجربه الان والبرنامج شغال 100%

بالنسبه لسؤالك


مافائدة سطر الاختبار بودن أن تقوم بعمل جواب شرط له
if(x<=99)

انا اعمل برنامج خاص واخذت منه جزء لعمل هذه المشاركه

فهذا الشرط اتى خطاء بدون كمالته اعتبره كان لم يكن


بالنسبه لسؤالك

ما فائدة الانترربت

ما وظيفة العلملية
% 10u;


من هنا

http://filaty.com/f/1103/40315/counter-7-segment.rar.html

ستجد برنامج اخر مع شرح وافى جدا

وللامانه هو منقول للفائده

فانا ليس عندى موهبة الشرح مثل الخ الكريم

صاحب الموضوع الاصلى بارك الله له

اذا امكن وضع هذا الرابط فى المشاركه الاولى لى

حتى تعم الفائده على الجميع

eng_a_sayed
03-19-2011, 12:54 AM
ما شاء الله عليك يا هندسة

يكفى جداً بأن تفهم الكود وتأخذ منه ما تريد وتعرف كيف توظفه كما تشاء

المشروع رائع وتم وضعه كما طلبت فى الموضوع الاصلى

مستواك أصبح رائع

منتظرين ردودك فى هذا القسم ومشاركاتك لتصبح رائد له أن شاء الله

تحياتى لك وللجميع

احمدابوالمعاطى
03-19-2011, 01:34 AM
ما شاء الله عليك يا هندسة

يكفى جداً بأن تفهم الكود وتأخذ منه ما تريد وتعرف كيف توظفه كما تشاء

المشروع رائع وتم وضعه كما طلبت فى الموضوع الاصلى

مستواك أصبح رائع

منتظرين ردودك فى هذا القسم ومشاركاتك لتصبح رائد له أن شاء الله

تحياتى لك وللجميع

شكرا لكلماتك الرقيقه وتعاونك

بيبو
06-19-2011, 03:26 PM
بارك الله لك مهندس احمد مشروع ابحث عنه من فتره كبيره على النت ولم اجده

بيبو
06-19-2011, 03:32 PM
شكرا مهندس احمد

احمدابوالمعاطى
06-28-2011, 06:10 AM
شكرا اخى وبارك الله لك

benyamina
07-06-2011, 12:37 AM
شكرا جزيلا

احمدابوالمعاطى
07-12-2011, 12:07 PM
شكرا جزيلا

اسعدنى مرورك اخى benyamina

zoro239
07-13-2011, 03:48 PM
مشكور اي من كل قلبي
والله يجازيك يرا باذن الله على فعل الخير ومساعده المتعلميين امثالى

احمدابوالمعاطى
07-24-2011, 08:54 PM
مشكور اي من كل قلبي
والله يجازيك يرا باذن الله على فعل الخير ومساعده المتعلميين امثالى

اكرمك الله اخى على الدعاء وكلنا نتعلم من بعض

ramiyasmin
08-13-2011, 01:55 AM
مشكور اخي من كل قلبي

احمدابوالمعاطى
08-18-2011, 03:17 AM
مشكور اخي من كل قلبي

شكرا اخى وبارك الله لك

metwally.mustafa
08-28-2011, 06:36 PM
جزاكم الله خيرا مشروع ممتاز

وليدk
08-31-2011, 04:33 AM
http://www.dbaasco.com/vb/imgcache/336.png


http://www.dbaasco.com/vb/imgcache/337.png

عمادحسين
08-31-2011, 08:16 AM
مشروع اكثر من ممتاز ولكن ملف الشرح قد تم حذفه من موقع فايلاتى برجاء رفعه مره اخرى ولكم وافر الشكر والاحترام

ramiyasmin
09-08-2011, 02:36 AM
استاذي الكريم لقد عدلت بالبرنامج ( ) وغيرت المعالج اصبح 16f873 بدل 16f877 لأنه اصغر حجم وبنفس القدرات وسوف اضع التعديل قريباً

احمدابوالمعاطى
10-30-2011, 02:45 AM
مشروع اكثر من ممتاز ولكن ملف الشرح قد تم حذفه من موقع فايلاتى برجاء رفعه مره اخرى ولكم وافر الشكر والاحترام

تفضل اخى روابط جديده
البرنامج

http://www.dbaasco.com/up4/download.gif (http://www.dbaasco.com/up4/dldp0e27834.rar.html)


شرح البرنامج
http://www.dbaasco.com/up4/download.gif (http://www.dbaasco.com/up4/dldwR827834.pdf.html)

احمدابوالمعاطى
10-30-2011, 02:52 AM
استاذي الكريم لقد عدلت بالبرنامج ( ) وغيرت المعالج اصبح 16f873 بدل 16f877 لأنه اصغر حجم وبنفس القدرات وسوف اضع التعديل قريباً


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

ramiyasmin
10-30-2011, 03:07 AM
رائع انت يا استاذ احمد وبارك الله بك

احمدابوالمعاطى
12-22-2011, 04:33 AM
رائع انت يا استاذ احمد وبارك الله بك


شكرا اخى وبارك فيك ولك

ahmedandatef2011
04-19-2012, 05:32 PM
شكرا

محمود فتحى
04-25-2012, 02:54 PM
جزاكم الله خيرا

youssef mzn
04-30-2012, 06:49 PM
Merci beaucoup

nir63
05-01-2012, 02:51 PM
مشكورررر

Sallam
05-15-2012, 04:03 PM
مشكورين ولكن الروابط كلها لم تعمل عندي
يرجى الرفع على موقع أخر
وشكرا

احمدابوالمعاطى
05-15-2012, 04:56 PM
تفضل اخى روابط جديده
البرنامج

http://www.dbaasco.com/up4/download.gif (http://www.dbaasco.com/up4/dldp0e27834.rar.html)


شرح البرنامج
http://www.dbaasco.com/up4/download.gif (http://www.dbaasco.com/up4/dldwR827834.pdf.html)

تفضل اخى

FOKOCHIMA
06-12-2012, 09:11 PM
لم اجد الموضوع

yousef129
06-14-2013, 12:13 PM
اين اجد هذا الحساس وكم سعره تقريبا

المهندس جميل ابراهيم صالح
01-29-2014, 08:36 PM
سلمت استاذنا

alstani
02-02-2014, 02:07 PM
جميل جدا و انا بدأت تجاربي من مدة قصيرة بعد انقطاع عن هذه الهواية لسنوات

mohamedmat
03-05-2014, 10:57 AM
السلام عليكم ورحمه الله وبركاته
اخى الكريم شكرا لهذا الاهتمام
وهذا المجهود الرائع
جزاك الله كل خير وجعله الله فى ميزان حسناتك

:FeelGood:

pic
04-20-2014, 01:49 PM
إن كان بالإمكان إعادة رفع الملفات لأنها حذفت

pic
05-12-2014, 01:26 PM
السلام عليكم
نظراً لأهمية الملفات الموجودة في المنتدى
وحرصاً على استمرار الخير لجميع الأعضاء و الضيوف
نرجوا من إدارة المنتدى رفع الملفات الهامة على الموقع أو علة موقع لا يحذف الملفات بشكل سريع
أو متابعة الأمر وإعادة رفعه عند الحذف

احمدابوالمعاطى
05-19-2014, 08:10 AM
السلام عليكم
نظراً لأهمية الملفات الموجودة في المنتدى
وحرصاً على استمرار الخير لجميع الأعضاء و الضيوف
نرجوا من إدارة المنتدى رفع الملفات الهامة على الموقع أو علة موقع لا يحذف الملفات بشكل سريع
أو متابعة الأمر وإعادة رفعه عند الحذف

http://www.dbaasco.com/vb/showpost.php?p=43305&postcount=47