Option Explicit
Sub Main
''''' ciclometria e statistica semicicli
Dim n(5),dcic(10,1),comb(90),rittab(90,2),fp(90,2)
Dim r,es,p,ct,n1,n2,n3,d1,d2,d3,qt,somdis,dist1,dist2,dist3,y,combin,v,b,da,a,m,paridi,yy,nr1,nr2,nr3,fine
Dim RetEsito,RetColpi,retEstratti,RetIdEstr,aRetRuote
r = InputBox("Scegli Ruota ",,2)
es = InputBox("estrazione n.",,EstrazioneFin - 9)
fine = EstrazioneFin
''''calcola presenze e ritardi in fasce (Dispari e Pari) lunghezza = 9
For m = 1 To 90
rittab(m,0) = EstrattoRitardo(r,m)
da = 0 : a = 10
For b = 1 To 30
paridi = ""
yy = 9*b
If rittab(m,0) = yy Then
If pari(yy) Then
paridi = "P"
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(m) & " "
Exit For
End If
If dispari(yy) Then
paridi = "D"
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(m) & " "
Exit For
End If
Else
If rittab(m,0) = 0 Then
paridi = "D"
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(m) & " "
Exit For
End If
If rittab(m,0) >= da And rittab(m,0) < a Then
fp(b,0) = fp(b,0) + 1
fp(b,1) = fp(b,1) & Format2(m) & " "
If pari(yy) Then
paridi = "P"
Exit For
Else
paridi = "D"
Exit For
End If
End If
End If
da = da + 9 : a = a + 9
Next
rittab(m,1) = paridi
Next
'''''------------------------------------------------------------------------------------------------------------
''''''elaboro l'estrazione (10Terzine) e il metodo Triangolo (attualmente distanze ciclometriche)
For es = es + 1 To fine
ct = 0
For p = 1 To 5
n(p) = Estratto(es,r,p)
Next
For n1 = 1 To 3
n2 = n1
For n2 = n2 + 1 To 4
n3 = n2
For n3 = n3 + 1 To 5
ct = ct + 1
dist1 = Format2(Distanza(n(n1),n(n2)))
dist2 = Format2(Distanza(n(n1),n(n3)))
dist3 = Format2(Distanza(n(n2),n(n3)))
somdis = Int(dist1) + Int(dist2) + Int(dist3)
dcic(ct,0) = Format2(dist1) & "..." & Format2(dist2) & "..." & Format2(dist3)
dcic(ct,1) = Format2(n(n1)) & " " & Format2(n(n2)) & " " & Format2(n(n3))
If es >= fine - 1 Then
comb(dist1) = dist1
comb(dist2) = dist2
comb(dist3) = dist3
End If
nr1 = dist1
nr2 = dist2
nr3 = dist2
If somdis = 90 Then
ColoreTesto(2)
Else
ColoreTesto(0)
End If
Scrivi SiglaRuota(r) & "..." & es & "..." & Format2(n(n1)) & " " & Format2(n(n2)) & " " & Format2(n(n3)) & "...Distanze.ciclometriche.." & dcic(ct,0) & ".....Somma Totale.." & somdis & "....Semiciclo attuale.." & rittab(nr1,1) & "." & rittab(nr2,1) & "." & rittab(nr3,1)
''''verifica risultati
ReDim an(3),ar(1)
an(1) = dist1 : an(2) = dist2 : an(3) = dist3
ar(1) = r
If VerificaEsito(an,ar,es + 1,1,,,RetEsito,RetColpi,retEstratti,RetIdEstr) Then
If RetEsito = "Estratto" Then
ColoreTesto(1)
Scrivi "-------------------------------------" & RetIdEstr & ".." & retEstratti & ".." & RetEsito & "...." & RetColpi & ".Colpo",1
ColoreTesto(0)
End If
End If
Next
Next
Next
Scrivi
Scrivi "============================================================================================================ siamo al ritardo " & fine - es,1
Scrivi
Next
For y = 1 To 90
If comb(y) > 0 Then
combin = combin & Format2(y) & "."
End If
Next
Scrivi
ColoreTesto(2)
Scrivi " Attualmente dalla rilevazione delle terzine sono passati ( 2 Ultimi ) Concorsi",1
ColoreTesto(0)
Scrivi " Dall'Osservazione nelle successive estrazioni emerge che i numeri che identificano le distanze",1
Scrivi " escono in tutte le ruote, e specialmente a TUTTE si riscontrano diversi ambi e terni ",1
ColoreTesto(1)
v = Len(combin)
Scrivi " Tutte le Distanze rilevate..Ultimi 2 concorsi.." & Mid(combin,1,v - 1),1
End Sub
