ayy lmao
This commit is contained in:
parent
abbe94a72c
commit
3b1afdf2c0
92 changed files with 23248 additions and 0 deletions
155
imagecatalog/Module1.vb
Normal file
155
imagecatalog/Module1.vb
Normal file
|
|
@ -0,0 +1,155 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue