قسم الميكروكنترولر والروبوت ودوائر الاتصال بالحاسب الالي قسم المتحكمات الـ microcontroller و المعالجات microprocessor و التحكم الرقمي بالكمبيوتر CNC والانظمة الآلية والروبوت Robots

   

amin mohammad
:: مهندس متواجد ::
تاريخ التسجيل: Nov 2011
الدولة: فلسطين/ رام الله
المشاركات: 68
نشاط [ amin mohammad ]
قوة السمعة:
قديم 11-01-2013, 03:40 PM المشاركة 161   
افتراضي



وهذا الكود ما يعمل ملف hix




int temp_res;
char temp[12];
unsigned int rtemp=10;
char ntemp[10];

sbit LCD_RS at RB2_bit;
sbit LCD_EN at RB3_bit;
sbit LCD_D4 at RB4_bit;
sbit LCD_D5 at RB5_bit;
sbit LCD_D6 at RB6_bit;
sbit LCD_D7 at RB7_bit;

sbit LCD_RS_Direction at TRISB2_bit;
sbit LCD_EN_Direction at TRISB3_bit;
sbit LCD_D4_Direction at TRISB4_bit;
sbit LCD_D5_Direction at TRISB5_bit;
sbit LCD_D6_Direction at TRISB6_bit;
sbit LCD_D7_Direction at TRISB7_bit;
Lcd_Cmd(_LCD_FIRST_ROW);
void adc()
{
temp_res = ADC_Read(2); // Get 10-bit results of AD conversion
temp_res = (temp_res *5)/10;
IntToStr(temp_res,temp);
}
void print()
{

Lcd_Cmd(_LCD_CLEAR);
lcd_out(1,1,"Now temp") ;

lcd_out(2,1,"Ref temp") ;

}
void test()
{
if(temp_res>rtemp)
{
PORTC=0b00000101; //cool
}
if(temp_res<rtemp)
{
PORTC=0b00001010;//hot
}
if(temp_res==rtemp)
{
PORTC=0x00;
}
}

void main()
{

TRISA =0b10;
TRISD =0x11;
TRISC =0x00;

Lcd_Init();
Lcd_Cmd(_LCD_CURSOR_OFF);
////////////////////////////////
lcd_out(1,4,"Temperature") ;
lcd_out(2,3,"System Control") ;
delay_ms(2000);
Lcd_Cmd(_LCD_CLEAR);
lcd_out(1,3,"Designed By") ;
lcd_out(2,3,"Fouz Martini") ;
delay_ms(2500);
print();
do
{
IntToStr(rtemp,ntemp);
lcd_out(2,10,ntemp);
delay_ms(200);
lcd_out(1,10,temp) ;
delay_ms(200);
test();
if(portd.f1==0 && rtemp>0)
{
rtemp--;

delay_ms(200);
}
if(portd.f0==0&&rtemp<=100)
{
rtemp++;

delay_ms(200);

}
adc();
}
while(1);

return;
}

اعلانات

الصورة الرمزية باسم ماجد
باسم ماجد
:: مهندس متميز ::
تاريخ التسجيل: Jan 2009
الدولة: Amman-Jordan
المشاركات: 316
نشاط [ باسم ماجد ]
قوة السمعة:
قديم 11-01-2013, 10:51 PM المشاركة 162   
افتراضي


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

تمنياتي لك بالتوفيق

اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )

amin mohammad
:: مهندس متواجد ::
تاريخ التسجيل: Nov 2011
الدولة: فلسطين/ رام الله
المشاركات: 68
نشاط [ amin mohammad ]
قوة السمعة:
قديم 12-01-2013, 12:19 AM المشاركة 163   
افتراضي


مشكور اخي باسم
بوركت


amin mohammad
:: مهندس متواجد ::
تاريخ التسجيل: Nov 2011
الدولة: فلسطين/ رام الله
المشاركات: 68
نشاط [ amin mohammad ]
قوة السمعة:
قديم 12-01-2013, 12:25 AM المشاركة 164   
افتراضي


اخي الكريم
اذا اردنا تعديل قيم درجة الحرارة
اين يجب التعديل في الكود

مشكور


amin mohammad
:: مهندس متواجد ::
تاريخ التسجيل: Nov 2011
الدولة: فلسطين/ رام الله
المشاركات: 68
نشاط [ amin mohammad ]
قوة السمعة:
قديم 12-01-2013, 03:30 PM المشاركة 165   
افتراضي


اذا اردنا تعديل قيم درجة الحرارة
اين يجب التعديل في الكود


Tico
:: عضو ذهبي ::
تاريخ التسجيل: May 2012
المشاركات: 1,423
نشاط [ Tico ]
قوة السمعة:
قديم 13-01-2013, 02:18 PM المشاركة 166   
افتراضي


اذا اردنا تعديل قيم درجة الحرارة
اين يجب التعديل في الكود
بعد إذن المهندس باسم ..أعتقد التغيير في قيمة المتغير rtemp ، هنا :
http://upload.qariya.info/images/qar...f9b72804bd.png

هكذا نعمل في فلوكود ولا أظن الامر مختلف في الميكروسي .


الصورة الرمزية amrelarby
amrelarby
:: مهندس متواجد ::
تاريخ التسجيل: Aug 2011
المشاركات: 65
نشاط [ amrelarby ]
قوة السمعة:
قديم 19-01-2013, 11:45 AM المشاركة 167   
افتراضي


بعد إذن المهندس باسم ..أعتقد التغيير في قيمة المتغير rtemp ، هنا :
http://upload.qariya.info/images/qar...f9b72804bd.png

هكذا نعمل في فلوكود ولا أظن الامر مختلف في الميكروسي .
ممكن احد يساعتنى انا عملت الدائرة وشغالة ذى الفول بس درجة حرارة السينسور قراءة عشوائية وانا غيرت السينسور مافيش حاجة حصلت ممكن احد يساعدنى انا غيرت منافذ adc كلها من الميكروسى مافيش فايدة ممكن الرد السريع بالله عليكم


الصورة الرمزية amrelarby
amrelarby
:: مهندس متواجد ::
تاريخ التسجيل: Aug 2011
المشاركات: 65
نشاط [ amrelarby ]
قوة السمعة:
قديم 19-01-2013, 11:52 AM المشاركة 168   
افتراضي


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

Read more: http://www.qariya.com/vb/showthread....#ixzz2IPSkHhp8



الساعة معتمدة بتوقيت جرينتش +3 الساعة الآن: 07:04 AM
موقع القرية الالكترونية غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء
فعلى كل شخص تحمل مسئولية نفسه إتجاه مايقوم به من بيع وشراء وإتفاق وأعطاء معلومات موقعه
التعليقات المنشورة لا تعبر عن رأي موقع القرية الالكترونية ولايتحمل الموقع أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر)