File content as of revision 3:844fbe607dae:

/*
 * このソフトウェアは、大阪市立大学と京都大学生存圏ミッション研究の共同研究の成果物です。
 * ソースコードそのもののライセンスは、各ソースコードのライセンスに沿って公開します。
 * 2012-1-4 Toshihisa T
 */

//#define _I2C_TEST
#define HAVE_TOGGLE_SW
#define HAVE_MICROSD

#include "mbed.h"
#include "NMEA_parse.h"
#include "SDFileSystem.h"
#include "libT/mbed/tserialbuffer.h"
#include "BMP085.h"
#include "SHT2x.h"
#include "AD7994.h"
//#include "TextLCD.h"
#include "TextLCD_20X4.h"
#include "UBXPacket.h"

using namespace libT;

#define _USE_FS_NAME "sd"

Serial debug(USBTX,USBRX);

DigitalIn   gps_int0(p24);
DigitalOut  gps_reset(p25);
InterruptIn gps_pps(p26);
tSerialBuffer gps(p28,p27);
DigitalOut  gps_pps_led(LED2);
#ifdef _I2C_TEST /* { */
I2C i2c(p9, p10);        // sda, scl
#endif  /* } */
BMP085 bmp085(p9, p10);
//SHT25 sht25(p9, p10);
SHT2x sht25(p9,p10);
AD7994 ad7994(p9,p10);
TextLCD_20X4 lcd(p15, p16, p17, p18, p19, p20); // rs, e, d4-d7
#ifdef  HAVE_TOGGLE_SW  /* { */
DigitalIn toggleSW(p22);
int toggleSW_scan = 0;
int toggleSW_pre  = -1;
#endif  /* } */
int toggleSW_now  = 0;
Ticker tick;

SDFileSystem sd(p5, p6, p7, p8, _USE_FS_NAME);
int avaiableSD = -1;
unsigned short logNextCount = 0;
FILE *csvFP = NULL;
FILE *gpsFP = NULL;
int logSW = 0;
DigitalOut logled(LED3);

DigitalOut myled(LED1);

tSerialBuffer CO2(p13,p14);

struct UBXPacket_s UBXPacket;

int pps_count = 0;
void gps_pps_rise()
{
    gps_pps_led = ((pps_count+=1) & 1) ? 1 : 0;
}

void logFile_Init() {
    DIR *d;
    struct dirent *p;
    unsigned short countCandidate;
    char *endptr;

    avaiableSD = 0;
    d = opendir("/" _USE_FS_NAME);
    if ( d != NULL ) {
        while ( (p = readdir(d)) != NULL ) {
            debug.printf("FILE - %s\x0d\x0a", p->d_name);
            if (strlen(p->d_name) == (sizeof("ENVxxxxx.CSV")-1)) {
                if (    ((p->d_name[0] == 'E') || (p->d_name[0] == 'e'))
                        && ((p->d_name[1] == 'N') || (p->d_name[1] == 'n'))
                        && ((p->d_name[2] == 'V') || (p->d_name[2] == 'v'))) {
                }
                countCandidate = (unsigned short)strtoul(&(p->d_name[3]),&endptr,10);
                if (strcasecmp(endptr,".CSV") == 0) {
                    if (countCandidate > logNextCount) {
                        logNextCount = countCandidate;
                    }
                }
            }
        }
        closedir(d);
        logNextCount++;
        avaiableSD = 1;
    }
}


int CO2_Read(unsigned short *val)
{
    unsigned char sbuf[] = { 0xFE, 0x04, 0x00, 0x03, 0x00, 0x01, 0xD5, 0xC5 };
    unsigned char rbuf[7];
    int i;
    unsigned short crc;
    extern unsigned short modbus_CRC(unsigned char *DataPtr, unsigned short len);

    for(i=0;i < sizeof(sbuf);i++){
        //debug.printf("0x%02x ",sbuf[i]);
        CO2.putc(sbuf[i]);
    }
    for(i=0;i < sizeof(rbuf);i++){
        while(!CO2.readable()){}
        rbuf[i] = CO2.getc();
    }
    if(rbuf[0] != 0xFE){
        return -4;
    }
    if(rbuf[1] != 0x04){
        return -1;
    }
    if(rbuf[2] != 0x02){
        return -2;
    }
    crc = rbuf[6];
    crc = (crc << 8) | rbuf[5];
    if(crc != modbus_CRC(rbuf,5)){
        return -3;
    }
    *val = rbuf[3];
    *val = (*val << 8) | rbuf[4];
    return 0;
}

// BMP085 0xee
// AD9774 0x44
#ifdef _I2C_TEST /* { */
int i2c_found() {
    int count = 0;
    lcd.locate(0,2);
    lcd.printf("%-19s","I2C Dev:");
    lcd.locate(8,2);
    for (int address=0; address<256; address+=2) {
        if (!i2c.write(address, NULL, 0)) { // 0 returned is ok
            lcd.printf("%02X ",address);
            count++;
        }
    }
    lcd.printf("\n");
    lcd.printf("%d devices found", count);
    return count;
}
#endif /* } */

unsigned char NMEA_CalcSum(unsigned char *str,int len)
{
    unsigned char sum = 0;
    int i;
    for(i = 0;i < len;i++){
        sum = sum ^ (*(str + i));
    }
    return sum;
}

void UBX_CalcSum(unsigned char *str,int len,unsigned char *sum)
{
    int i;
    *(sum + 0) = *(sum + 1) = 0;
    for(i = 0;i < len;i++){
        *(sum + 0) = *(sum + 0) + *(str+i);
        *(sum + 1) = *(sum + 1) + *(sum + 0);
    }
}

int UBX_WaitAck(struct UBXPacket_s *info)
{
    UBXPacket.cjobst = 0;

    while(1){
        while(gps.readable()) {
            if(UBXPacket_Parse(&UBXPacket,gps.getc()) == 100){
                if((UBXPacket.cls == 0x05) && (UBXPacket.id == 0x01)){
                    return 1; /* ACK */
                } else if((UBXPacket.cls == 0x05) && (UBXPacket.id == 0x00)){
                    return 0; /* NAK */
                } else {
                    UBXPacket.cjobst = 0;
                }
            }
        }
    }
}

unsigned long tickCount = 0;
unsigned long hzCount = 0;
unsigned long hzCount_tmp = 0;
unsigned long logTickCount = 0;
void tickHandler()
{
    logTickCount++;
    tickCount++;
    hzCount_tmp++;
    if(hzCount_tmp >= 50){
        hzCount_tmp = 0;
        hzCount++;
    }
#ifdef  HAVE_TOGGLE_SW  /* { */
    int nowRead;
    nowRead = toggleSW.read();
    if(nowRead != toggleSW_pre){
        toggleSW_pre = nowRead;
        toggleSW_scan = 0;
    } else {
        toggleSW_scan++;
        if(toggleSW_scan >= 3){
            toggleSW_now = toggleSW_pre;
            toggleSW_scan = 0;
        }
    }
#endif
}

void logCheckProc()
{
    if((logSW == 0) && (toggleSW_now != 0)){
        if(csvFP != NULL){
            fclose(csvFP);
            csvFP = NULL;
            if(gpsFP != NULL){
                fclose(gpsFP);
                gpsFP = NULL;
            }
            logled = 0; /* No logging */
            logNextCount++;
        } else {
            char name[64];
            sprintf(name,"/%s/ENV%05d.CSV",_USE_FS_NAME,logNextCount);
            csvFP = fopen(name,"w+b");
            sprintf(name,"/%s/ENV%05d.GPS",_USE_FS_NAME,logNextCount);
            gpsFP = fopen(name,"w+b");
            if((csvFP != NULL) && (gpsFP != NULL)){
                logled = 1; /* logging */
                logTickCount = 100;
            } else {
                if(csvFP) fclose(csvFP);
                if(gpsFP) fclose(gpsFP);
                logled = 0; /* Cannot start logging */
            }
        }
    }
    logSW = toggleSW_now;
}

unsigned char wbuf[1024];
int widx = 0;

int main() {
    int ret = 0;
    float p, t1;
    float h, t2;
    int temp;
    unsigned short CO2_val;
    unsigned long scanCount = 0;
    char c;
    unsigned long UBXCount = 0;
 
    tick.attach_us(&tickHandler,(10*1000));
 
    debug.format(8,Serial::None,1);
    debug.baud(115200);
    debug.printf("ENV Logger \"V0.7\" Start (BUILD:[" __DATE__ "/" __TIME__ "])\n");

    debug.printf("LCD Display\n");

    //lcd.cls();
    lcd.locate(0,0);
    lcd.printf("ENV Logger \"V0.7\"");

    lcd.locate(0,1);
    lcd.printf("WAKE UP I/O...");
    wait(5.0);
 
#ifdef HAVE_MICROSD
    lcd.locate(0,2);
    lcd.printf("CHECK MicroSD:");
    logFile_Init();
#endif
    lcd.locate(0,2);
    switch(avaiableSD){
        case 0:
            lcd.printf("CHECK MicroSD:NG");
            break;
        case 1:
            lcd.printf("CHECK MicroSD:OK");
            break;
        default:
            lcd.printf("CHECK MicroSD:DO\'NT USE");
            break;
    }
    wait(1.0);
 
    //logFile_Init();
    //FileWriteTest();

    lcd.locate(0,3);
    lcd.printf("SETTING GPS...");

    UBXPacket.cjobst = 0;

    gps_pps.rise(gps_pps_rise);
    gps.format(8,Serial::None,1);
    gps.baud(9600);

    gps_reset = 1;
    wait(0.5);
    gps_reset = 0;

    wait(0.5);
    if(1){
        //unsigned char modeStr[] = "PUBX,41,1,0007,0003,115200,0";
        unsigned char modeStr[] = "PUBX,41,1,0007,0001,115200,0";
        unsigned char sum = NMEA_CalcSum(modeStr,strlen((char *)modeStr));
        debug.printf("SEND:[%s](0x%02X)\n",modeStr,sum);
        gps.printf("$%s*%02X%c%c",modeStr,sum,0x0d,0x0a);

        debug.printf("CHG BAUD:115200\n");
        gps.format(8,Serial::None,1);
        gps.baud(115200);
    }

    gps.recvStart();
    wait(0.5);

    if(1){
        unsigned char chkStr[][11] = {
            { 0xB5,0x62,0x06,0x01,0x03,0x00,0x02,0x10,0x02,0xFF,0xFF }, //RXM-RAW (0x02 0x10)
            { 0xB5,0x62,0x06,0x01,0x03,0x00,0x02,0x30,0x02,0xFF,0xFF }, //RXM-ALM (0x02 0x30)
            { 0xB5,0x62,0x06,0x01,0x03,0x00,0x02,0x31,0x02,0xFF,0xFF }, //RXM-EPH (0x02 0x31)
            //{ 0xB5,0x62,0x06,0x01,0x03,0x00,0x02,0x41,0x02,0xFF,0xFF },
            { 0xB5,0x62,0x06,0x01,0x03,0x00,0x02,0x11,0x02,0xFF,0xFF }, //RXM-SFRB (0x02 0x11)
            { 0xB5,0x62,0x06,0x01,0x03,0x00,0x02,0x20,0x02,0xFF,0xFF }, //RXM-SVSI (0x02 0x20)
            { 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF }, //END
        };
        int i,j;

        for(j=0;chkStr[j][0] != 0x00;j++){
            UBX_CalcSum(&chkStr[j][2],7,&chkStr[j][9]);
            for(i = 0; i < sizeof(chkStr[0]);i++){
                gps.putc(chkStr[j][i]);
            }
            debug.printf("%d : SET UBX Rate : %s\n",j,(UBX_WaitAck(&UBXPacket) == 1) ? "ACK" : "NAK");
       }
    }
    UBXPacket.cjobst = 0;
    lcd.locate(0,3);
    lcd.printf("SETTING GPS...Done.");

//  ad7994.Start();

    CO2.format(8,Serial::None,1);
    CO2.baud(9600);
    CO2.recvStart();

    //Clear Screen.
    lcd.locate(0,0); lcd.printf("%20s"," ");
    lcd.locate(0,1); lcd.printf("%20s"," ");
    lcd.locate(0,2); lcd.printf("%20s"," ");
    lcd.locate(0,3); lcd.printf("%20s"," ");

    while(1) {
        //lcd.cls();
        //lcd.locate(0,0);
        //lcd.printf("SCAN:%-10ld",scanCount);
        lcd.locate(0,0);
        lcd.printf("%d ",toggleSW_now);

        logCheckProc();

        while(gps.readable()) {
            c = gps.getc();
            if(UBXPacket_Parse(&UBXPacket,c) == 100){
                UBXCount++;
                lcd.locate(2,0);
                lcd.printf("UBX Recv:%-10ld",UBXCount);
                debug.printf("%ld : GET UBX Packet (Class=0x%02X,ID=0x%02X,LEN=%d)\n",
                            scanCount,
                            UBXPacket.cls,
                            UBXPacket.id,
                            UBXPacket.len );
                UBXPacket.cjobst = 0;
            }
            if(gpsFP != NULL){
                wbuf[widx] = c;
                widx++;
                if(widx >= sizeof(wbuf)){
                    fwrite(&wbuf,sizeof(wbuf[0]),widx,gpsFP);
                    widx = 0;
                }
            }
        }

        if(1){
            bmp085.update();
            p = bmp085.get_pressure();
            t1 = bmp085.get_temperature();
            lcd.locate(0,1);
            lcd.printf("%-8.2fhPa %-6.2fC", p, t1);
        }

        if(1){
            sht25.SHT2x_MeasurePoll(TEMP,&temp);
            t2 = sht25.SHT2x_CalcTemperatureC(temp);
            sht25.SHT2x_MeasurePoll(HUMIDITY,&temp);
            h = sht25.SHT2x_CalcRH(temp);
            lcd.locate(0,2);
            lcd.printf("%-6.2fC %-6.2fRH", t2, h);
            //sht25.SHT2x_SoftReset();
        }

#ifdef _I2C_TEST /* { */
        i2c_found();
#endif  /* } */

        lcd.locate(0,3);
        ret = CO2_Read(&CO2_val);
        if(ret == 0){
            lcd.printf("CO2:%5d.%1dppm\n",CO2_val/10,CO2_val%10);
        } else {
            lcd.printf("CO2:NG(%d)  \n",ret);
        }

        if(csvFP){
            if(logTickCount >= 100){
                fprintf(csvFP,"%-8.2f,hPa,%-6.2f,C,%-6.2f,C,%-6.2f,RH,%5d.%1d,ppm\x0d\x0a", p, t1, t2, h,CO2_val/10,CO2_val%10);
                logTickCount = 0;
            }
        }

#if 0
        ad7994.update();
        lcd.locate(0,3);
        lcd.printf("A/D:%04X/%04X",
                     ad7994.readChn(0),
                     ad7994.readChn(1));
#endif
        myled = (hzCount & 1);
        scanCount++;
        wait(0.1);
    }
}

/*
 * 2012-1-29 V0.7
 * ログ機能の追加。スイッチを押すとログのON/OFFが出来る。
 * ログ収集中は、mbed LED3 が点灯する。
 */
/*
 * 2012-1-29 V0.6
 * 1) スキャンカウントの変更。今までは1秒周期だったが、
 *    100ミリ秒周期でセンサーデータを得るようにした。
 * 2) モーメンタリSW対応。
 */
/*
 * 2012-1-23 V0.5
 * U-Blox,気圧センサー,温度センサー,CO2センサーの値を表示するようにした。
 * U-Blox は受信できたパケット数を表示する。
 * マイクロSDへの保存機能はまだ(H/W的に動くのは確認済み)
 */