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
R Reverse current on diesel gen-set Power Generation 12
P Controller managing monthly energy production (kWh) using power (kW) as the set point Process Control 0
M How to set USB port as RS-485 entrance? How to interpret Growatt inverter commands? Modbus 3
A Baseboard heater control set-points. General Automation Chat 3
J Force Set address bit in Omron PLC Programmable Logic Controller - PLC 2
Similar threads
Reverse current on diesel gen-set
Controller managing monthly energy production (kWh) using power (kW) as the set point
How to set USB port as RS-485 entrance? How to interpret Growatt inverter commands?
Baseboard heater control set-points.
Force Set address bit in Omron PLC

You May Also Like

Top