PC与单片机通讯(89c52 VB 控制LED)

#include  
#include  
#define INBUF_LEN 4 //数据长度 
unsigned char inbuf1[INBUF_LEN]; 
unsigned char checksum,count3; 
bit read_flag= 0 ;
sbit p1=P1^0;
sbit p2=P1^1;
sbit p3=P1^2;
sbit p4=P1^3;
sbit p5=P1^4;
sbit p6=P1^5;
sbit p7=P1^6;
sbit p8=P1^7;
void init_serialcomm( void ) 
{ 
SCON = 0x50 ; //SCON: serail mode 1, 8-bit UART, enable ucvr 
TMOD |= 0x20 ; //TMOD: timer 1, mode 2, 8-bit reload 
PCON |= 0x80 ; //SMOD=1; 
TH1 = 0xF4 ; //Baud:4800 fosc=11.0592MHz 
IE |= 0x90 ; //Enable Serial Interrupt 
TR1 = 1 ; // timer 1 run 
// TI=1; 
} 

//串口接收中断函数 
void serial () interrupt 4 using 3 
{ 
if (RI) 
{ 
unsigned char ch; 
RI = 0 ; 
ch=SBUF; 
if (ch==1 ) 
{
 //if (P1==0xff)
 //P1=0x0e;
 //else
 //P1=0xff;
 p1=0;
}
if (ch==2 ) 
{
 p2=0;
}
if (ch==3 ) 
{
 p3=0;
}
if (ch==4 ) 
{
 p4=0;
}
if (ch==5 ) 
{
 p5=0;
}
if (ch==6 ) 
{
 p6=0;
}
if (ch==7 ) 
{
 p7=0;
}
if (ch==8 ) 
{
 p8=0;
}
if (ch==11 ) 
{
 p1=1;
}
if (ch==12 ) 
{
 p2=1;
}
if (ch==13 ) 
{
 p3=1;
}
if (ch==14 ) 
{
 p4=1;
}
if (ch==15 ) 
{
 p5=1;
}
if (ch==16 ) 
{
 p6=1;
}
if (ch==17 ) 
{
 p7=1;
}
if (ch==18 ) 
{
 p8=1;
}
 
} 
} 
main() 
{ 
init_serialcomm(); //初始化串口 
while ( 1 ) 
{ 
if (read_flag) //如果取数标志已置位，就将读到的数从串口发出 
{ 
read_flag= 0 ; //取数标志清0 
} 
} 
}

'上位机（VB）代码

'添加command数组1,2，各8个，command1(i),command2(i)

'添加MSComm控件

Private Sub Command1_Click(Index As Integer)
  MSComm1.Output = Chr(Index + 1)
End Sub

Private Sub Command2_Click(Index As Integer)
  MSComm1.Output = Chr(Index + 11)
End Sub

Private Sub Form_Load()
For i = 0 To 7
  Command1(i).Caption = "ON_LED_" & Str(i + 1)
  Command2(i).Caption = "OFF_LED_" & Str(i + 1)
Next i
Me.BorderStyle = 4
Me.Caption = "LED控制"
MSComm1.CommPort = 4 '端口号根据自己电脑设置
MSComm1.Settings = "4800,n,8,1"
MSComm1.PortOpen = True '打开通信口
End Sub