#MODBUS RTU PROTOCOL EXAMPLE SOFTWARE#
#MODBUS RTU PROTOCOL EXAMPLE CODE#
#MODBUS RTU PROTOCOL EXAMPLE WINDOWS#

Result = mbusProtocol.openProtocol( '127.0.0.1')Д¬onsole.WriteLine(( 'Error opening protocol: ' & BusProtocolErrors.getBusProtocolErrorText(result))) ''' ''' Opens protocol ''' Private Sub openProtocol() Private mbusProtocol As MbusTcpMasterProtocol = New MbusTcpMasterProtocol ''' ''' A simple console based example using FieldTalk in Modbus/TCP master mode ''' Class TcpSimpleApp IN NO EVENT SHALL PROCONX OR CONTRIBUTORS BE ' LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR ' CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF ' SUBSTITUTE GOODS OR SERVICES LOSS OF USE, DATA, OR PROFITS OR ' BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ' OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ' ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

#MODBUS RTU PROTOCOL EXAMPLE SOFTWARE#

' ' THIS SOFTWARE IS PROVIDED BY PROCONX AND CONTRIBUTORS ``AS IS'' AND ANY ' EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE ' IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR ' PURPOSE ARE DISCLAIMED.

#MODBUS RTU PROTOCOL EXAMPLE CODE#

The user ' is responsible for applying the code correctly. ' ' The following source file constitutes example program code and is ' intended merely to illustrate useful programming techniques. ' ' tcpsimple.vb ' ' A simple console based example using FieldTalk in Modbus/TCP master mode ' ' NOTICE ' ' Copyright (c) proconX Pty Ltd. Result = mbusProtocol.openProtocol( '127.0.0.1') MbusTcpMasterProtocol mbusProtocol = new MbusTcpMasterProtocol() ''' Public Shared Sub Main()Дim app As SerSimpleApp = New SerSimpleApp If (result = BusProtocolErrors.FTALK_SUCCESS) Then Dim i As Integer = 0 Do While (i BusProtocolErrors.FTALK_BUS_PROTOCOL_ERROR_CLASS) Then Return End If End If Result = mbusProtocol.readMultipleRegisters( 1, 100, dataArr) If (result BusProtocolErrors.FTALK_SUCCESS) ThenД¬onsole.WriteLine(( 'Error opening protocol: ' + BusProtocolErrors.getBusProtocolErrorText(result)))Д®nd If End Sub ''' ''' Closes protocol ''' Private Sub closeProtocol()Д®nd Sub ''' ''' Cyclic loop which polls every one second 10 registers starting at ''' reference 100 from slave # 1 ''' Private Sub runPollLoop()

#MODBUS RTU PROTOCOL EXAMPLE WINDOWS#

'Private mbusProtocol As MbusAsciiMasterProtocol = New MbusAsciiMasterProtocol 'Use this declaration for ASCII ''' ''' Opens protocol ''' Private Sub openProtocol()Дim result As Integer ' Use 'COM1:' on Windows CE Private mbusProtocol As MbusRtuMasterProtocol = New MbusRtuMasterProtocol ''' ''' A simple console based example using FieldTalk in Modbus RTU master mode ''' Class SerSimpleApp

' ' sersimple.vb ' ' A simple console based example using FieldTalk in Modbus RTU master mode ' ' NOTICE ' ' Copyright (c) proconX Pty Ltd. Stop for fatal errors if ((result & BusProtocolErrors.FTALK_BUS_PROTOCOL_ERROR_CLASS) != BusProtocolErrors.FTALK_BUS_PROTOCOL_ERROR_CLASS)

If (result = BusProtocolErrors.FTALK_SUCCESS)ДЇor ( int i = 0 i < dataArr.Length i++)Д¬onsole.WriteLine( ': ' + dataArr) Д¬onsole.WriteLine(BusProtocolErrors.getBusProtocolErrorText(result) + '!') If (result != BusProtocolErrors.FTALK_SUCCESS)Д¬onsole.WriteLine( 'Error opening protocol: ' + BusProtocolErrors.getBusProtocolErrorText(result))

Result = mbusProtocol.openProtocol( 'COM1', MbusRtuMasterProtocol mbusProtocol = new MbusRtuMasterProtocol() // Use this declaration for RTU void openProtocol() MbusAsciiMasterProtocol mbusProtocol = new MbusAsciiMasterProtocol() // Use this declaration for ASCII

Modbus rtu protocol example