Sub Main
'script by zetrix
'implementato controllo A regressi by tom
Dim Rt(2),Ru(2),calc(10),ruota(5),ruote(5),ab(4),posta(1),poste(2)
Dim ambo1(4),ambo2(4),ambo3(4),ambo4(4),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2),ambo10(2)
Dim amba1(4),amba2(4),amba3(4),amba4(4),amba5(2),amba6(2),amba7(2),amba8(2),amba9(2),amba10(2)
Dim rs,rv,rx,rf,rw
Dim a,b,c,d,x,i,u,o,j,f,y,h,v,l,g,e,w,t,z,k
Dim b1,b2,b3,b4
Dim n1,n2,n3,n4,n5,n6,n7
Dim a1,a2,a3,a4,a5,a6
Dim R1,R2,R3,R
Dim num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
Dim colpi
Dim anum(2)
Dim sAmbo,ruota3
posta(1) = 1
poste(2) = 1
colpi = 0
'
rs = InputBox("Quante estrazioni vuoi controllare?",,12)
'
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio "Elaboro" & es
For R1 = 1 To 1
For R2 = R1 + 1 To R2
a1 = Estratto(es,R1,1)
a2 = Estratto(es,R1,2)
a3 = Estratto(es,R2,1)
a4 = Estratto(es,R2,2)
'-------------------------------
num1 = Fuori90(a1 + a4) ' 1 somma spia
num2 = Fuori90(a2 + a3) ' 2 somma spia
num3 = Fuori90(a1 + a4)
num4 = Fuori90(a2 + a3)
'-------------------------------
anum(1) = num1
anum(2) = num2
'
'
For R = 1 To 10
Rt(1) = R
'
Next
sf = SerieFreq(es - 12,es,anum,Rt,2)
sr = SerieRitardo(es - 12,es,anum,Rt,2)
If sf < 12 Then
'
st = DataEstrazione(es - sr)
sn = sr
'
'
ruota(1) = R1
ruota(2) = R2
'----------------------
ruote(1) = R1
ruote(2) = R2
ruote(3) = R
ruote(4) = TT_
ruote(5) = NZ_
'-------------------------
ambo1(1) = num3
ambo1(2) = num4
'--------------------------
'
calc(1) = a1
calc(2) = a2
calc(3) = a3
calc(4) = a4
'
ReDim MatriceCaselleDaEvid(6,1)
'
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = 1
'
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = 2
'
MatriceCaselleDaEvid(3,0) = R2
MatriceCaselleDaEvid(3,1) = 1
'
MatriceCaselleDaEvid(4,0) = R2
MatriceCaselleDaEvid(4,1) = 2
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
Scrivi "" & " " & Left(NomeRuota(R1),2) & "____" & Format2(a1) & "_" & Format2(a2) & "____" & num1 & "____",0,0,1,5,5
Scrivi
Scrivi "" & " " & Left(NomeRuota(R2),2) & "____" & Format2(a3) & "_" & Format2(a4) & "____" & num2 & "____",0,0,1,5,5
Scrivi
Scrivi
Scrivi
Scrivi "" & num1 & " " & num2 & Space(3) & SiglaRuota(R) & " " & st & " (-" & sn & "est)",0,1,7,6,5
Scrivi
' Call DisegnaCerchioCiclometrico(calc,True,,,,True,True)
'x controllo se ambo formato è già uscito su TToNZ nei precedenti x colpi... in quel caso la coppia non va messa in gioco...
ReDim aruote(11)
Dim cr
For cr = 1 To 12
aruote(cr) = cr
If cr = 11 Then
cr = 12
End If
Next
Dim Rit,Ritmax,Incmax,freq,es
Call StatisticaFormazioneTurbo(ambo1,aruote,2,Rit,Ritmax,Incmax,freq,es - rs,es)
If Rit > 13 Then
ImpostaGiocata 1,ambo1,ruote,poste,colpi,0
Gioca es,1,,1
Else
Dim esitoverify,colpiverify,estrattiverify,esverify,aruoteverify
Scrivi "spiacente... l'ambo è già uscito su TT e/o NZ nelle precedenti " & rs & " estrazioni e la coppia " & StringaNumeri(ambo1) & " non può essere messa in gioco... ",True,,,vbBlue,4
Call VerificaEsitoTurbo(ambo1,aruote,es - rs,2,rs + 1,,esitoverify,colpiverify,estrattiverify,esverify,aruoteverify)
If esitoverify <> "" Then
Scrivi "Usciti " & estrattiverify & " in data " & GetInfoEstrazione(esverify) & " su " & StringaRuote(aruoteverify),True,,,vbRed,3
End If
End If
'-------- fine controllo A su TT o NZ
Scrivi
End If
'End If
'Next
Next ' chiude r1
Next 'chiude r2
Next 'chiude es
End Sub
