BASCOM-8051 动态数码管显示及矩阵键盘处理程序例子.docVIP

‘动态数码管显示与矩阵键盘处理程序例子 ‘编译器：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 ‘等于10，个位置0 X = 1 ‘产生进位 Else X = 0 ‘不等于10，无进位 Exit For ‘退出进位处理 End If Next End If ‘***动态显示数值********* ‘A=P2.2 ‘B=P2.3 ‘C=P2.4 ‘位 位值 二进制值 ‘0 0 ‘1 4 ‘2 8 ‘3 12 ‘4 16 ‘5 20 ‘6 24 ‘7 28 ‘位值 =位 × 4 X = 0 ‘消隐无效0标记 For I = 8 To 1 Step -1 ‘从高位依次取各位数值 If A(i) = 0 Then ‘如果该位数等于0 If X = 1 Then ‘如果消隐标记不等于0，显示该位数 W = I - 1 ‘计算显示位的位选值 W = W * 4 ‘计算显示位的位选值 W = Not W ‘转换为负逻辑值 X = 1 ‘置消隐标记为1 P0 = Lookup(a(i) , Seg_datb) ‘输出该位数对应的段码 P2 = W ‘输出显示的位码 End If Else ‘不为0，显示该位数 Ww = I - 1 ‘计算显示位的位选值 Ww = Ww * 4 ‘计算显示位的位选值 Ww = Not Ww ‘转换为负逻辑值 X = 1 ‘置消隐标记为1 P0 = Lookup(a(i) , Seg_datb) ‘输出该位数对应的段码 P2 = Ww ‘输出显示的位码 End If Waitms 1 Next X = 0 ‘Waitms 1 ‘***键盘查询************ P3 = ‘置列高平 L = 9 If P3.0 = 0 Then L = 3 ‘第四列有键按下 If P3.1 = 0 Then L = 2 ‘第三列有键按下 If P3.2 = 0 Then L = 1 ‘第二列有键按下 If P3.3 = 0 Then L = 0 ‘第一列有键按下 If L = 9 Then Goto A1 ‘未按健或有抖动，不计算键值