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

动态数码管显示与矩阵键盘处理程序例子编译器：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 Integer8位数码存放数组Dim X As Integer进位和消隐标记Dim W As Integer位码值K = 0初始无按键值X = 0初始无进位For I = 1 To 8 A(i) = 0各位数赋初值NextDo 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.2B=P2.3C=P2.4位位值二进制值0000000000140000010028000010003120000110041600010000520000101006240001100072800011100位值 =位 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 = 0Waitms 1*键盘查询* P3 = &B00001111置列高平 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未按健或有抖动，不计算键值返回 P3 = &B11110000置行高平 H = 9 If P3.4 = 0 Then H = 3第四行有键按下 If P3.5 = 0 Then H = 2第三行有键按下 If P3.6 = 0 Then H = 1第二行有键按下 If P3.7 = 0 Then H = 0第一行有键按下 If H = 9 Then Goto A1未按健或有抖动，不计算键值返回*计算键值* K = H * 44 4 键盘 K = K + LBASCOM-8051不能在同一行上多项计算，所以分行计算*静态数码管显示键值* P1 = Lookup(k , Seg_data)LoopEndSeg_data:负逻辑的段码表Data &B11000000 , &B11111001 , &B10100100 , &B10110000 , &B10011001 , &B10010010 , &B10000010 , &B11111000Data &B10000000 , &B10010000 , &B10001000 , &B10000011 , &B11000110 , &B10100001 , &B10000110 , &B10001110Seg_datb:正逻辑的段码表Data &B00111111 , &B00000110 , &B01011011 ,