找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

搜索
查看: 9638|回復(fù): 6
打印 上一主題 下一主題
收起左側(cè)

VB上位機(jī)+單片機(jī)下位機(jī)串口通信的源碼

  [復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
網(wǎng)上找的一些VB串口通信的源碼大家可以學(xué)習(xí)一下

上位機(jī)和下位機(jī)的源碼都有:

首先 燒寫(xiě)程序到單片機(jī)   晶振 11.0592MHZ

連接好串口線

打開(kāi)上位機(jī)軟件 選擇好COM端口  

設(shè)置波特率為9600


單片機(jī)源程序如下:
  1. #include <reg51.h>
  2. #include <intrins.h>
  3. unsigned char tmp;

  4. #define DataPort P1 //定義數(shù)據(jù)端口 程序中遇到DataPort 則用P0 替換
  5. sbit LATCH1=P2^2;//定義鎖存使能端口 段鎖存
  6. sbit LATCH2=P2^3;//                 位鎖存
  7. unsigned char code DuanMa[10]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};// 顯示段碼值0~9
  8. unsigned char code WeiMa[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};//分別對(duì)應(yīng)相應(yīng)的數(shù)碼管點(diǎn)亮,即位碼
  9. unsigned char TempData[8]; //存儲(chǔ)顯示值的全局變量

  10. void DelayUs2x(unsigned char t);//函數(shù)聲明
  11. void DelayMs(unsigned char t);
  12. void Display(unsigned char FirstBit,unsigned char Num);
  13. void send_char(unsigned char txd);
  14. main()
  15. {
  16.         TMOD = 0x20;                        // 定時(shí)器1工作于8位自動(dòng)重載模式, 用于產(chǎn)生波特率
  17.         TH1 = 0xFD;                                // 波特率9600
  18.         TL1 = 0xFD;
  19.         SCON = 0x50;                        // 設(shè)定串行口工作方式
  20.         PCON &= 0xef;                        // 波特率不倍增        
  21.         TR1 = 1;                                // 啟動(dòng)定時(shí)器1
  22.         IE = 0x0;                                // 禁止任何中斷

  23.         while(1)
  24.         {
  25.         
  26.                 if(RI)                                                // 是否有數(shù)據(jù)到來(lái)
  27.                 {
  28.                         RI = 0;
  29.                         tmp = SBUF;                                // 暫存接收到的數(shù)據(jù)
  30.                         P0 = tmp;                                // 數(shù)據(jù)傳送到P0口
  31.                         send_char(tmp);                        // 回傳接收到的數(shù)據(jù)
  32.                 }

  33.            TempData[5]=DuanMa[tmp/100];//分解顯示信息,如要顯示68,則68/10=6  68%10=8  
  34.                 if(tmp>99) TempData[6]=DuanMa[tmp/10%10];
  35.            if(tmp<100)TempData[6]=DuanMa[tmp/10];
  36.            TempData[7]=DuanMa[tmp%10];         
  37.       Display(0,8); //顯示全部8位
  38.         }
  39. }


  40. void send_char(unsigned char txd)
  41. // 傳送一個(gè)字符
  42. {
  43.         SBUF = txd;
  44.         while(!TI);                                // 等特?cái)?shù)據(jù)傳送
  45.         TI = 0;                                        // 清除數(shù)據(jù)傳送標(biāo)志
  46. }


  47. /*------------------------------------------------
  48. 顯示函數(shù),用于動(dòng)態(tài)掃描數(shù)碼管
  49. 輸入?yún)?shù) FirstBit 表示需要顯示的第一位,如賦值2表示從第三個(gè)數(shù)碼管開(kāi)始顯示
  50. 如輸入0表示從第一個(gè)顯示。
  51. Num表示需要顯示的位數(shù),如需要顯示99兩位數(shù)值則該值輸入2
  52. ------------------------------------------------*/
  53. void Display(unsigned char FirstBit,unsigned char Num)
  54. {
  55.       unsigned char i;
  56.          
  57.           for(i=0;i<Num;i++)
  58.            {
  59.            DataPort=0;   //清空數(shù)據(jù),防止有交替重影
  60.        LATCH1=1;     //段鎖存
  61.        LATCH1=0;

  62.        DataPort=WeiMa[i+FirstBit]; //取位碼
  63.        LATCH2=1;     //位鎖存
  64.        LATCH2=0;

  65.        DataPort=TempData[i]; //取顯示數(shù)據(jù),段碼
  66.        LATCH1=1;     //段鎖存
  67.        LATCH1=0;
  68.       
  69.            DelayMs(2); // 掃描間隙延時(shí),時(shí)間太長(zhǎng)會(huì)閃爍,太短會(huì)造成重影

  70.        }

  71. }


  72. void DelayUs2x(unsigned char t)
  73. {   
  74. while(--t);
  75. ……………………

  76. …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
51CTO下載-原創(chuàng) VB上位機(jī)控制LED燈程序.rar (65.36 KB, 下載次數(shù): 239)




分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏9 分享淘帖 頂1 踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:254816 發(fā)表于 2017-11-28 19:15 | 只看該作者
顯示函數(shù),用于動(dòng)態(tài)掃描數(shù)碼管
輸入?yún)?shù) FirstBit 表示需要顯示的第一位,如賦值2表示從第三個(gè)數(shù)碼管開(kāi)始顯示
如輸入0表示從第一個(gè)顯示。
回復(fù)

使用道具 舉報(bào)

板凳
ID:197212 發(fā)表于 2019-4-5 13:08 | 只看該作者
上位機(jī)不太會(huì)
回復(fù)

使用道具 舉報(bào)

地板
ID:459203 發(fā)表于 2019-6-22 15:21 | 只看該作者
正需要這個(gè)
回復(fù)

使用道具 舉報(bào)

5#
ID:323453 發(fā)表于 2019-7-12 19:07 | 只看該作者
正需要這個(gè)
回復(fù)

使用道具 舉報(bào)

6#
ID:377104 發(fā)表于 2020-12-11 15:02 | 只看該作者
手上有個(gè)項(xiàng)目要做上位機(jī)控制,正好可以參考一下
回復(fù)

使用道具 舉報(bào)

7#
ID:783123 發(fā)表于 2021-5-15 12:42 | 只看該作者
請(qǐng)問(wèn)樓主VB這塊參考哪些方面素材可以短時(shí)間搞定
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表