欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 2654|回復: 2
打印 上一主題 下一主題
收起左側

51單片機基于VB的上位機通信(流水燈實驗)

[復制鏈接]
跳轉到指定樓層
樓主
PC控制單片機,實現基本通信。



vb上位機源碼:


單片機源程序如下:
  1. #include<reg51.h>
  2. #define         uchar  unsigned char
  3. uchar num=0;           //字符型變量          初始化將燈全滅
  4. void delayms(int z)
  5. {
  6.         int x,y;
  7.         for(x=z;x>0;x--)
  8.          for(y=110;y>0;y--);
  9. }
  10. void Uart_init()
  11. {
  12.         SCON=0xd0;          //SM1=1  REN=1
  13.         TMOD=0x20;          //D5=1 D4=0 即M1=1 M0=0
  14.         TH1=0xfd;         //TH1=0XFD TL1=0XFD 將波特率設為9600
  15.         TL1=0xfd;
  16.         TR1=1;        //啟動定時器1
  17.         ES=1;                //打開串口中斷
  18.         EA=1;        //打開總中斷
  19. }
  20. void main()
  21. {
  22.         while(1)
  23.    {
  24.         Uart_init();
  25. //        while(1);
  26.         P2=~num;
  27.        
  28.    }
  29. }         
  30. void interrupt_uart() interrupt 4                //串口中斷優先等級為4
  31. {
  32.         if(TI)
  33.         {
  34.                  TI=0;
  35.                  REN=1;   //不發送時允許接收       
  36.         }
  37.         if(RI)
  38.         {
  39.                  RI=0;     //先把接收標志位清零
  40. ……………………

  41. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼

所有資料51hei提供下載:
VB上位機(流水燈實驗).rar (30.83 KB, 下載次數: 39)




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

使用道具 舉報

沙發
ID:112693 發表于 2017-12-10 08:38 | 只看該作者
沙發了,學習一下。。。。。。。。
回復

使用道具 舉報

板凳
ID:269211 發表于 2018-2-8 16:23 | 只看該作者
學習一下!
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表