8位数码管矩阵键盘c语言程序,BASCOM-8051 动态数码管显示与矩阵键盘处理程序例子...

动态数码管段接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