|
|
網上找的一些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黑下載附件…………
所有資料51hei提供下載:
51CTO下載-原創 VB上位機控制LED燈程序.rar
(65.36 KB, 下載次數: 239)
2017-6-16 18:01 上傳
點擊文件名下載附件
|
|
[復制鏈接]
