12345.bas

ATmega16写EEPROM的例子 BASCOM-AVR编译

$regfile = "m16DEF.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Dim A(9) As Byte
Dim I As Byte

Cls
Waitms 100
For I = 3 To 7
    Readeeprom A(i) , I                                     '从EEPROM的地址I开始读数据,并且赋值给数组A(I)
    Lcd A(i) ; "*";
Next I
End

$eeprom                                                     '告诉编译器数组Shuzu的数据将存放在EEPROM
$eepromhex                                                  '要求编译器产生适合烧写EEPROM的hex文件
Shuzu:
    Data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9