Catalog/imagecatalog/Module1.cs

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();
    }
}