求大神帮助，单片机程序只能扫描行 不能扫描列

Storm_change

#include<reg51.h> . ^" ^2 `  n; Q# ], I" T2 X2 C#define uchar unsigned char 7 z  Q8 x: W1 g& d#define uint unsigned int # o. [- @: k: o% p# B/ t, zsbit B1=P3^6; " @/ J2 l: n" x5 h$ w( Hsbit B2=P3^7; sbit buzzer=P3^5; sbit clear=P3^4;       // ???????B1,B2,BUZZER,CLEAR uchar code distab[10]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90}; 5 `' a5 s- I0 E% b" quchar code keytab[8][8]={{1,2,3,4,5,6,7,8},         // ????????        {9,10,11,12,13,14,15,16}, 5 Z- \) [8 @. F4 }       {17,18,19,20,21,22,23,24},        {25,26,27,28,29,30,31,32}, ' W5 {! b: R4 B& i9 X% G* u$ V( L; V       {33,34,35,36,37,38,39,40}, * l6 p% T& `: F' ?6 P6 [% l       {41,42,43,44,45,46,47,48},        {49,50,51,52,53,54,55,56},        {57,58,59,60,61,62,63,64}, ' E6 j- c' [/ K+ y+ {6 g$ u9 y- e3 E      };       uchar bed_NO; uchar btime; uchar itime;       //???????bed_NO??uchar btime??uchar itime % E+ e+ P$ G" k0 Y7 V4 o/ x. ?7 bvoid delay(uint x)         //??????????? {   uint i,j; for(i=0;i<x;i++) {   for(j=0;j<10;j++)   {;;}   T& C/ d0 t5 T0 d- C: ?4 |* ^} 2 I: L+ [) G* c& r; R8 C} 1 M' u9 n! T) q! Qvoid display(void)        //?????????? / t7 d) C! L% k6 |! w  y{ ) o1 I! V, E: s" guchar a10,a1; - Z  H" X! i4 S3 Q1 c3 ?a10=bed_NO/10; a1=bed_NO%10; P1=distab[a10]; ! l. ~0 S6 ]3 q( q7 L0 a$ z1 yB1=1; ( I2 \! t$ {6 @+ ~8 Hdelay(10); B1=0; P1=distab[a1]; B2=1; % }9 x  j1 O( `  S7 \2 Gdelay(10); - C! [' T! ^& f/ z* _& qB2=0; } void key(void)             //??????? . `2 c. j3 Q6 g1 y0 d% f5 w6 G* {{ uchar hang,lie; 2 r+ R5 \7 V0 U+ p- `P0=0x002=0xff; delay(1);          if(P2!=0xff) % K; J! C1 V- \8 z/ ^* k{ % p& P/ W, |0 ?8 I! \3 S  delay(5);       //????5???????????   if(P2!=0xff) 6 z4 W1 k9 t  T& \  {    switch(P2&0xff)        //??????     { ' F4 [! u, a: D- ]' l0 e    case 0xfe:lie=0;break;     case 0xfd:lie=1;break; 9 P) K" k/ n- k! R  e4 |    case 0xfb:lie=2;break; 4 ]' h7 c% u- L0 ^    case 0xf7:lie=3;break; & o& z% D! I. m& t    case 0xef:lie=4;break;     case 0xdf:lie=5;break; & T$ z' D, _; U6 k% d$ E$ S  F    case 0xbf:lie=6;break; $ p$ e0 y2 G  h" }9 N- h4 f' v    case 0x7f:lie=7;break; 9 z* `: I4 O5 N1 n1 B& R    }   P2=0xff0=0xff;   switch(P0&0xff)       // ?????? 9 j8 |/ {+ c7 i5 C    { 9 I5 _9 Y) n/ r) `$ `4 S    case 0xfe:hang=0;break;     case 0xfd:hang=1;break; 1 Y" b" j4 w4 z+ ~    case 0xfb:hang=2;break; ) h& a0 S3 H3 m    case 0xf7:hang=3;break;     case 0xef:hang=4;break;     case 0xdf:hang=5;break;     case 0xbf:hang=6;break; 4 d% o9 p. X& M! @* |    case 0x7f:hang=7;break; 1 T7 p0 l* b* x* I" v- @    }   P2=0xff0=0x00;   while(P2!=0xff);   bed_NO=keytab[hang][lie];TR0=1;       //??????????bed_NO 6 e, A3 h/ R5 U3 ^! k, h- c7 F  } ' @5 ^* S% ~0 N+ |8 H& d) yelse   bed_NO=0; & m) t8 V9 [8 I' e* c, j/ T}   * V% A  }" j. R- N# T/ |} - J5 w5 w# x; n0 Q! N) Hvoid time_init(void)        // ???????????? * Y1 T4 ~4 k# D3 d$ z" `5 k! a% Z{ 5 V5 j" I2 J/ ZTMOD=0x01; TH0=(65536-8333)/256;        //  ????? 4 |  N' C; j, H+ E0 Y) @  {* G6 O4 KTL0=(65536-8333)%256; EA=1; ' n5 _! W0 b7 P4 D8 q6 y9 ^) _3 R/ DET0=1; 8 s: C& U2 G. ]+ D} % {# d2 V$ t9 P0 n/ y0 a, cvoid time(void) interrupt 1 using 1      // ?????ж?? 5 S9 S0 ~2 G, ^+ }8 `# D2 _* Y6 G{ 8 q* \' |8 ^5 o2 F- y0 OTH0=(65536-8333)/256; - w5 [) U  S6 I$ j- L: ]TL0=(65536-8333)%256; itime++; ; t" @4 P( X$ ?+ R& P0 ~. Zif(itime>=100) 3 u7 t* U; z" a& I$ B/ R{   itime=0;   btime++;   if(btime>3){TR0=0;btime=0;} 1 v, {. X1 |4 a# B) `  buzzer=!buzzer; } } void main(void) { time_init(); ! E; B  C5 G; a1 Ifor(;;) 0 I& _$ l7 l' `* |0 V( y2 ^{   key();   display();   if(TR0==0){buzzer=1;} ' Z9 K* }2 u. E  if(clear==0)           //??????????? 6 k0 S. s+ s9 s  { ' c( l6 J& X* o8 A( A# K   delay(10);    if(clear==0)    {     bed_NO=0; - W  W9 h0 @. x6 L6 n; b$ G   } 5 x% F' x: N# |- D/ v   } } & S; R6 H6 a: X, H2 f+ X8 L: }}

" f: {6 D. x+ _0 T8 x

Heaven_1

这程序出错了,P0=0xff;
  switch(P0&0xff)       //
这个P0已经给值了，后面一名开关语言还有什么用。

ad_gao

可能指8*8键盘只扫到行出不了列的意思