C18 コンパイラの使用に関する専門家が、私が間違っている点を指摘してくれれば、非常にありがたいです。慣れるために、単純な温度計プロジェクトを開始しました:- NTC サーミスタ --> 18F2520 --> HD44780。
チェーンをデバッグし、AN0 入力電圧を中間範囲 2.5V = 10000 オームに変換するコードを生成した後、TºC を LCD に表示するために必要なルーチンを含め、すべてがうまくいきました。
上記は基本的なものでしたが、TºC の新しい LCD 表示を毎秒生成するのにうまく機能しています。
次のステップは、もう少し洗練されることでした。
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 モジュールのコードを Label として配置し、コードに移動すると、はい、範囲外のテストは無視されず、条件を処理できます。
もちろん、'goto' 策略には少し問題があります。範囲外の読み取り値は、数秒後にサーミスタを再度読み取る必要があることを意味します。tcalc への別の goto を意味します。自分自身を呼び出すことを意味します。C18はこれが気に入らないようです。
誰かが私のコードのエラーを少なくとも一般的に指摘してくれたら、とてもうれしいです。