Imports EgtUILib

Public Class MachinePageUC

   ' Riferimento alla MainWindow
   Private m_MainWindow As MainWindow = Application.Current.MainWindow
   Private cn As Num.NumNC

   'Dichiarazione delle Page UserControl
   Friend m_AlarmsPageUC As AlarmsPageUC
   Friend m_ToolsDbUC As ToolsDbPageUC

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

      'Creazione delle Page UserControl
      m_AlarmsPageUC = New AlarmsPageUC
      m_ToolsDbUC = New ToolsDbPageUC

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

   End Sub

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

      'Rinomino cn per avere nome più corto
      cn = m_MainWindow.m_MachineStatusUC.cn

   End Sub

   Private Sub AlarmsBtn_Click(sender As Object, e As RoutedEventArgs) Handles AlarmsBtn.Click
      MachinePageGrid.Children.Remove(m_ToolsDbUC)
   End Sub

   Private Sub ToolsDBBtn_Click(sender As Object, e As RoutedEventArgs) Handles ToolsDBBtn.Click
   For Each Page In MachinePageGrid.Children
      If TypeOf Page Is ToolsDbPageUC Then
         Exit Sub
      End If
   Next
   MachinePageGrid.Children.Add(m_ToolsDbUC)
   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

End Class