//********************************************************************** 
/*
	＜紫外線計＞
　■紫外線センサー
　　浜松ホトニクス社製
　　GaAsPフォトダイオード＜G7189＞
　　有効受光面積：０．５８ｍｍ２
　　受光感度：０．２５Ａ／Ｗ
　　１．４５μＡ＝（０．５８×１０＾－５）×（２５０×１０＾－３）
　　オペアンプでＩ／Ｖ変換（１００ｋΩ）した時の１ｍＷ／ｃｍ２の電圧 
　　１４５ｍＶ＝１．４５μＡ×１００ｋΩ
*/
//********************************************************************** 


unsigned	int	measurement(unsigned short channel)
{
	unsigned	int		ad, cnt;
	//
	ad = 0;
	for (cnt = 0; cnt < 50; cnt++) {
		ad += Adc_Read(channel);
	}
	return (ad);
}

//********************************************************************** 

void main()
{
	static	unsigned	char	buf[12], cnt;
	static	unsigned	int		ad;
	static	double				tmp;
	//
	OSCCON = 0b01110000;		// クロックは8Mhz 
	CMCON  = 0b00000111;		// コンパレータは使用しない。
	// Ａ／Ｄ変換を使用する。 
	ANSEL  = 0b00010100;
	ADCON1.VCFG1 = 1;
	ADCON1.VCFG0 = 0;
	// ポートを初期化する。 
	TRISA  = 0b10111100;
	TRISB  = 0b00001111;
	// ＬＣＤを初期化する。 
	Lcd_Custom_Config(&PORTB,7,6,5,4,&PORTA,6,0,1);
	Lcd_Custom_Cmd(LCD_CURSOR_OFF);
	Lcd_Custom_Cmd(LCD_CLEAR);
	//
	while (1) {
		ad = measurement(2);
		tmp = ((double)ad * 2.44140625) / 50.0;
		//
		WordToStr((tmp * 1000.0) / 145.0, buf);
		Lcd_Custom_Out(1, 1, buf);
		Lcd_Custom_Out(1, 6, "uW/cm2");
		//
		for (cnt = 0; cnt < 16; cnt++) {
			if (cnt < ((unsigned int)tmp / 156))
				Lcd_Custom_Chr(2, cnt + 1, 0xFF);
			else
				Lcd_Custom_Chr(2, cnt + 1, ' ');
		}
		//
		Delay_ms(500);
	}
}

//**********************************************************************