I2C總線接口和簡(jiǎn)易IC卡讀寫器

1、$regfile="M16def.dat"$crystal=11059200$baud=9600DimIAsByte,TempAsByteDimData1(8)AsByte,Data2(8)AsByteDimCard_okAsBitConfigLcdpin=Pin,Db4=Portc.4,Db5=Portc.5,Db6=Portc.6,Db7=Portc.7,E=Portd.5,Rs=Portd.3''定義LCD顯示屏接口''定義PPortc.0為I2C總線的Scl''定義PPortc.1為I2C總線的Dda''

2、;定義IC卡的寫地址指令字'定義IC卡的讀地址指令字'定義3個(gè)I/O口為輸入開關(guān)接口''清LCD顯示ConfigLcd=16*4ConfigScl=Portc.0ConfigSda=Portc.1ConstAdresw=&HA0ConstAdresr=&HA1ConfigPinc.0=Input,Pinc.1=Input,Pinc.2=InputPortc.0=1:Portc.1=1:Portc.2=1CursorOffNoblinkDoCls'顯示提示字符''檢測(cè)有無IC卡插入'無IC卡插入''有

3、IC卡插入''檢測(cè)系統(tǒng)設(shè)置為寫卡方式?'寫卡方式，要求輸入密碼字Locate1,1:Lcd"DemoforIC_Card"IfPinc.2=1ThenLocate2,1:Lcd"NoIC_Card"Wait1ElseIfPinc.0=0ThenClsLocate1,1:Lcd"EnterPassword:"I=1Locate2,1Do由RS-232口接收PC輸入Temp=Inkey()IfTemp<>0ThenData1(i)=Temp:I=I+1LedChr(temp)PrintChr(temp)

4、;EndIfLoopUntilI>8PrintForI=1To8I2cstartI2cwbyteAdreswI2cwbyteII2cwbyteData1(i)I2cstopWaitms10NextIfPinc.1=0ThenForI=1To8WriteeepromData1(i),INextEndIfForI=1To8I2cstartI2cwbyteAdreswI2cwbyteII2cstartI2cwbyteAdresrI2crbyteData2(i),NackI2cstopNext''的密碼字符，'長(zhǎng)度為8個(gè)''同時(shí)在LCD上顯示密碼'

5、將8個(gè)密碼字寫入IC卡中'寫入地址為1-8如果系統(tǒng)設(shè)置為修改系統(tǒng)密碼時(shí)'將密碼寫入AVR的EEPROM中''寫入地址為1-8'讀IC卡剛寫入的密碼Card_ok=0ForI=1To8IfData1(i)<>Data2(i)ThenCard_ok=1ExitForEndIfNextLocate2,1IfCard_ok=0ThenLcd"WriteCardok!"ElseLed"NoorBadCard!?"EndIfDoLoopUntilPinc.2=1ElseCls:Locate1,1ForI=1To8I

6、2cstartI2cwbyteAdreswI2cwbyteII2cstartI2cwbyteAdresrI2crbyteData1(i),NackI2cstopLcdChr(data1(i)NextForI=1To8ReadeepromData2(i),I''判別寫入密碼同用戶輸入的密碼'是否相同'相同，寫卡完成'不同，寫卡操作有誤或壞的IC卡'等待用戶抽出IC卡''系統(tǒng)為讀卡方式'讀IC卡上的密碼字8個(gè)'顯示在LCD上'讀系統(tǒng)密碼字8個(gè)NextCard_ok=0ForI=1To8IfData1(i)<>Data2(i)ThenCard_ok=1ExitForEndIfNextLocate2,1IfCard_ok=1ThenLcd"Passwordnotok!"ElseLed"PasswordOk!"EndIfDoLoopUntilPinc