155 lines
5.4 KiB
VB.net
155 lines
5.4 KiB
VB.net
|
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
|