Control

Set a Omron plc clock with a VB application

Z

Thread Starter

zarf

I want to set my plc clock with my IBM server every day at noon with an VB application. I have some activeX control like Omron plc clock component. But I don't have any document on it ?? Please help me ??
 
P

Peter Veselosvky, konnexis

Here is code that uses mscomm to send current time date to an Omron PLC over Host Link protocol psValue = Format(Now(), "yymmddhhmmss") & "01" psCmd = "FA1000000000702" & psValue msSiteNode is the host link address. Command = "@" & msSiteNode & psCmd & FCS("@" & msSiteNode & psCmd) & "*" & vbCr mscomm1.output = command Check sum function: Public Function FCS(rsString As String) Dim L As Integer Dim A As Integer Dim i As Integer Dim TJ As String Dim checksum As String L = Len(rsString) A = 0 For i = 1 To L TJ$ = Mid$(rsString, i, 1) A = Asc(TJ$) Xor A Next i checksum = Hex$(A) If Len(checksum) = 1 Then checksum = "0" & checksum 'Text2.Text = CheckSum FCS = checksum End Function Peter Veselovsky, P.Eng [email protected] konnexis Dunrobin, Ontario
 
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
H Putting a set of real numbers in an array Programmable Logic Controller - PLC 8
C Answer to another set of posts. General Automation Chat 6
A Prescribed intrinsic curvature control of a set of springs Motion Control 0
G How to set threshold for my flame sensor? General Automation Chat 1
J Force Set address bit in Omron PLC Programmable Logic Controller - PLC 2
Similar threads
Putting a set of real numbers in an array
Answer to another set of posts.
Prescribed intrinsic curvature control of a set of springs
How to set threshold for my flame sensor?
Force Set address bit in Omron PLC

You May Also Like

Top