OmagCUT 2.7i4 :

- con SpecialSend di Fanuc c'è la possibilità di definire da ini macchina il numero di aree di memoria in cui scrivere (max 16)
- piccole sistemazioni di icone Omag e Egalware.
This commit is contained in:
Dario Sassi
2025-09-12 11:43:53 +02:00
parent 37adc352a1
commit 09f3b0b534
11 changed files with 16 additions and 14 deletions
+1 -1
View File
@@ -36,7 +36,7 @@
<ColumnDefinition Width="1*"/> <ColumnDefinition Width="1*"/>
</Grid.ColumnDefinitions> </Grid.ColumnDefinitions>
<Border Name="LogoBrd" Grid.Column="1"> <Border Name="LogoBrd" Grid.Column="1">
<Image Source="../Resources/NewIcons/Logo-Egalware (3).png" Stretch="Uniform"/> <Image Source="../Resources/NewIcons/Logo-Egalware.png" Stretch="Uniform"/>
</Border> </Border>
</Grid> </Grid>
<TextBlock Name="DescriptionLbl" Grid.Column="1" Grid.Row="3" HorizontalAlignment="Center" <TextBlock Name="DescriptionLbl" Grid.Column="1" Grid.Row="3" HorizontalAlignment="Center"
+1
View File
@@ -3,6 +3,7 @@
Public Const S_NUMERICALCONTROL As String = "NumericalControl" Public Const S_NUMERICALCONTROL As String = "NumericalControl"
Public Const K_TYPE As String = "Type" Public Const K_TYPE As String = "Type"
Public Const K_SPECIALSEND As String = "SpecialSend" Public Const K_SPECIALSEND As String = "SpecialSend"
Public Const K_SPECIALAREAS As String = "SpecialAreas"
Public Const S_PARTPROGRAM As String = "PartProgram" Public Const S_PARTPROGRAM As String = "PartProgram"
Public Const K_EXTENSION As String = "Extension" Public Const K_EXTENSION As String = "Extension"
+1 -1
View File
@@ -27,7 +27,7 @@
</Grid.ColumnDefinitions> </Grid.ColumnDefinitions>
<Border Name="LogoBrd" Background="Transparent"> <Border Name="LogoBrd" Background="Transparent">
<Image Source="../Resources/NewIcons/logo-OmCut.png" Stretch="Uniform" Margin="1"/> <Image Source="../Resources/NewIcons/Logo-OmCut.png" Stretch="Uniform" Margin="1"/>
</Border> </Border>
<!-- ** Definizione della Grid delle tab ** --> <!-- ** Definizione della Grid delle tab ** -->
+2 -2
View File
@@ -62,5 +62,5 @@ Imports System.Windows
' by using the '*' as shown below: ' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.7.9.3")> <Assembly: AssemblyVersion("2.7.9.4")>
<Assembly: AssemblyFileVersion("2.7.9.3")> <Assembly: AssemblyFileVersion("2.7.9.4")>
+6 -2
View File
@@ -34,6 +34,7 @@ Public Class CNCommunication
End If End If
End Set End Set
End Property End Property
Private m_nSpecialAreas As Integer = 4
' Variabile che indica il Mode corrente ' Variabile che indica il Mode corrente
Private m_nCurrMode As Integer = -1 Private m_nCurrMode As Integer = -1
@@ -116,6 +117,9 @@ Public Class CNCommunication
' Leggo flag invio speciale programma di lavoro ' Leggo flag invio speciale programma di lavoro
Dim nTemp As Integer = GetPrivateProfileInt(S_NUMERICALCONTROL, K_SPECIALSEND, -1, m_MainWindow.GetMachIniFile()) Dim nTemp As Integer = GetPrivateProfileInt(S_NUMERICALCONTROL, K_SPECIALSEND, -1, m_MainWindow.GetMachIniFile())
m_nSpecialSend = Math.Max( Math.Min( nTemp, 1), -1) m_nSpecialSend = Math.Max( Math.Min( nTemp, 1), -1)
' Leggo numero di aree per invio speciale
Dim nTemp2 As Integer = GetPrivateProfileInt(S_NUMERICALCONTROL, K_SPECIALAREAS, 4, m_MainWindow.GetMachIniFile())
m_nSpecialAreas = Math.Max( Math.Min( nTemp2, 16), 1)
' Se CN Siemens leggo dati programma intermedio di comunicazione ' Se CN Siemens leggo dati programma intermedio di comunicazione
If m_nNCType = 3 Then If m_nNCType = 3 Then
@@ -1704,8 +1708,8 @@ Public Class CNCommunication
If m_nNCType <> 4 Then Return False If m_nNCType <> 4 Then Return False
' Indice base ' Indice base
Dim nBase As Integer = 900 Dim nBase As Integer = 900
' Ho possibilità di trasmettere in 4 aree consecutive (901, 902, 903 e 904) ' Ho possibilità di trasmettere in più aree consecutive (901, 902, ...)
For I As Integer = 1 To 4 For I As Integer = 1 To m_nSpecialAreas
' Leggo la variabile semaforo dell'area I-esima ' Leggo la variabile semaforo dell'area I-esima
Dim nVal As Integer = -1 Dim nVal As Integer = -1
Dim sVar As String = "#" & (nBase + I).ToString() Dim sVar As String = "#" & (nBase + I).ToString()
+4 -7
View File
@@ -1157,7 +1157,7 @@
<Resource Include="Resources\NewIcons\MHT.png" /> <Resource Include="Resources\NewIcons\MHT.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Resource Include="Resources\NewIcons\logo-OmCut.png" /> <Resource Include="Resources\NewIcons\Logo-OmCut.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Resource Include="Resources\PartRotOff.png" /> <Resource Include="Resources\PartRotOff.png" />
@@ -1419,12 +1419,6 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Resource Include="Resources\NewIcons\Logo-Egalware.png" /> <Resource Include="Resources\NewIcons\Logo-Egalware.png" />
</ItemGroup>
<ItemGroup>
<Resource Include="Resources\NewIcons\Logo-Egalware %282%29.png" />
</ItemGroup>
<ItemGroup>
<Resource Include="Resources\NewIcons\Logo-Egalware %283%29.png" />
<Resource Include="Resources\NewIcons\RawHeight.png" /> <Resource Include="Resources\NewIcons\RawHeight.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
@@ -1453,6 +1447,9 @@
<ItemGroup> <ItemGroup>
<Resource Include="Resources\NewIcons\DatiMacchina2.png" /> <Resource Include="Resources\NewIcons\DatiMacchina2.png" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<Resource Include="Resources\NewIcons\Logo-OmCut.new.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup> <PropertyGroup>
<PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagCUT\OmagCUTR32.exe <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagCUT\OmagCUTR32.exe
+1 -1
View File
@@ -84,7 +84,7 @@
<BitmapImage x:Key="ZoomInImg" UriSource="Resources/NewIcons/Zoom+.png"></BitmapImage> <BitmapImage x:Key="ZoomInImg" UriSource="Resources/NewIcons/Zoom+.png"></BitmapImage>
<BitmapImage x:Key="ZoomOutImg" UriSource="Resources/NewIcons/Zoom-.png"></BitmapImage> <BitmapImage x:Key="ZoomOutImg" UriSource="Resources/NewIcons/Zoom-.png"></BitmapImage>
<BitmapImage x:Key="ZoomWinImg" UriSource="Resources/NewIcons/ZoomWIn.png"></BitmapImage> <BitmapImage x:Key="ZoomWinImg" UriSource="Resources/NewIcons/ZoomWIn.png"></BitmapImage>
<BitmapImage x:Key="LogoOmagImg" UriSource="Resources/NewIcons/logo-OmCut.png"></BitmapImage> <BitmapImage x:Key="LogoOmagImg" UriSource="Resources/NewIcons/Logo-OmCut.png"></BitmapImage>
<!--Nuove icone da sistemare--> <!--Nuove icone da sistemare-->
<BitmapImage x:Key="AvantiVeloceImg" UriSource="Resources/NewIcons/AvantiVeloce.png"></BitmapImage> <BitmapImage x:Key="AvantiVeloceImg" UriSource="Resources/NewIcons/AvantiVeloce.png"></BitmapImage>
Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.7 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.4 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.3 KiB

After

Width:  |  Height:  |  Size: 6.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.8 KiB