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

Storm_change

#include<reg51.h> ' D0 Y- ?& e# ~5 K' x. H#define uchar unsigned char #define uint unsigned int * Q4 \$ u! u7 P- C2 w" U9 }sbit B1=P3^6; ; M$ ]6 s# Q6 esbit B2=P3^7; sbit buzzer=P3^5; sbit clear=P3^4;       // ???????B1,B2,BUZZER,CLEAR ; v$ |6 y1 i3 w) H/ tuchar code distab[10]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90}; uchar code keytab[8][8]={{1,2,3,4,5,6,7,8},         // ????????        {9,10,11,12,13,14,15,16},        {17,18,19,20,21,22,23,24}, ; o- [3 m; Q, J! @* g       {25,26,27,28,29,30,31,32}, $ X( D* Y2 ?" r1 ~# B$ m       {33,34,35,36,37,38,39,40}, & J; @5 A: Q. t, L2 f7 |       {41,42,43,44,45,46,47,48}, $ d5 T! o  ?' C       {49,50,51,52,53,54,55,56},   _3 f  k2 ~# j1 H5 a" ]5 i0 u, u       {57,58,59,60,61,62,63,64},       };       uchar bed_NO; uchar btime; ' e% g( N7 J* }: f6 buchar itime;       //???????bed_NO??uchar btime??uchar itime & f& {/ E% O. `" D0 G/ U. Ovoid delay(uint x)         //??????????? {   uint i,j; # |. Z- ?# ]* T# N* U) xfor(i=0;i<x;i++) # H4 m: g: Q. Q% s, z{   for(j=0;j<10;j++) . N# y7 O: b: j  {;;} } } void display(void)        //?????????? { 6 P9 t8 ~- ]; Y# p  L6 ~, p9 quchar a10,a1; a10=bed_NO/10; a1=bed_NO%10; P1=distab[a10]; 2 x9 _3 q$ n; r7 t( P4 ZB1=1;   A: Y3 a6 W4 F6 ldelay(10);   b2 v& ^) _7 MB1=0; P1=distab[a1]; B2=1; 2 C& _: X3 j) S$ V  i' _6 p- Mdelay(10);   Q( \  W: e9 `0 j$ VB2=0; + q) I+ e( m& E% d/ p7 r} void key(void)             //??????? . P- A1 L/ p/ b1 f8 A8 e" h6 q/ Y8 s* p{ uchar hang,lie; 3 Z% d) f6 ?) q9 [/ o# @' KP0=0x002=0xff; delay(1);          if(P2!=0xff) + R/ O! v' y5 G% q. v; o7 o{   delay(5);       //????5??????????? ( ^3 s* C+ K0 ]7 _0 }: g2 C  if(P2!=0xff) ' V+ G0 T2 c. [4 B) o. r  { & F& e. j' P8 y/ j, H   switch(P2&0xff)        //?????? 1 p% t' }/ D' _# q! v7 P  ]    {     case 0xfe:lie=0;break; 2 A( G( y0 ?5 E  L' K    case 0xfd:lie=1;break; : m9 \& M. W* h: N! N7 c    case 0xfb:lie=2;break; ) u2 L6 C2 B) S8 s- [0 q    case 0xf7:lie=3;break; 6 t4 T% }0 z# ]+ c& F; d/ J    case 0xef:lie=4;break; . Z% D2 Z2 F+ {7 @" u8 H3 Z" Q    case 0xdf:lie=5;break;     case 0xbf:lie=6;break; 9 a! b* J2 _, U, w, l( Z* T0 c    case 0x7f:lie=7;break;     } ) i+ B2 ~& t7 e" Q, |  P2=0xff0=0xff;   switch(P0&0xff)       // ??????     {     case 0xfe:hang=0;break;     case 0xfd:hang=1;break;     case 0xfb:hang=2;break;     case 0xf7:hang=3;break; 0 H) l$ Q" w2 S# E7 D+ M+ ~    case 0xef:hang=4;break; $ Z5 i' t) P$ ?5 q    case 0xdf:hang=5;break; 6 e& E* [. ^; {5 N    case 0xbf:hang=6;break;     case 0x7f:hang=7;break;     } ; j0 }3 g4 d8 |1 I/ K2 ]  P2=0xff0=0x00; , N% [. y) z8 r  while(P2!=0xff);   bed_NO=keytab[hang][lie];TR0=1;       //??????????bed_NO 7 o1 B- Y' j8 x( {* l7 C  } else ( G. |9 \3 T; D% ]4 k: X  bed_NO=0; }   1 }  H7 _9 p3 ^9 }, x} void time_init(void)        // ???????????? # Z6 _! M3 E4 F  ]; f! n" u" ~{ TMOD=0x01; TH0=(65536-8333)/256;        //  ????? , }' X6 q4 x) Y6 V; bTL0=(65536-8333)%256; 9 D7 E$ v; w( S7 Q2 O1 f3 VEA=1; 7 a" `: F1 R$ P$ ]) P, oET0=1; } 8 d' _- ~) X% B! Q2 S* ]5 J" d% L5 _void time(void) interrupt 1 using 1      // ?????ж?? { TH0=(65536-8333)/256; TL0=(65536-8333)%256; 6 b; b/ h* v" O) J8 Oitime++; if(itime>=100) { 3 t4 {4 B, `% `: _3 w' l  itime=0; " v) k. s1 I3 ?" J  btime++;   if(btime>3){TR0=0;btime=0;}   buzzer=!buzzer; 7 S2 `9 i: z9 U3 {$ w' j' Y} } 5 F* ]2 F% d- R  L, N/ q' r+ |void main(void) ( S3 P1 c( c! X, g2 v0 y, D0 n{ $ _9 K1 Y# N  g7 J" g9 vtime_init(); for(;;) ' ~  t' ^# k' c, A. ?6 e* m- s{ # ?- u8 d, f1 S( [. |  key();   display();   if(TR0==0){buzzer=1;}   if(clear==0)           //??????????? ) g* O7 c- Q- i* u# X# D  {    delay(10);    if(clear==0) 1 c( C/ t( r6 P- @   {     bed_NO=0; $ I/ Z3 o* ~( K   } - }; S$ J- X+ F! [3 o9 {8 u! B+ l   } } ! I, B1 A3 y; q}

Heaven_1

这程序出错了,P0=0xff;
: a0 y6 r, f( E9 Q  switch(P0&0xff)       //
5 r% d) s2 k$ h这个P0已经给值了，后面一名开关语言还有什么用。

ad_gao

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