Buon Giorno a tutte/i.
Aggiungo allora .. alcune mie considerazioni.
Questo Forum ha vissuto alcune ere ... rinascendo, da se stesso
e qualche volta ricordando qualcosa del passato.
Sicchè lo script inizialmmente proposto da Rodrigo ,
per esssere corretto mi risulta essere ed è una riedizione ... di uno presentato quì ...
nel 2006 (se ricordo bene ... ma non importa).
Ne ho rilevato, corretto e risolto alcune criticità.
Ma s'è visto principalmente non funzionare ... per un errore nell'archivio
e nelle scelte "dei" sistemi virtuali.
S'è gia detto ... dei NumeriPrimi "Puri" che devono essere adeguati alle considerazioni del Severo,
dunque per questo scopo ho redatto un piccolo script, utile per avere aggiungere e/o correggere
"la prima parte" del pregresso e/o dei un redigendi script dedicati a questo argomento.
Codice:
Sub Main
For N = 1 To 90
If N <> 3 Then 'correttore
If N <> 5 Then 'correttore
If Primo(N) Then
K = K + 1 : ReDim Preserve I(K) : I(K) = N
End If
End If
End If
Next
K = K + 1 : ReDim Preserve I(K) : I(K) = 49 'Integrazioni / Complementari
K = K + 1 : ReDim Preserve I(K) : I(K) = 77 'Integrazioni / Complementari
K = K + 1 : ReDim Preserve I(K) : I(K) = 90 'Integrazioni / Complementari
OrdinaMatrice I,False
Scrivi StringaNumeri(I,,True)
Scrivi
K = 0
For N = 1 To 25
If I(N) > 0 Then
K = k + 1
Scrivi "I (" & Format2(N) & ") = " & Format2(I(N)),0,0
If K Mod 5 <> 0 Then Scrivi " : ",0,0 Else Scrivi ""
End If
Next
End Sub
Chiedo comunque, un cortese controllo su essi, al fine, di avere uno standard di riferimento "certo e condiviso".
Ciò premesso ... ho considerato e riprodotto l'archivio (stile excel) proposto da Silop.
Non dimenticando anche quanto scritto da Bladerunner.
Anche qui ... tralasciando gli errori che si possono essere ingenerati e che essendo cumulativi ...
se non risolti si trascinano ... ora paiono allineati.
Qui ... del Severo e dell' interpratazione ... preferisco non trattare ancora.
Pur scrivendo che ho preferito lavorare "senza archivi" ottenendo precisione e velocità inimmaginabili
ove invece erano errori ... vari.
Vi presento dunque lo script "clonatore-xls-like" ... che ha il compito
di controllare solo una ruota: Bari / con il virtulalizzatore "17" (ma sono modificabili)
ottenendo comunqe un output analogo a quello fornito da Silop.
Per non aggiungere troppo ed oltre ... specifico che in esso, per ultimo, ho inserito
un piccolo contatore ed visualizzatore dei ritardi, oltre "un correttore" per adeguarlo
a quello che sono le indicazioni e convinzioni che nel frattempo si sono radicati.
Non ho potuto ancora controllare ... al nuovo ... proposto ma confido funzionare.
Codice:
Option Explicit
Sub Main
Dim D,R,V
Dim Ini,Fin,Es
Dim NU(5),Rit(90)
Dim P,N,NV
D = - 17 : R = BA_ : V = - D 'Correttore Universale !!!
Ini = 3950 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
Scrivi DataEstrazione(Es) & " ",False,False
For P = 1 To 5 : NU(P) = Fuori90(Estratto(Es,R,P)) : Next
Scrivi StringaNumeri(NU,,True) & " ",0,0
V = Fuori90(V + D)
ColoreTesto 2 : Scrivi " -" & Format2(90 - V) & " ",1,0 : ColoreTesto 0
For P = 1 To 5
NV = Fuori90(NU(P) + V) : Scrivi Format2(NV),0,0
For N = 1 To 90
If N = NV Then Rit(N) = Fin - Es
Next
If P < 5 Then Scrivi ".",0,0 Else Scrivi ""
Next
Next
Scrivi
Scrivi "NU RIT",True
For N = 1 To 90
Scrivi Format2 (N) & " " & FormatSpace(Rit(N),3,True)
Next
End Sub
Cordiali saluti.