Egalware/OmagCUT
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OmagCUT 1.6u4 :

Browse Source 
- gestione nesting allineato (con regione di riferimento a L)
- gestione epl pezzi rovinati da OmagVIEW per linee di produzione
- piccole migliorie varie.
This commit is contained in:
Dario Sassi
2016-09-22 14:47:57 +00:00
parent 85e906e4c8
commit ff30a4d3b6
18 changed files with 248 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MachineStatusUC.xaml.vb
+33 -30
View File
@@ -12,37 +12,39 @@ Public Class MachineStatusUC
Friend m_CN As CN_generico
' Flag per tipo visualizzazione assi
Private m_bShowTipAxes As Boolean = False
' Flag bistabile per delta (per lampeggiare delta Z anche quando macchina ferma)
Private m_bEven As Boolean = True
Private Sub MachineStatus_Initialized(sender As Object, e As EventArgs)
If m_MainWindow.m_dHorScale < 1 Then
MachineStatusImage.Height *= m_MainWindow.m_dHorScale
MachineStatusImage.Width *= m_MainWindow.m_dHorScale
Axis1NameTxBx.FontSize *= m_MainWindow.m_dHorScale
Axis1TxBx.FontSize *= m_MainWindow.m_dHorScale
DeltaAxis1TxBx.FontSize *= m_MainWindow.m_dHorScale
Axis2NameTxBx.FontSize *= m_MainWindow.m_dHorScale
Axis2TxBx.FontSize *= m_MainWindow.m_dHorScale
DeltaAxis2TxBx.FontSize *= m_MainWindow.m_dHorScale
Axis3NameTxBx.FontSize *= m_MainWindow.m_dHorScale
Axis3TxBx.FontSize *= m_MainWindow.m_dHorScale
DeltaAxis3TxBx.FontSize *= m_MainWindow.m_dHorScale
Axis4NameTxBx.FontSize *= m_MainWindow.m_dHorScale
Axis4TxBx.FontSize *= m_MainWindow.m_dHorScale
DeltaAxis4TxBx.FontSize *= m_MainWindow.m_dHorScale
Axis5NameTxBx.FontSize *= m_MainWindow.m_dHorScale
Axis5TxBx.FontSize *= m_MainWindow.m_dHorScale
DeltaAxis5TxBx.FontSize *= m_MainWindow.m_dHorScale
FeedNameTxBx.FontSize *= m_MainWindow.m_dHorScale
FeedTxBx.FontSize *= m_MainWindow.m_dHorScale
FeedOverrideNameTxBx.FontSize *= m_MainWindow.m_dHorScale
FeedOverrideTxBx.FontSize *= m_MainWindow.m_dHorScale
SpeedNameTxBx.FontSize *= m_MainWindow.m_dHorScale
SpeedTxBx.FontSize *= m_MainWindow.m_dHorScale
SpeedOverrideNameTxBx.FontSize *= m_MainWindow.m_dHorScale
SpeedOverrideTxBx.FontSize *= m_MainWindow.m_dHorScale
ConsumptionNameTxBx.FontSize *= m_MainWindow.m_dHorScale
ConsumptionTxBx.FontSize *= m_MainWindow.m_dHorScale
AOverrideTxBx.FontSize *= m_MainWindow.m_dHorScale
If m_MainWindow.m_dMWinScale < 1 Then
MachineStatusImage.Height *= m_MainWindow.m_dMWinScale
MachineStatusImage.Width *= m_MainWindow.m_dMWinScale
Axis1NameTxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis1TxBx.FontSize *= m_MainWindow.m_dMWinScale
DeltaAxis1TxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis2NameTxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis2TxBx.FontSize *= m_MainWindow.m_dMWinScale
DeltaAxis2TxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis3NameTxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis3TxBx.FontSize *= m_MainWindow.m_dMWinScale
DeltaAxis3TxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis4NameTxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis4TxBx.FontSize *= m_MainWindow.m_dMWinScale
DeltaAxis4TxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis5NameTxBx.FontSize *= m_MainWindow.m_dMWinScale
Axis5TxBx.FontSize *= m_MainWindow.m_dMWinScale
DeltaAxis5TxBx.FontSize *= m_MainWindow.m_dMWinScale
FeedNameTxBx.FontSize *= m_MainWindow.m_dMWinScale
FeedTxBx.FontSize *= m_MainWindow.m_dMWinScale
FeedOverrideNameTxBx.FontSize *= m_MainWindow.m_dMWinScale
FeedOverrideTxBx.FontSize *= m_MainWindow.m_dMWinScale
SpeedNameTxBx.FontSize *= m_MainWindow.m_dMWinScale
SpeedTxBx.FontSize *= m_MainWindow.m_dMWinScale
SpeedOverrideNameTxBx.FontSize *= m_MainWindow.m_dMWinScale
SpeedOverrideTxBx.FontSize *= m_MainWindow.m_dMWinScale
ConsumptionNameTxBx.FontSize *= m_MainWindow.m_dMWinScale
ConsumptionTxBx.FontSize *= m_MainWindow.m_dMWinScale
AOverrideTxBx.FontSize *= m_MainWindow.m_dMWinScale
End If
End Sub
@@ -155,9 +157,10 @@ Public Class MachineStatusUC
' Visualizzazione
DeltaAxis1TxBx.Text = LenToString(dL1, -3)
DeltaAxis2TxBx.Text = LenToString(dL2, -3)
DeltaAxis3TxBx.Text = LenToString(dL3, -3)
DeltaAxis3TxBx.Text = LenToString(If(m_bEven, dL3, dL3 + EPS_SMALL), -3)
DeltaAxis4TxBx.Text = DoubleToString(dR1, -3)
DeltaAxis5TxBx.Text = DoubleToString(dR2, -3)
m_bEven = Not m_bEven
End Sub
Sub DisplayFeed()