//单片机c代码
#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 (ch==2 )
{
}
if (ch==3 )
{
}
if (ch==4 )
{
}
if (ch==5 )
{
}
if (ch==6 )
{
}
if (ch==7 )
{
}
if (ch==8 )
{
}
if (ch==11 )
{
}
if (ch==12 )
{
}
if (ch==13 )
{
}
if (ch==14 )
{
}
if (ch==15 )
{
}
if (ch==16 )
{
}
if (ch==17 )
{
}
if (ch==18 )
{
}
}
}
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)
End Sub
Private Sub Command2_Click(Index As Integer)
End Sub
Private Sub Form_Load()
For i = 0 To 7
Next i
Me.BorderStyle = 4
Me.Caption = “LED操控”
MSComm1.CommPort = 4 端口号依据自己电脑设置
MSComm1.Settings = “4800,n,8,1”
MSComm1.PortOpen = True 翻开通信口
End Sub