'Imports System.Windows.Threading
Imports System.Globalization
Imports EgtUILib

Public Class MachineStatusUC

   Friend m_CN As CN_generico
   ' 'Const
   Private Const MAX_AXES As Integer = 9

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


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

   End Sub

   Sub DisplayPosition()

      For n As Short = 0 To MAX_AXES - 1

         Select Case n
            Case 0      'X
               Axis1Lbl.Content = m_CN.d_axis_position(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 1
               Axis2Lbl.Content = m_CN.d_axis_position(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 2
               Axis3Lbl.Content = m_CN.d_axis_position(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 7
               Axis5Lbl.Content = m_CN.d_axis_position(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 8
               Axis4Lbl.Content = m_CN.d_axis_position(n).ToString("F3", CultureInfo.InvariantCulture)
         End Select

      Next

   End Sub

   Sub DisplayDeltaPosition()

      For n As Short = 0 To MAX_AXES - 1

         Select Case n
            Case 0      'X
               DeltaAxis1Lbl.Content = m_CN.d_axis_delta(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 1
               DeltaAxis2Lbl.Content = m_CN.d_axis_delta(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 2
               DeltaAxis3Lbl.Content = m_CN.d_axis_delta(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 7
               DeltaAxis4Lbl.Content = m_CN.d_axis_delta(n).ToString("F3", CultureInfo.InvariantCulture)
            Case 8
               DeltaAxis5Lbl.Content = m_CN.d_axis_delta(n).ToString("F3", CultureInfo.InvariantCulture)
         End Select

      Next

   End Sub

   Sub DisplayFeed()
      FeedOverrideLbl.Content = m_CN.d_DInterpo_Feed_override.ToString & "%"
      FeedLbl.Content = m_CN.d_DInterpo_Prog_Feed.ToString
   End Sub

   Sub DisplaySpeed()
      SpeedOverrideLbl.Content = m_CN.n_spindle_override(0).ToString
      SpeedLbl.Content = m_CN.d_spindle_prog(0).ToString

   End Sub

   Sub DisplayActiveMode(Mode As Integer)
      Select Case Mode
         Case 0
            MachineStatusImage.Source = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/Nest.png", UriKind.Relative))
         Case 1
         Case 2
         Case 3
         Case 7

      End Select
   End Sub

   Sub DisplayVar()

      'For n As Short = 0 To FrmMain.MAX_AXES - 1

      '    lbl_var_values(n).Text = cn.d_Dvariable_values(n * 10).ToString

      'Next

   End Sub



End Class