超级版主
主题
回帖0
积分14436
阅读权限150
注册时间2008-11-13
最后登录1970-1-1
在线时间 小时
|
任何语言都有存在的道理。如果只是玩单片机,选择何种语言并不重要,只要自我感觉方便就行!能玩起来才是硬道理!
初涉BASIC_AVR,感觉就是简洁。但对硬件的操作就会有些难度!
以一个简单的实例说明:
用自定义字符让1602显示“十”字形的图形,并让他不停地旋转。见下图
如果用其他语言编程比较复杂!
但用BASIC_AVR就比较简洁,短短的只有几项,就解决问题。而且编程思路十分清晰!
这样的好处是一旦有问题,方便修改!
//==============================================================
$regfile = "2313def.dat"
$crystal = 4000000
$sim
Config Portd = Output
Dim Star As Byte
Cursor Off
//======说明:源码中的自定义字符,由编译器自有的LCD产生
Deflcdchar 0 , 32 , 4 , 4 , 31 , 4 , 4 , 32 , 32
Deflcdchar 1 , 32 , 2 , 20 , 14 , 5 , 8 , 32 , 32
Deflcdchar 2 , 32 , 2 , 26 , 4 , 11 , 8 , 32 , 32
Deflcdchar 3 , 32 , 17 , 10 , 4 , 10 , 17 , 32 , 32
Deflcdchar 4 , 32 , 8 , 11 , 4 , 26 , 2 , 32 , 32
Deflcdchar 5 , 32 , 8 , 5 , 14 , 20 , 2 , 32 , 32
Cls
Do
For Star = 0 To 5 Step 1
Portd = 255
Waitms 100
Portd = 0
Waitms 100
Locate 1 , 16
Lcd Chr(star)
Next Star
Loop
End
//=============================================================
附件一: 自作的仿真运行文件,打开后可见到旋转的运行情况
lcd.rar
(11.57 KB, 下载次数: 2198)
附件二: 已编译的源码
s1.rar
(65.87 KB, 下载次数: 2202)
|
|