Mike58
Advanced Member >PLATINUM PLUS<
Ciao Miki,Nikor, senza rispondere alle vostre analisi (per non aggiungere confusione alla mia confusione), ma quello storico 77 io proprio non saprei come estrapolarlo.
Ho fatto una verifica con lo script ma questo dato proprio non viene fuori.
Invece seguendo il mio filo logico di costrutto script avrei raccolto questi dati che se si vuole sono anche vicini ma è chiaro che qui ci vuole anche che dite la vostra sul costrutto e iter algoritmo da seguire.
Strada facendo vediamo se arriviamo.
Intanto verificate.
Ho fatto una verifica con lo script ma questo dato proprio non viene fuori.
Invece seguendo il mio filo logico di costrutto script avrei raccolto questi dati che se si vuole sono anche vicini ma è chiaro che qui ci vuole anche che dite la vostra sul costrutto e iter algoritmo da seguire.
Strada facendo vediamo se arriviamo.
Intanto verificate.
Codice:
Sub Main
Dim nu(1),ru(2),T,V
Ini = EstrazioneIni
fin = EstrazioneFin
ru(1) = 3
ru(2) = 4
Scrivi StringaRuote(ru)
Scrivi
T = Array(T,"Info Data","Ruote","Numero","Estratti R1","Estratti R2","Posiz","Elenco Rit","Rit CronoL","Posizione","Rit Posiz","RitPos R1","RitPos R2","verifica","Id Data")
Call InitTabella(T,6)
For es = Ini To fin
For n = 66 To 66
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,ru(1),p1)
b = Estratto(es,ru(2),p2)
If a = b And a = n And b = n Then
nu(1) = n
k = k + 1
ReDim Preserve ess(k)
ess(k) = es
ReDim Preserve exx(k)
exx(k) = ess(k) -(ess(k - 1))
ReDim apos(5)
apos(p2) = True
'apos(p2) = True
'aa = SeriePrima(es,fin,nu,ru,1)
bb = RitardoCombinazione(ru,nu,1,,apos)
Call StatisticaFormazione(nu,ru,1,rit,max,Incr,fre,es + 1,fin,,apos)
Call VerificaEsito(nu,ru,fin - bb,1,1,,,clp,es1,id)
cc = EstrattoRitardo(ru(1),nu(1),Ini,fin,,,apos)
dd = EstrattoRitardo(ru(2),nu(1),Ini,fin,,,apos)
V = Array(V,GetInfoEstrazione(es),StringaRuote(ru),nu(1),StringaEstratti(es,ru(1)),StringaEstratti(es,ru(2)),p1 & "-" & p2,exx(k),fin-es,p2,_
bb,cc,dd,es1,id)
Call AddRigaTabella(V)
'Scrivi GetInfoEstrazione(es) & vbTab,0,0
'Scrivi Format2(a) & " <> " & Format2(b) & vbTab,0,0
'Scrivi StringaEstratti(es,ru(1)) & vbTab & StringaEstratti(es,ru(2)) & vbTab & p1 & "-" & p2 & vbTab & exx(k) & vbTab & fin - es & vbTab & p2 & _
' vbTab & bb & vbTab & cc & "-" & dd & vbTab & es1
End If
Next
Next
Next
Next
CreaTabella
End Sub