Private Sub Command1_Click()
MSComm1.Output = Chr(1 & vbCr)
End Sub
Private Sub Command2_Click()
MSComm1.Output = Chr(0 & vbCr)
End
End Sub
Private Sub Form_Load()
Form1.WindowState = 0
Command1.Caption = "点亮LED"
Command2.Caption = "熄灭LED"
MSComm1.Settings = "9600,n,8,1"
MSComm1.OutBufferSize = 2
MSComm1.OutBufferCount = 0
MSComm1.CommPort = 2
MSComm1.PortOpen = True
End Sub
|