高级组题乒乓球吹风定位系统

第五届智能控制大电子借阅系

微电 07自动 07黄 08 ……………一、方案论证与比 主机部分 从机部分 上位机部 二、系统的具体设计及实 各模块框图 系统总框 主机框 从机框 上位机框 硬件设 （1）SD卡模 （2）12864液晶屏显 无线传输模 串口通信模 语音模 (6）矩阵键盘模 软件设计 主机程序流程 从机程序流程 上位机程序流程 三、及分 基本功能 扩展发挥功 其他创新发挥功 四、参考文 系统源代 主机代 上位机代 电子借阅系统设计任设计一个电子借阅系统，实现借阅登记、电子等功能。 主系统以SD卡为介质，在卡上若干txt格式电子。可以供读者使用，同时也可以在主系统上直接阅读；ID(通过读者借书卡)，子设备上能显示的电子文档以供读者进行阅读主系统上可以查看到各个子设备使用记录(如子设备ID、时间、提供良好的人机交互(如触摸屏、语音提示、液晶屏菜单等)其他创新功能(如上位机) 随着现代科技的飞速发展，人们越来越多地阅读，感受非传统阅读的乐趣与。基于这一背景，我们设计了一个电子借阅系统，该系统以SD卡为介质，在卡上若干txt格式电子，可以在主系统上直接阅读，也可以供读者到子系统上阅读，同时还可以在上位机软件里阅读主系统与子系统的主控均采用Atmega16，用LCD12864显示内容，在主系统与子系统之间通过无线传输内容。我们还用VB编写了上位机软件，通过串口齐全。我们还设计了锁来查验借阅者的信息。该系统还有对用户关键字：SD卡、Amega16、LCD12864、无线传输、串口通信、语音模块、锁、上位机软件Summary:withthedevelopmentoftechnology,moreandmorepeopleliketoreade-books,andtheyfinditveryinteresting.Sowedesignae-booklendingsystem,usingSDcardasthestoragemedium.InthissystemthebooksusingtxtfomatintheSDcardcanbereadnotonlybythehost,butalsocanbesenttotheslavefortheuserstoread.WechooseAtmega16tobetheMCUofthee-booklendingsystem,andweshowthewordsthroughtheLCDHS-12864-12whichcanshowChineseconveniently.Wirelesscommunicationisapplicatedinthissystembetweenthehostandtheslave.Toshowtheinformationinthecomputer,weusedVisualBaisictodesignasoftwaretocommunicatewiththehostthroughseriesport.Withthehelpofthesoftware,youcanseetheinformationsentfromthehostaboutthee-booklendingsystem.Intheslave,werequiretheusetoenterpasswordtocheckborrowerinformation.Thesystemalsohasuser-friendlyLCDinterface ,voice:E-book,Atmega16,Seriesport,Wirelesscommunication,VisualBasic,Voiceprompts,LCD,SDcard.一.方案论证与比优点：AT89S52作为一种比较成单片机型号，应用简单方便，价格LCD12864。我们用红外传输在子设备txt格式文本进行阅读，设备简单，容易开发。LCD12864价格相对便宜。缺点：AT89S52其内部集成资源偏少，功能不够强大，不带字库的汉字的LCD12864需要在软件上建立字库，复杂度相对较高，红外数据传输对方向Atmega16+LCD12864液晶显示+NRF24L01优点：ATmega16是基于增强的AVRRISC结构的低功耗8CMOS微控制器，内部有16K字节的系统内可编程Flash。由于其先进的指令集以及单时钟周期指令执行时间，从而具有功耗低，处理速度快的优点。液晶显示同样采用带字库的LCD12864，可显示汉字和图形。我们用无线传输在子设备txt格式文本进行阅读，Atmega16有丰富的接口，SPI接口可以方便地与SD卡连接。缺点：Atmega16AT89S52SDVB编程语言编写了一个与下位机通信的软件。在上位机、下位机之间的通信主要通过m控件，m控件有很多重要的属性，现列举一些主要属性：CommPort属性：设置并返回通讯端Settings属性:设置并返回波特率、奇偶校验、数据位、停止位参数。典型缺省值是："9600,N,8,1"。InputLen属性：设置并返回Input属性从接收缓冲区的字符数。InputLen属性的缺省值是0。设置InputLen为0时，使用Input将使m控件接收缓冲区中全部.二.系统具体设计与各模块框图 电子借阅系统总框图 电子借阅系统主机框图 电子借阅系统从机框图 电子借阅系统上位机框硬件（1）SDSD卡（SecureDigitalMemoryCard）中文翻译为安全数码卡，是一种基于半导体快理(PDA)和多器等。大小犹如一张邮票的SD卡，重量只有2克，但却拥有高容量、快速数据传输率、极大的移动灵活性以及很好的安全性。在本系统中，我们用SD卡来txt文本。（2）12864

图 SD卡电路接线HS1286-12IOO

图 LCD12864电路接线nrf24L01txt2.4GHZ2Mbps，完全符合我们的要求。它可以直接连接各种

图 无线模块nrf24L01电路接线为使主机与电脑串口进行通信我们制作了PL2303USB转串口电路板从转接板直接引出2条信号线和2两电源线，即可方便地与单片机进行连接。图 串口通信模块电路接线我们选用ISD1730，该提供多项新功能，包括内置专利的多信息管理系统，新信息提示（vAlert）,双运作模式（&嵌入式音效。内部包含有自动增益控制、麦克风前置扩大器、扬声器驱动线路、振荡器与内图 语音电路接线在本系统中，我们采用了4*4矩阵键盘设计了一个锁，用于辨别登录用户的。4*4矩阵键盘只占用8IO口（D）就实现了16个按键，使操作界面更加人性化，操作图 4*4矩阵键盘电路接线三.及分要求实现功及分主系统以SD卡为介质，在卡上若干txt格式电子。可以供读者SDTXT格式的主系统可以通过红外射频设备识别ID(通过读者借书卡)，以方便可以将文档通过无线等方式传输给子子设备上能显示的电子文档以供扩展要求功及分主系统上可以查看到各个子设备使用记录(如子设备ID、时间、次提供良好的人机交互(示、液晶屏菜单等有上位机，可以查看时间，子设备信息（如子设备ID、时间、次数，也可以阅读SD卡发来的文本信息下面是我们测试时候参考文·AVR单片机C语言程序设计实例精粹电子工业编·VisualBasic串口通信工程开发实例导航人民邮电求是科技等编·VisualBasic程序设计电子工业如官士鸿编附录1.主机源程#include"pc1.h""//SD//SD//txt到液 //液晶菜//无线驱{

chari=0,j;intx;add0=(structbootsector*) get_information();//保存SD卡的重要参数到全局变MMCRdBolck1(firstdir);//得到 表初始扇 ();//选择功if((PINC&0x08)==0)//读书模{WrOp(0x80);{{}}}}if((PINC&0x04)==0)//联机模{}}if((PINC&0x02)==0)//信息查{while((PINC&0x02)==0);//}if((PINC&0x01)==0)//功能设{{LCD_WriteStr(5,3,"读LCD_WriteStr(6,4,"退出}} char{intfor(ii=0;ii<time;{}} //char#defineBAUDRATE #defineF_CPU函数名称void函数功能:设置波特率，并进行串口的初始化 数:BAUDRATE :void{UCSRB=0x00;//disablewhilesettingbaudUCSRA= //RXCTXCUDREFEDORPEU2X U2X 异步发送不倍速MPCM1;多机模UCSRC= //URSELUMSELUPM1UPM0USBSUCSZ1UCSZ0//UCSRCURSEL1UMSELUSART模式，UMSEL0为异步UCSZ[2:0]=011;位数据模UBRRL=(F_CPU/(BAUDRATE*16)-1)%256; UBRRH=(F_CPU/(BAUDRATE*16)-1)/256;//接收中断使能，8位数据模式，为1表示地址UCSRB=0x98;//RXCIETXCIEUDRIERXENTXENUCSZ2RXB8//RXEN=1TXEN=1发送，接收使}函数功能:发送一个字符 :voidput_char(unsignedchar{while(!(UCSRA&(1<<UDRE)))//等待发送缓冲器为;UDR //将数据放入缓冲器，发送数}函数功能:发送一个字符串 :voidput_string(unsignedchar{while{put_char(*str++);//++优先级}}intexch(intinttemp;returna;}函数名称:void函数功能:接收中断 ://#pragmainterrupt_handlervoid{charunsignedcharwhile!(UCSRA&(1<<RXC //等待接收数;i=}}函数名称:void函数功能 数:

voidsend_ID(void){} #defineucharunsignedchar#defineuintunsignedint#defineBIT(x)constucharcs=2; constucharsid=1; constucharsclk=0; constucharpsb=3; constucharrst=5; //ucharaa[]={"//ucharbb[]={"中//ucharcc[]={"中 //uchardd[]={"今天是星期五voidWrOp(uchardat);voidWrDat(uchardat);voidSndByte(uchardat);voiddelay(void);voiddelay_us(uchari)//voidLCD_WriteStr(uchardis_addr_x,uchardis_addr_y,uchar*str)//voidLCD_WriteStr(uchardis_addr_x,uchardis_addr_y,uchar*str)////：设置显示位置//参数：ucharx,uchar//出口参数：//：{{casecase2:case3:case4:}}////功能：在指定位置显示字符//参数：uchardis_addr_x,uchardis_addr_y,uchar*//出口参数：//：void {unsignedcharLCD_temp;while(LCD_temp!={}}////：液晶初始//参数：//出口参数：//：void{DDRA=0XFFPORTA=0XFF; //PORTB输出全部为PORTA|=BIT(cs); PORTA&=~BIT(rst);delay(); PORTA|=BIT(rst); //片选无WrOp(0x20);WrOp(0x01);}////：写命//参数：uchar//出口参数：//：voidWrOp(uchar{SndByte(0xf8); //命令字1111SndByte(dat&0xf0);//高四位为:high=dat&0xf0;作为第一个字节发送SndByte(dat<<4); //低四位为:low=dat<<4;作为第二个字节发送PORTA&=~BIT(cs);}////：写数//参数：uchar//出口参数：//：{SndByte(0xfa); //命令字1111SndByte(dat&0xf0);//高四位为:high=dat&0xf0;作为第一个字节发送SndByte(dat<<4); //低四位为:low=dat<<4;作为第二个字节发送PORTA&=~BIT(cs);}////：发送字节数//参数：uchar//出口参数：//：{uchari;for(i=8;i>0;i--){if(dat&BIT(i-1))PORTA|=BIT(sid //elsePORTA&=~BIT(sid); PORTA|=BIT(sclk);}}////：延//参数：//出口参数：//：void{uchari,jfor(i=0;i<190for(j=0;j<6;j+原来}{while(i--} charflag=0;charhanzi1[]={"读书charhanzi2[]={"联网charhanzi3[]={"信息charhanzi4[]={"功能"};charID[5]={0x20};charIDnum=0x20; }void {charhanzii[]={"请选择}voiddelaym(unsignedint{unsignedi;}void (void)//主菜{charcharhanzi5[]={"电子charhanzi6[]={"借阅系统charhan[]={"—charlcd_}charchar returnreturn1;return3;return}return}voidinfo(void)//进入信息查询界{charcharh1[]={"时间显示charh2[]={"信息charh3[]={"制作成员charh4[]={"←返回//char//char//charLCD_WriteStr(1,1,"07自动化LCD_WriteStr(1,2,"07电信 08机械"); {}}}'延时函PublicFunctionDelayt(ByValnumAsDimsTimeAsLongsTime=1WhilesTime<=numsTime=sTime+1End'查验标志函PublicFunctioncheck_char() m1.RThreshold=1SelectCaseCase"c": m1.RThreshold=5Case"s":send_timeCase"a":Case"b":Case"o": m1.RThreshold=0EndSelect'DimflagAsByte'flag=0'While(flag='IfTxtFlag.Text="c"Then m1.RThreshold=5:TxtID.Text= m1.Input':flag=1'IfTxtFlag.Text="s"Thensend_time':flag=1'IfTxtFlag.Text="a"Thensend_text':flag='IfTxtFlag.Text="b"ThenCommand6_Click':flag=1End'发送时间函PublicFunctionsend_time()m1.Output=Format(Now)End'发送文本函PublicFunctionsend_text()End'接受显示按PrivateSubCommand5_Click()TxtRead.Text= EndSub'发送文本按PrivateSubCommand6_Click()EndPrivateSubCom