0

如果您使用 C18 编译器的专家能给我指出我做错了什么,我将不胜感激。为了熟悉,我开始了一个简单的温度计项目:- NTC 热敏电阻 --> 18F2520 --> HD44780。

在对链进行调试并生成代码以转换 AN0 输入电压(中间范围 2.5V = 10000 ohm)后,一切都很好,包括将 TºC 显示到 LCD 上所需的例程。

以上只是简单的框架,但工作得很好,每秒产生一个新的 TºC 液晶显示器。

下一步是变得更加成熟,

在 tcalc 函数开始时,我进行了超出范围的测试。如果按照我最初的决定,应用程序将测量水温。那么大于 28000 的 Rntc 将是冰,(超出上述范围)在有效值的另一端 <1900 几乎要蒸腾了。我打电话给错误信息的例程被忽略了。

这是将 Rntc 更改为温度 TºC 的 tcalc 代码

    /**************************************************
                Start tcalc
***************************************************/
void tcalc(unsigned char value) // does Rntc to T maths
{
     // start read AN0 for ADRESH ADRESL
  ADCON0 = 0x03;
  while(   ADCON0 == 0x03);// loop A/D 11 bits
    // notes at end  explain 11bit convert in 5 us

   Delay10TCYx(20); // +20us saftey margin
   ADRESH =0x02; //Dummy we use 512 as test value
   ADRESL =0x00;// Dummy 0x200 = d512
   Vin= ADRESH*256+ADRESL; 
   Rntc = (1024.0*Rref)/Vin -Rref;
 //  Rntc = 29000;//DUMMY test 2hi

/***********************************************
 Rntc MUST be valid (in range) test above/below
***********************************************/

if ( Rntc>28000) // Rntc too high
{
 Rntc_out; //jump to Show HIGH error message

}

dly1sec;

if (Rntc<1900) // Rntc too low
{
   Rntc_out; //jump to Show LOW error message
}


/***********************************************
Pairing Rntc value, with T equation coefficients
***********************************************/

if (Rntc>14706) //case 1
   {
    a = 19.67,b = -1136.15, c = 27335.25 ;
    goto Trange_1thru5 ;
   }
if (Rntc>8310.8) //case 2
   {
    a = 9.228,b = -840.85, c =25236.82 ;
    goto Trange_1thru5 ;
   }
if (Rntc>4910.6) //case 3
   {
    a = 4.554,b =-567.886, c = 21246.2 ;
    goto Trange_1thru5 ;
   }
if (Rntc>3019.7) //case 4
   {
    a = 2.358,b = -373.486, c = 16941.29 ;
    goto Trange_1thru5 ;
   }
if (Rntc>1924.6) //case 5
   {
    a = 1.275,b = -245.047, c = 13131.885 ;
    goto Trange_1thru5 ;
   }





Trange_1thru5:
  c= c-Rntc; 
  T = (-b - sqrt(-b*-b -4*a*c))/(2*a);
      /* Quadratic T result chosen has to be lowest */

}
/******************************************************
               END tcalc
*******************************************************/

调用的例程'Rntc_out'如下

/******************************************************* 
           ****** Start Rntc_outofrange ******
********************************************************/

void Rntc_out (unsigned char value) 
{
 lcdcmd(0x80);//move to top line of LCD
// RntcHL =Rntc;
if (Rntc<1900) //Rntc too low
 {
 lcddata('R');  
 lcddata('n');
 lcddata('t');
 lcddata('c');
 lcddata(' ');
 lcddata('t');
 lcddata('o');
 lcddata('o');
 lcddata(' ');
 lcddata('L');
 lcddata('o');
 lcddata('w');
 lcdcmd(0xC0);//Bottom line of LCD
 T = Rntc;
float_to_char;
 dly1sec;
 dly1sec;
 dly1sec;
 dly1sec;
 dly1sec;//  Rntc low  on screen 5 seconds 

 }

if ( Rntc>27500) // Rntc too high
 {
 lcddata('R'); 
 lcddata('n');
 lcddata('t');
 lcddata('c');
 lcddata(' ');
 lcddata('t');
 lcddata('o');
 lcddata('o');
 lcddata(' ');
 lcddata('H');
 lcddata('i');
 lcddata('g');
 lcddata('h');
 lcdcmd(0xC0);//Bottom line of LCD
 T = Rntc;
float_to_char;
 dly1sec;
 dly1sec;
 dly1sec;
 dly1sec;
 dly1sec; // Rntc high  on screen 5 seconds */

 }

}


/******************************************************* 
           ****** End Rntc_outofrange ******
********************************************************/

基本上我的问题是在测试超出范围的 Rntc 时。代码被跳过,就好像它不存在一样。

PS如果我将Rntc模块的代码作为标签:并转到代码,那么是的,超出范围的测试不会被忽略并且可以处理条件。

当然,'goto' 策略有一点问题。读数超出范围意味着几秒钟后,必须再次读取热敏电阻。意味着另一个转到 tcalc。意思是自称。C18 似乎不喜欢这个。

如果有好心人至少可以指出我的代码的错误,我会非常高兴。

4

1 回答 1

1

要调用函数,您需要使用括号并将其参数传递给它,并且您可能希望在此之后返回一个:

Rntc_out(Rntc); // I'm guessing this is the parameter you want?
return;

我在您的程序中看到许多其他函数调用缺少括号。你也需要修复这些。

于 2013-03-20T00:11:56.330 回答