Imports Advantech.Adam Imports Advantech.Common Imports Apax_IO_Module_Library Imports System.Threading Imports System.Net.Sockets Public Class Form_APAX_5017 Private ReadOnly MAX_CHANNEL = "24" Public APAX_INFO_NAME As String = "APAX" Public Const DVICE_TYPE = "5017" Dim m_adamModbusSocket As AdamSocket 'Control Handle Dim m_iTimeout() As Integer 'Time out setting parameter Dim m_szIP As String = "" 'Connect IP Dim m_aConf As Apax5000Config 'Configuration information Dim m_iSlot_ID As Integer 'Device switch ID Dim m_ScanTime_LocalSys() As Integer Dim m_szSlots() As String 'Container of all solt device type Dim m_usOutVal(), m_usInVal() As System.UInt16 'Container of AIO raw data Dim m_bStartFlag As Boolean = False Dim m_aStatus() As Advantech.Adam.Apax5000_ChannelStatus Dim m_iPollingCount As Integer 'Polling device status count Dim m_iFailCount As Integer 'Device Polling fail count Dim m_iAIChannelNum As Integer 'Device AI Channel number Dim m_iAOChannelNum As Integer 'Device AO Channel number Dim m_iDIChannelNum As Integer 'Device DI Channel number Dim m_iDOChannelNum As Integer 'Device DO Channel number Dim m_bChMask() As Boolean = New Boolean((AdamControl.APAX_MaxAIOCh) - 1) {} Dim m_uiChMask As UInteger = 0 Dim m_uiBurnoutVal As UInteger = 0 Dim m_uiBurnoutMask As UInteger = 0 Dim m_usRanges() As System.UInt16 Dim m_usStart As System.UInt16 Dim m_usLength As System.UInt16 Public Sub New() MyBase.New() InitializeComponent() m_szSlots = Nothing m_iPollingCount = 0 m_iFailCount = 0 m_iSlot_ID = -1 'Set in invalid num m_ScanTime_LocalSys = New Integer((1) - 1) {} m_ScanTime_LocalSys(0) = 500 'Scan time default 500 ms Timer1.Interval = m_ScanTime_LocalSys(0) m_iTimeout = New Integer((3) - 1) {} m_iTimeout(0) = 2000 'Connection Timeout m_iTimeout(1) = 2000 'Send Timeout m_iTimeout(2) = 2000 'Receive Timeout Me.StatusBar_IO.Text = "Start to demo " + APAX_INFO_NAME + "-" + DVICE_TYPE + " by clicking 'Start' button." End Sub Public Sub New(ByVal IP As String, ByVal SlotNum As Integer, ByVal ScanTime As Integer) MyBase.New() InitializeComponent() m_szSlots = Nothing m_iSlot_ID = SlotNum 'Set Slot_ID m_iPollingCount = 0 m_iFailCount = 0 m_ScanTime_LocalSys = New Integer((1) - 1) {} m_ScanTime_LocalSys(0) = ScanTime 'Scan time Timer1.Interval = m_ScanTime_LocalSys(0) m_iTimeout = New Integer((3) - 1) {} m_iTimeout(0) = 2000 'Connection Timeout m_iTimeout(1) = 2000 'Send Timeout m_iTimeout(2) = 2000 'Receive Timeout m_szIP = IP Me.StatusBar_IO.Text = "Start to demo " + APAX_INFO_NAME + "-" + DVICE_TYPE + " by clicking 'Start' button." End Sub Private Sub formIP_ApplyIPAddressClick(ByVal strIP As String) m_szIP = strIP End Sub Public Function SetIp() As Boolean Dim count As Integer = 0 While (count <= 3) And m_szIP = Nothing Dim formIP As IPForm = New IPForm AddHandler formIP.ApplyIPAddressClick, AddressOf Me.formIP_ApplyIPAddressClick formIP.ShowDialog() formIP.Dispose() formIP = Nothing count = count + 1 End While If m_szIP = Nothing Then Return False End If Return True End Function Public Function OpenDevice() As Boolean m_adamModbusSocket = New AdamSocket(AdamType.Apax5070) m_adamModbusSocket.SetTimeout(m_iTimeout(0), m_iTimeout(1), m_iTimeout(2)) If m_adamModbusSocket.Connect(AdamType.Apax5070, m_szIP, ProtocolType.Tcp) Then If (Not m_adamModbusSocket.Configuration.GetSlotInfo(m_szSlots)) Then Me.StatusBar_IO.Text = "GetSlotInfo() Failed! " Return False End If End If Return True End Function Public Function DeviceFind() As Boolean Dim iLoop As Integer = 0 Dim iDeviceNum As Integer = 0 If m_iSlot_ID = -1 Then For iLoop = 0 To m_szSlots.Length - 1 If m_szSlots(iLoop) = Nothing Then Continue For End If If ((String.Compare(m_szSlots(iLoop), 0, DVICE_TYPE, 0, DVICE_TYPE.Length) = 0) And m_szSlots(iLoop).Length = 4) Then iDeviceNum = iDeviceNum + 1 If iDeviceNum = 1 Then 'Record first find device m_iSlot_ID = iLoop 'Get DVICE_TYPE Solt End If End If Next Else If (String.Compare(m_szSlots(m_iSlot_ID), 0, DVICE_TYPE, 0, DVICE_TYPE.Length) = 0 And m_szSlots(m_iSlot_ID).Length = 4) Then iDeviceNum = iDeviceNum + 1 End If End If If iDeviceNum = 1 Then DeviceFind = True ElseIf iDeviceNum > 1 Then 'the same Devices exist two more or more MessageBox.Show("Found " + iDeviceNum.ToString + " " + DVICE_TYPE + " devices." + vbCrLf + " It's will demo Solt " + m_iSlot_ID.ToString + ".", "Warning") DeviceFind = True Else MessageBox.Show("Can't find any " + DVICE_TYPE + " device!", "Error") DeviceFind = False End If End Function Private Sub Btn_Quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Quit.Click Close() End Sub Private Sub ShowWaitMsg() Dim FormWait = New Wait_Form FormWait.Start_Wait(4000) FormWait.ShowDialog() End Sub Private Sub tcRemote_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tcRemote.SelectedIndexChanged Dim strSelPageName As String = tcRemote.TabPages(tcRemote.SelectedIndex).Text Me.StatusBar_IO.Text = "" If (strSelPageName = "Module Information") Then Timer1.Enabled = False m_iFailCount = 0 Me.m_iPollingCount = 0 ElseIf (strSelPageName = "AI") Then Timer1.Enabled = True RefreshRanges() RefreshAiSetting() If (m_aConf.GetModuleName = "5017H") Then RefreshBurnoutSetting(True, True) End If If (m_aConf.GetModuleName = "5017") Then RefreshBurnoutSetting(False, True) End If RefreshAiSampleRate() End If End Sub Public Function FreeResource() As Boolean If m_bStartFlag Then m_bStartFlag = False Me.tcRemote.Enabled = False Me.tcRemote.Visible = False Timer1.Enabled = False 'disable timer m_adamModbusSocket.Configuration.SYS_SetLocateModule(m_iSlot_ID, 0) 'disable locate module m_adamModbusSocket.Disconnect() m_adamModbusSocket = Nothing End If Return True End Function Private Sub Btn_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click Dim strbtnStatus As String = Me.btnStart.Text If String.Compare(strbtnStatus, "Start", True) = 0 Then 'Was Stop, Then Start If Not StartRemote() Then m_szIP = "" Return End If m_bStartFlag = True Me.btnStart.Text = "Stop" Else 'Was Start, Then Stop Me.StatusBar_IO.Text = "Start to demo " + APAX_INFO_NAME + "-" + DVICE_TYPE + " by clicking 'Start'button." Me.FreeResource() Me.btnStart.Text = "Start" End If End Sub Public Function StartRemote() If m_szIP = "" Then If Not SetIp() Then MessageBox.Show("Demo failed! Please set up IP address.", "Error") Return False End If End If Dim waitThread As Thread = New Thread(AddressOf ShowWaitMsg) waitThread.IsBackground = False waitThread.Start() Try If Not OpenDevice() Then Throw New System.Exception("Open Local Device Fail.") End If If Not DeviceFind() Then Throw New System.Exception("Find " + DVICE_TYPE + "Device Fail.") End If If Not RefreshConfiguration() Then Throw New System.Exception("Get" + DVICE_TYPE + " Device Configuration Fail.") End If If Not GetChannelInfo() Then Throw New System.Exception("Get" + DVICE_TYPE + " Device ChannelInfo Fail.") End If Catch ex As Exception MessageBox.Show("Demo failed! Please check define 'DVICE_TYPE' of type or device set up status.", "Error") Return False End Try Me.StatusBar_IO.Text = "Starting to remote..." Me.Timer1.Interval = m_ScanTime_LocalSys(0) Me.tcRemote.Enabled = True Me.tcRemote.Visible = True InitialRemotePanelComponents() Me.Text = APAX_INFO_NAME + DVICE_TYPE m_iPollingCount = 0 Me.tcRemote.SelectedIndex = 0 Return True End Function Private Sub RefreshModbusAddressSetting() Dim bFixed As Boolean m_adamModbusSocket.Configuration.GetModbusAddressMode(bFixed) If bFixed Then If ((m_aConf.wDevType = CType(_DeviceType.DigitalInput, System.UInt16)) _ OrElse (m_aConf.wDevType = CType(_DeviceType.DigitalOutput, System.UInt16))) Then m_usStart = Convert.ToUInt16(((64 * m_iSlot_ID) + 1)) '64(Coils, bit) is Slot shift, please reference Modbus/TCP address mapping table(0x) m_usLength = m_aConf.byChTotal ElseIf ((m_aConf.wDevType = CType(_DeviceType.AnalogInput, System.UInt16)) _ OrElse (m_aConf.wDevType = CType(_DeviceType.AnalogOutput, System.UInt16))) Then m_usStart = Convert.ToUInt16(((32 * m_iSlot_ID) + 40001)) '32(Registers, 2 bytes) is Slot shift, please reference Modbus/TCP address mapping table(4x) m_usLength = m_aConf.byChTotal ElseIf ((m_aConf.wDevType = CType(_DeviceType.Counter, System.UInt16)) _ OrElse (m_aConf.wDevType = CType(_DeviceType.PWM, System.UInt16))) Then m_usStart = Convert.ToUInt16(((32 * m_iSlot_ID) + 40001)) m_usLength = Convert.ToUInt16(((m_aConf.byHwIoTotal_2 * 2) + 1)) 'per counter channel use 2 Registers(= 4 bytes) End If Else Dim o_iLength As Integer Dim o_iStartAddr As Integer If m_adamModbusSocket.Configuration.GetModbusAddressConfig(m_iSlot_ID, o_iStartAddr, o_iLength) Then m_usStart = Convert.ToUInt16(o_iStartAddr) m_usLength = Convert.ToUInt16(o_iLength) End If End If End Sub Public Function RefreshConfiguration() As Boolean Dim i As Integer = 0 If m_adamModbusSocket.Configuration.GetModuleConfig(m_iSlot_ID, m_aConf) Then Me.txtModuleID.Text = (APAX_INFO_NAME + ("-" + m_aConf.GetModuleName)) 'Information-> Module Me.txtSWID.Text = m_iSlot_ID.ToString 'Information -> Switch ID Me.txtSupportKernelFw.Text = m_aConf.wSupportFwVer.ToString("X04").Insert(2, ".") 'Information -> Support kernel Fw Me.txtFwVer.Text = m_aConf.wFwVerNo.ToString("X04").Insert(2, ".") 'Firmware version Me.txtAIOFwVer.Text = m_aConf.wHwVer.ToString("X04").Insert(2, ".") 'AI Firmware version Else Me.StatusBar_IO.Text = (" GetModuleConfig(Error:" + (m_adamModbusSocket.Configuration.ApiLastError.ToString + ") Failed! ")) Return False End If m_adamModbusSocket.Configuration.GetModuleCurrentRange(Convert.ToInt32(m_iSlot_ID), m_aConf) m_usRanges = m_aConf.wChRange m_adamModbusSocket.Configuration.GetModuleCurrentChMsk(Convert.ToInt32(m_iSlot_ID), m_aConf) m_uiChMask = m_aConf.dwChMask For i = 0 To Me.m_bChMask.Length - 1 m_bChMask(i) = ((m_uiChMask And (&H1 << i)) > 0) Next RefreshModbusAddressSetting() Return True End Function Public Sub SetRangeComboBox(ByVal strRanges() As String) cbxRange.BeginUpdate() cbxRange.Items.Clear() Dim i As Integer = 0 Do While (i < strRanges.Length) cbxRange.Items.Add(strRanges(i)) i = (i + 1) Loop If (cbxRange.Items.Count > 0) Then cbxRange.SelectedIndex = 0 End If cbxRange.EndUpdate() End Sub Public Sub SetIntegrationComboBox(ByVal strIntegration() As String) ' Get Integration time combobox string cbxIntegration.BeginUpdate() cbxIntegration.Items.Clear() Dim i As Integer = 0 Do While (i < strIntegration.Length) cbxIntegration.Items.Add(strIntegration(i)) i = (i + 1) Loop If (cbxIntegration.Items.Count > 0) Then cbxIntegration.SelectedIndex = 0 End If cbxIntegration.EndUpdate() End Sub Public Sub SetBurnoutFcnValueComboBox(ByVal strRanges() As String) ' Get Burnout detect mode value combobox string cbxBurnoutValue.BeginUpdate() cbxBurnoutValue.Items.Clear() Dim i As Integer = 0 Do While (i < strRanges.Length) cbxBurnoutValue.Items.Add(strRanges(i)) i = (i + 1) Loop If (cbxBurnoutValue.Items.Count > 0) Then cbxBurnoutValue.SelectedIndex = 0 End If cbxBurnoutValue.EndUpdate() End Sub Public Sub SetSampleRateComboBox(ByVal strSampleRate() As String) cbxSampleRate.BeginUpdate() cbxSampleRate.Items.Clear() Dim i As Integer = 0 Do While (i < strSampleRate.Length) cbxSampleRate.Items.Add(strSampleRate(i)) i = (i + 1) Loop If (cbxSampleRate.Items.Count > 0) Then cbxSampleRate.SelectedIndex = 0 End If cbxSampleRate.EndUpdate() End Sub Public Sub InitialRemotePanelComponents() Dim iLoop, iSiezOfRange, iIndex As Integer Dim lvItem As ListViewItem Dim strRanges() As String Dim m_usRanges_supAI() As System.UInt16 For iLoop = 0 To m_aConf.HwIoType.Length - 1 If (m_aConf.HwIoType(iLoop) = _HardwareIOType.AI) Then iIndex = iLoop End If Next 'init range combobox If (iIndex = 0) Then m_adamModbusSocket.Configuration.GetModuleTotalRange(CType(m_iSlot_ID, Integer), m_aConf, 0) m_usRanges_supAI = m_aConf.wHwIoType_0_Range ElseIf (iIndex = 1) Then m_adamModbusSocket.Configuration.GetModuleTotalRange(CType(m_iSlot_ID, Integer), m_aConf, 1) m_usRanges_supAI = m_aConf.wHwIoType_1_Range ElseIf (iIndex = 2) Then m_adamModbusSocket.Configuration.GetModuleTotalRange(CType(m_iSlot_ID, Integer), m_aConf, 2) m_usRanges_supAI = m_aConf.wHwIoType_2_Range ElseIf (iIndex = 3) Then m_adamModbusSocket.Configuration.GetModuleTotalRange(CType(m_iSlot_ID, Integer), m_aConf, 3) m_usRanges_supAI = m_aConf.wHwIoType_3_Range Else m_adamModbusSocket.Configuration.GetModuleTotalRange(CType(m_iSlot_ID, Integer), m_aConf, 4) m_usRanges_supAI = m_aConf.wHwIoType_4_Range End If iSiezOfRange = (m_aConf.HwIoType_TotalRange(iIndex)) 'Get AI Total type range number strRanges = New String(iSiezOfRange - 1) {} For iLoop = 0 To iSiezOfRange - 1 strRanges(iLoop) = AnalogInput.GetRangeName(m_usRanges_supAI(iLoop)) Next SetIntegrationComboBox(New String() {AnalogInput.GetIntegrationName(AdamType.Apax5000, CType(Apax_Integration.Auto, Byte))}) 'Get combobox items of Integration Time SetRangeComboBox(strRanges) SetBurnoutFcnValueComboBox(New String() {"Down Scale", "Up Scale"}) 'Set combobox items of Burnout Detect Mode If (m_aConf.GetModuleName = "5017H") Then SetSampleRateComboBox(New String() {"100", "1000"}) ElseIf (m_aConf.GetModuleName = "5017") Then SetSampleRateComboBox(New String() {"1", "10"}) 'Set combobox items of Sampling rate (Hz/Ch) End If listViewChInfo.Items.Clear() listViewChInfo.BeginUpdate() For iLoop = 0 To m_iAIChannelNum - 1 lvItem = New ListViewItem(_HardwareIOType.AI.ToString) 'type lvItem.SubItems.Add(iLoop.ToString) 'Ch lvItem.SubItems.Add(Convert.ToString(m_usStart + iLoop)) 'Modbus address lvItem.SubItems.Add("*****") 'Value lvItem.SubItems.Add("*****") 'Ch Status lvItem.SubItems.Add("*****") 'Range listViewChInfo().Items.Add(lvItem) Next listViewChInfo.EndUpdate() End Sub Public Function GetChannelInfo() As Boolean Dim iLoop As Integer For iLoop = 0 To m_aConf.HwIoType.Length - 1 If (m_aConf.HwIoType(iLoop) = _HardwareIOType.AI) Then m_iAIChannelNum = m_aConf.HwIoTotal(iLoop) ElseIf (m_aConf.HwIoType(iLoop) = _HardwareIOType.DO) Then m_iDOChannelNum = m_aConf.HwIoTotal(iLoop) ElseIf (m_aConf.HwIoType(iLoop) = _HardwareIOType.DI) Then m_iDIChannelNum = m_aConf.HwIoTotal(iLoop) ElseIf (m_aConf.HwIoType(iLoop) = _HardwareIOType.AO) Then m_iDIChannelNum = m_aConf.HwIoTotal(iLoop) End If Next Return True End Function Private Sub cbSetPanelHide_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbSetPanelHide.CheckStateChanged Me.panelConfig.Visible = (Not Me.cbSetPanelHide.Checked) End Sub Private Sub btnLocate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLocate.Click If (Me.btnLocate.Text = "Enable") Then If m_adamModbusSocket.Configuration.SYS_SetLocateModule(m_iSlot_ID, 255) Then Me.btnLocate.Text = "Disable" Else MessageBox.Show("Locate module failed!", "Error") End If ElseIf m_adamModbusSocket.Configuration.SYS_SetLocateModule(m_iSlot_ID, 0) Then btnLocate.Text = "Enable" Else MessageBox.Show("Locate module failed!", "Error") End If End Sub Public Function ReadChannelStatus() As Boolean m_usInVal = Nothing m_aStatus = Nothing If (Me.m_uiChMask <> 0) Then If Not Me.m_adamModbusSocket.AnalogInput.GetChannelStatus(Me.m_iSlot_ID, Me.m_iAIChannelNum, m_aStatus) Then Me.StatusBar_IO.Text = (StatusBar_IO.Text + ("[GetChannelStatus] ApiErr:" _ + (m_adamModbusSocket.AnalogInput.ApiLastError.ToString + " "))) Return False End If If Not m_adamModbusSocket.AnalogInput.GetValues(Me.m_iSlot_ID, Me.m_iAIChannelNum, m_usInVal) Then StatusBar_IO.Text = (StatusBar_IO.Text + ("[GetValues] ApiErr:" _ + (m_adamModbusSocket.AnalogInput.ApiLastError.ToString + " "))) Return False End If Return True End If Return False End Function Public Function RefreshData() As Boolean If Not ReadChannelStatus() Then Return False End If Update_AI_UIStatus() Return True End Function Public Function Update_AI_UIStatus() As Boolean Dim strVal() As String = New String((Me.m_iAIChannelNum) - 1) {} Dim strStatus() As String = New String((Me.m_iAIChannelNum) - 1) {} Dim dVals() As Double = New Double((Me.m_iAIChannelNum) - 1) {} Dim i As Integer listViewChInfo.BeginUpdate() If m_usInVal.Length > 0 Then For i = 0 To Me.m_iAIChannelNum - 1 If (m_aConf.wPktVer >= 2) Then dVals(i) = AnalogInput.GetScaledValueWithResolution(Me.m_usRanges(i), m_usInVal(i), m_aConf.wHwIoType_0_Resolution) ElseIf (m_aConf.GetModuleName = "5017H") Then dVals(i) = AnalogInput.GetScaledValueWithResolution(Me.m_usRanges(i), m_usInVal(i), 12) Else dVals(i) = AnalogInput.GetScaledValue(Me.m_usRanges(i), m_usInVal(i)) End If If m_bChMask(i) Then If cbRawData.Checked Then strVal(i) = m_usInVal(i).ToString("X04") Else strVal(i) = dVals(i).ToString(AnalogInput.GetFloatFormat(Me.m_usRanges(i))) End If strStatus(i) = m_aStatus(i).ToString Else strVal(i) = "*****" strStatus(i) = "Disable" End If If listViewChInfo.Items(i).SubItems(3).Text <> strVal(i).ToString Then listViewChInfo.Items(i).SubItems(3).Text = strVal(i).ToString 'moduify "Value" column End If If listViewChInfo.Items(i).SubItems(4).Text <> strStatus(i).ToString Then listViewChInfo.Items(i).SubItems(4).Text = strStatus(i).ToString 'modify "Ch Status" column End If Next Else For i = 0 To Me.m_iAIChannelNum - 1 listViewChInfo.Items(i).SubItems(3).Text = "******" 'moduify "Value" column listViewChInfo.Items(i).SubItems(4).Text = "******" 'modify "Ch Status" column Next End If listViewChInfo.EndUpdate() End Function Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim bRet As Boolean Timer1.Enabled = False Me.StatusBar_IO.Text = ("Polling (Interval=" + (Timer1.Interval.ToString + "ms): ")) bRet = RefreshData() 'Upadate channel status If bRet Then Me.m_iPollingCount = (Me.m_iPollingCount + 1) m_iFailCount = 0 Me.StatusBar_IO.Text = (Me.StatusBar_IO.Text _ + (Me.m_iPollingCount.ToString + " times...")) Else m_iFailCount = (m_iFailCount + 1) Me.StatusBar_IO.Text = (Me.StatusBar_IO.Text + (m_iFailCount.ToString + " failures...")) End If If (m_iFailCount > 5) Then Me.StatusBar_IO.Text = (Me.StatusBar_IO.Text + " polling suspended!!") MessageBox.Show("Failed more than 5 times! Please check the physical connection!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1) Return End If If ((Me.m_iPollingCount Mod 50) = 0) Then GC.Collect() End If Timer1.Enabled = True End Sub Public Function GetChannelRangeIdx(ByVal o_szRangeName As String) As Integer Dim i As Integer = 0 Do While (i < cbxRange.Items.Count) If (cbxRange.Items(i).ToString = o_szRangeName) Then Return i End If i = (i + 1) Loop Return -1 End Function Private Function RefreshRanges() As Boolean Dim i As Integer = 0 Try listViewChInfo.BeginUpdate() If Me.m_adamModbusSocket.Configuration.GetModuleConfig(m_iSlot_ID, m_aConf) Then m_adamModbusSocket.Configuration().GetModuleCurrentRange(Convert.ToInt32(m_iSlot_ID), m_aConf) m_usRanges = m_aConf.wChRange m_adamModbusSocket.Configuration().GetModuleCurrentChMsk(Convert.ToInt32(m_iSlot_ID), m_aConf) m_uiChMask = m_aConf.dwChMask For i = 0 To Me.m_bChMask.Length - 1 m_bChMask(i) = ((m_uiChMask And (&H1 << i)) > 0) Next For i = 0 To Me.m_iAIChannelNum - 1 listViewChInfo.Items(i).SubItems(5).Text = AnalogInput.GetRangeName(m_usRanges(i)).ToString Next Else Me.StatusBar_IO.Text = (StatusBar_IO.Text + ("GetModuleConfig(Error:" _ + (m_adamModbusSocket.Configuration.ApiLastError.ToString + ") Failed! "))) End If listViewChInfo.EndUpdate() Return True Catch ex As Exception Return False End Try End Function ''' Refresh Integration time Private Sub RefreshAiSetting() If m_adamModbusSocket.Configuration.GetModuleConfig(Me.m_iSlot_ID, m_aConf) Then Dim uiFcnParam As UInteger 'Check if support SampleRate If (Me.m_aConf.byFunType_0 = CType(_FunctionType.Filter, Byte)) Then uiFcnParam = m_aConf.dwFunParam_0 ElseIf (Me.m_aConf.byFunType_1 = CType(_FunctionType.Filter, Byte)) Then uiFcnParam = m_aConf.dwFunParam_1 ElseIf (Me.m_aConf.byFunType_2 = CType(_FunctionType.Filter, Byte)) Then uiFcnParam = m_aConf.dwFunParam_2 ElseIf (Me.m_aConf.byFunType_3 = CType(_FunctionType.Filter, Byte)) Then uiFcnParam = m_aConf.dwFunParam_3 ElseIf (Me.m_aConf.byFunType_4 = CType(_FunctionType.Filter, Byte)) Then uiFcnParam = m_aConf.dwFunParam_4 Else Return End If Else Me.StatusBar_IO.Text = (Me.StatusBar_IO.Text + ("GetModuleConfig(Error:" _ + (m_adamModbusSocket.Configuration.ApiLastError.ToString + ") Failed! "))) End If End Sub ''' Refresh AI Burnout detect mode settings Private Function RefreshBurnoutSetting(ByVal bUpdateBurnFun As Boolean, ByVal bUpdateBurnVal As Boolean) As Boolean Dim waitThread As Thread = New Thread(AddressOf ShowWaitMsg) waitThread.IsBackground = False waitThread.Start() Try Dim bRet As Boolean = False Dim o_dwEnableMask As UInteger Dim o_dwValue As UInteger If bUpdateBurnFun Then If Not m_adamModbusSocket.AnalogInput.GetBurnoutFunEnable(m_iSlot_ID, o_dwEnableMask) Then bRet = False Else bRet = True m_uiBurnoutMask = o_dwEnableMask End If End If If bUpdateBurnVal Then If Not m_adamModbusSocket.AnalogInput.GetBurnoutValue(m_iSlot_ID, o_dwValue) Then bRet = False Else bRet = True m_uiBurnoutVal = o_dwValue If (m_uiBurnoutVal = 0) Then cbxBurnoutValue.SelectedIndex = 0 Else cbxBurnoutValue.SelectedIndex = 1 End If End If End If Return bRet Catch ex As Exception Return False End Try End Function Private Sub RefreshAiSampleRate() Dim idx As Integer = -1 Dim uiRate As UInteger If m_adamModbusSocket.AnalogInput.GetSampleRate(m_iSlot_ID, uiRate) Then If (m_aConf.GetModuleName = "5017") Then If (uiRate = 1) Then idx = 0 ElseIf (uiRate = 10) Then idx = 1 End If ElseIf (m_aConf.GetModuleName = "5017H") Then If (uiRate = 100) Then idx = 0 ElseIf (uiRate = 1000) Then idx = 1 End If Else idx = -2 End If If (idx >= 0) Then If (idx > (cbxSampleRate.Items.Count - 1)) Then cbxSampleRate.SelectedIndex = -1 Else cbxSampleRate.SelectedIndex = idx End If Else StatusBar_IO.Text = (StatusBar_IO.Text + ("GetSampleRate Index (Err : " + (idx.ToString + ") Failed! "))) End If Else StatusBar_IO.Text = (StatusBar_IO.Text + ("GetSampleRate (Err : " _ + (m_adamModbusSocket.AnalogInput.ApiLastError.ToString + ") Failed! "))) End If End Sub ''' Check module controllable Private Function CheckControllable() As Boolean Dim active As System.UInt16 If m_adamModbusSocket.Configuration.SYS_GetGlobalActive(active) Then If (active = 1) Then Return True Else MessageBox.Show("There is another controller taking control, so you only can monitor IO data.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) Return False End If End If MessageBox.Show(("Checking controllable failed, utility only could monitor io data now. (" _ + (m_adamModbusSocket.Configuration.ApiLastError.ToString + ")")), "Warning", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) Return False End Function Private Sub btnApplySelRange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApplySelRange.Click Dim i As Integer = 0 Dim bRet As Boolean = True If Not CheckControllable() Then Return End If Timer1.Enabled = False If ((listViewChInfo.SelectedIndices.Count = 0) AndAlso Not chkApplyAll.Checked) Then MessageBox.Show("Please select the target channel in the listview!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) bRet = False End If listViewChInfo.BeginUpdate() If bRet Then Dim usRanges() As System.UInt16 = New System.UInt16((m_usRanges.Length) - 1) {} Array.Copy(m_usRanges, 0, usRanges, 0, m_usRanges.Length) If chkApplyAll.Checked Then For i = 0 To usRanges.Length - 1 usRanges(i) = AnalogInput.GetRangeCode2Byte(cbxRange.SelectedItem.ToString) Next Else For i = 0 To listViewChInfo.SelectedIndices.Count - 1 usRanges(listViewChInfo.SelectedIndices(i)) = AnalogInput.GetRangeCode2Byte(cbxRange.SelectedItem.ToString) Next End If If m_adamModbusSocket.AnalogInput.SetRanges(Me.m_iSlot_ID, Me.m_iAIChannelNum, usRanges) Then RefreshRanges() Else MessageBox.Show("Set ranges failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) End If End If listViewChInfo.EndUpdate() Timer1.Enabled = True End Sub Private Sub btnBurnoutValue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBurnoutValue.Click Dim uiVal As UInteger If (cbxBurnoutValue.SelectedIndex = 0) Then uiVal = 0 Else uiVal = 65535 End If If Not CheckControllable() Then Return End If Timer1.Enabled = False If m_adamModbusSocket.AnalogInput.SetBurnoutValue(Me.m_iSlot_ID, uiVal) Then MessageBox.Show("Set burnout value done!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) RefreshBurnoutSetting(False, True) 'refresh burnout detect mode Else MessageBox.Show("Set burnout value failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) End If Timer1.Enabled = True End Sub Private Sub btnSampleRate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSampleRate.Click Dim iIdx As Integer = cbxSampleRate.SelectedIndex If Not CheckControllable() Then Return End If Timer1.Enabled = False Dim uiRate As UInteger If (m_aConf.GetModuleName = "5017") Then If (iIdx = 0) Then uiRate = 1 Else uiRate = 10 End If ElseIf (iIdx = 0) Then uiRate = 100 Else uiRate = 1000 End If If m_adamModbusSocket.AnalogInput.SetSampleRate(Me.m_iSlot_ID, uiRate) Then MessageBox.Show("Set sampling rate done!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) RefreshAiSampleRate() Else MessageBox.Show("Set sampling rate failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) End If Timer1.Enabled = True End Sub Private Sub listViewChInfo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listViewChInfo.SelectedIndexChanged Dim i As Integer For i = 0 To listViewChInfo.Items.Count - 1 If listViewChInfo.Items(i).Selected Then LvChInfo_SelectedIndexChanged(i) Exit For End If Next End Sub Private Sub LvChInfo_SelectedIndexChanged(ByVal idxSel As Integer) ' When user select specific item of channel information, you should update channel range cbxRange.SelectedIndex = GetChannelRangeIdx(AnalogInput.GetRangeName(m_usRanges(idxSel))) btnMaskEnable.Enabled = True btnMaskDisable.Enabled = True End Sub Private Sub Form_APAX_5017_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing FreeResource() End Sub Private Sub btnMaskEnable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaskEnable.Click If Not CheckControllable() Then Return End If settingAI_MaskSetting(True, chkApplyAll.Checked) End Sub Private Sub btnMaskDisable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaskDisable.Click If Not CheckControllable() Then Return End If settingAI_MaskSetting(False, chkApplyAll.Checked) End Sub Private Sub settingAI_MaskSetting(ByVal bEnable As Boolean, ByVal i_bApplyAll As Boolean) ' Enable/Disable Channel mask function Dim i As Integer = 0 If Not CheckControllable() Then Return End If Timer1.Enabled = False Dim bRet As Boolean = True If ((listViewChInfo.SelectedIndices.Count = 0) _ AndAlso Not i_bApplyAll) Then MessageBox.Show("Please select the target channel in the listview!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) bRet = False End If If bRet Then Dim bChMask() As Boolean = New Boolean((m_bChMask.Length) - 1) {} Dim uiMask As UInteger = 0 Array.Copy(m_bChMask, 0, bChMask, 0, m_bChMask.Length) If i_bApplyAll Then For i = 0 To bChMask.Length - 1 bChMask(i) = bEnable Next Else For i = 0 To listViewChInfo.SelectedIndices.Count - 1 bChMask(listViewChInfo.SelectedIndices(i)) = bEnable Next End If For i = 0 To bChMask.Length - 1 If bChMask(i) Then uiMask = (uiMask _ Or (CType(1, UInteger) << i)) End If Next If uiMask = 0 Then ' Can't disable all channel MessageBox.Show("Cannot diable all channel!", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) Else If m_adamModbusSocket.AnalogInput.SetChannelEnabled(Me.m_iSlot_ID, uiMask) Then RefreshRanges() Else MessageBox.Show("Set ChannelEnabled failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) End If End If End If Timer1.Enabled = True End Sub Private Sub btnIntegration_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIntegration.Click If Not CheckControllable() Then Return End If Timer1.Enabled = False Dim uiVal As UInteger = CType(AnalogInput.GetIntegrationCode(AdamType.Apax5000, cbxIntegration.SelectedIndex), UInteger) If m_adamModbusSocket.AnalogInput.SetIntegration(m_iSlot_ID, uiVal) Then MessageBox.Show("Set integration time done!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) RefreshAiSetting() Else MessageBox.Show("Set integration time failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1) End If Timer1.Enabled = True End Sub Private Sub Form_APAX_5017_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing FreeResource() End Sub End Class