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)

2019-3-2 10:13 上傳

點(diǎn)擊文件名下載附件
下載積分: 黑幣 -5