|
|
網(wǎng)上找的一些VB串口通信的源碼大家可以學(xué)習(xí)一下
上位機(jī)和下位機(jī)的源碼都有：
首先 燒寫程序到單片機(jī) 晶振 11.0592MHZ
連接好串口線
打開上位機(jī)軟件 選擇好COM端口
設(shè)置波特率為9600
單片機(jī)源程序如下:
- #include <reg51.h>
- #include <intrins.h>
- unsigned char tmp;
- #define DataPort P1 //定義數(shù)據(jù)端口 程序中遇到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};//分別對應(yīng)相應(yīng)的數(shù)碼管點(diǎn)亮,即位碼
- unsigned char TempData[8]; //存儲顯示值的全局變量
- void DelayUs2x(unsigned char t);//函數(shù)聲明
- void DelayMs(unsigned char t);
- void Display(unsigned char FirstBit,unsigned char Num);
- void send_char(unsigned char txd);
- main()
- {
- TMOD = 0x20; // 定時(shí)器1工作于8位自動(dòng)重載模式, 用于產(chǎn)生波特率
- TH1 = 0xFD; // 波特率9600
- TL1 = 0xFD;
- SCON = 0x50; // 設(shè)定串行口工作方式
- PCON &= 0xef; // 波特率不倍增
- TR1 = 1; // 啟動(dòng)定時(shí)器1
- IE = 0x0; // 禁止任何中斷
- while(1)
- {
-
- if(RI) // 是否有數(shù)據(jù)到來
- {
- RI = 0;
- tmp = SBUF; // 暫存接收到的數(shù)據(jù)
- P0 = tmp; // 數(shù)據(jù)傳送到P0口
- send_char(tmp); // 回傳接收到的數(shù)據(jù)
- }
- 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)
- // 傳送一個(gè)字符
- {
- SBUF = txd;
- while(!TI); // 等特?cái)?shù)據(jù)傳送
- TI = 0; // 清除數(shù)據(jù)傳送標(biāo)志
- }
- /*------------------------------------------------
- 顯示函數(shù)，用于動(dòng)態(tài)掃描數(shù)碼管
- 輸入?yún)?shù) FirstBit 表示需要顯示的第一位，如賦值2表示從第三個(gè)數(shù)碼管開始顯示
- 如輸入0表示從第一個(gè)顯示。
- Num表示需要顯示的位數(shù)，如需要顯示99兩位數(shù)值則該值輸入2
- ------------------------------------------------*/
- void Display(unsigned char FirstBit,unsigned char Num)
- {
- unsigned char i;
-
- for(i=0;i<Num;i++)
- {
- DataPort=0; //清空數(shù)據(jù)，防止有交替重影
- LATCH1=1; //段鎖存
- LATCH1=0;
- DataPort=WeiMa[i+FirstBit]; //取位碼
- LATCH2=1; //位鎖存
- LATCH2=0;
- DataPort=TempData[i]; //取顯示數(shù)據(jù)，段碼
- LATCH1=1; //段鎖存
- LATCH1=0;
-
- DelayMs(2); // 掃描間隙延時(shí)，時(shí)間太長會閃爍，太短會造成重影
- }
- }
- void DelayUs2x(unsigned char t)
- {
- while(--t);
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
所有資料51hei提供下載:
51CTO下載-原創(chuàng) VB上位機(jī)控制LED燈程序.rar
(65.36 KB, 下載次數(shù): 239)
2017-6-16 18:01 上傳
點(diǎn)擊文件名下載附件
|
|
[復(fù)制鏈接]
