我要用vb控制單片機上的一個燈亮，但c跟vb程式都有了，就是運行不了，麻煩大家幫幫忙，謝謝
Private Sub Command1_Click()
MSComm1.Output = "5"
End Sub
Private Sub Command2_Click()
MSComm1.Output = "6"
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputMode = 1
MSComm1.InBufferCount = 0
MSComm1.RThreshold = 1
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End If
End Sub
#include<reg52.h>
#define uchar unsigned char
#define uint unsigned int
uchar a;
sbit led=P1^0;
void ser() interrupt 4
{
while(!RI);
RI=0;
a=SBUF;
}
void main()
{
TMOD=0x20;
TH1=0xfd;
TL1=0xfd;
TR1=1;
REN=1;
SM0=0;
SM1=1;
SCON=0x50;
PCON=0x00;
EA=1;
ES=1;
while(1)
{
if(a=='5')
{
led=0;
}
}
}
uj5u.com熱心網友回復：
Private Sub Command1_Click()
MSComm1.Output = "5"
End Sub
Private Sub Command2_Click()
MSComm1.Output = "6"
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputMode = 1
MSComm1.InBufferCount = 0
MSComm1.RThreshold = 1
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/108088.html
標籤：網絡編程