PC與單片機(jī)通訊(89c52 VB 控制LED)
#include
#include
#define INBUF_LEN 4 //數(shù)據(jù)長度
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;
}
//串口接收中斷函數(shù)
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) //如果取數(shù)標(biāo)志已置位,就將讀到的數(shù)從串口發(fā)出
{
read_flag= 0 ; //取數(shù)標(biāo)志清0
}
}
}
上位機(jī)(VB)代碼
添加command數(shù)組1,2,各8個(gè),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 端口號(hào)根據(jù)自己電腦設(shè)置
MSComm1.Settings = "4800,n,8,1"
MSComm1.PortOpen = True 打開通信口
End Sub
評(píng)論