用VB實現(xiàn)單片機和計算機的串口通信

//ex99 單片機數(shù)據(jù)發(fā)送程序
#include //包含單片機寄存器的頭文件
/*****************************************************
函數(shù)功能：向PC發(fā)送一個字節(jié)數(shù)據(jù)
***************************************************/
void Send(unsigned char dat)
{
SBUF=dat;
while(TI==0)
;
TI=0;
}
/*****************************************************
函數(shù)功能：延時1ms
(3j+2)i=(3×33+2) ×10=1010(微秒)，可以認為是1毫秒
***************************************************/
void delay1ms()
{
unsigned char i,j;
for(i=0;i<10;i++)
for(j=0;j<33;j++)
;
}
/*****************************************************
函數(shù)功能：延時若干毫秒
***************************************************/
void delaynms(unsigned char x)
{
unsigned char i;
for(i=0;i delay1ms();
}
/*****************************************************
函數(shù)功能：主函數(shù)
***************************************************/
void main(void)
{
unsigned char i;
TMOD=0x20; //定時器T1工作于方式2
TH1=0xfd; //根據(jù)規(guī)定給定時器T1賦初值
TL1=0xfd; //根據(jù)規(guī)定給定時器T1賦初值
PCON=0x00; //波特率9600
TR1=1; //啟動定時器t1
SCON=0x40; //串口工作方式1
while(1)
{
for(i=0;i<200;i++) //模擬檢測數(shù)據(jù)
{
Send(i); //發(fā)送數(shù)據(jù)i
delaynms(100); //100ms發(fā)送一次檢測數(shù)據(jù)
}
}
}