Emmanuele Sassi
109 lines
3.9 KiB
VB.net
109 lines
3.9 KiB
VB.net
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
|
|
|
|
'Dichiarazione variabili direttori
|
|
Friend m_sMachIniFile As String = String.Empty
|
|
|
|
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)
|
|
|
|
' Impostazione path Ini file
|
|
Dim sTemp As String = String.Empty
|
|
GetPrivateProfileString(S_MACH, K_MACHINESDIR, "", sTemp, m_MainWindow.GetIniFile())
|
|
m_sMachIniFile = sTemp
|
|
GetPrivateProfileString(S_MACH, K_CURRMACH, "", sTemp, m_MainWindow.GetIniFile())
|
|
m_sMachIniFile = m_sMachIniFile & "\" & sTemp & "\" & sTemp & ".ini"
|
|
|
|
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
|
|
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.DGeneralFunctions_ActivateProgram(900)
|
|
End Sub
|
|
|
|
End Class
|