基于单片机的fir电子病历系统设计论文(编辑修改稿)

基于单片机的fir电子病历系统设计论文(编辑修改稿)内容摘要：

图 49 门诊程序流程 （ 4） 抓药管理窗口 12 图 410 抓药管理窗口 图 411 药房管理程序流程 （ 5） 居民自助查询窗口 13 图 412 居民自助查询窗口 图 413 居民自助查询服务程序流程 14 图 414 系统工作流程 单片机控制的 RFID 卡读写模块软件实现 系统初始化 与卡进行通信的第一步则是驱动天线检测到卡，为了驱动天线， MF RC522 通过 TXl 和 TX2提供 13． 56MHz 的能量载波。 根据寄存器的设定对发送数据进行调制得到发送的信号。 该卡采用 RF 场的负载调制进行响应。 天线拾取的信号经天线匹配电路送到 RX 引脚。 MF RC522内部接收器对信号进行检测和解调并根据寄存器的设定进行处理。 然后数据通过 SPI 接口发送到单片机。 系统初始化要激活 MF RC522，开启 MF RC522 中的内部接收器，用于接收信号和转换信号，设置命令接收和有效为初始状态，设置发送信号和通信准备就绪，等待接收命令，设置接收状态准备等一系列状态和信号。 如图 416 所示： 15 图 416 下位 机系统初始化 读射频卡程序设计 每张卡片的序列号是唯一的且卡片的序列号存储在卡片的 EEPROM 的扇区 0 的块 0。 在本系统中射频卡的序列号就是居民的身份 ID，在大部分情况下都要用到这个序列号。 所以读取射频卡序列号也是下位机的主要工作之一。 流程图如图 417。 图 417 读卡序列号 16 下位机串口通信程序 单片机可以采用中断方式或查询 RI（接受中断标志位）或 TI（发送中断标志位）方式进行数据通信②。 设计采用查询方式，在定时器 T2 中断子程序中查询 RI，一旦检测到 RI=1则转入接受数据子 程序，在子程序中单片机读取从上位机发送的通信指令等数据，经校验正确后，即从 ATC256 存储器中将历史记录数据上传给 PC 机。 17 结论及存在问题 通过本系统的设计和本文的撰写，全面的学习了 RFID 系统的基本原理和实现方法，特别是对于非接触式 IC 卡类型的 RFID 系统有了一定的认识。 完成了射频卡读卡器系统的设计及开发的论文。 在这次开发和论文撰写过程中，我查阅了大量的书籍资料和技术手册，并搜集了大量的设计模型，使我软硬件设计水平有了较大幅度 的提高。 本文在对射频识别系统的组成和原理分析的基础上，提出了基于 STC89c51 单片机和MF RC522 模组的 Mifarel 卡射频识别系统的设计方法。 设计采用 MFRC522 射频读写模组在 STC89c51 单片机的控制下实现对 Mifarel 卡的读／写访问操作。 本文主要讨论了整个系统的工作原理，各硬件模块设计实现，驱动程序实现等问题。 在本系统设计中还存在一些的遗留问题如： 1）登录密码未能采用密文输入，容易泄露用户信息； 2）居民自助查询未采用密码登录； 3）系统未实现对射频卡的写数据操作。 另外有些地方的设计并不完 善，有待在以后进一步的改进和完善。 18 参考文献 [1] 周晓光，王晓华，王伟 .射频识别（ RFID）系统设计 [M].仿真与应用 [M].北京：人民邮电出版社， 20xx. [2] 单承赣 ,单玉峰 ,姚磊 .射频识别 RFID原理与应用 [M].北京：电子工业出版社， 20xx [3] 彭力 .无线射频识别 RFID技术基础 (普通高校十二五规划教材 )[M].北京：北京航空航天大学， 20xx [4] 王志良 .RFID 读写器制作实训教程 (国家级特色专业（物联网工程）规划教材 )[M].北京：机械工业出版社 .20xx [5] RFID 标准 ISO14443[S]. [6] 基于虚拟无线电的 RFID 读写器实现方案 [J/OL]. EEPW 新闻中心 , 20xx16 [7] 丁元杰 .单片微机原理及应用 3 版 [M].北京：机械工业出版社， 20xx [8] 贾立 新，王涌 .电子系统设计与实践第 2 版 [M].北京：清华大学出版社， 20xx [9] 王珊 .数据库系统概论第四版 [M].北京：高等教育出版社， 20xx [10] 闪四清 .SQL Server 20xx 系统管理指南 [M].北京：清华大学出版社， 20xx [11] 毕建伟，夏慧茹，梁建国 .Visual Basic 语言程序设计基础（第 3 版） [M].北京：电子工业出版社， 20xx [12] 刘志妩 .基于 VB 和 SQL 的数据库编程技术（高等学校计算机基础教育教材精选） [M].北京：清华大学出版社， 20xx [13]（英）卡 特（ Carter,J.）著；张淮野译 .数据库设计与编程实例详解：使用 Access、SQL 与 VB[M].北京：电子工业出版社， 20xx [14] 张辉、李荣利、王和平 .Visual Basic 串口通信及编程实例 [M].北京：化学工业出版社， 20xx 19 致谢 从开始写作至论文最终定稿，总共花费了我一个月以来所有的业余时间，虽说在繁忙的工作之余要完成这样一篇论文的确不是一件很轻松的事情，但我内心深处却满含深深的感激之情。 感谢电子与信息工程学院所有的任课老师，是你们让我能够静静地坐下来，在知识的海洋里吸取更 多的营养，从而能够为自己进一步的加油充电。 感谢杨老师从开题、设计到写论文过程中的指导和关心。 通过论文的撰写，使我能够等系统、全面的学习有关财务管理新型的、先进的前沿理论知识，并得以借鉴众多专家学者的宝贵经验，这对于我今后的工作和我为之服务的企业，无疑是不可多得的宝贵财富。 由于本理论水平比较有限，论文中的有些观点以及对企业实力的归纳和阐述难免有疏漏和不足的地方，欢迎老师和专家们指正。 20 附录 1 系统作品图 刷卡前： 刷卡后： 21 附录 2 上位机程序 串口设置 ： Private Sub Serial_Port1_Init() 39。 设Θ 置 ?串 ?口参 ?数簓 Dim str As String str = = Val() 39。 波168。 特 ?率234。 = str 39。 串 ?口名 ?称 ? = 8 39。 数簓据 Y位 ? = 39。 止 1位 ? = 39。 校￡验233。 位 ? End Sub 打开串口： Private Sub Button13_Click_1(ByVal sender As , ByVal e As ) Handles Dim TimeBuf(10) As Char Try If = True Then TimeBuf(0) = T TimeBuf(1) = Chr(Val()) TimeBuf(2) = Chr(Val()) TimeBuf(3) = Chr(Val()) TimeBuf(4) = Chr(Val()) TimeBuf(5) = Chr(Val()) TimeBuf(6) = Chr(Val()) TimeBuf(7) = Chr(Val() 20xx) (TimeBuf, 0, 10) Else (串 ?口未′打洙 开 a。 ?) End If Catch ex As Exception () End Try End Sub Private Sub Button21_Click(ByVal sender As , ByVal e As ) 22 Handles Try If = Or = Then (帐234。 号 ?或242。 密252。 码 ?不 ?能252。 为 a空 ?。 ?) Else If = OldUsername And = Oldpassword Then (验233。 证164。 成233。 功 |。 ?) = = () Else (验233。 证164。 失骸 败悒。 ?) = End If End If Catch ex As Exception () End Try End Sub 就诊： Private Sub ComReceive1(ByVal sender As Object, ByVal e As EventArgs) Dim i As Integer = 0 Dim Rxbuf(10) As Byte Dim TxBuf(10) As Char Dim CardNo As String = Dim CardType As String = Dim UserName As String = Dim CarNo As String = Dim CardMoney As String = Dim CardStatus As String =。