update con note x demo FORM VB

2019-10-28 17:17:53 +01:00
parent bd1a9d24de
commit 7b1cedcd36
2 changed files with 174 additions and 48 deletions
@@ -22,42 +22,149 @@ Partial Class Form1
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.SuspendLayout()
-        '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(420, 107)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 0
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(420, 182)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(39, 13)
-        Me.Label1.TabIndex = 1
-        Me.Label1.Text = "Label1"
-        '
-        'Form1
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Button1)
-        Me.Name = "Form1"
-        Me.Text = "Form1"
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
+    Me.Button1 = New System.Windows.Forms.Button()
+    Me.Label1 = New System.Windows.Forms.Label()
+    Me.Button2 = New System.Windows.Forms.Button()
+    Me.Button3 = New System.Windows.Forms.Button()
+    Me.cmbSheet = New System.Windows.Forms.ComboBox()
+    Me.Label2 = New System.Windows.Forms.Label()
+    Me.Button4 = New System.Windows.Forms.Button()
+    Me.Button5 = New System.Windows.Forms.Button()
+    Me.Button6 = New System.Windows.Forms.Button()
+    Me.Button7 = New System.Windows.Forms.Button()
+    Me.Button8 = New System.Windows.Forms.Button()
+    Me.SuspendLayout()
+    '
+    'Button1
+    '
+    Me.Button1.Location = New System.Drawing.Point(86, 360)
+    Me.Button1.Name = "Button1"
+    Me.Button1.Size = New System.Drawing.Size(75, 23)
+    Me.Button1.TabIndex = 0
+    Me.Button1.Text = "Button1"
+    Me.Button1.UseVisualStyleBackColor = True
+    '
+    'Label1
+    '
+    Me.Label1.AutoSize = True
+    Me.Label1.Location = New System.Drawing.Point(262, 370)
+    Me.Label1.Name = "Label1"
+    Me.Label1.Size = New System.Drawing.Size(39, 13)
+    Me.Label1.TabIndex = 1
+    Me.Label1.Text = "Label1"
+    '
+    'Button2
+    '
+    Me.Button2.Location = New System.Drawing.Point(64, 36)
+    Me.Button2.Name = "Button2"
+    Me.Button2.Size = New System.Drawing.Size(75, 23)
+    Me.Button2.TabIndex = 2
+    Me.Button2.Text = "Load BUNK"
+    Me.Button2.UseVisualStyleBackColor = True
+    '
+    'Button3
+    '
+    Me.Button3.Location = New System.Drawing.Point(64, 99)
+    Me.Button3.Name = "Button3"
+    Me.Button3.Size = New System.Drawing.Size(75, 23)
+    Me.Button3.TabIndex = 3
+    Me.Button3.Text = "Start Paint"
+    Me.Button3.UseVisualStyleBackColor = True
+    '
+    'cmbSheet
+    '
+    Me.cmbSheet.FormattingEnabled = True
+    Me.cmbSheet.Location = New System.Drawing.Point(294, 38)
+    Me.cmbSheet.Name = "cmbSheet"
+    Me.cmbSheet.Size = New System.Drawing.Size(121, 21)
+    Me.cmbSheet.TabIndex = 4
+    '
+    'Label2
+    '
+    Me.Label2.AutoSize = True
+    Me.Label2.Location = New System.Drawing.Point(208, 45)
+    Me.Label2.Name = "Label2"
+    Me.Label2.Size = New System.Drawing.Size(69, 13)
+    Me.Label2.TabIndex = 5
+    Me.Label2.Text = "current sheet"
+    '
+    'Button4
+    '
+    Me.Button4.Location = New System.Drawing.Point(294, 99)
+    Me.Button4.Name = "Button4"
+    Me.Button4.Size = New System.Drawing.Size(75, 23)
+    Me.Button4.TabIndex = 6
+    Me.Button4.Text = "End Paint"
+    Me.Button4.UseVisualStyleBackColor = True
+    '
+    'Button5
+    '
+    Me.Button5.Location = New System.Drawing.Point(64, 143)
+    Me.Button5.Name = "Button5"
+    Me.Button5.Size = New System.Drawing.Size(75, 23)
+    Me.Button5.TabIndex = 7
+    Me.Button5.Text = "Start Cut"
+    Me.Button5.UseVisualStyleBackColor = True
+    '
+    'Button6
+    '
+    Me.Button6.Location = New System.Drawing.Point(294, 143)
+    Me.Button6.Name = "Button6"
+    Me.Button6.Size = New System.Drawing.Size(75, 23)
+    Me.Button6.TabIndex = 8
+    Me.Button6.Text = "End Cut"
+    Me.Button6.UseVisualStyleBackColor = True
+    '
+    'Button7
+    '
+    Me.Button7.Location = New System.Drawing.Point(64, 185)
+    Me.Button7.Name = "Button7"
+    Me.Button7.Size = New System.Drawing.Size(75, 23)
+    Me.Button7.TabIndex = 9
+    Me.Button7.Text = "Start Unload"
+    Me.Button7.UseVisualStyleBackColor = True
+    '
+    'Button8
+    '
+    Me.Button8.Location = New System.Drawing.Point(294, 185)
+    Me.Button8.Name = "Button8"
+    Me.Button8.Size = New System.Drawing.Size(75, 23)
+    Me.Button8.TabIndex = 10
+    Me.Button8.Text = "End Unload"
+    Me.Button8.UseVisualStyleBackColor = True
+    '
+    'Form1
+    '
+    Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+    Me.ClientSize = New System.Drawing.Size(800, 450)
+    Me.Controls.Add(Me.Button8)
+    Me.Controls.Add(Me.Button7)
+    Me.Controls.Add(Me.Button6)
+    Me.Controls.Add(Me.Button5)
+    Me.Controls.Add(Me.Button4)
+    Me.Controls.Add(Me.Label2)
+    Me.Controls.Add(Me.cmbSheet)
+    Me.Controls.Add(Me.Button3)
+    Me.Controls.Add(Me.Button2)
+    Me.Controls.Add(Me.Label1)
+    Me.Controls.Add(Me.Button1)
+    Me.Name = "Form1"
+    Me.Text = "Form1"
+    Me.ResumeLayout(False)
+    Me.PerformLayout()

-    End Sub
+  End Sub

-    Friend WithEvents Button1 As Button
+  Friend WithEvents Button1 As Button
    Friend WithEvents Label1 As Label
+  Friend WithEvents Button2 As Button
+  Friend WithEvents Button3 As Button
+  Friend WithEvents cmbSheet As ComboBox
+  Friend WithEvents Label2 As Label
+  Friend WithEvents Button4 As Button
+  Friend WithEvents Button5 As Button
+  Friend WithEvents Button6 As Button
+  Friend WithEvents Button7 As Button
+  Friend WithEvents Button8 As Button
 End Class
@@ -3,18 +3,37 @@ Imports AppData
 Imports AppData.ComLib

 Public Class Form1
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        ' invio notifica che c'è una busta da processare
-        Dim redKey = $"PROVA:CURR"
-        ' scrivo su REDIS
-        memLayer.ML.setRSV(redKey, "ciao " & DateTime.Now.ToString())
-        'ComLib.sendMaterials()
-        Label1.Text = memLayer.ML.getRSV(redKey)
-        Dim x As New Takt
-        x = readTakt("PROD", "20190821.1")
-        'x.StackList(0).PanelsList(0).Printing()
-        'Dim d = memLayer.ML.connRedis.Configure.
-        'Dim h = memLayer.ML.connRedis
-    End Sub
+  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    ' invio notifica che c'è una busta da processare
+    Dim redKey = $"PROVA:CURR"
+    ' scrivo su REDIS
+    memLayer.ML.setRSV(redKey, "ciao " & DateTime.Now.ToString())
+    'ComLib.sendMaterials()
+    Label1.Text = memLayer.ML.getRSV(redKey)
+    Dim x As New Takt
+    x = readTakt("PROD", "20190821.1")
+    'x.StackList(0).PanelsList(0).Printing()
+    'Dim d = memLayer.ML.connRedis.Configure.
+    'Dim h = memLayer.ML.connRedis
+  End Sub
+
+  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    ' caricamento del NEXT STACK da redis (come oggetto)
+
+  End Sub
+
+  Private Sub cmbSheet_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbSheet.SelectedIndexChanged
+    ' selezione cambiata su elenco sheet (dal primo all'ultimo a runtime OBBLIGATORIO)
+
+  End Sub
+
+  Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    ' iniziato paint x sheet selezionato
+
+  End Sub
+
+  Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    ' completato paint x sheet selezionato
+  End Sub

 End Class