动态数码管段接P0口
静态数码管段接P1口
矩阵键盘接P3口
3线-8线译码器:A= P2.2,B= P2.3,C= P2.4
程序运行时,按5号键开始计数,其他键停止
‘动态数码管显示与矩阵键盘处理程序例子
‘编译器:BASCOM-8051
‘动态数码管段接P0口
‘静态数码管段接P1口
‘矩阵键盘接P3口
‘3线-8线译码器:A= P2.2,B= P2.3,C= P2.4
‘程序运行时,按5号键开始计数,其他键停止
Dim H As Integer
Dim L As Integer
Dim K As Integer
Dim I As Integer
Dim A(8) As Integer ‘矩阵键盘行值 ‘矩阵键盘列值 ‘矩阵键盘键值 ‘循环变量 ‘8位数码存放数组
Dim X As Integer ‘进位和消隐标记
Dim W As Integer ‘位码值
K = 0
X = 0 ‘初始无按键值 ‘初始无进位
For I = 1 To 8
A(i) = 0 '各位数赋初值
Next
Do
A1:
‘***累加及处理*************
If K = 4 Then '如果按了第5个键,进行累加运算
A(1) = A(1) + 1 ‘个位加1
If A(1) = 10 Then ‘是否等于10
A(1) = 0 ‘等于10,个位置0
X = 1 ‘产生进位
Else
X = 0 ‘不等于10,无进位
End If
End If
‘***进位处理*************
If X = 1 Then ‘如果有进位,则进行进位处理
For I = 2 To 8 ‘从十位开始进位处理
A(i) = A(i) + X ‘该位数加进位
If A(i) = 10 Then ‘是否等于10
A(i) = 0
X = 1
Else ‘等于10,个位置0 ‘产生进位
X = 0 ‘不等于10,无进位
Exit For ‘退出进位处理
End If
Next
End If