當前位置:編程學習大全網 - 編程軟體 - 遙控編程板

遙控編程板

# include & ltreg52.h & gt

#定義uchar無符號字符

#定義uint無符號整數

sbit in1=p1^0;

sbit in2=p1^1;

sbit in3=p1^2;

sbit in4=p1^3;

sbit key1=p2^0;

sbit key2=p2^1;

sbit key3=p2^2;

無效延遲

{ uint x,y;

for(x = n;x & gt0;x -)

for(y = 110;y & gt0;y-);

}

向前無效()

{

in 1 = 1;

IN2 = 0;

IN3 = 1;

IN4 = 0;

}

無效反轉()

{

in 1 = 0;

IN2 = 1;

IN3 = 0;

IN4 = 1;

}

向左無效()

{

in 1 = 0;

IN2 = 0;

IN3 = 1;

IN4 = 0;

}

右側無效()

{

in 1 = 1;

IN2 = 0;

IN3 = 0;

IN4 = 0;

}

無效停止()

{

in 1 = 0;

IN2 = 0;

IN3 = 0;

IN4 = 0;

}

void RSINTR()中斷4

{

if(RI==1)

{

RI = 0;

if(SBUF=='A ')

反向();

else if(SBUF=='B ')

forward();

else if(SBUF=='C ')

left();

else if(SBUF=='D ')

right();

else if(SBUF=='E ')

stop();

}

}

主()

{

SCON = 0x 50;//允許串行接收

TMOD = 0x 20;

PCON = 0x 80;

th 1 = 0x FD;

TL 1 = 0x FD;

RI = 0;

tr 1 = 1;

EA = 1;

ES = 1;

while(1)

{

}

}

  • 上一篇:已知多邊形的壹個內角的外角與其余各內角的的度數之和是600,求邊數。
  • 下一篇:我想 在vb中表示 屏幕上的 壹點 (x,y) 在vfp 中是這個 screen.piont=(x,y) 但好想 vb中用不起 所以 我
  • copyright 2024編程學習大全網