EgtDOORCreator 1.8j1 :
- creazione di assemblati
This commit is contained in:
Nicola Pievani
+178
-18
@@ -47,6 +47,44 @@ Friend Module OptionModule
|
||||
Friend m_TopOverMaterial As String
|
||||
Friend m_BottomOverMaterial As String
|
||||
|
||||
Friend m_SwingTypeListSinlgeDoor As New List(Of String)
|
||||
Friend m_SwingTypeListLeftDoor As New List(Of String)
|
||||
Friend m_SwingTypeListRightDoor As New List(Of String)
|
||||
|
||||
Friend m_ThicknessJamb As String
|
||||
Friend m_WidthJamb As String
|
||||
Friend m_LightUp As String
|
||||
Friend m_LightLock As String
|
||||
Friend m_LightHinge As String
|
||||
Friend m_LightBottom As String
|
||||
Friend m_ThicknessHead As String
|
||||
Friend m_OverlapLock As String
|
||||
Friend m_OverlapHinge As String
|
||||
Friend m_Exterior As Boolean
|
||||
Friend m_OverlapTop As String
|
||||
Friend m_DeltaThickness As String
|
||||
Friend m_DoorsListNumber As New List(Of String)
|
||||
Friend m_DoorsNumber As String
|
||||
|
||||
Friend m_TopJambChk As Boolean
|
||||
Friend m_LeftJambChk As Boolean
|
||||
Friend m_BottomJambChk As Boolean
|
||||
Friend m_RightJambChk As Boolean
|
||||
|
||||
Friend m_LockEdgeTypeAssembly As New EdgeType("", Visibility.Visible)
|
||||
Friend m_HingeEdgeTypeAssembly As New EdgeType("", Visibility.Visible)
|
||||
Friend m_TopTypeAssembly As New EdgeType("", Visibility.Visible)
|
||||
Friend m_BottomTypeAssembly As New EdgeType("", Visibility.Visible)
|
||||
|
||||
Friend m_LockEdgeMachiningAssembly As Boolean
|
||||
Friend m_HingeEdgeMachiningAssembly As Boolean
|
||||
Friend m_TopMachiningAssembly As Boolean
|
||||
Friend m_BottomMachiningAssembly As Boolean
|
||||
Friend m_LockEdgeOverMaterialAssembly As String
|
||||
Friend m_HingeEdgeOverMaterialAssembly As String
|
||||
Friend m_TopOverMaterialAssembly As String
|
||||
Friend m_BottomOverMaterialAssembly As String
|
||||
|
||||
Friend m_CompoPaneOrder As List(Of String) = New List(Of String)
|
||||
|
||||
' inizializzazione lettura variabili ad inizio programma
|
||||
@@ -71,7 +109,7 @@ Friend Module OptionModule
|
||||
Dim sMsgFilePath As String = sMsgDir & "\EgalTechEng.txt"
|
||||
For Each Language In OptionModule.m_LanguageList
|
||||
If Language.Name = sMsgName Then
|
||||
GuideView.m_Language = sMsgName
|
||||
GuideV.m_Language = sMsgName
|
||||
OptionModule.m_SelectedLanguage = Language
|
||||
sMsgFilePath = sMsgDir & "\" & Language.FilePath
|
||||
End If
|
||||
@@ -152,49 +190,47 @@ Friend Module OptionModule
|
||||
Dim Swing As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZE, K_SWING_INI, "RH", Swing)
|
||||
m_Swing = Swing
|
||||
LoadSwingList()
|
||||
Dim Weight As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZE, K_WEIGHT_INI, "25", Weight)
|
||||
m_Weight = Weight
|
||||
Dim WeightVisibility As Visibility = Visibility.Collapsed
|
||||
DefaultGetPrivateProfilesVisibility(S_SIZE, K_WEIGHTISCHECKED_INI, WeightVisibility)
|
||||
Door.IsCheckedWeight = WeightVisibility
|
||||
Part.IsCheckedWeight = WeightVisibility
|
||||
|
||||
' carico il valori associati al tipo di spigolo
|
||||
Dim EdgeTypeList As New ObservableCollection(Of String)
|
||||
DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList)
|
||||
'For Index = 0 To EdgeTypeList.Count - 1
|
||||
' Door.m_EdgeTypeList.Add(New EdgeType(EdgeTypeList(Index), True))
|
||||
'Next
|
||||
m_StaticEdgeTypeList = EdgeTypeList
|
||||
OptionsViewModel.CreateEdgeTypeList()
|
||||
OptionsVM.CreateEdgeTypeList()
|
||||
|
||||
' carico i valori associati agli spigoli
|
||||
Dim LockEdgeType As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE, "", LockEdgeType)
|
||||
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
|
||||
If OptionsViewModel.EdgeTypeList(Index).Name = LockEdgeType Then
|
||||
m_LockEdgeType = OptionsViewModel.EdgeTypeList(Index)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = LockEdgeType Then
|
||||
m_LockEdgeType = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
Dim HingeEdgeType As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGE, K_HINGEDGE_INI, "SQ", HingeEdgeType)
|
||||
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
|
||||
If OptionsViewModel.EdgeTypeList(Index).Name = HingeEdgeType Then
|
||||
m_HingeEdgeType = OptionsViewModel.EdgeTypeList(Index)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = HingeEdgeType Then
|
||||
m_HingeEdgeType = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
Dim TopType As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGE, K_TOPEDGE_INI, "SQ", TopType)
|
||||
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
|
||||
If OptionsViewModel.EdgeTypeList(Index).Name = TopType Then
|
||||
m_TopType = OptionsViewModel.EdgeTypeList(Index)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = TopType Then
|
||||
m_TopType = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
Dim BottomType As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGE, K_BOTTOMEDGE_INI, "SQ", BottomType)
|
||||
For Index = 0 To OptionsViewModel.EdgeTypeList.Count - 1
|
||||
If OptionsViewModel.EdgeTypeList(Index).Name = BottomType Then
|
||||
m_BottomType = OptionsViewModel.EdgeTypeList(Index)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = BottomType Then
|
||||
m_BottomType = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -228,6 +264,118 @@ Friend Module OptionModule
|
||||
DefaultGetPrivateProfileList(S_COMPOORDER, K_COMPOORDER_INI, DdfFile.CompoListOrder)
|
||||
' carico l'ordinamento dei bottoni
|
||||
DefaultGetPrivateProfileList(S_COMPOORDER, K_COMPOORDER_INI, m_CompoPaneOrder)
|
||||
'-----------------------------------------------------------------------------------------------------------------
|
||||
'i valori della pagina dell'assemblato
|
||||
Dim ThicknessJamb As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZEJAMB, K_THICKNESS, "25", ThicknessJamb)
|
||||
m_ThicknessJamb = ThicknessJamb
|
||||
Dim WidthJamb As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZEJAMB, K_WIDTH, "25", WidthJamb)
|
||||
m_WidthJamb = WidthJamb
|
||||
|
||||
Dim LightUp As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTUP, "25", LightUp)
|
||||
m_LightUp = LightUp
|
||||
Dim LightLock As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTLOCK, "25", LightLock)
|
||||
m_LightLock = LightLock
|
||||
Dim LightHinge As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTHINGE, "25", LightHinge)
|
||||
m_LightHinge = LightHinge
|
||||
Dim LightBottom As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_LIGHT, K_LIGHTBOTTOM, "25", LightBottom)
|
||||
m_LightBottom = LightBottom
|
||||
DefaultGetPrivateProfileList(S_DOORSNUMBER, K_DOORSLISTNUMBER, m_DoorsListNumber)
|
||||
Dim DoorsNumber As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_DOORSNUMBER, K_DOORSELECTEDTNUMBER, "0", DoorsNumber)
|
||||
m_DoorsNumber = DoorsNumber
|
||||
Dim ThicknessHead As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_THICKNESSHEAD, "0", ThicknessHead)
|
||||
m_ThicknessHead = ThicknessHead
|
||||
Dim OverlapHinge As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPHINGE, "0", OverlapHinge)
|
||||
m_OverlapHinge = OverlapHinge
|
||||
Dim OverlapLock As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPLOCK, "0", OverlapLock)
|
||||
m_OverlapLock = OverlapLock
|
||||
Dim Exterior As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_OVERLAP, K_EXTERIOR, Exterior)
|
||||
m_Exterior = Exterior
|
||||
Dim OverlapTop As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_OVERLAPTOP, "0", OverlapTop)
|
||||
m_OverlapTop = OverlapTop
|
||||
Dim DeltaT As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERLAP, K_DELTAT, "0", DeltaT)
|
||||
m_DeltaThickness = DeltaT
|
||||
|
||||
Dim TopChk As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_PART, K_TOPJAMB, TopChk)
|
||||
m_TopJambChk = TopChk
|
||||
Dim LeftChk As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_PART, K_LEFTJAMB, LeftChk)
|
||||
m_LeftJambChk = LeftChk
|
||||
Dim BottomChk As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_PART, K_BOTTOMJAMB, BottomChk)
|
||||
m_BottomJambChk = BottomChk
|
||||
Dim RightChk As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_PART, K_RIGHTJAMB, RightChk)
|
||||
m_RightJambChk = RightChk
|
||||
|
||||
Dim LockEdgeTypeAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_LOCKEDGE, "", LockEdgeTypeAss)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = LockEdgeTypeAss Then
|
||||
m_LockEdgeTypeAssembly = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
Dim HingeEdgeTypeAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_HINGEDGE_INI, "SQ", HingeEdgeTypeAss)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = HingeEdgeTypeAss Then
|
||||
m_HingeEdgeTypeAssembly = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
Dim TopTypeAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_TOPEDGE_INI, "SQ", TopTypeAss)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = TopTypeAss Then
|
||||
m_TopTypeAssembly = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
Dim BottomTypeAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_EDGEASSEMBLY, K_BOTTOMEDGE_INI, "SQ", BottomTypeAss)
|
||||
For Index = 0 To OptionsVM.EdgeTypeList.Count - 1
|
||||
If OptionsVM.EdgeTypeList(Index).Name = BottomTypeAss Then
|
||||
m_BottomTypeAssembly = OptionsVM.EdgeTypeList(Index)
|
||||
End If
|
||||
Next
|
||||
|
||||
' Carico i valori booleani associati alla lavorazione
|
||||
Dim LockEdgeMachiningAss As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_MACHININGASSEMBLY, K_LOCKEDGEISCHECKED_INI, LockEdgeMachiningAss)
|
||||
m_LockEdgeMachiningAssembly = LockEdgeMachiningAss
|
||||
Dim HingeEdgeMachiningAss As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_MACHININGASSEMBLY, K_HINGEDGEEISCHECKED_INI, HingeEdgeMachiningAss)
|
||||
m_HingeEdgeMachiningAssembly = HingeEdgeMachiningAss
|
||||
Dim TopMachiningAss As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_MACHININGASSEMBLY, K_TOPISCHECKED_INI, TopMachiningAss)
|
||||
m_TopMachiningAssembly = TopMachiningAss
|
||||
Dim BottomMachiningAss As Boolean = False
|
||||
DefaultGetPrivateProfilesMachining(S_MACHININGASSEMBLY, K_BOTTOMISCHECKED_INI, BottomMachiningAss)
|
||||
m_BottomMachiningAssembly = BottomMachiningAss
|
||||
' carico i valori di overmaterial
|
||||
Dim LockEdgeOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_LOCKEDGEOVERMATERIAL_INI, "", LockEdgeOverMaterialAss)
|
||||
m_LockEdgeOverMaterialAssembly = LockEdgeOverMaterialAss
|
||||
Dim HingeEdgeOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_HINGEDGEOVERMATERIAL_INI, "", HingeEdgeOverMaterialAss)
|
||||
m_HingeEdgeOverMaterialAssembly = HingeEdgeOverMaterialAss
|
||||
Dim TopOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_TOPOVERMATERIAL_INI, "", TopOverMaterialAss)
|
||||
m_TopOverMaterialAssembly = TopOverMaterialAss
|
||||
Dim BottomOverMaterialAss As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_OVERMATERIALASSEMBLY, K_BOTTOMOVERMATERIAL_INI, "", BottomOverMaterialAss)
|
||||
m_BottomOverMaterialAssembly = BottomOverMaterialAss
|
||||
|
||||
m_OptionLauncherList.Add(EgtMsg(50206))
|
||||
m_OptionLauncherList.Add(EgtMsg(50207))
|
||||
@@ -246,6 +394,18 @@ Friend Module OptionModule
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LoadSwingList()
|
||||
For Index As Integer = 0 To 3
|
||||
m_SwingTypeListSinlgeDoor.Add(m_SwingTypeList(Index))
|
||||
Next
|
||||
For Index As Integer = 4 To 7
|
||||
m_SwingTypeListLeftDoor.Add(m_SwingTypeList(Index))
|
||||
Next
|
||||
For Index As Integer = 8 To 11
|
||||
m_SwingTypeListRightDoor.Add(m_SwingTypeList(Index))
|
||||
Next
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
|
||||
' Classe che identifica una lingua del programma con nome e path del file dei messaggi
|
||||
|
||||
Reference in New Issue
Block a user