B&B Electronics MODSCAN32 - Manual User Manual

Page 93

‘ on Form Load

Private Sub Form_Load()

Interface = Modbus_slave1.ConnectSerial(1)

Data1 = Modbus_slave1.CreateModbusData (40101, 20, MyData1(0))

Data2 = Modbus_slave1.CreateModbusData (1, 30, MyData2(0))

End Sub

‘ If data is written from modbus master
‘ Update the display

Private Sub Modbus_slave1_DataWrittenFromMaster (ByVal DataHandle As Long)

If (DataHandle = Data1) Then

Call Refresh_Regs

End If

If (DataHandle = Data2) Then

Call Refresh_Coils

End If

End Sub

‘ Update the Message Counter Status Text once per second

Private Sub Timer1_Timer()

Text2.Text = Modbus_slave1.MessageCounter(Interface)

End Sub