Gestione status dei thread

2021-03-04 10:44:09 +01:00 · 2021-03-04 10:44:09 +01:00 · 9794ce1abb
commit 9794ce1abb
parent d133917283
35 changed files with 16112 additions and 30 deletions
--- a/imagecatalog/Module1.cs
+++ b/imagecatalog/Module1.cs
@ -0,0 +1,158 @@
+
+namespace ImageCatalog
+{
+    static class Module1
+    {
+
+        // Sub CaricaIni()
+        // Dim Parola As String
+        // Dim i As Integer
+        // Dim p As Integer
+
+        // If Dir$(NomeIni) <> "" Then
+        // Open NomeIni For Input As #1
+        // Input #1, NumeroMacchine
+        // For i = 1 To NumeroMacchine
+        // Input #1, NomeMacchina(i)
+        // Input #1, CodiceMacchina(i)
+        // Input #1, TempoMacchinaFerma(i)
+        // Input #1, LunghezzaImpulso(i)
+        // Input #1, TempoRegistrazioneDati(i)
+        // Input #1, RangoVelocita(i)
+        // Input #1, MaxVelocita(i)
+        // Input #1, NumeroRulli(i)
+        // Input #1, NumeroFili(i)
+        // Input #1, IndirizzoMacchina(i)
+        // Input #1, StampaAutoMacchina(i)
+        // Next i
+        // Input #1, SettimanaInizio
+        // Input #1, SettimanaFine
+        // Input #1, Chiusura
+        // Input #1, OrarioStampa
+        // Input #1, OrarioStampaSecondi
+        // Input #1, OrarioAccendiProg
+        // Input #1, OrarioSpengiProg
+        // Input #1, NomeDitta
+        // Input #1, StampaAutoGiorno
+        // Input #1, StampaAutoWeek
+        // Input #1, StampaGiornoRiepilogo
+        // Input #1, StampaGiornoGrafTMFA
+        // Input #1, StampaGiornoGrafVel
+        // Input #1, StampaWeekRiepilogo
+        // Input #1, StampaWeekGrafTMFA
+        // Input #1, StampaWeekGrafVel
+        // Input #1, StampanteManuale
+        // Input #1, StampanteAutomatica
+        // Input #1, StampanteNomeAghi
+        // Input #1, StampanteNomeLaser
+        // Input #1, NomePortaComm
+
+        // Input #1, TurniTotali
+        // For p = 1 To TurniTotali
+        // Input #1, TurnoNumero(p)
+        // Input #1, TurnoInizioMinuti(p)
+        // Input #1, TurnoFineMinuti(p)
+        // Input #1, TurnoInizioSecondi(p)
+        // Input #1, TurnoFineSecondi(p)
+        // Next p
+        // Input #1, Parola
+        // Close #1
+        // PassWordAmm = Trim$(Cripta(Parola, ChiaveCriDecri))
+        // End If
+        // End Sub
+
+        // Sub SalvaIni()
+        // Dim Conto As Single
+        // Dim Nomefile As String
+        // Dim NomeDir As String
+        // Dim Testo As String
+        // Dim TestoA As String
+        // Dim i As Integer
+        // Dim k As Integer
+        // Dim p As Integer
+        // Dim Lungo As Integer
+        // Dim Resto As Integer
+        // Dim Primo(3) As String
+
+        // For i = 1 To NumeroMacchine
+        // If Right$(DirectoryProgramma, 1) = "\" Then
+        // NomeDir = DirectoryProgramma + NomeMacchina(i)
+        // Else
+        // NomeDir = DirectoryProgramma + "\" + NomeMacchina(i)
+        // End If
+        // Nomefile = NomeDir + "\" + NomeMacchina(i) + ".SYS"
+        // If Dir$(Nomefile) = "" Then MkDir(NomeDir)
+        // Next i
+
+        // Open NomeIni For Output As #3
+        // Print #3, NumeroMacchine
+        // For i = 1 To NumeroMacchine
+        // If Right$(DirectoryProgramma, 1) = "\" Then
+        // Nomefile = DirectoryProgramma + NomeMacchina(i) + "\" + NomeMacchina(i) + ".SYS"
+        // Else
+        // Nomefile = DirectoryProgramma + "\" + NomeMacchina(i) + "\" + NomeMacchina(i) + ".SYS"
+        // End If
+        // Open Nomefile For Output As #4
+        // Write #4, NomeMacchina(i)
+        // Write #4, CodiceMacchina(i)
+        // Print #4, TempoMacchinaFerma(i)
+        // Print #4, LunghezzaImpulso(i)
+        // Print #4, TempoRegistrazioneDati(i)
+        // Print #4, RangoVelocita(i)
+        // Print #4, MaxVelocita(i)
+        // Print #4, NumeroRulli(i)
+        // Print #4, NumeroFili(i)
+        // Print #4, IndirizzoMacchina(i)
+        // Write #4, StampaAutoMacchina(i)
+        // Close #4
+        // Write #3, NomeMacchina(i)
+        // Write #3, CodiceMacchina(i)
+        // Print #3, TempoMacchinaFerma(i)
+        // Print #3, LunghezzaImpulso(i)
+        // Print #3, TempoRegistrazioneDati(i)
+        // Print #3, RangoVelocita(i)
+        // Print #3, MaxVelocita(i)
+        // Print #3, NumeroRulli(i)
+        // Print #3, NumeroFili(i)
+        // Print #3, IndirizzoMacchina(i)
+        // Write #3, StampaAutoMacchina(i)
+        // Next i
+        // Print #3, SettimanaInizio
+        // Print #3, SettimanaFine
+        // Write #3, Chiusura
+        // Write #3, OrarioStampa
+        // Print #3, OrarioStampaSecondi
+        // Write #3, OrarioAccendiProg
+        // Write #3, OrarioSpengiProg
+        // Write #3, NomeDitta
+        // Write #3, StampaAutoGiorno
+        // Write #3, StampaAutoWeek
+        // Write #3, StampaGiornoRiepilogo
+        // Write #3, StampaGiornoGrafTMFA
+        // Write #3, StampaGiornoGrafVel
+        // Write #3, StampaWeekRiepilogo
+        // Write #3, StampaWeekGrafTMFA
+        // Write #3, StampaWeekGrafVel
+        // Write #3, StampanteManuale
+        // Write #3, StampanteAutomatica
+        // Write #3, StampanteNomeAghi
+        // Write #3, StampanteNomeLaser
+        // Write #3, NomePortaComm
+
+        // Print #3, TurniTotali
+        // For p = 1 To TurniTotali
+        // Print #3, TurnoNumero(p)
+        // Print #3, TurnoInizioMinuti(p)
+        // Print #3, TurnoFineMinuti(p)
+        // Print #3, TurnoInizioSecondi(p)
+        // Print #3, TurnoFineSecondi(p)
+        // Next p
+        // Testo = Cripta(PassWordAmm, ChiaveCriDecri)
+        // Write #3, Testo
+        // Close #3
+        // End Sub
+
+
+        public static ParametriSetup SetupIni = new ParametriSetup();
+    }
+}