请高手翻译下下面VB里每句的意思仪表电脑三菱PLC三者通讯的COM口232通讯的ASCII码传输的PrivateSubTimer1Timer()Dimbytebuf(1To1)AsByteDimbufAsStringIRET=FX.ReadDeviceBlock("M320",1,ID(100))'==

Question

请高手 翻译下 下面VB 里每句的 意思 仪表 电脑 三菱PLC 三者通讯的 COM口 232 通讯的ASCII码传输的
Private Sub Timer1_Timer()
Dim bytebuf(1 To 1) As Byte
Dim buf As String
IRET = FX.ReadDeviceBlock("M320", 1, ID(100))
'===读数据
If ID(100) = 2 Then
If Val(Text8.Text) = 0 Then
Text8.Text = 1
Timer1.Interval = 0
bytebuf(1) = 195
MSComm1.Output = bytebuf
MSComm1.InBufferCount = 0
End If
End If
End Sub

Answer 1

关键是下面两句：
MSComm1.Output = bytebuf //发送 bytebuf 的内容到串口
MSComm1.InBufferCount = 0 //将缓冲区清零