[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/p\/2iDiv.jpg"}[/IMG2]
lo script è in fase di verifica dati ed intreccio con la doppia sincronia.
Option Explicit
Sub Main
Dim rie(1090,7)
Dim n,fine,r,p,e,t,ix,v,det,iy,w,z,retesito,retcolpi,retestratti,retidestr,Ini,vv,ne,zz,k
Dim RetRit,RetRitMax,RetIncrRitMax,RetFre
fine = InputBox("Estrazione n.",,EstrazioneFin)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
For r = 1 To 10
For n = 1 To 90
iy = Format2(r) & Format2
p = p + 1
rie(iy,1) = p
rie(iy,2) = Format2(r) & ".." & Format2
rie(iy,3) = EstrattoRitardoTurbo(r,n,EstrazioneIni,fine)
rie(iy,4) = EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine)
rie(iy,5) = 0
rie(iy,6) = 0
rie(iy,7) = 0
Next
Next
''''graduatoria ritardo
Call OrdinaMatrice(rie,- 1,3)
For e = 1 To 1090
rie(e,5) = e
rie(e,6) = 0
rie(e,7) = 0
Next
''''graduatoria frequenza
Call OrdinaMatrice(rie,1,4)
For e = 1 To 1090
If rie(e,4) > 0 Then
w = w + 1
rie(e,6) = w
rie(e,7) = FormattaStringa(rie(e,6) + rie(e,5),"0000")
End If
Next
' ''''' graduatoria di somma
Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazione(fine),1
Call OrdinaMatrice(rie,1,7)
ReDim ttot(99,2)
For t = 1 To 1090
If rie(t,7) > 0 And rie(t,5) > 0 And rie(t,6) > 0 Then
'''''''''''''''''''''calcola alcuni dati '''''''''''''''''''''''''''''''''''''
ReDim ruote(1),numeri(1)
ruote(1) = Left(rie(t,2),2)
numeri(1) = Right(rie(t,2),2)
Call StatisticaFormazioneTurbo(numeri,ruote,1,RetRit,RetRitMax,RetIncrRitMax,RetFre,EstrazioneIni,fine)
v = v + 1
Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb..." & SiglaRuota(Left(rie(t,2),2)) & " " & Right(rie(t,2),2) & " Rae..." & FormattaStringa(RetRit,"000") & " Freq..." & FormattaStringa(RetFre,"0000") & " Somma.." & FormattaStringa(rie(t,7),"0000") & " = " & rie(t,5) & " // " & rie(t,6)
zz = Left(rie(t,7),2)
ttot(zz,1) = ttot(zz,1) + 1
'''''''''''''''''''''verifica esiti'''''''''''''''''''''''''''''''''''''
Ini = fine + 1
Call VerificaEsitoTurbo(numeri,ruote,Ini,1,,,retesito,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
vv = vv + 1
ttot(zz,2) = ttot(zz,2) + 1
ColoreTesto(2)
Scrivi " ------------------------------------------->> " & retidestr & "...colpo n." & Format2(retidestr - Ini) & " Estratti..." & retestratti,1
ColoreTesto(0)
End If
End If
Next
ne = EstrazioneFin - fine + 1
ColoreTesto(1)
Scrivi "----------------------------------------------------",1
Scrivi " Periodo esaminato........Dal..estraz.n............." & fine & " / " & DataEstrazione(fine),1
Scrivi " N.estrazioni valutate.in verifica.................." & ne,1
Scrivi " Totale combinazioni in graduatoria................." & v,1
Scrivi " Totale combinazione uscite........................." & vv,1
Scrivi " % ................................................." & Round(vv/v,5)*100,1
Scrivi " Reali nr.Vergini .................................." & 900 - vv
Scrivi " Teorici n.Vergini.900*(17/18)^ne.in graduatoria...." & Int(900*(17/18)^ne),1
Scrivi " Teorici n.Vergini .90*(17/18)^ne.singola ruota....." & Int(90*(17/18)^ne),1
Scrivi "----------------------------------------------------",1
ColoreTesto(0)
Scrivi "Riepilogo Generale per Gruppi di somma / 100........",1
For k = 0 To 99
If ttot(k,1) > 0 Then
Scrivi Format2(k) & "......" & "nr.pres.." & FormattaStringa(ttot(k,1),"000") & "...nr.Usc.." & FormattaStringa(ttot(k,2),"000")
End If
Next
End Sub
Attenzione a 2 istruzione dove si deve recuperare lo spazio bianco che il copia/incolla ha creato