Emmanuele Sassi
97 lines
2.8 KiB
VB.net
97 lines
2.8 KiB
VB.net
'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
|