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() '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 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. ' ' 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. 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. ' ' 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