From 7b1cedcd36267e7502d8620e754d29cafbc27853 Mon Sep 17 00:00:00 2001 From: "Samuele E. Locatelli" Date: Mon, 28 Oct 2019 17:17:53 +0100 Subject: [PATCH] update con note x demo FORM VB --- RedisExample/Form1.Designer.vb | 177 ++++++++++++++++++++++++++------- RedisExample/Form1.vb | 45 ++++++--- 2 files changed, 174 insertions(+), 48 deletions(-) diff --git a/RedisExample/Form1.Designer.vb b/RedisExample/Form1.Designer.vb index e05d246..5ec5e58 100644 --- a/RedisExample/Form1.Designer.vb +++ b/RedisExample/Form1.Designer.vb @@ -22,42 +22,149 @@ Partial Class Form1 'Do not modify it using the code editor. _ 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 diff --git a/RedisExample/Form1.vb b/RedisExample/Form1.vb index 893dfd2..b4df1fa 100644 --- a/RedisExample/Form1.vb +++ b/RedisExample/Form1.vb @@ -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