VB控制單片機(jī)LED的方法詳解

ID:483075 · 發(fā)表于 2019-3-2 10:17

試了一下VB上微機(jī)控制LED，很簡單的VB上位機(jī)。上位機(jī)默認(rèn)使用COM4，單片機(jī)P1^0口接LED，點(diǎn)按鍵就可以控制LED。

VB上位機(jī)默認(rèn)使用COM4，單片機(jī)P1^0口接LED，點(diǎn)擊按鍵就可以控制LED了

工程構(gòu)建

實(shí)驗(yàn)效果

單片機(jī)程序：

#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 ;

}

上位機(jī)程序：

Private Sub Form_Load()

Form1.WindowState = 2 '界面設(shè)置為最大

Command1.Caption = "點(diǎn)亮LED"

Command2.Caption = "熄滅LED"

MSComm1.CommPort = 4

MSComm1.PortOpen = True

End Sub

Private Sub Command1_Click() '點(diǎn)亮

MSComm1.Output = Chr(1 & vbCr)

End Sub

Private Sub Command2_Click() '熄滅

MSComm1.Output = Chr(0 & vbCr)

End Sub

因?yàn)閂B程序中已經(jīng)固定了COM口，所以可以設(shè)置電腦COM為4，如果不為COM4，則按照下圖設(shè)置

完整的Word格式文檔51黑下載地址：

VB控制單片機(jī)LED.doc (472.5 KB, 下載次數(shù): 58)

ID:245288 · 發(fā)表于 2019-3-24 07:59

我按上位機(jī)的命令輸入的，為啥會(huì)編譯錯(cuò)誤呢，過程聲明與同名事件或過程的描述不匹配

ID:245288 · 發(fā)表于 2019-3-24 08:06

我按上位機(jī)的命令輸入的，為啥會(huì)編譯錯(cuò)誤呢，過程聲明與同名事件或過程的描述不匹是啥原因

ID:504173 · 發(fā)表于 2019-4-3 16:20

我按上位機(jī)的命令輸入的，為啥會(huì)編譯錯(cuò)誤呢，過程聲明與同名事件或過程的描述不匹是啥原因

ID:403450 · 發(fā)表于 2020-5-18 16:10

樓主這個(gè)是需要單片機(jī)的實(shí)物板子嗎？

ID:278457 · 發(fā)表于 2021-12-16 05:25

你程序位子都放錯(cuò)了,main主程序里面才有低八位和高八位的,把模式打開,總開關(guān)打開.

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

VB控制單片機(jī)LED的方法詳解

瀏覽過的版塊