EX99用VB實現單片機和計算機的串口通信

//ex99 單片機數據發送程序#include<reg51.h> //包含單片機寄存器的頭文件/*****************************************************函數功能：向PC發送一個位元組數據***************************************************/void Send(unsigned char dat){ SBUF=dat; while(TI==0) ; TI=0;}/*****************************************************函數功能：延時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++) ; }/*****************************************************函數功能：延時若干毫秒***************************************************/void delaynms(unsigned char x){unsigned char i; for(i=0;i<x;i++) delay1ms();}/*****************************************************函數功能：主函數***************************************************/void main(void){ unsigned char i; TMOD=0x20; //定時器T1工作於方式2 TH1=0xfd; //根據規定給定時器T1賦初值 TL1=0xfd; //根據規定給定時器T1賦初值 PCON=0x00; //波特率9600 TR1=1; //啟動定時器t1 SCON=0x40; //串口工作方式1 while(1) { for(i=0;i<200;i++) //模擬檢測數據 { Send(i); //發送數據i delaynms(100); //100ms發送一次檢測數據 } }}
推薦閱讀：