Emmanuele Sassi
5b647b0cde
- Aggiunta comunicazione con il Flexium e classe astratta da cui eredita anche comunicazione Axium.
104 lines
3.5 KiB
VB.net
104 lines
3.5 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
|
|
|
|
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
|