久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

帖子
查看: 6149|回復: 5
打印 上一主題 下一主題
收起左側

VB控制單片機LED的方法詳解

[復制鏈接]
跳轉到指定樓層
樓主
ID:483075 發表于 2019-3-2 10:17 | 只看該作者 回帖獎勵 |正序瀏覽 |閱讀模式
試了一下VB上微機控制LED,很簡單的VB上位機。上位機默認使用COM4,單片機P1^0口接LED,點按鍵就可以控制LED。

VB上位機默認使用COM4,單片機P1^0口接LED,點擊按鍵就可以控制LED了


工程構建



實驗效果



單片機程序 :

#include <reg52.h>

void UartInit(void)
{
              SCON |= 0x50 ;
              PCON  = 0x00 ;
              TMOD |= 0x20 ;
              TH1   = 0xfd ;                            /*11.0592MHZ,9600kps*/
              TL1   = 0xfd ;
              TR1   = 1 ;
              ES    = 1;
              EA    = 1 ;
}


void main(void)
{
              UartInit();
              while(1);
}

void UartISR(void) interrupt 4
{
              if(TI)
              {
                            TI = 0 ;
              }
              if(RI)
              {
                            RI = 0 ;
                            P1 = SBUF ;
              }
}


上位機程序 :

Private Sub Form_Load()
  Form1.WindowState = 2 '界面設置為最大
  Command1.Caption = "點亮LED"
  Command2.Caption = "熄滅LED"
  MSComm1.CommPort = 4
  MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()            '點亮
    MSComm1.Output = Chr(1 & vbCr)

End Sub

Private Sub Command2_Click()        '熄滅
    MSComm1.Output = Chr(0 & vbCr)
End Sub
因為VB程序中已經固定了COM口,所以可以設置電腦COM為4,如果不為COM4,則按照下圖設置


完整的Word格式文檔51黑下載地址:
VB控制單片機LED.doc (472.5 KB, 下載次數: 58)

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

使用道具 舉報

6#
ID:278457 發表于 2021-12-16 05:25 | 只看該作者
你程序位子都放錯了,main主程序里面才有低八位和高八位的,把模式打開,總開關打開.
回復

使用道具 舉報

5#
ID:403450 發表于 2020-5-18 16:10 | 只看該作者
樓主這個是需要單片機的實物板子嗎?
回復

使用道具 舉報

地板
ID:504173 發表于 2019-4-3 16:20 | 只看該作者
我按上位機的命令輸入的,為啥會編譯錯誤呢,過程聲明與同名事件或過程的描述不匹是啥原因
回復

使用道具 舉報

板凳
ID:245288 發表于 2019-3-24 08:06 | 只看該作者
我按上位機的命令輸入的,為啥會編譯錯誤呢,過程聲明與同名事件或過程的描述不匹是啥原因
回復

使用道具 舉報

沙發
ID:245288 發表于 2019-3-24 07:59 | 只看該作者
我按上位機的命令輸入的,為啥會編譯錯誤呢,過程聲明與同名事件或過程的描述不匹配
回復

使用道具 舉報

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

本版積分規則

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

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板: 欧美日韩精品一区 | 日本伊人 | 欧美日韩一区在线 | 欧美午夜精品久久久久免费视 | 国产三级在线看 | 精品久久视频 | 91成人在线观看喷潮蘑菇 | 国产综合第一页 | 免费av大片 | 亚洲精品三级 | 人人草人人爱 | 亚洲综合天堂 | 国产成人在线免费观看 | 亚洲无av在线中文字幕 | 精品伊人 | 毛片网站大全 | 夜夜肉她怀孕h周君彦 | 欧美日韩精品久久久免费观看 | av一级在线| 亚洲a级片 | 亚洲爽妇网 | 欧美在线亚洲 | 日韩精品中文字幕在线观看 | 国产aⅴ爽av久久久久成人 | 午夜av在线 | 成人高潮片免费 | www.少妇 | av网址在线免费观看 | 国产视频一区二区在线 | 成人免费激情视频 | 一区二区日韩 | 一区二区国产在线 | www.日韩在线 | 狠狠干夜夜| 美国黄色一级大片 | 不卡视频在线观看 | av网在线观看 | 精品一区av| 成人午夜激情视频 | 免费激情网站 | 日韩精品影院 |