Attribute VB_Name = "FormStatus"

Function WhenCloseBoard()
' If the PISO-CPM100 has not activated,
' enable the combo box of Board and Baudrate and disable others
    TestProg.btn_ActiveBoard.Caption = "Active Board"
    TestProg.Green_Led.Visible = False
    TestProg.Red_Led.Visible = True
    
    TestProg.cmb_Board.Enabled = True
    TestProg.cmb_Baudrate.Enabled = True
    
    TestProg.cmb_NodeId.Enabled = False
    TestProg.cmb_NodeState.Enabled = False
    TestProg.cmb_AIODIO.Enabled = False
    TestProg.cmb_PDOCh.Enabled = False
    TestProg.cmb_PDOEntry.Enabled = False
    TestProg.cmb_RxTxType.Enabled = False
    TestProg.cmb_Offset.Enabled = False
    
    TestProg.btn_AddNode.Enabled = False
    TestProg.btn_AbortSDO.Enabled = False
    TestProg.btn_AI.Enabled = False
    TestProg.btn_AO.Enabled = False
    TestProg.btn_ChangePDOID.Enabled = False
    TestProg.btn_DI.Enabled = False
    TestProg.btn_DO.Enabled = False
    TestProg.btn_Dynamic.Enabled = False
    TestProg.btn_EMCYID.Enabled = False
    TestProg.btn_GetState.Enabled = False
    TestProg.btn_Guarding.Enabled = False
    TestProg.btn_PDOOutput.Enabled = False
    TestProg.btn_PDORTR.Enabled = False
    TestProg.btn_ReadSDO.Enabled = False
    TestProg.btn_RemovePDO.Enabled = False
    TestProg.btn_SendSYNC.Enabled = False
    TestProg.btn_StopSYNC.Enabled = False
    TestProg.btn_SetEventTimer.Enabled = False
    TestProg.btn_SetState.Enabled = False
    TestProg.btn_SetTxType.Enabled = False
    TestProg.btn_SYNCID.Enabled = False
    TestProg.btn_WriteSDO.Enabled = False
    TestProg.btn_InstallPDO.Enabled = False
    
    TestProg.txt_Cyclic.Enabled = False
    TestProg.txt_EventTimer.Enabled = False
    TestProg.txt_GuardTime.Enabled = False
    TestProg.txt_Index.Enabled = False
    TestProg.txt_IOCh.Enabled = False
    TestProg.txt_IOChannel.Enabled = False
    TestProg.txt_IOValue.Enabled = False
    TestProg.txt_NewCobID.Enabled = False
    TestProg.txt_NewPDOID.Enabled = False
    TestProg.txt_PDOCOBID.Enabled = False
    TestProg.txt_PDOData.Enabled = False
    TestProg.txt_PDOID.Enabled = False
    TestProg.txt_PDOIndex.Enabled = False
    TestProg.txt_PDORTR.Enabled = False
    TestProg.txt_SDORData.Enabled = False
    TestProg.txt_SDOWData.Enabled = False
    TestProg.txt_SubIndex.Enabled = False
    TestProg.txt_SYNCID.Enabled = False
    TestProg.txt_TxType.Enabled = False
End Function

Function WhenActiveBoard()
' If the PISO-CPM100 has activated but not add any slave yet,
' enable the combo box of NodeId and AddNode and disable others
    TestProg.btn_ActiveBoard.Caption = "Close Board"
    TestProg.btn_AddNode.Caption = "Add Node"
    
    TestProg.cmb_NodeId.Enabled = True
    TestProg.btn_AddNode.Enabled = True
    
    TestProg.cmb_Board.Enabled = False
    TestProg.cmb_Baudrate.Enabled = False
End Function

Function WhenAddNode(ByVal State As Byte)
' If the node is selected has been added ,
' change the caption from the "AddNode" button to "Remove" button
    TestProg.btn_AddNode.Caption = "Remove"
    TestProg.Green_Led.Visible = True
    TestProg.Red_Led.Visible = False
    
    TestProg.cmb_NodeState.Enabled = True
    TestProg.cmb_AIODIO.Enabled = True
    TestProg.cmb_PDOCh.Enabled = True
    TestProg.cmb_PDOEntry.Enabled = True
    TestProg.cmb_RxTxType.Enabled = True
    TestProg.cmb_Offset.Enabled = True
    
    TestProg.btn_AbortSDO.Enabled = True
    TestProg.btn_AI.Enabled = True
    TestProg.btn_AO.Enabled = True
    TestProg.btn_ChangePDOID.Enabled = True
    TestProg.btn_DI.Enabled = True
    TestProg.btn_DO.Enabled = True
    TestProg.btn_Dynamic.Enabled = True
    TestProg.btn_EMCYID.Enabled = True
    TestProg.btn_GetState.Enabled = True
    TestProg.btn_Guarding.Enabled = True
    TestProg.btn_PDOOutput.Enabled = True
    TestProg.btn_PDORTR.Enabled = True
    TestProg.btn_ReadSDO.Enabled = True
    TestProg.btn_RemovePDO.Enabled = True
    TestProg.btn_SendSYNC.Enabled = True
    TestProg.btn_SetEventTimer.Enabled = True
    TestProg.btn_SetState.Enabled = True
    TestProg.btn_SetTxType.Enabled = True
    TestProg.btn_SYNCID.Enabled = True
    TestProg.btn_WriteSDO.Enabled = True
    TestProg.btn_InstallPDO.Enabled = True
    
    TestProg.txt_Cyclic.Enabled = True
    TestProg.txt_EventTimer.Enabled = True
    TestProg.txt_GuardTime.Enabled = True
    TestProg.txt_Index.Enabled = True
    TestProg.txt_IOCh.Enabled = True
    TestProg.txt_IOChannel.Enabled = True
    TestProg.txt_IOValue.Enabled = True
    TestProg.txt_NewCobID.Enabled = True
    TestProg.txt_NewPDOID.Enabled = True
    TestProg.txt_PDOCOBID.Enabled = True
    TestProg.txt_PDOData.Enabled = True
    TestProg.txt_PDOID.Enabled = True
    TestProg.txt_PDOIndex.Enabled = True
    TestProg.txt_PDORTR.Enabled = True
    TestProg.txt_SDORData.Enabled = True
    TestProg.txt_SDOWData.Enabled = True
    TestProg.txt_SubIndex.Enabled = True
    TestProg.txt_SYNCID.Enabled = True
    TestProg.txt_TxType.Enabled = True
    
    ' Select the state of the node
    Select Case State
    Case 4      ' Stop Mode
       TestProg.cmb_NodeState.ListIndex = 2
    Case 5      ' Operational Mode
       TestProg.cmb_NodeState.ListIndex = 0
    Case 127    ' Pre-Operational Mode
        TestProg.cmb_NodeState.ListIndex = 1
    End Select

End Function
 
Function WhenRemoveNode()
' If the node is selected has not been added ,
' change the caption form the "Remove" button to "AddNode" button
    TestProg.btn_AddNode.Caption = "Add Node"
    TestProg.Green_Led.Visible = False
    TestProg.Red_Led.Visible = True
    
    TestProg.cmb_NodeState.Enabled = False
    TestProg.cmb_AIODIO.Enabled = False
    TestProg.cmb_PDOCh.Enabled = False
    TestProg.cmb_PDOEntry.Enabled = False
    TestProg.cmb_RxTxType.Enabled = False
    TestProg.cmb_Offset.Enabled = False
    
    TestProg.btn_AbortSDO.Enabled = False
    TestProg.btn_AI.Enabled = False
    TestProg.btn_AO.Enabled = False
    TestProg.btn_ChangePDOID.Enabled = False
    TestProg.btn_DI.Enabled = False
    TestProg.btn_DO.Enabled = False
    TestProg.btn_Dynamic.Enabled = False
    TestProg.btn_EMCYID.Enabled = False
    TestProg.btn_GetState.Enabled = False
    TestProg.btn_Guarding.Enabled = False
    TestProg.btn_PDOOutput.Enabled = False
    TestProg.btn_PDORTR.Enabled = False
    TestProg.btn_ReadSDO.Enabled = False
    TestProg.btn_RemovePDO.Enabled = False
    TestProg.btn_SendSYNC.Enabled = False
    TestProg.btn_StopSYNC.Enabled = False
    TestProg.btn_SetEventTimer.Enabled = False
    TestProg.btn_SetState.Enabled = False
    TestProg.btn_SetTxType.Enabled = False
    TestProg.btn_SYNCID.Enabled = False
    TestProg.btn_WriteSDO.Enabled = False
    TestProg.btn_InstallPDO.Enabled = False
    
    TestProg.txt_Cyclic.Enabled = False
    TestProg.txt_EventTimer.Enabled = False
    TestProg.txt_GuardTime.Enabled = False
    TestProg.txt_Index.Enabled = False
    TestProg.txt_IOCh.Enabled = False
    TestProg.txt_IOChannel.Enabled = False
    TestProg.txt_IOValue.Enabled = False
    TestProg.txt_NewCobID.Enabled = False
    TestProg.txt_NewPDOID.Enabled = False
    TestProg.txt_PDOCOBID.Enabled = False
    TestProg.txt_PDOData.Enabled = False
    TestProg.txt_PDOID.Enabled = False
    TestProg.txt_PDOIndex.Enabled = False
    TestProg.txt_PDORTR.Enabled = False
    TestProg.txt_SDORData.Enabled = False
    TestProg.txt_SDOWData.Enabled = False
    TestProg.txt_SubIndex.Enabled = False
    TestProg.txt_SYNCID.Enabled = False
    TestProg.txt_TxType.Enabled = False
End Function