Many automation project requires S7 200, S7 300, S7 400, Modbus Rtu, Modbus TcpIp and Opc Server. You can use Plc as a communication interface with it’s flexible structure in your projects. License owners can use this ActiveX without any limitation. For who will purchase License a change can be made at free or paid ActiveX code. .NET Framework 3.5 is used at All In One Plc Com.
ActiveX made by considering easily adding to the program and the easily meeting other probable needs. For this purpose some features that are not contained other ActiveXs like save project, fetch record added to ActiveX. Thus you can finish all operations about Plc in a couple minutes.
Full Licence 2000 Usd.
Download link will be only displayed to registered users. [member]Download [/member]
Component Properties and their usage:
Property Value_(ByVal TagId As UInt32) As String:
Sets or gets the value. TagId is the row number in the Tag list.
Example: Following line assigns the 100 to Tag which locates at row 1:
AllInOnePlcCom1.Value_(1) = 100
Following line assigns the value of Tag which locates in the row 1 to variable i.
i = AllInOnePlcCom1.Value_(1)
Public FileName_ As String:
Returns the file name which contains active settings.
Example: Following line displays the active settings file name.
MsgBox(RtuServer_1.FileName_)
Property LoadSettings_() As String:
Loads previously saved setting file to the component. Return value of this property is file path.
Example: Following line loads the settings from the file which indicated by “path” variable.
RtuServer_1.LoadSettings_ = path
Property SaveSettings_(ByVal value As String):
Saves the current connection settings to given path which contains filename.
Example: Following line saves the settings to the file which given in “path” variable.
RtuServer_1.SaveSettings_(path)
Property Connect_() As Boolean:
Sets or gets the connection status of component. Component connects to the PLC when this property becomes True. False, disconnects the component. This property returns True while component trying to connect. Real connection state is given by Connection property.
Example: Connection can be activated by following line:
RtuServer_1.Connect_ = True
Disconnects with following line:
RtuServer_1.Connect_ = False
Public Connection_ As Boolean:
Connection state can be get from this property. Returns True after the connection established.
Following line assings Connection State to “str” variable.
str= RtuServer_1.Connection_
Function TagList_()
Returns whole tag list as an array.
Following line assigns Tag List to array named “TagArray”.
TagArray = RtuServer_1.TagList_
Property FileMenu_() As Boolean
Sets or gets the visibility of the File menü buttons.
Following line sets the visibility of the File Menü to false.
RtuServer_1.FileMenu_ = False
Property ConnectButton_() As Boolean
Sets or gets the visibility of the Connect – Disconnect buttons.
Following line sets the visibility of the Connect – Disconnect buttons to false.
RtuServer_1.ConnectButton_ = False
Property ToolStrip_() As Boolean
Sets or gets the visibility of the ToolStrip.
Following line sets the visibility of the ToolStrip to false.
RtuServer_1.ToolStrip_ = False
Component Events:
|
COM Component
|
.NET Component
|
Explanation
|
|
Event MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
Event MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
The event that triggerred when mouse button get down on the component.
|
|
Event MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
Event MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
The event that triggerred when mouse moved on the component.
|
|
Event MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
Event MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs):
|
The event that triggerred when mouse button up on the component.
|
|
Event KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
|
Event KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs):
|
The event that triggerred when keyboard key down on the component.
|
|
Event Connectedcom(ByVal sender As Object, ByVal Status As Boolean)
|
Event Connected_(ByVal sender As Object, ByVal Status As Boolean)
|
The event that triggerred when component connected.
|
|
Event ReadValuecom(ByVal sender As Object, ByVal TagId As UInt32, ByVal Value As String)
|
Event ReadValue_(ByVal sender As Object, ByVal TagId As UInt32, ByVal Value As String)
|
The event that triggerred when value different than previously value which read from the PLC. This event sends Tag value with tag’s row index(Tag_Id) to application. All tag values is sent once to main application when communication started.
|
|
Event ReadErrcom(ByVal sender As Object, ByVal TagId As UInt32)
|
Event ReadErr_(ByVal sender As Object, ByVal TagId As UInt32)
|
The error which occurs while reading from PLC are sent to main application with tag’s row index(TagId).
|
|
Event TimeOutcom(ByVal sender As Object, ByVal StationName As String)
|
Event TimeOut_(ByVal sender As Object, ByVal StationName As String)
|
Sends the component’s connection timeout status to main application when PLC connection unsuccessful.
|