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

標題: VB控制單片機LED的方法詳解 [打印本頁]
作者: rdzhongren    時間: 2019-3-2 10:17
標題: VB控制單片機LED的方法詳解
試了一下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)

作者: 545016705    時間: 2019-3-24 07:59
我按上位機的命令輸入的，為啥會編譯錯誤呢，過程聲明與同名事件或過程的描述不匹配
作者: 545016705    時間: 2019-3-24 08:06
我按上位機的命令輸入的，為啥會編譯錯誤呢，過程聲明與同名事件或過程的描述不匹是啥原因
作者: jack_wang123    時間: 2019-4-3 16:20
我按上位機的命令輸入的，為啥會編譯錯誤呢，過程聲明與同名事件或過程的描述不匹是啥原因
作者: 1075868380    時間: 2020-5-18 16:10
樓主這個是需要單片機的實物板子嗎？
作者: shenqiwei    時間: 2021-12-16 05:25
你程序位子都放錯了,main主程序里面才有低八位和高八位的,把模式打開,總開關打開.



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