eepram.bas

ATmega16写EEPROM的例子 BASCOM-AVR编译

$regfile = "m16def.dat"
$crystal = 8000000

Dim V As Eram Byte
Dim A As Byte
A = 10
V = A                                                       '给变量V赋值 也就是写该变量到EEPRAM中
'也可以这样
 Dim V As Byte
 V = 12
 Writeeepram B , 5                                          '写B到EEPRAM中地址5中
 Readeepram B , 6
 Print B
 End