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

bsmtlxw

好久没来了，一直都很忙，也无聊，压力也很大，感情也很无赖。。。去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

Private Sub 停止通讯_Click()
Me.Timer1.Enabled = False

End Sub

[upload=jpg]UploadFile/2006-9/20069219104919185.jpg[/upload]

lsllhd

我也做了一个欧姆龙的编程口VB通讯。http://www.lsllhd.com/

jinming_02

非常不错

我顶

k78047489

楼主真的好样的

gmg320

非常感谢!问一下能用VC开发相应的程序吗？

CHRIST998

[em03]

gdzqhxm

好谢谢楼主！

xiech123

好好，学习学习！

jeffreygreat

[em04]能下载吗？

billyli

怎么不能下载

luckyzhen

收下了，谢谢

jianhua5ok

太感谢了。。

kissa

支持一下

非西施不娶

非常感谢。很实用。。。。。。

星空一点roy

谢谢楼主分享！