spostamento testSam in ramo superiore proj...

2018-11-22 20:37:35 +01:00
parent f14590a37f
commit 287929dad7
368 changed files with 0 additions and 0 deletions
@@ -0,0 +1,126 @@
+Module M_aspect
+
+    Const BUTTON_TOP As Integer = 380
+    Const BUTTON_WIDTH As Integer = 75
+    Const BUTTON_HEIGHT As Integer = 40
+
+    Sub init()
+        With FrmMain
+
+            ' -------------- positions ----------------
+
+            Call Button_init()
+
+            ' -------------- clear labels ----------------
+
+            .LblProgramName.Text = "---------"
+
+            ' ------------ messages -------------------------
+
+
+            .LblCurrentProgram.Text = Message.msg(36)    ' Currently machining : 
+            .LblMachineStatus.Text = Message.msg(37)     ' Machine Status : 
+            '            .LblNextProgram.Text = Message.msg(38)       ' Next program : 
+
+
+            Call button_text()
+
+            ' -------------- visibilities ------------------
+
+            Call button_visibility()
+
+            .LblConnected.Visible = True
+            .LblProgramName.Visible = True
+
+            .LblMachineStatus.Visible = True
+            .LblMachState.Visible = True
+
+
+            .LblCurrentProgram.Visible = True
+            .LblNcStatus.Visible = True
+
+            If (IniRead.b_BarCodeInput_enabled Or IniRead.b_FileInputMode_enabled) And pRegistered Then
+
+                '                Call M_serial_barcode.set_textbox(.TxtBarCode)
+            End If
+
+
+
+
+            ' -------------- size -------------------------
+
+            ' -------------- simulation  ------------------
+
+            If IniRead.b_debug Then  ' simulation stuff
+
+                .BtnSim0.Visible = True
+                .BtnSim1.Visible = True
+                .BtnSim2.Visible = True
+                .BtnSim3.Visible = True
+                .BtnSim4.Visible = True
+                .BtnSim5.Visible = True
+                .LblSimPrgSent1.Visible = True
+                .LblSimPrgSent2.Visible = True
+
+            End If
+
+            ' ---------------- old osai  
+
+            If (IniRead.b_force_S10WLK32 And IniRead.b_verbose) Or (IniRead.b_test_nc) Then
+                .BtnReadOldOsai.Visible = True
+                .BtnWrite1OldOsai.Visible = True
+                .BtnWrite2OldOsai.Visible = True
+                .BtnWrite3OldOsai.Visible = True
+                .BtnWrite4OldOsai.Visible = True
+                .BtnWrite5OldOsai.Visible = True
+                .LblReadOldOsai.Visible = True
+
+                .BtnReadOldOsai.Text = "R var " & IniRead.nVar_NC_state.ToString
+                .BtnWrite1OldOsai.Text = "W1"
+                .BtnWrite2OldOsai.Text = "W2"
+                .BtnWrite3OldOsai.Text = "W3"
+                .BtnWrite4OldOsai.Text = "W4"
+                .BtnWrite5OldOsai.Text = "W5"
+            End If
+
+
+            If (IniRead.b_win7 And IniRead.b_test_nc) Or (IniRead.b_send_file) Then
+                .Btn_test_file.Visible = True
+            End If
+
+        End With
+
+    End Sub
+
+    Private Sub Button_init()
+
+        With FrmMain
+
+
+            .BtnExit.Top = BUTTON_TOP
+            .BtnExit.Width = BUTTON_WIDTH
+            .BtnExit.Height = BUTTON_HEIGHT
+            .BtnExit.Left = 220
+
+
+        End With
+    End Sub
+
+    Private Sub button_visibility()
+        With FrmMain
+            .BtnExit.Visible = True
+
+        End With
+
+    End Sub
+
+    Private Sub button_text()
+        With FrmMain
+
+            .BtnExit.Text = Message.msg(21)  ' Exit
+        End With
+
+    End Sub
+
+
+End Module