Buon Giorno a tutte/i.
Genal, hai ragione ...
... stavo appunto cercando di mettere un po d'ordine, tra le tante cose.
Dunque ho modificato un pochino lo script (che ho provato solo con Spaziometria).
Dicendo che Spaziometria restituisce risultati in HTML e che questo forum
accetta input in HTML ...
Ho manipolato l'output di spaziometria pur rispettando l'esigenza della lettura diretta,
perché l'HTML non ci sarebbe leggibile.
Cioè ho modificato (meglio scritto) le routine di output ed in queste,
ho aggiunto il suggerimento di Matteo.
Il tempo per tutti i controlli, non l'ho trovato, ma so che se sbaglio ...
... mi correggerete. (Dicevano ascoltati e ricordati).
Per quanto riguarda le tue ultime richieste penso di averle già scritte,
per l'altro script, che t'ho mostrato, nel forum di Enplein.
Tuttavia ad ora non ho potuto controllare se in questo mi ero portato avanti ... nel tempo.
CODICE
' PRIMI TRE RITARDATARI PER AMBO SU RUOTA E SULLE ALTRE RUOTE
Sub Main()
Dim ru(1),n(3),nn(3),rt(11,11),esiti(11,11),max(11,11)
ini = EstrazioneFin -5
fin = EstrazioneFin
Scrivi Space(3) & "|||||| RUOTE DI PROVENIENZA terzina ||||||" & Space(2) & "RUOTA DI GIOCO",True,True
For rg = 1 To 10
Messaggio NomeRuota(rg)
ru(1) = rg
'Scrivi FormatSpace(SiglaRuota(rg),6),0,0
If rg = 10 Then Scrivi
For es = ini To fin '- 1
AvanzamentoElab Ini,fin,es
'Messaggio es
For r = 1 To 10
For p = 1 To 3
n(p) = NumeroPosRit(Es - 1,r,p)
'nn(p) = NumeroPosRit(fin,r,p)
Next
'form(r) = StringaNumeri(nn)
Sf = SerieFreqTurbo(Es,Es,n,ru,2)
If Sf > 0 Then
rt(rg,r) = 0
esiti(rg,r) = esiti(rg,r) + 1
Else
rt(rg,r) = rt(rg,R) + 1
If max(rg,r) < rt(rg,r) Then max(rg,r) = rt(rg,r)
If esiti(rg,r) = 0 Then esiti(rg,r) = "0"
End If
Next
Next
Next
Scrivi
Scrivi String(10,".") & " Rit. attuali al " & DataEstrazione(fin) & " " & String(11,"."),True
Display(rt)'ScriviMatrice rt
Scrivi String(10,".") & " Rit. storici dal " & DataEstrazione(ini) & " " & String(11,"."),True
Display(max)'ScriviMatrice max
Scrivi String(13,".") & " Esiti dal " & DataEstrazione(ini) & " " & String(14,"."),True
Display(esiti)'ScriviMatrice esiti
End Sub
Sub Display(Mat) 'By Joe
For R = 1 To 10 : ColoreTesto 5 : Scrivi "..",0,0 :
ColoreTesto 0 : Scrivi SiglaRuota(R),True,False
ColoreTesto 5 : Scrivi "" & Space(1),0,0 : ColoreTesto 0
Next : Scrivi
For R = 1 To 10
For S = 1 To 10
L = Len(Mat(r,s)) : ColoreTesto 5 : Scrivi String(4 - L,"."),0,0 : ColoreTesto 0
If Mat(R,S) > 400 Then ColoreTesto 2 : GR = True
Scrivi Mat(r,s) & Space(1),GR,False
ColoreTesto 0 : GR = False
Next
ColoreTesto 5 : Scrivi String(2,"."),False,False : ColoreTesto 0
Scrivi SiglaRuota (R),True,False
Scrivi
Next
Scrivi
End Sub
Una avvertenza: Lo script considera l'archivio "vuoto per pieno"
dunque se, è così come è, non si deve andare indietro oltre la 3950.
Perché non ha protezioni contro "i buchi dell'archivio".
Buona giornata a tutte/i.
Edited by J-Gio91 - 9/2/2019, 20:54