ついに気圧センサーユニットが18LF2550で稼働！！・・やっと、動いたか！って感じです！

今度はLCDを利用しながら、RS232Cでパソコンに通信して表示しています。
結局、秋月さんの参考ハード回路図と部品は殆ど同じですが、RS232Cコネクタを追加して、PICの使用ポートも変更いたしました。

えーと、芸の無い私は、パレットソフトさんの「気圧センサーSPC1000試食の12F683用ソフトウエア」をそっくり18LF2550用に移植しちゃいました。

元のソフトウエアを自分なりに理解するのに２日、12F683用から18LF2550 3.3V駆動用に移植するのに、3日もかかってしまいました。

先に実験しておいた、後閑氏のLCD駆動ライブラリーのHI-TECH C18 MPU 版への変更ソフトが、とても相性がよく、一緒にコンパイルして簡単にLCD表示が出来てしまいました。

出来上がったソフトウエアを眺めてみれば、何の事は無い、殆ど100％パレットソフトさんのアプリケーションです。

やった事と云えば、PIC 18LF2550に合う様に元のソフトウエアのコンフィグ部分の変更やI/Oポートの割り付けの変更、ポートへの初期設定の追加、外部からの割り込み関連の名称の違いを修正、タイマー２へのクロック入力の分周値の変更等をしただけです。

もとのソフトのできばえが良いので、結果的に自分が２つのCPUを理解して、その差を埋めるだけで出来てしまった訳です。特に、気圧センサー専用の部分（press.c、press.h）には一切手を加えませんでした。随分時間が掛かりましたが、それは、２つとも触った事の無いPICだった事と、PICをC言語でプログラミングした事が無かったので勘弁して下さいね。

これで、RS232Cにデーター出力しながら、バックライト付きのLCDに現在の気圧と温度を表示できました。

下記に、その変更箇所のあるソースリストを掲載いたします。

なお、このプログラムは、パレットソフトさんの「気圧センサSCP1000（試 食）」で紹介されているソースリストをPIC 18LF25503.3V駆動用に私が書き換えたものと、後閑　哲也氏の
「改訂版　電子工作のための　PIC18F 本格活用ガイド　後閑哲也　氏著　技術評論社」

のLCD用参考プログラムを、HI-TECH C Pro for PIC18 MCU （Liteモード)用に私が変更したものを使い、MPLAB IDE v8.50 上の統合環境で、HI-TECH C Pro for PIC18 MCU Family V9.63PL3 を 無償のLiteモードを使用し、アセンブル、コンパイルしました。
出来上がったHexファイルを、秋月電子通商のAKI-PICプログラマー Ver.4や、AKI-PIC2プログラマボード（PICkit2互換）でPIC18LF2550へ書込み動作チェックを行いました。
（May. the 14th 2010)

のLCD用参考プログラムを、
MPLAB IDE v8.88 の統合環境の元で、
HI-TECH C Pro PIC18MCU (Liteモード) v9.80用に変更し、 一部を修正して、コンパイルして、
MPLAB IDE v8.88 の統合環境から直接USB接続の秋月電子通商のPICkit2もどきのゼロプレッシャーソケットからPIC18LF2550へ書込みました。（Dec. the 3rd. 2012）

パレットソフトさんの「気圧センサSCP1000（試 食）」での参考ソフトウエアを使用しておりますが、
press.c、_AtrDef.h、version.h、device.h、press.h
は、変更箇所は有りませんので、パレットソフトさんの「気圧センサSCP1000（試 食）」のページからダウンロードして、
下記ソースリストと一緒にコンパイルして下さい。

main.c
// Copyright 2010 PaletteSoft LLC // * * *** ******* * * // ** ** * * * ** * // * * * * * * * * * * // * * * * * * * * * // * * ******* * * * * // * * * * * * ** // * * * * ******* * * // =========================================================================== // = 修正記録 = // =========================================================================== // 002 2010.??.?? // ・ // --------------------------------------------------------------------------- // 001 2010.05.13 // ・新規作成 PaletteSoft LLC　製作のプログラムリストの一部を　A.Ohta が一部変更して製作 // =========================================================================== #define SYSTEM_NAME "SCP1000-D01 SAMPLE PROGRAM" // システム名称 #define COPYRIGHT "Copyright 2010 PaletteSoft LLC" // 著作権文字列 // *************************************************************************** // * インクルードファイル * // *************************************************************************** // ***** 一般 ***** #include <pic18.h> // ***** 宣言 ***** #include "_AtrDef.h" // 定数、データ型の宣言 // ***** 周辺 ***** #include "version.h" // バージョン番号の定義 #include "device.h" // デバイス制御 #include "press.h" // 圧力センサ制御 #include "lcdlib18.h" // LCD制御 追加 // *************************************************************************** // * 固定値 * // *************************************************************************** // メッセージの定義 //; 追加 //1234567890123456// char STRTMSG1[] = "SCP1000-D01 "; char STRTMSG2[] = "A.Ohta "; char STRSpace[] = " "; char STRPUnit[] = "hPa"; char STRTUnit[] = "C"; // *************************************************************************** // * グローバル変数 * // *************************************************************************** UB vMngDispBuffer[16]; // 文字列表示用バッファ sPres vMngMeasData; // 測定結果 UH vMngTemp; // 温度データ UW vMngPres; // 気圧データ // *************************************************************************** // * テーブル * // *************************************************************************** // ***** システム ***** const UB tSystemName[] = SYSTEM_NAME; // システム名称文字列 const UB tCopyright[] = COPYRIGHT; // 著作権表示文字列 const UB tVersion[] = { // バージョン番号文字列 VER1 | '0', VER2 | '0', '.', VER3 | '0', VER4 | '0', CODE_NUL }; // ***** 文字列 ***** const UB tCrLf[] = "\r\n"; // ＣＲ，ＬＦ const UB tCnvHexAscL[16] = { // ４ビットの数値を１６進数の大文字コードに変換 '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', }; // *************************************************************************** // * マクロ宣言 * // *************************************************************************** // *************************************************************************** // * プロトタイプ宣言 * // *************************************************************************** // ***** マネジメント ***** void main(void); void MngSensorInit(void); // ***** 表示 ***** void MngDspHello(void); void MngDspValue(void); void MngDspPress(UW Pres); void MngDspTemp(UH Temp); void MngLCDHello(void); // 追加 // ***** ライブラリ ***** UB* LibHexAscUB(UB *Buffer, UB Value); UH LibDivUH(UH Value1, UH Value2); UW LibMulUH(UH Value1, UH Value2); void LibItoA4(UB *Buffer, UH Value); // *************************************************************************** // * 処理本体 * // *************************************************************************** // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // // マネジメント // // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ void Mng______(void) {} // 見出し用関数 //============================================================================ // メイン //---------------------------------------------------------------------------- // 入力： 無し // 出力： 無し //---------------------------------------------------------------------------- // 備考： スタートアップリーチンからのジャンプ命令で呼び出されます。 // 本関数は無限ループであり、脱出することはありません。 //============================================================================ void main(void) { // ***** はじめに ***** DevInit(); // デバイス初期設定 DevComInit(); // 通信制御初期設定 DevSpiInit(); // ＳＰＩ制御初期設定 lcd_init(); // 　LCD初期化 // ***** 運用開始 ***** MngDspHello(); // 装置起動表示 MngLCDHello(); // LCDへ起動表示 MngSensorInit(); // センサ初期設定 PrsSeqMeas(); // 測定開始（処理結果は無視します…正常終了のはず） // ***** 無限巡回 ***** while (1) { // 無限ループです DevComSendData("SCP,"); // 表示 if (PrsSeqGetData(&vMngMeasData)) { // 測定できた？ ★測定できるまで無限巡回してます // ***** 測定データ編集 ***** // ★次のデータセットまでに処理してください（約５００ｍｓ） MngDspValue(); // 測定結果を１６進数で表示 vMngPres = PrsCalGetPres(&vMngMeasData); // 気圧データ取得 vMngTemp = PrsCalGetTemp(&vMngMeasData); // 温度データ取得 MngDspPress(vMngPres); // 気圧データの物理量表示 MngDspTemp(vMngTemp); // 温度データの物理量表示 } else { // 測定失敗 // ***** 測定失敗 ***** DevComSendData(" RTERR "); // リアルタイムエラー表示 } DevComSendData(tCrLf); // ＣＲ、ＬＦ } } //============================================================================ // センサ初期設定 //---------------------------------------------------------------------------- // 入力： 無し // 出力： 無し //---------------------------------------------------------------------------- // 備考： センサの起動完了を待機します。起動に異常が検出された場合はセンサの // リセットを行います。起動完了するまでこの作業を繰り返します。 //============================================================================ void MngSensorInit(void) { UB Result; // 処理結果 // ***** 初期設定巡回 ***** while (1) { // 起動完了するまで繰り返します。 // ***** 初期設定 ***** DevComSendData("SENSOR INIT "); // 表示 Result = PrsSeqInit(); // センサの初期設定 DevComSendData(LibHexAscUB(vMngDispBuffer, Result)); // 処理結果を１６進数文字列に変換して表示 DevComSendData(" "); // ***** 初期設定結果診断 ***** if ((Result & PRS_INIT_RESULT_MASK) != PRS_INIT_RESULT_OK) { // 初期設定失敗？ DevComSendData("NG \r\n"); // 表示 DevTimWaitMs(250); // ２５０ｍｓ待機 DevTimWaitMs(250); // ２５０ｍｓ待機 } else { // 初期設定成功 break; // 巡回脱出 } } // ***** 初期設定終了 ***** Result = PrsSeqGetRevid(); // リビジョン番号取得 DevComSendData("OK, ASIC:"); // 表示 DevComSendData(LibHexAscUB(vMngDispBuffer, Result)); // 処理結果を１６進数文字列に変換して表示 DevComSendData(tCrLf); // ＣＲ、ＬＦ } // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // // 表示 // // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ void MngDsp______(void) {} // 見出し用関数 //============================================================================ // 装置起動表示 //---------------------------------------------------------------------------- // 入力： 無し // 出力： 無し //---------------------------------------------------------------------------- // 備考： 装置が起動したことを調歩同期式シリアル通信で通知します。 //============================================================================ void MngDspHello(void) { // ***** 頭出し ***** DevComSendData(tCrLf); // ＣＲ、ＬＦ DevComSendData(tCrLf); // ＣＲ、ＬＦ // ***** タイトル ***** DevComSendData(tSystemName); // システム名称 DevComSendData(" Ver"); // 見出し DevComSendData(tVersion); // バージョン番号 DevComSendData(tCrLf); // ＣＲ、ＬＦ DevComSendData(tCopyright); // 作成者 DevComSendData(tCrLf); // ＣＲ、ＬＦ // ***** おしまい ***** DevComSendData(tCrLf); // ＣＲ、ＬＦ } //============================================================================ // 測定結果を１６進数で表示 //---------------------------------------------------------------------------- // 入力： 無し // 出力： 無し //---------------------------------------------------------------------------- // 備考： 測定済みのデータを１６進数で表示します。 // // ss,tttt,mm,llll,ss, //============================================================================ void MngDspValue(void) { // ***** ステータス１ ***** DevComSendData(LibHexAscUB(vMngDispBuffer, vMngMeasData.Status1)); DevComSendData(","); // ***** 温度データ ***** DevComSendData(LibHexAscUB(vMngDispBuffer, vMngMeasData.Temp >> 8)); DevComSendData(LibHexAscUB(vMngDispBuffer, vMngMeasData.Temp )); DevComSendData(","); // ***** 気圧データ（ＭＳＢ） ***** DevComSendData(LibHexAscUB(vMngDispBuffer, vMngMeasData.PresMsb)); DevComSendData(","); // ***** 気圧データ（ＬＳＢ） ***** DevComSendData(LibHexAscUB(vMngDispBuffer, vMngMeasData.PresLsb >> 8)); DevComSendData(LibHexAscUB(vMngDispBuffer, vMngMeasData.PresLsb )); DevComSendData(","); // ***** ステータス２ ***** DevComSendData(LibHexAscUB(vMngDispBuffer, vMngMeasData.Status2)); DevComSendData(","); // ***** おしまい ***** DevComSendData(" "); } //============================================================================ // 気圧データの物理量表示 注意：範囲チェックは手抜き //---------------------------------------------------------------------------- // 入力： 気圧データ // 出力： 無し //---------------------------------------------------------------------------- // 備考： 気圧データを物理量変換して表示します。 // // データ構成：0.25Pa/bit // データ範囲：30000.00 - 120000.00Pa 参考：100Pa = 1hPa // 表示形式　：P:XXXXhPa, //============================================================================ void MngDspPress(UW Pres) { UH Value; // 作業用変数 /* 気圧データをパスカル変換すると Pa = Pres * 0.25 = Pres / 4 となります。実数演算は回避できますが小数点以下は切り捨てになります。 さて、パスカルからヘクトパスカルに変換する場合は、 100Pa = 1hPa から、小数点以下の切り捨ても無視すると、 hPa = (Pres / 4) / 100 = Pres / (4 * 100) = Pres / 400 となります。 */ Value = (UH)(Pres / 400L); // 通常は300 〜1200の範囲内のはず LibItoA4(vMngDispBuffer, Value); // 数値を文字列に変換（都合４桁） if (vMngDispBuffer[0] == '0') { vMngDispBuffer[0] = ' '; } // ゼロサプレス（千の位だけ）） // ***** パスカル表示 ***** DevComSendData("P:"); // 項目 DevComSendData(vMngDispBuffer); // 演算結果表示 DevComSendData("hPa,"); // 単位 lcd_cmd(0xC0); // LCD2行目へ 追加 lcd_str(STRSpace); // 2行目をスペースでクリア 追加 lcd_cmd(0xC0); // LCD2行目へ 追加 lcd_str(vMngDispBuffer); // 現在の気圧を表示 追加 lcd_str(STRPUnit); // 気圧の単位　hPa を表示 追加 } //============================================================================ // 温度データの物理量表示 注意：範囲チェックは手抜き //---------------------------------------------------------------------------- // 入力： 温度データ（１４ビット構成、マイナス温度は２の補数表現） // 出力： 無し //---------------------------------------------------------------------------- // 備考： 温度データを物理量変換して表示します。 // // データ構成：0.05c/bit // 表示形式　：T:-XX.Xc, //============================================================================ void MngDspTemp(UH Temp) { /* 温度データは c = Temp * 0.05 = Temp / 20 となります。実数演算は回避できますが小数点以下は切り捨てになります。 仮に小数点以下第１位まで求めるのであれば、 c * 10 = (Temp * 10) / 20 = Temp / 2 となります。 前述の気圧と同様、有効桁以下は切り捨てを行います。 なお温度にはマイナス値が存在しますが、切り捨てルールは絶対値で行ってます。 */ if (Temp & (UH)BIT15) { // マイナス指定？ vMngDispBuffer[0] = '-'; // プラスマーク準備 Temp = (~Temp) + 1; // 絶対値算出 } else { // プラス指定 vMngDispBuffer[0] = '+'; // プラスマーク準備 } LibItoA4(&vMngDispBuffer[1], Temp >> 1); // 数値を文字列に変換（都合４桁） // センサ性能は-30c〜+85cなので、絶対値で0〜850の範囲内のはず // 12345 12345 // XXX* →　XX.X* vMngDispBuffer[1] = vMngDispBuffer[2]; // １０の位を前に移動 vMngDispBuffer[2] = vMngDispBuffer[3]; // １の位を前に移動 vMngDispBuffer[3] = '.'; // 小数点 if (vMngDispBuffer[1] == '0') { vMngDispBuffer[1] = ' '; } // ゼロサプレス（十の位だけ） // ***** 温度表示 ***** DevComSendData("T:"); // 項目 DevComSendData(vMngDispBuffer); // 演算結果表示 DevComSendData("c,"); // 単位 lcd_str(" "); // 追加 lcd_str(vMngDispBuffer); // 現在の気温を表示 追加 lcd_str(STRTUnit); // 気温の単位を表示 追加 } // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // // ライブラリ // // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ // ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ void Lib______(void) {} // 見出し用関数 //============================================================================ // １バイト数値を１６進数文字列に変換 //---------------------------------------------------------------------------- // 入力： 文字列格納バッファ（２＋１文字分）、数値、 // 出力： 文字列格納バッファ //---------------------------------------------------------------------------- // 備考： １バイト数値を２文字の１６進数文字列に変換します。 //============================================================================ UB* LibHexAscUB(UB *Buffer, UB Value) { Buffer[0] = tCnvHexAscL[Value >> 4]; // 上位４ビットを変換 Buffer[1] = tCnvHexAscL[Value & 0x0f]; // 下位４ビットを変換 Buffer[2] = CODE_NUL; // 終端コードをセット return(Buffer); // バッファアドレスを返します } //============================================================================ // ２バイト÷２バイト＝２バイト //---------------------------------------------------------------------------- // 入力： 非除数、除数 // 出力： 結果 //---------------------------------------------------------------------------- // 備考： ２バイトの除算を行います。 //============================================================================ UH LibDivUH(UH Value1, UH Value2) { return(Value1 / Value2); // ２バイト除算結果を返します } //============================================================================ // ２バイト×２バイト＝４バイト //---------------------------------------------------------------------------- // 入力： 非乗数、乗数 // 出力： 結果 //---------------------------------------------------------------------------- // 備考： ２バイトの乗算を行います。 //============================================================================ UW LibMulUH(UH Value1, UH Value2) { return((UW)Value1 * (UW)Value2); // ２バイトの乗算結果を返します } //============================================================================ // 力技の４桁１０進数変換 //---------------------------------------------------------------------------- // 入力： 文字列格納アドレス、数値 // 出力： 無し //---------------------------------------------------------------------------- // 備考： ２バイト数値を文字列に変換します。有効桁数は４桁までです。 //============================================================================ void LibItoA4(UB *Buffer, UH Value) { UB Digit; // １桁の数値 Digit = (UB)LibDivUH(Value, 1000); // 　１０００の位編集 Value -= (UH)LibMulUH((UH)Digit, 1000); Buffer[0] = Digit + '0'; Digit = (UB)LibDivUH(Value, 100); // 　　１００の位編集 Value -= (UH)LibMulUH((UH)Digit, 100); Buffer[1] = Digit + '0'; Digit = (UB)LibDivUH(Value, 10); // 　　　１０の位編集 Value -= (UH)LibMulUH((UH)Digit, 10); Buffer[2] = Digit + '0'; Buffer[3] = (UB)Value + '0'; // 　　　　１の位編集 Buffer[4] = CODE_NUL; // 文字列終端セット } void MngLCDHello(void) // 追加 { lcd_clear(); // LCD消去 lcd_str(STRTMSG1); // 開始メッセージ表示 lcd_cmd(0xC0); // LCD2行目へ lcd_str(STRTMSG2); // 開始メッセージ表示 } // *************************************************************************** // *************************************************************************** // * * // *************************************************************************** // ***************************************************************************