Module 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 SetupIni As New ParametriSetup


End Module