VB上位機+單片機下位機串口通信的源碼

ID:211920 · 發表于 2017-6-16 18:02

網上找的一些VB串口通信的源碼大家可以學習一下

上位機和下位機的源碼都有：

首先燒寫程序到單片機晶振 11.0592MHZ

連接好串口線

打開上位機軟件選擇好COM端口

設置波特率為9600

單片機源程序如下:

#include <reg51.h>
#include <intrins.h>
unsigned char tmp;
#define DataPort P1 //定義數據端口程序中遇到DataPort 則用P0 替換
sbit LATCH1=P2^2;//定義鎖存使能端口段鎖存
sbit LATCH2=P2^3;// 位鎖存
unsigned char code DuanMa[10]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};// 顯示段碼值0~9
unsigned char code WeiMa[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};//分別對應相應的數碼管點亮,即位碼
unsigned char TempData[8]; //存儲顯示值的全局變量
void DelayUs2x(unsigned char t);//函數聲明
void DelayMs(unsigned char t);
void Display(unsigned char FirstBit,unsigned char Num);
void send_char(unsigned char txd);
main()
{
TMOD = 0x20; // 定時器1工作于8位自動重載模式, 用于產生波特率
TH1 = 0xFD; // 波特率9600
TL1 = 0xFD;
SCON = 0x50; // 設定串行口工作方式
PCON &= 0xef; // 波特率不倍增
TR1 = 1; // 啟動定時器1
IE = 0x0; // 禁止任何中斷
while(1)
{
if(RI) // 是否有數據到來
{
RI = 0;
tmp = SBUF; // 暫存接收到的數據
P0 = tmp; // 數據傳送到P0口
send_char(tmp); // 回傳接收到的數據
}
TempData[5]=DuanMa[tmp/100];//分解顯示信息，如要顯示68，則68/10=6 68%10=8
if(tmp>99) TempData[6]=DuanMa[tmp/10%10];
if(tmp<100)TempData[6]=DuanMa[tmp/10];
TempData[7]=DuanMa[tmp%10];
Display(0,8); //顯示全部8位
}
}
void send_char(unsigned char txd)
// 傳送一個字符
{
SBUF = txd;
while(!TI); // 等特數據傳送
TI = 0; // 清除數據傳送標志
}
/*------------------------------------------------
顯示函數，用于動態掃描數碼管
輸入參數 FirstBit 表示需要顯示的第一位，如賦值2表示從第三個數碼管開始顯示
如輸入0表示從第一個顯示。
Num表示需要顯示的位數，如需要顯示99兩位數值則該值輸入2
------------------------------------------------*/
void Display(unsigned char FirstBit,unsigned char Num)
{
unsigned char i;
for(i=0;i<Num;i++)
{
DataPort=0; //清空數據，防止有交替重影
LATCH1=1; //段鎖存
LATCH1=0;
DataPort=WeiMa[i+FirstBit]; //取位碼
LATCH2=1; //位鎖存
LATCH2=0;
DataPort=TempData[i]; //取顯示數據，段碼
LATCH1=1; //段鎖存
LATCH1=0;
DelayMs(2); // 掃描間隙延時，時間太長會閃爍，太短會造成重影
}
}
void DelayUs2x(unsigned char t)
{
while(--t);
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………