From 83dfb79888097724d436cfc09d662450db43ea3a Mon Sep 17 00:00:00 2001 From: "Samuele E. Locatelli" Date: Mon, 11 Nov 2019 13:55:57 +0100 Subject: [PATCH] Aggiunto dummy project --- PROD/Form1.Designer.vb | 50 ++++++++++ PROD/Form1.resx | 120 +++++++++++++++++++++++ PROD/Form1.vb | 18 ++++ PROD/My Project/Application.Designer.vb | 38 +++++++ PROD/My Project/Application.myapp | 11 +++ PROD/My Project/AssemblyInfo.vb | 35 +++++++ PROD/My Project/Resources.Designer.vb | 62 ++++++++++++ PROD/My Project/Resources.resx | 117 ++++++++++++++++++++++ PROD/My Project/Settings.Designer.vb | 73 ++++++++++++++ PROD/My Project/Settings.settings | 7 ++ PROD/PROD.vbproj | 125 ++++++++++++++++++++++++ RedisExample.sln | 12 ++- RedisExample/Form1.vb | 26 +++-- 13 files changed, 682 insertions(+), 12 deletions(-) create mode 100644 PROD/Form1.Designer.vb create mode 100644 PROD/Form1.resx create mode 100644 PROD/Form1.vb create mode 100644 PROD/My Project/Application.Designer.vb create mode 100644 PROD/My Project/Application.myapp create mode 100644 PROD/My Project/AssemblyInfo.vb create mode 100644 PROD/My Project/Resources.Designer.vb create mode 100644 PROD/My Project/Resources.resx create mode 100644 PROD/My Project/Settings.Designer.vb create mode 100644 PROD/My Project/Settings.settings create mode 100644 PROD/PROD.vbproj diff --git a/PROD/Form1.Designer.vb b/PROD/Form1.Designer.vb new file mode 100644 index 0000000..9af8cb2 --- /dev/null +++ b/PROD/Form1.Designer.vb @@ -0,0 +1,50 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Richiesto da Progettazione Windows Form + Private components As System.ComponentModel.IContainer + + 'NOTA: la procedura che segue è richiesta da Progettazione Windows Form + 'Può essere modificata in Progettazione Windows Form. + 'Non modificarla mediante l'editor del codice. + _ + Private Sub InitializeComponent() + Me.Button1 = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(41, 98) + 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 + ' + '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.Button1) + Me.Name = "Form1" + Me.Text = "Form1" + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Button1 As Button +End Class diff --git a/PROD/Form1.resx b/PROD/Form1.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/PROD/Form1.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/PROD/Form1.vb b/PROD/Form1.vb new file mode 100644 index 0000000..3fec515 --- /dev/null +++ b/PROD/Form1.vb @@ -0,0 +1,18 @@ +Imports NKC_SDK + +Public Class Form1 + + + ' caricamento del NEXT STACK da redis (come oggetto) + ' PROD http : http://seriate.steamware.net:8083/NKC/ + ' DEV: https : http://localhost:44388/ + Dim baseUrl As String = "http://seriate.steamware.net:8083/NKC/" + Dim currNKC As NKC = New NKC(baseUrl) + Dim currentBunk As ProdBunk = Nothing + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + ' recupero BUNK! + currentBunk = currNKC.getFirstBunk + + End Sub +End Class diff --git a/PROD/My Project/Application.Designer.vb b/PROD/My Project/Application.Designer.vb new file mode 100644 index 0000000..cc3c497 --- /dev/null +++ b/PROD/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.PROD.Form1 + End Sub + End Class +End Namespace diff --git a/PROD/My Project/Application.myapp b/PROD/My Project/Application.myapp new file mode 100644 index 0000000..1243847 --- /dev/null +++ b/PROD/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/PROD/My Project/AssemblyInfo.vb b/PROD/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..9dfd183 --- /dev/null +++ b/PROD/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Le informazioni generali relative a un assembly sono controllate dal seguente +' set di attributi. Modificare i valori di questi attributi per modificare le informazioni +' associate a un assembly. + +' Controllare i valori degli attributi degli assembly + + + + + + + + + + +'Se il progetto viene esposto a COM, il GUID seguente verrà utilizzato come ID della libreria dei tipi + + +' Le informazioni sulla versione di un assembly sono costituite dai seguenti quattro valori: +' +' Versione principale +' Versione secondaria +' Numero di build +' Revisione +' +' È possibile specificare tutti i valori oppure impostare valori predefiniti per i numeri relativi alla revisione e alla build +' usando l'asterisco '*' come illustrato di seguito: +' + + + diff --git a/PROD/My Project/Resources.Designer.vb b/PROD/My Project/Resources.Designer.vb new file mode 100644 index 0000000..49883da --- /dev/null +++ b/PROD/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("PROD.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/PROD/My Project/Resources.resx b/PROD/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/PROD/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/PROD/My Project/Settings.Designer.vb b/PROD/My Project/Settings.Designer.vb new file mode 100644 index 0000000..7a68ab8 --- /dev/null +++ b/PROD/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.PROD.My.MySettings + Get + Return Global.PROD.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/PROD/My Project/Settings.settings b/PROD/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/PROD/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/PROD/PROD.vbproj b/PROD/PROD.vbproj new file mode 100644 index 0000000..f132494 --- /dev/null +++ b/PROD/PROD.vbproj @@ -0,0 +1,125 @@ + + + + + Debug + AnyCPU + {F620BB3A-E68B-42C1-8FF6-15917C7629AF} + WinExe + PROD.My.MyApplication + PROD + PROD + 512 + WindowsForms + v4.0 + true + + + AnyCPU + true + full + true + true + bin\Debug\ + PROD.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + PROD.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Form1.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + {5a0b6e45-169b-44d4-9e24-13718b8eb7cc} + NKC_SDK + + + + \ No newline at end of file diff --git a/RedisExample.sln b/RedisExample.sln index a77c695..28d0ea1 100644 --- a/RedisExample.sln +++ b/RedisExample.sln @@ -1,12 +1,14 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio Version 16 -VisualStudioVersion = 16.0.29503.13 +# Visual Studio 15 +VisualStudioVersion = 15.0.28307.902 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RedisExample", "RedisExample\RedisExample.vbproj", "{9694C356-E431-4861-A120-ADEE2AAD6345}" EndProject Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "NKC_SDK", "NKC_SDK\NKC_SDK.csproj", "{5A0B6E45-169B-44D4-9E24-13718B8EB7CC}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "PROD", "PROD\PROD.vbproj", "{F620BB3A-E68B-42C1-8FF6-15917C7629AF}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -26,6 +28,12 @@ Global {5A0B6E45-169B-44D4-9E24-13718B8EB7CC}.Debug-LELE|Any CPU.Build.0 = Debug|Any CPU {5A0B6E45-169B-44D4-9E24-13718B8EB7CC}.Release|Any CPU.ActiveCfg = Release|Any CPU {5A0B6E45-169B-44D4-9E24-13718B8EB7CC}.Release|Any CPU.Build.0 = Release|Any CPU + {F620BB3A-E68B-42C1-8FF6-15917C7629AF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {F620BB3A-E68B-42C1-8FF6-15917C7629AF}.Debug|Any CPU.Build.0 = Debug|Any CPU + {F620BB3A-E68B-42C1-8FF6-15917C7629AF}.Debug-LELE|Any CPU.ActiveCfg = Debug|Any CPU + {F620BB3A-E68B-42C1-8FF6-15917C7629AF}.Debug-LELE|Any CPU.Build.0 = Debug|Any CPU + {F620BB3A-E68B-42C1-8FF6-15917C7629AF}.Release|Any CPU.ActiveCfg = Release|Any CPU + {F620BB3A-E68B-42C1-8FF6-15917C7629AF}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/RedisExample/Form1.vb b/RedisExample/Form1.vb index 89b299c..bd386d3 100644 --- a/RedisExample/Form1.vb +++ b/RedisExample/Form1.vb @@ -83,20 +83,26 @@ Public Class Form1 'Dim getFirstBunk = ComLib.prodGetFirstBunk() ' ho un bunk coi suoi pannelli... - Label1.Text = $"Trovato il bunk {currentBunk.BunkId} costituito da {currentBunk.SheetList.Count} pannelli" + If (currentBunk Is Nothing) Then + ' non ho un current bunk + Label1.Text = "non ho trovato nessun bunk corrente" + Else - ' salvo bunk corrente - txtCurrBunk.Text = currentBunk.BunkId + Label1.Text = $"Trovato il bunk {currentBunk.BunkId} costituito da {currentBunk.SheetList.Count} pannelli" - ' visualizzo btn nextBunk - btnNextBunk.Visible = True - lblNextBunk.Visible = True - lblNextBunk.Text = "..." + ' salvo bunk corrente + txtCurrBunk.Text = currentBunk.BunkId - ' popolo il selettore dei fogli... - cmbSheet.DataSource = currentBunk.SheetList + ' visualizzo btn nextBunk + btnNextBunk.Visible = True + lblNextBunk.Visible = True + lblNextBunk.Text = "..." - updateDataButtons() + ' popolo il selettore dei fogli... + cmbSheet.DataSource = currentBunk.SheetList + + updateDataButtons() + End If End Sub