Private Sub Button_RECV_C_Click()
Text_RECV.Text = "" '清空接收文本框
Text_RECV.SetFocus
End Sub
Private Sub Button_SEND_C_Click()
Text_SEND.Text = "" '清空发送文本框
Text_SEND.SetFocus
End Sub
Private Sub Exit_Click()
Close #1
End
End Sub
Private Sub Form_Load()
MSComm.CommPort = 1
MSComm.Settings = "9600,N,8,1"
MSComm.InputLen = 0
MSComm.InBufferSize = 1024
MSComm.OutBufferSize = 512
MSComm.PortOpen = True
MSComm.SThreshold = 0
MSComm.RThreshold = 4
MSComm.InBufferCount = 0
MSComm.OutBufferCount = 0
Text_RECV.Text = ""
End Sub
Private Sub MSComm_OnComm()
Select Case MSComm.CommEvent
Case comEventOverrun '数据丢失
Text_RECV.Text = ""
Text_SEND.SetFocus
Exit Sub
Case comEventRxOver '接收缓冲区溢出
Text_SEND.Text = ""
Text_RECV.Text = ""
Text_SEND.SetFocus
Exit Sub
Case comEventTxFull '发送缓冲区溢出
Text_SEND.Text = ""
Text_RECV.Text = ""
Text_SEND.SetFocus
Exit Sub
Case comEvReceive '接收缓冲区内的数据
Dim str As String
'
Dim data1 As String '单片机发送过来的数据存放
str = MSComm.Input'接收数据
Text_RECV.Text = ""
Text_RECV.Text = Text_RECV.Text & str & vbCrLf
End Select
End Sub
Private Sub Label3_Click()
End Sub
有没有牛人帮忙看下这段程序问题出在哪儿吗?
Private Sub Form_Load()
MSComm.CommPort = 1
MSComm.Settings = "9600,N,8,1"
MSComm.InputLen = 0
MSComm.InBufferSize = 1024
MSComm.OutBufferSize = 512
MSComm.PortOpen = True
MSComm.SThreshold = 0
MSComm.RThreshold = 4
MSComm.InBufferCount = 0
MSComm.OutBufferCount = 0
Text_RECV.Text = ""
End Sub
调试的时候这部分有问题,Private Sub Form_Load()变黄,不知道什么原因
|