noname1.bas

1602的流水灯等程序 用BASCOM-AVR语言 ATmega16平台

            '测试常量和函数的使用

'/////////////////////////////////////////////////////////////////////
'/// 编译器：Fastavr4.3.0
'/// 程序用途：试验和理解自定义函数Function指令的用途，以及常量的用法
'/// 程序运行情况：程序运行正常，所有功能正常
'/////////////////////////////////////////////////////////////////////
$Device= M16 ' 用户器件M16L
$Stack = 32 ' 堆栈深度125级
$Clock = 7.3728 ' 晶振频率7.3728MHz
$Lcd =PORTB.0 , RS = PORTD.3 , EN = PORTB.4, 16, 2    'LCD连接方式PB0、1、2、3，此处必须要连续端口，其余应该可以看得懂的
$Baud = 115200                                        '波特率设置为115200
$Source=On                                            'asm输出
InitLcd()                                             '初始化LCD
Nop 5                                                 '稳定LCD输出
Const t = 1000                                        '设置常量数为1000，常量存入MCU的FlashRom里面
Do                                                    '大循环开始

Declare Function mult(a As Byte, b As Byte) As Byte   '声明函数mult为Byte字节变量
Dim n As Byte                                         '设置n为Byte字节变量

n=mult(5, 7)                                          '得到n的结果为5 * 7 = 35
Locate 1,1                                            '显示“返回函数值”
Lcd "Return Function"
WaitMs t                                              '等待常量个(1000个)毫秒
Locate 2,1                                            '显示结果n的值
Lcd "n="; n
WaitMs t                                              '等待常量个(1000个)毫秒
Cls                                                   '清屏刷新

Loop                                                  '大循环跳转
End

'*********************************************此处为函数的开始
Function mult(a As Byte, b As Byte) As Byte '函数正式开始

Return a*b                                  '执行函数定义的运算
End Function                                '结束函数，返回调用函数后的一条指令，并且返回函数运算结果