Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
joe;n2082296 ha scritto:Cominciando dagli ultimi intervenuti,
saluto e ringrazio Armando e Magia.
Anche i loro dati in archivio, sono allineati a quelli degli altri.
Mentre, per Domenico, ci sono parecchie differenze.
Qui sarebbe interessante sapere come "opera" per aggiornare
Cioè, quale procedura si esegue e quale sito/archivio viene utilizzato, per prelevare i dati
Questo, ancor prima di correggere gli errori.
Perchè probabilmente senza rimuovere le cause che li generano
essi si riformerebbero, ricorrenti in un prossimo futuro.
Rimango pertanto in atttesa (se possibile)
di valutare meglio, il "da farsi" per risolvere (o tentare di risolvere) questi problemi.
Buona domenica a tutte/i.
rabberto;n2082316 ha scritto:Ciao Joe innanzitutto grazie per quello che fai , io aggiorno tramite il programma spaziometria dal menu' aggiorna da web e poi aggiorno tramite agenzia delle dogane , dove fin ora non ho mai avuto problemi , spero di essere stato di aiuto , grazie a tutti quelli che collaborano a questo progetto.
Option Explicit
Sub Main
'Verifica Consistenza Archivio V.1.1 By Joe
Dim Ini,Fin,Es,F,R,K,Se
Dim T(12) ,S(12)
Ini = 1 'Inizio Estrazioni
Fin = 3949'Fine dei Buchi
Scrivi "DAL " & DataEstrazione(Ini) & " AL " & DataEstrazione(Fin)
Scrivi : Scrivi "NELL' ARCHIVIO, SONO PRESENTI : " : Scrivi
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
F = False
For R = 1 To 12 : If R = 11 Then R = 12
Se = SommaEstratti(Es,R)
S(R) = S(R) + Se
If Se > 0 Then F = True : T(R) = T(R) + 1
Next
If F Then K = K + 1
Next
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) &Chr(9) & T(R) & Chr(9 ) & S(R) & Chr (9) & " Estrazioni."
Next
Scrivi
Scrivi FormatSpace(K,7,True) & " Estrazioni Totali"
End Sub
i legend;n2082314 ha scritto:Ciao Mike
per essere sicuri bisognerebbe controllare l archivio dal 3950 quando non ci sono piu buchi in archivio
e sono presenti tutte le 10 ruote.
personalmente lo ritengo il miglior archivio su cui effettuare le statistiche.
ciao
joe;n2082328 ha scritto:Ok Domenico.
Come prima cosa,
Proviamo la parte più vecchia dell'archivio.
Codice:Option Explicit Sub Main 'Verifica Consistenza Archivio V.1.1 By Joe Dim Ini,Fin,Es,F,R,K,Se Dim T(12) ,S(12) Ini = 1 'Inizio Estrazioni Fin = 3949'Fine dei Buchi Scrivi "DAL " & DataEstrazione(Ini) & " AL " & DataEstrazione(Fin) Scrivi : Scrivi "NELL' ARCHIVIO, SONO PRESENTI : " : Scrivi For Es = Ini To Fin AvanzamentoElab Ini,Fin,Es F = False For R = 1 To 12 : If R = 11 Then R = 12 Se = SommaEstratti(Es,R) S(R) = S(R) + Se If Se > 0 Then F = True : T(R) = T(R) + 1 Next If F Then K = K + 1 Next For R = 1 To 12 : If R = 11 Then R = 12 Scrivi SiglaRuota(R) &Chr(9) & T(R) & Chr(9 ) & S(R) & Chr (9) & " Estrazioni." Next Scrivi Scrivi FormatSpace(K,7,True) & " Estrazioni Totali" End Sub
Option Explicit
Sub Main
'Verifica Consistenza/Composizione Archivio V.1.2 By Joe
Dim Ini,Fin,Es,F,R,K,Se
Dim T(12),S(12)
Ini = 3950 'Inizio 10 ruote Senza interruzioni.
Fin = 9376 'Controllo al 30/09/2017.
Scrivi "DAL " & DataEstrazione(Ini) & " AL " & DataEstrazione(Fin)
Scrivi : Scrivi "Totale degli estratti ogni 180 Estrazioni " : Scrivi
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
F = False
For R = 1 To 12 : If R = 11 Then R = 12
Se = SommaEstratti(Es,R)
S(R) = S(R) + Se
If Se > 0 Then F = True : T(R) = T(R) + 1
Next
If F Then K = K + 1
If Es Mod 180 = 0 Or Es = Fin Then
If Es = Fin Then ColoreTesto 2
Scrivi Es & Chr(9) ,0,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & Chr(9) & S(R) & Chr(9),0,0
Next
Scrivi
End If
ColoreTesto 0
Next
Scrivi
Scrivi K & " Estrazioni Totali"
End Sub
joe;n2082444 ha scritto:Ciao Domenico.
La parte vecchia dellìarchivio sembra apposto dunque come detto
controlliamo, a pezzi, quella più recente.
Codice:
Option Explicit
Sub Main
'Verifica Consistenza/Composizione Archivio V.1.3 By Joe
Dim Ini,Fin,Es,F,R,K,kk,Se
Dim T(12),S(12)
Ini = 9180 'Inizio 10 ruote Senza interruzioni.
Fin = 9376 'Controllo al 30/09/2017.
Scrivi "DAL " & DataEstrazione(Ini) & " AL " & DataEstrazione(Fin)
Scrivi : Scrivi "Totale degli estratti ogni 18 Estrazioni " : Scrivi
Scrivi "C" & Chr(9) & "Estr" & Chr(9),0,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & Chr(9),0,0
Next
Scrivi
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
F = False
For R = 1 To 12 : If R = 11 Then R = 12
Se = SommaEstratti(Es,R)
S(R) = S(R) + Se
If Se > 0 Then F = True : T(R) = T(R) + 1
Next
If F Then K = K + 1
If Es Mod 18 = 0 Or Es = Fin Then
kk = kk + 1
If Es = Fin Then ColoreTesto 2
Scrivi kk & Chr(9) & Es & Chr(9),0,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi S(R) & Chr(9),0,0
Next
Scrivi
End If
ColoreTesto 0
Next
Scrivi
Scrivi K & " Estrazioni Totali"
End Sub
joe;n2082466 ha scritto:Codice:
Option Explicit
Sub Main
'Visualizzazione Estratti in Archivio V.1.1 By Joe
Dim Ini,Fin,Es,R,E,P
Ini = 9306 'Inizio periodo controllato
Fin = 9324 'Fine Periodo controllo
Scrivi "DAL " & DataEstrazione(Ini) & " AL " & DataEstrazione(Fin)
Scrivi : Scrivi "Estratti in archivio" : Scrivi
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
Scrivi DataEstrazione(Es,,,"/") & Space(1),False,False
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P)
Scrivi Format2(E) & Space(1),False,False
Next
Next
Scrivi
Next
End Sub