[عبد الملك77]

كبار المنتدى السلام عليكم
حاولت الاضافة على هذا الكود ولم انجح ممكن حد من الاعضاء يساعدني
مقياس حرارة اريد عندما تصل الحرارة 32 درجة يعمل الليد على اي بورت
فاضي من الميكرو وعندما تصل الحرارة 40 درجة ينطفيء الليد شكرا لكم

[IMG][/IMG]

        signed char u0;
        signed char u1;
        signed char u2;
        int nnn=0;
        char seg[]={64,121,36,48,25,18,2,120,0,16};
        

        
        


void cck (ffff)

                          {
           u0=(nnn%10);
           u1=((nnn%100)/10);
           u2=(nnn%1000)/100;
           PORTB=32;PORTC=seg[u0];Delay_ms(5);
           PORTB=64;PORTC=seg[u1];Delay_ms(5);
           PORTB=128;PORTC=seg[u2];Delay_ms(5);

                           }

unsigned ADC_VVV;
void main( )
{
TRISA=1;
TRISB=0;
TRISC=0;
PORTC=0;


while(1)
{

ADC_VVV = ADC_Read(0);

 nnn =(ADC_VVV*5)/10;



    Delay_ms(10);
    cck ();


  }

  }

[حيدر علاج حسن]

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

sbit LCD_RS at Rd2_bit;
sbit LCD_EN at Rd3_bit;
sbit LCD_D4 at Rd4_bit;
sbit LCD_D5 at Rd5_bit;
sbit LCD_D6 at Rd6_bit;
sbit LCD_D7 at Rd7_bit;

sbit LCD_RS_Direction at TRISd2_bit;
sbit LCD_EN_Direction at TRISd3_bit;
sbit LCD_D4_Direction at TRISd4_bit;
sbit LCD_D5_Direction at TRISd5_bit;
sbit LCD_D6_Direction at TRISd6_bit;
sbit LCD_D7_Direction at TRISd7_bit;
char txt[6];
void main()
 {
 trisa=1;trisb=0;trisc=0;portb=0;portc=0;
 lcd_init();
 lcd_cmd(_LCD_CURSOR_OFF);
 while(1)
         {
          lcd_out(1,4,"Temp=");
          IntToStr(adc_read(0)/2,txt);
          lcd_out_cp(txt);
           if(adc_read(0)>=80)portb=1;
           else if(adc_read(0)> 60)portb=4;
           else portb=2;
          }

}

[عبد الملك77]

اخ حيدر اذا امكن وضع الكود كاملا وجزاك الله خيرا

[حيدر علاج حسن]

هذا هو الكود كاملا اخي ...

[Sallam]

http://upload.qariya.info/images/qar...c96a76d260.jpg
http://www.electvillage.com/upload//...ile=c96a76d260

ستجد مرفقا لصورة البرنامج والتعديل على الكود
لتجد ان الليد يعمل عندما يصل لدرجة 32 ويطفئ عند درجة 40 وباقي الحالات بحالة اطفاء.

ارجو ان أكون قد أفدتك بما تريد.

signed char u0;
signed char u1;
signed char u2;
int nnn=0;
sbit led1 at ra4_bit;
sbit led1_direction at trisa4_bit;

char seg[]={64,121,36,48,25,18,2,120,0,16};
void cck () 
    {

     u0=(nnn%10);
     u1=((nnn%100)/10);
     u2=(nnn%1000)/100;
     PORTB=32;PORTC=seg[u0];Delay_ms(5);
     PORTB=64;PORTC=seg[u1];Delay_ms(5);
     PORTB=128;PORTC=seg[u2];Delay_ms(5);
     } 
     
unsigned ADC_VVV; 

void main( ) 
{ 
 TRISA=0b000001;
 TRISB=0;
 TRISC=0;
 PORTC=0;
 while(1) 
 {
   ADC_VVV = ADC_Read(0);
   nnn =(ADC_VVV*5)/10;
   Delay_ms(10);

   if(nnn>=32)led1=1;
   else led1=0;
   
   if(nnn>=40)led1=0;
 cck (); 
 
 }
 
 }

[Sallam]

http://upload.qariya.info/images/qar...e31c4fd5d8.jpg

http://upload.qariya.info/images/qar...549194df68.jpg

http://upload.qariya.info/images/qar...ef65bf570d.jpg

هذه الصور توضح المحاكاة لعملية ضبط الحرارة وتشغيل واطفاء الليد

بالتوفيق

[عبد الملك77]

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

[Sallam]

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

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

لقد قمت بتجربة ما أرسلته لك ويعمل عندي بشكل جيد اقله على البروتوس

أرجو ان نتعاون للوصول الى الحل المناسب
وشكرا