STC15系列单片机TSL1401线性CCD例程_第1页
STC15系列单片机TSL1401线性CCD例程_第2页
STC15系列单片机TSL1401线性CCD例程_第3页
STC15系列单片机TSL1401线性CCD例程_第4页
STC15系列单片机TSL1401线性CCD例程_第5页
已阅读5页,还剩1页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、STC15系列单片机TSL1401线性CCD例程(带PID自适应曝光程序)/*/*/*WrittenBy/*/*/#include<>#include<>#include<>/数据变量定义/=externuint8Time0flag_10ms;externuint8Time0flag_20ms;uint8Pixel128;/具体函数实现/=voidmain()uint8i=0,send_data_cnt=0;uint8*pixel_pt;Timer0_Init();Timer0_Enable();Usart1_Init(115200);Usart1_ENAB

2、LE();CCD_GPIO_Init();pixel_pt=Pixel;for(i=0;i<138;i+)*pixel_pt+=0;while(1)if(Time0flag_20ms=1)Time0flag_20ms=0;CCD_ImageCapture(Pixel);CalculateIntegrationTime();if(+send_data_cnt>=5)send_data_cnt=0;SendlmageData(Pixel);)LED1_Flag();/Show_ADC();)/*/*/*WrittenBy/*/*/#include<>/数据变量定义/=uin

3、t8Show30=0;/具体函数实现/=voidAdc_lnit()(P1ASF|=0x08;ADC_RES=0;ADC_RESL=0;ADC_CONTR=ADC_POWER|ADC_SPEEDLL;P1M0&=0x08;P1M1|=0x08;DelayAdc(2);)uint16GetAdc(uint8Channel)(uint16adc;ADC_CONTR=ADC_POWER|ADC_SPEEDLL|Channel|ADC_START;_nop_();_nop_();_nop_();_nop_();while(!(ADC_CONTR&ADC_FLAG);ADC_CONTR&

4、amp;=ADC_FLAG;adc=ADC_RES;adc=adc<<2;adc+=ADC_RESL;adc=(adc*;/三位的整数,max=returnadc;)voidShow_ADC()(floatshow;show=GetAdc(3);sprintf(Show,"VCC=%",show);Usart1_SendString(Show);)/*/*/*WrittenBy/*/*/#include<>/数据变量定义/=/具体函数实现/=voidCCD_GPIO_Init()(P2M0&=0x03;/P20CLK准双向口P2M1&

5、=0x03;/P21SI)voidCCD_StartIntegration()(uint8i;CCD_SI=1;Delaynus(1);CCD_CLK=1;Delaynus(1);CCD_SI=0;Delaynus(1);CCD_CLK=0;for(i=0;i<127;i+)(Delaynus(2);CCD_CLK=1;Delaynus(2);CCD_CLK=0;Delaynus(2);CCD_CLK=1;Delaynus(2);CCD_CLK=0;voidCCD_ImageCapture(uint8*ImageData)uint8i;CCD_SI=1;Delaynus(20);CCD_

6、CLK=1;Delaynus(20);CCD_SI=0;Delaynus(30);for(i=0;i<250;i+)/更改250,让CCD勺图像看上去比较平滑,Delaynus(1);/200ns/把该值改大或者改小达到自己满意的结果。for(i=0;i<128;i+)Delaynus(30);CCD_CLK=1;Delaynus(30);*ImageData=GetAdc(3)+90;/通道7ImageData+;CCD_CLK=0;Delaynus(30);CCD_CLK=1;Delaynus(30);CCD_CLK=0;uint8PixelAverage(uint8len,u

7、int8*Data)uint8i;uint16sum;for(i=0;i<len;i+)sum=sum+*Data+;return(uint8)(sum/len);uint8IntegrationTime=10;voidCalculateIntegrationTime()externuint8Pixel128;/*128个像素点的平均AD值*/uint8PixelAverageValue;/*128个像素点的平均电压值的10倍*/uint8PixelAverageVoltage;/*设定目标平均电压值,实际电压的10倍*/int16TargetPixelAverageVoltage=20

8、;/*设定目标平均电压值与实际值的偏差,实际电压的10倍*/int16PixelAverageVoltageError=0;/*设定目标平均电压值允许的偏差,实际电压的10倍*/int16TargetPixelAverageVoltageAllowError=2;/*计算128个像素点的平均AD彳!*/PixelAverageValue=PixelAverage(128,Pixel);/*计算128个像素点的平均电压值,实际值的10倍*/PixelAverageVoltage=(uint8)(int16)PixelAverageValue*25/194);PixelAverageVoltage

9、Error=TargetPixelAverageVoltage-PixelAverageVoltage;if(PixelAverageVoltageError<-TargetPixelAverageVoltageAllowError)PixelAverageVoltageError=0-PixelAverageVoltageError;PixelAverageVoltageError/=5;if(PixelAverageVoltageError>10)PixelAverageVoltageError=10;IntegrationTime-=PixelAverageVoltageEr

10、ror;if(PixelAverageVoltageError>TargetPixelAverageVoltageAllowError)PixelAverageVoltageError/=5;if(PixelAverageVoltageError>10)PixelAverageVoltageError=10;IntegrationTime+=PixelAverageVoltageError;if(IntegrationTime<=1)IntegrationTime=1;if(IntegrationTime>=100)IntegrationTime=100;voidSen

11、dHex(unsignedcharhex)unsignedchartemp;temp=hex>>4;if(temp<10)Usart1_SendDataChar(temp+'0');elseUsart1_SendDataChar(temp-10+'A');temp=hex&0x0F;if(temp<10)Usart1_SendDataChar(temp+'0');elseUsart1_SendDataChar(temp-10+'A');voidSendImageData(unsignedchar*ImageData)unsignedchari;unsignedcharcrc=0;/*SendData*/Usart1_SendDataChar('*');/向串口1发送数据/uart_putchar(UART0,'*');Usart1_SendDataC

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论