//********************************************************************** 
/*
　　＜簡易湿度計Ｖ３（オートレンジ）＞ 
*/
//********************************************************************** 
//LCD
sbit LCD_RS at RA6_bit;
sbit LCD_EN at RA7_bit;
sbit LCD_D7 at RB7_bit;
sbit LCD_D6 at RB6_bit;
sbit LCD_D5 at RB5_bit;
sbit LCD_D4 at RB4_bit;
sbit LCD_RS_Direction at TRISA6_bit;
sbit LCD_EN_Direction at TRISA7_bit;
sbit LCD_D7_Direction at TRISB7_bit;
sbit LCD_D6_Direction at TRISB6_bit;
sbit LCD_D5_Direction at TRISB5_bit;
sbit LCD_D4_Direction at TRISB4_bit;
//
#define BYTE    unsigned  short
#define WORD    unsigned  int
#define DWORD   unsigned  long
//********************************************************************** 
//■関数宣言 
extern  void    main();
extern  WORD    ADC_Get_Sample_Average(unsigned short channel);
//********************************************************************** 
//■A/D変換（5回平均）関数 
WORD    ADC_Get_Sample_Average(unsigned short channel)
{
        WORD  ad;
        short cnt;
        //
        while (ADC_Get_Sample(2) > (1024 * 0.1)) {
        }
        while (ADC_Get_Sample(2) < (1024 * 0.9)) {
        }
        //
        ad = 0;
        for (cnt = 0; cnt < 5; cnt++) {
                ad += ADC_Get_Sample(channel);
        }
        return (ad / 5);
}
//********************************************************************** 
//■抵抗→湿度変換関数(HS-15P)
struct  tbl {
        short   s;
        short   e;
        long    s_r;
        long    e_r;
        long    n_r;
} hygro_tbl[4] = {
        {20, 40, 8000000, 220000, 389000}, 
        {40, 60, 220000, 23000, 9850},
        {60, 80, 23000, 3500, 975},
        {80, 100, 3500, 750, 138}
};
short   hygro_cnv(long h)
{
        if ((hygro_tbl[0].s_r >= h) && (hygro_tbl[0].e_r <= h)) {
                h = (h - hygro_tbl[0].e_r) / hygro_tbl[0].n_r;
                h = hygro_tbl[0].e - h;
                return (h);
        }
        if ((hygro_tbl[1].s_r >= h) && (hygro_tbl[1].e_r <= h)) {
                h = (h - hygro_tbl[1].e_r) / hygro_tbl[1].n_r;
                h = hygro_tbl[1].e - h;
                return (h);
        }
        if ((hygro_tbl[2].s_r >= h) && (hygro_tbl[2].e_r <= h)) {
                h = (h - hygro_tbl[2].e_r) / hygro_tbl[2].n_r;
                h = hygro_tbl[2].e - h;
                return (h);
        }
        if ((hygro_tbl[3].s_r >= h) && (hygro_tbl[3].e_r <= h)) {
                h = (h - hygro_tbl[3].e_r) / hygro_tbl[3].n_r;
                h = hygro_tbl[3].e - h;
                return (h);
        }
}
//********************************************************************** 
//■メイン関数 
void    main()
{
        long    v1, v2, v3, r;
        char    buf[16];
        int     cnt;
        //
        OSCCON = 0b01110000;
        ANSEL  = 0b00011100;
        TRISA  = 0b00111111;
        TRISB  = 0b00000110;
        //
        ADC_Init();
        //
        Lcd_Init();
        Lcd_Cmd(_LCD_CURSOR_OFF);
        Lcd_Cmd(_LCD_CLEAR);
        Lcd_Out(1, 1, "hygrometer v3");
        Delay_ms(1000);
        Lcd_Cmd(_LCD_CLEAR);
        Lcd_Out(1, 4, "%");
        Lcd_Chr(1, 16, 0xF4);
        Lcd_Out(2, 5, "mV");
        Lcd_Out(2, 14, "mV");
        //
        PWM1_Init(500);        //500Hz
        PWM1_Set_Duty(PR2 / 2);
        PWM1_Start();
        //
        while (1) {
                v1 = 0;
                for (cnt = 0; cnt < 200; cnt++) {
                        v1 += ADC_Get_Sample_Average(2);
                }
                v1 = v1 / 200;
                v2 = 0;
                for (cnt = 0; cnt < 200; cnt++) {
                        v2 += ADC_Get_Sample_Average(3);
                }
                v2 = v2 / 200;
                v3 = 0;
                for (cnt = 0; cnt < 200; cnt++) {
                        v3 += ADC_Get_Sample_Average(4);
                }
                v3 = v3 / 200;
                //
                v1 = (double)v1 * 4.8828125;
                v2 = (double)v2 * 4.8828125;
                v3 = (double)v3 * 4.8828125;
                if (v3 < 4900) {
                        v2 = v3 / 11;
                        Lcd_Chr(2, 16, '_');
                } else {
                        Lcd_Chr(2, 16, ' ');
                }
                r = (double)(v1 - v2) / ((double)v2 / 10000);
                //
                ByteToStr(hygro_cnv(r), buf);
                Lcd_Out(1, 1, buf);
                LongToStr(r, buf);
                Lcd_Out(1, 8, &buf[3]);
                WordToStr(v1, buf);
                Lcd_Out(2, 1, &buf[1]);
                WordToStr(v2, buf);
                Lcd_Out(2, 9, buf);
        }
}
//**********************************************************************