超级版主 
 
主题
回帖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)
 |   
 
 
 
 |