標(biāo)題: VB上位機(jī)+單片機(jī)下位機(jī)串口通信的源碼 [打印本頁(yè)]
作者: 雪過(guò)留痕    時(shí)間: 2017-6-16 18:02
標(biāo)題: VB上位機(jī)+單片機(jī)下位機(jī)串口通信的源碼
網(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;

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

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

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

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


  46. void send_char(unsigned char txd)
  47. // 傳送一個(gè)字符
  48. {
  49.         SBUF = txd;
  50.         while(!TI);                                // 等特?cái)?shù)據(jù)傳送
  51.         TI = 0;                                        // 清除數(shù)據(jù)傳送標(biāo)志
  52. }


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

  71.        DataPort=WeiMa[i+FirstBit]; //取位碼
  72.        LATCH2=1;     //位鎖存
  73.        LATCH2=0;

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

  81.        }

  83. }


  86. void DelayUs2x(unsigned char t)
  87. {   
  88. while(--t);
  89. ……………………

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

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




作者: minisunelec    時(shí)間: 2017-11-28 19:15
顯示函數(shù)，用于動(dòng)態(tài)掃描數(shù)碼管
輸入?yún)?shù) FirstBit 表示需要顯示的第一位，如賦值2表示從第三個(gè)數(shù)碼管開(kāi)始顯示
如輸入0表示從第一個(gè)顯示。
作者: supercoko    時(shí)間: 2019-4-5 13:08
上位機(jī)不太會(huì)
作者: big_zhuang    時(shí)間: 2019-6-22 15:21
正需要這個(gè)
作者: hbthgsli    時(shí)間: 2019-7-12 19:07
正需要這個(gè)
作者: tianshengcai1    時(shí)間: 2020-12-11 15:02
手上有個(gè)項(xiàng)目要做上位機(jī)控制，正好可以參考一下
作者: wjp19851222    時(shí)間: 2021-5-15 12:42
請(qǐng)問(wèn)樓主VB這塊參考哪些方面素材可以短時(shí)間搞定



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1