一个用VB与ORMON PLC通信的例子

bsmtlxw · 2006-9-2 19:11:00

好久没来了，一直都很忙，也无聊，压力也很大，感情也很无赖。。。去OMRON公司散了一下心，学习串口通信，收获较多。。。现把一VB程式，通过VB 访问有HOSTLINK 协议的设备。还有就是超级终端其实是一个很好的东东，不竞可以调试移动设备，也可以调试工业设备等等咯。

Private Sub com1_Click()
MSComm1.CommPort = 1
End Sub

Private Sub Command1_Click()
Me.Timer1.Enabled = False

End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Form_Load()
Text3.Text = "@00RD00000001"
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
temp = MSComm1.Input
If temp <> "" Then Text1.Text = Text1.Text + temp
Me.Refresh
End Select

End Sub

Private Sub Option1_Click()
If Me.MSComm1.PortOpen = True Then
Me.MSComm1.PortOpen = False
End If
MSComm1.CommPort = 2
End Sub

Private Sub Timer1_Timer()
Dim FcsResult As String
Dim StrIn As String
Dim jytemp As Integer
Dim temp As String
jytemp = 0
StrIn = Text3.Text
Text1.Text = ""
'************** 校验
For i = 1 To Len(StrIn)
jytemp = Asc(Mid$(StrIn, i, 1)) Xor jytemp
Next i

FcsResult = Hex$(jytemp)
'**************
Text2.Text = FcsResult

If (MSComm1.PortOpen = False) Then MSComm1.PortOpen = True
MSComm1.Output = Text3.Text + Text2.Text + "*" + Chr(13)
End Sub