机械设备防护罩帆布:帮我看看这段代码

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 04:23:42
Dim Msg As String

Private Sub Command1_Click()
MSComm1.Output = Text1.Text
Text1.Text = ""
End Sub

Private Sub Form_Load()
With MSComm1
.CommPort = 1
.Settings = "600,N,8,1"
.InputMode = comInputModeText
.InBufferSize = 500
.OutBufferSize = 500
.RThreshold = 1
If .PortOpen = False Then .PortOpen = True
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = 1 And MSComm1.Input <> Chr(128) Then
MSComm1.InputLen = MSComm1.InBufferCount: Msg = MSComm1.Input
Else
Text2.Text = Msg
MSComm1.InBufferCount = 0
End If
End Sub

可不可以进行串口通讯?
VB代码

不懂vb

你是不是没画WINSOCK控件啊

帮我看看这段代码 帮我看看这段代码 高手帮我看看这段代码 请 帮我看看这段代码 帮我看看这段java代码 谁帮我看看这段代码? 帮我看看这段C代码 帮我看看这段代码-Asp 帮我看看这段代码，哪里错了？ 关于ASP,那位帮我看看这段代码!