基于單片機89c51的ic卡識別-資料下載頁

【導讀】IC卡是一個正蓬勃發展的邊緣產業，一個與我們生活越來越密切的產業。目前“一卡通”正在許多領域得到應用，如公交系統、稅控管理、賓館服務、醫療保險等。在普及因特網和計算機的大潮涌來時，IC卡扮演著日益重要的角色。應用系統間的橋梁，在ISO國際標準中稱之為接口設備IFD。CPU通過一個接口電路與IC卡相連并進行通信。IC卡接口電路是IC卡讀寫器中至關重要的。非接觸式IC卡簡介又稱射頻卡，成功地解決了無源和免接。觸這一難題，是電子器件領域的一大突破。介紹了以單片機AT89C51為核心的IC卡系統的設計。

　　

【正文】 / * 字節寫入模式寫函數，其中 address 為單元地址， dd 為數據 * / Void write_byte(uchar address,uchar dd) { Start_ic()。 Wd24(0a0)。 遼寧石油化工大學繼續教育學院論文 29 Wd24(address)。 Wd24(dd)。 Stop_ic()。 } / * 串行通信子程序 * / / * 波特率２４００，８位數據位，１位停止位，無校驗位 * / / * 先用握手字節 y，然后發送 x個數據 * / / * 待發送數據在 trdata 緩沖區中 * / Void m.(uchar x,uchar y) { Uchar i,a。 Uint j。 While(1) {TI。 while(RI= =0)。 RI=0。 A=SBUF。 If(a!=y)goto[1]。 For(j=0。ix。i++)。 { SBUF trdata[i]。 While(TI= =1)。 TI=0。 } For(j=0。j12500。j++)。 } } / * 主程序初始化函數 * / Void init(void) { RSR=0。 PWR=1。 遼寧石油化工大學繼續教育學院論文 30 IC_WR=0。 ONCOMM=0。 EX0=1。 TMOD=0x20。 SCON=0x50。 TH1=0xf3。TL1=0xf3。 If(BAUI)==0 { PCON=0x08。 } Else { PCON=0x00。 } TR1=1。 EA=1。 } / * 將數據緩沖區 16B 發往上位機 * / / * 波特率 2400， 8位數據位， 1位停止位，無校驗為 2 * / / * 待發送數據在 buf 緩沖區 * / Void transfer(void) { Uchar i。 Uint j。 For(i=0。i16。i++) { SBUF=buf[i]。 While(TI= =0)。 TI=0。 FCR=0。j1000。j++)。 遼寧石油化工大學繼續教育學院論文 31 } } / * 接收 16B 存入緩沖區 * / / * 波特率 2400， 8 位數據位， 1 位停止位， 無校驗位 * / / * 緩沖區為 buf * / Void teceive(void) { Uchar I,a。 For(i=0。i16。i++) { while(RI= =0)。 RI=0。 A=SBUF。 Buf[i]=a。 } } / * 將緩沖區的 n字節寫入 IC 卡 address 開始的區域 * / Void write_ic(uchar address,uchar n) { Uchar x,y。 For(y=0。yn。y++) { While_byte(address[y],buf[y])。 Delay(10)。 } } / * 拔卡中斷程序，主要完成 IC 卡下電及讀 /寫復位 * / Void int_0(void)interrupt 0 using 1 { While(! ICOUT)。 Delay(10)。 遼寧石油化工大學繼續教育學院論文 32 If(! ICOUT) { If(IC_WR ONCOMM) { PWR=1。 BELL=0。 Delay(10)。 BELL=1。 RST==1。 } } } / * 延時函數，延時 ms 數由 N決定，但不同的系統需要調整相應參數 * / Void delay(uchar n) { Uchar i,j,k。 For(k=o。kn。k++) For(i=0。i100。i++) For(j=0。j255。j++)。 } Void main(void) { Uchar a。 Fuwei: init( )。 While(! ICIN)。 Delay(10)。 While(! ICIN)。 IC_WR=1。 / * 開始讀 IC卡 16B 并存入緩沖區 * / PWR=0。 遼寧石油化工大學繼續教育學院論文 33 Read_bytes(0,16)。 PWR=1。 / * 等待與上機位建立 通信聯系 * / ONCOMM=1。 While(RI= =0)。 RI=0。 A=SBUF。 Switch(a) { case 0xaa: SBUF=0xaa。 While(! TI)。 TI=0。 Transfer( )。 Break。 Case 0xbb: SBUF=0xbb。 While(! TI)。 TI=O。 Receive( )。 PWR=0。 Write_ic(0,16)。 PWR=1。 Break。 Default: SBUF=0xcc。 While(! TI)。 TI=0。 } ONCOMM=0。 While(! RST)。 Goto fuwei。 } 遼寧石油化工大學繼續教育學院論文 34 采用 fanklincC51 編譯的命令如下： C51 L51 上位 PC機通信接口軟件 在 Windows 9x 的串行通信 實現一般有 3 種方式： （ 1） 利用 Windows 9x 的 API 接口函數。 （ 2） 對于 RAD 開發系統（如 VB），可利用 ActiveX 串行通信控件。 （ 3） 利用 DLL 動態鏈接庫，直接操作串行端口。 上述 3 種方式各有特點。這里討論采用第 3 種方式實現的串行通信接口，具有應用靈活的特點。 下面給出基于 的串行通信 DLL 程序： Library Mydll。 Use SysUtils。 Classes。 Const COM1: =$ 3f8。 COM2: =$2f8。 Var COM: Word。{DLL 中全局變量 } Procedure Outb(Const Port:Word。onst Dbyte:Byte)。pascal。 Begin Asm MOV DX,Port MOV AL,Dbyte OUT DX,AL End。 End。 Function Inb(Const Port:Word):Byte。pascal。 Begin Asm 遼寧石油化工大學繼續教育學院論文 35 MOV DX,Port MOV AL,Dbyte OUT DX,AL End。 End。 Function Inb(Const Port:Word):Byte。pascal。 Begin Asm MOV DX,Port IN AL,DX MOV @Resullt,AL End。 End。 {串行口初始化， COM1， COM2 可選，波特率 2400， 4800 可選 } Procedure CommInit(Consst Port:Byte。Const Band:String)。Stdcall。 Var BAUDL,BAUDH:Byte。 Begin If Port=1 then COM:=COM1。 Else COM:=COM2。 If BAUD=’ 2400’ then Begin BAUDL:=$30。 BAUDH:=$00。 End。 Else Begin BAUDL:=$18。 遼寧石油化工大學繼續教育學院論文 36 BAUDH:=$00。 End。 Outb(COM+3,$80)。 Outb(COM,BAUDL)。 Outb(COM+1,BAUDH)。 Outb(COM+3,$03)。 End。 {發送一字節 } Procedure SendByte(Const Dbyte:Byte)。Stdcall。 Var Status:Byte。 Begin Repest Status:=Inb(COM+5)。 Until((Status and $20)=$20)。 Outb(COM,Dbyte)。 End。 Function ReceiveByte:Byte。Stdcall。 Vor Status,Res:Byyte。 Begin Repear: Status:=Inb(COM+5)。 Until((Status and $01)=$01)。 Res:=Inb(COM)。 ReceiveByte:=Res。 End。 {以下用 EXPORT 引出輸出過程或函數 } Export CommInit。 Export SendByte。 遼寧石油化工大學繼續教育學院論文 37 Export ReceiveByte。 Begin End. 遼寧石油化工大學繼續教育學院論文 38 致 謝 論文寫作即將畫上一個圓滿的句號 ， 在論文寫作的過程中 ， 從論文的選題到確定思路 ， 從資料的搜集、提綱的擬定到內容的 寫作與修改 ， 繼而諸多觀點的梳理 ，都得益于我的老師的悉心指導和匠心點撥。論文的點評中總是閃爍著智慧的火花，與他的每次交談我都能從中獲益。他淵博的學識，敏銳的學術洞察力，嚴謹的治學態度，一絲不茍的負責精神，以及對學生孜孜不倦的教誨都給予了我極其深刻的印象，讓我受益匪淺。在此，謹向朱老師表示我最衷心地感謝和最誠摯的敬意。同時，也向兩年來所有教授過我和幫助過我的老師表示感謝，感謝您們對我的諄諄教誨、耐心指導和無私的幫助。感謝我的同學和朋友們，感謝你們在我論文寫作過程中給予我的鼓勵、關心和無私的幫助。最后，衷心地感謝 我的家人，感謝你們一直以來給予我的