OmagCUT/MachinePageUC.xaml.vb

Imports EgtUILib

Public Class MachinePageUC

   ' Riferimento alla MainWindow
   Private m_MainWindow As MainWindow = Application.Current.MainWindow


   'Dichiarazione delle Page UserControl
   Friend m_AlarmsPageUC As AlarmsPageUC
   Friend m_ToolsDbPageUC As ToolsDbPageUC
   Friend m_MachiningDbPageUC As MachiningDbPageUC

   ' Riferimento alla pagina correntemente attiva
   Friend m_ActiveMachinePage As MachinePages

   Enum MachinePages
      Alarms
      ToolsDb
      MachiningDb
   End Enum

   Private Sub MachinePage_Initialized(sender As Object, e As EventArgs)

      'Creazione delle Page UserControl
      m_AlarmsPageUC = New AlarmsPageUC
      m_ToolsDbPageUC = New ToolsDbPageUC
      m_MachiningDbPageUC = New MachiningDbPageUC

      'Posizionemento nella griglia delle Page UserControl
      m_AlarmsPageUC.SetValue(Grid.RowProperty, 1)
      m_AlarmsPageUC.SetValue(Grid.RowSpanProperty, 2)
      m_ToolsDbPageUC.SetValue(Grid.RowProperty, 1)
      m_ToolsDbPageUC.SetValue(Grid.RowSpanProperty, 2)
      m_MachiningDbPageUC.SetValue(Grid.RowProperty, 1)
      m_MachiningDbPageUC.SetValue(Grid.RowSpanProperty, 2)

      'Inizializzazione della pagina di apertura all'apertura della pagina MachinePage
      MachinePageGrid.Children.Add(m_AlarmsPageUC)
      m_ActiveMachinePage = MachinePages.Alarms

   End Sub

   Private Sub MachinePage_Loaded(sender As Object, e As RoutedEventArgs)

   End Sub

   Private Sub AlarmsBtn_Click(sender As Object, e As RoutedEventArgs) Handles AlarmsBtn.Click
      Select Case m_ActiveMachinePage
         Case MachinePages.Alarms
            AlarmsBtn.IsChecked = True
         Case MachinePages.ToolsDb
            ToolsDBBtn.IsChecked = True
            AlarmsBtn.IsChecked = False
         Case MachinePages.MachiningDb
            MachiningDBBtn.IsChecked = True
            AlarmsBtn.IsChecked = False
      End Select
   End Sub

   Private Sub ToolsDBBtn_Click(sender As Object, e As RoutedEventArgs) Handles ToolsDBBtn.Click
      Select Case m_ActiveMachinePage
         Case MachinePages.Alarms
            AlarmsBtn.IsChecked = False
            ToolsDBBtn.IsChecked = True
            MachinePageGrid.Children.Remove(m_AlarmsPageUC)
            MachinePageGrid.Children.Add(m_ToolsDbPageUC)
            m_ActiveMachinePage = MachinePages.ToolsDb
         Case MachinePages.ToolsDb
            ToolsDBBtn.IsChecked = True
         Case MachinePages.MachiningDb
            ToolsDBBtn.IsChecked = False
            MachiningDBBtn.IsChecked = True
      End Select
   End Sub

   Private Sub MachiningDBBtn_Click(sender As Object, e As RoutedEventArgs) Handles MachiningDBBtn.Click
      Select Case m_ActiveMachinePage
         Case MachinePages.Alarms
            AlarmsBtn.IsChecked = False
            MachiningDBBtn.IsChecked = True
            MachinePageGrid.Children.Remove(m_AlarmsPageUC)
            MachinePageGrid.Children.Add(m_MachiningDbPageUC)
            m_ActiveMachinePage = MachinePages.MachiningDb
         Case MachinePages.ToolsDb
            ToolsDBBtn.IsChecked = True
            MachiningDBBtn.IsChecked = False
         Case MachinePages.MachiningDb
            MachiningDBBtn.IsChecked = True
      End Select
   End Sub

   'Private Sub StartBtn_Click(sender As Object, e As RoutedEventArgs) Handles StartBtn.Click
   '   cn.DGeneralFunctions_CycleStart()
   'End Sub

   'Private Sub StopBtn_Click(sender As Object, e As RoutedEventArgs) Handles StopBtn.Click
   '   cn.DGeneralFunctions_FeedHold()
   'End Sub

   'Private Sub ResetBtn_Click(sender As Object, e As RoutedEventArgs) Handles ResetBtn.Click
   '   Call cn.DGeneralFunctions_Reset()
   'End Sub

   'Private Sub AutoBtn_Click(sender As Object, e As RoutedEventArgs) Handles AutoBtn.Click
   '   cn.DGeneralFunctions_WriteCncMode(0)
   'End Sub

   'Private Sub SingleBtn_Click(sender As Object, e As RoutedEventArgs) Handles SingleBtn.Click
   '   cn.DGeneralFunctions_WriteCncMode(1)
   'End Sub

   'Private Sub MDIBtn_Click(sender As Object, e As RoutedEventArgs) Handles MDIBtn.Click
   '   cn.DGeneralFunctions_WriteCncMode(2)
   'End Sub

   'Private Sub HomeBtn_Click(sender As Object, e As RoutedEventArgs) Handles HomeBtn.Click
   '   cn.DGeneralFunctions_WriteCncMode(8)
   'End Sub

   'Private Sub MDITxBx_KeyDown(sender As Object, e As KeyEventArgs) Handles MDITxBx.KeyDown
   '   If e.Key = Key.Return Then
   '      cn.sz_ManualDataInput = MDITxBx.Text
   '      cn.MDI_command()

   '      MDITxBx.Background = Brushes.LightGray
   '      Keyboard.ClearFocus()
   '   End If
   'End Sub

   'Private Sub MDITxBx_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs) Handles MDITxBx.PreviewMouseDown
   '   MDITxBx.Background = Brushes.White
   'End Sub

   'Private Sub DownloadBtn_Click(sender As Object, e As RoutedEventArgs) Handles DownloadBtn.Click
   '   cn.Download_NC_prog("c:\EgtData\OmagCUT\CN\" & DULoadTxBx.Text & ".xpi", "%" & DULoadTxBx.Text)
   '   cn.Start_Transfer_NC_prog()
   'End Sub

   'Private Sub UploadBtn_Click(sender As Object, e As RoutedEventArgs) Handles UploadBtn.Click
   '   cn.Upload_NC_prog("c:\EgtData\OmagCUT\CN\" & DULoadTxBx.Text & ".xpi", "%" & DULoadTxBx.Text)
   '   cn.Start_Transfer_NC_prog()
   'End Sub

   'Private Sub ActivateBtn_Click(sender As Object, e As RoutedEventArgs) Handles ActivateBtn.Click
   '   cn.ActivateProgram(900)
   'End Sub

   Private Sub MachinePage_Unloaded(sender As Object, e As RoutedEventArgs)
      Select Case m_ActiveMachinePage
         Case MachinePages.Alarms
         Case MachinePages.ToolsDb
            AlarmsBtn.IsChecked = True
            ToolsDBBtn.IsChecked = False
            MachinePageGrid.Children.Remove(m_ToolsDbPageUC)
            MachinePageGrid.Children.Add(m_AlarmsPageUC)
            m_ActiveMachinePage = MachinePages.Alarms
         Case MachinePages.MachiningDb
            AlarmsBtn.IsChecked = True
            MachiningDBBtn.IsChecked = False
            MachinePageGrid.Children.Remove(m_MachiningDbPageUC)
            MachinePageGrid.Children.Add(m_AlarmsPageUC)
            m_ActiveMachinePage = MachinePages.Alarms
      End Select
   End Sub

End Class