Sub Main
' Ambo Bivalente
Dim es,r1,r2,p1,p2,p3,e1,e2,e3,k,t,n(9),ru(2)
ReDim aNumEstraz(11,5)
Scrivi"Ricerca Terni Ripetuti stessa estrazione ",1,- 1,3
Scrivi
t = Timer
Ini = EstrazioneFin - 1000
fin = EstrazioneFin
ReDim atitoli(9)
atitoli(1) = " INFO ESTRAZIONE "
atitoli(2) = " TERNI "
atitoli(3) = " RUOTE "
atitoli(4) = " RITcR | RIT.Cc | RIT a TT "
atitoli(5) = " PRONOSTICO "
atitoli(6) = " ESITO "
atitoli(7) = " COLPO "
atitoli(8) = " RET_ESTRATTI Tutte "
atitoli(9) = " DATA ESTRAZIONE "
Call InitTabella(atitoli,266,,3,4)
For es = Ini To fin
Call GetEstrazioneCompleta(es,aNumEstraz)'matrice di ritorno estrazione + ruota e stringanumeri
For r1 = 1 To 9
For p1 = 1 To 3 ': e1 = Estratto(es,r1,p1)
For p2 = p1 + 1 To 4 ': e2 = Estratto(es,r1,p2)
For p3 = p2 + 1 To 5
For r2 = r1 + 1 To 10
'If Posizione(es,r2,e1) > 0 And Posizione(es,r2,e2) > 0 Then
If Posizione(es,r2,aNumEstraz(r1,p1)) > 0 Then
If Posizione(es,r2,aNumEstraz(r1,p2)) > 0 Then
If Posizione(es,r2,aNumEstraz(r1,p3)) > 0 Then
k = k + 1
e1 =(aNumEstraz(r1,p1))
e2 =(aNumEstraz(r1,p2))
e3 =(aNumEstraz(r1,p3))
n(1) = e1 'ComplAdX(e1,90)
n(2) = e2 'ComplAdX(e2,90)
n(3) = e3 'ComplAdX(e3,90)
'n(7) = Fuori90(e3 + n(1))
ru(1) = r1
ru(2) = r2
sf = SerieRitardoTurbo(Ini,fin,n,ru,3)
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
sfT = SerieRitardoTurbo(Ini,fin,n,rt,3)
Call VerificaEsitoTurbo(n,rt,es + 1,3,1000,,retesito,retcolpi,retestratti,retidestr)
Next
ReDim avalori(9)
avalori(1) = GetInfoEstrazione(es)
avalori(2) = Format2(aNumEstraz(r1,p1)) & " " & Format2(aNumEstraz(r1,p2)) & " " & Format2(aNumEstraz(r1,p3))
avalori(3) = SiglaRuota(r1) & "-" & SiglaRuota(r2)
avalori(4) = fin - es & " - " & sf & " - " & sfT
avalori(5) = StringaNumeri(n)
avalori(6) = retesito
avalori(7) = retcolpi
avalori(8) = retestratti
If avalori(6) = "" Then avalori(9) = "-"
'If avalori(6) = "Estratto" Then avalori(9) = DataEstrazione(retidestr)
If avalori(6) <> "" Then avalori(9) = DataEstrazione(retidestr)
Call AddRigaTabella(avalori,,,3)
If retesito = "Ambo" Then Call SetColoreCella(6,2,4)
If retesito = "Terno" Then Call SetColoreCella(6,3,1)
Call SetColoreCella(2,,7)
Call SetColoreCella(5,,1)
Call SetColoreCella(8,,7)
If retesito = "Ambo" Then Totambi = Totambi + 1
If retesito = "Terno" Then Totterni = Totterni + 1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Call SetTableWidth ("100%")
CreaTabella(4)
Scrivi "Trovati " & k & " Terni Trovati ",1
ColoreTesto 2
Scrivi "Con un Tempo di Elaborazione : " & Int(Timer - t) & " Secondi "
ColoreTesto 1
Scrivi "Totali Ambi.............. " & Totambi,1
Scrivi "Totali Terni............. " & Totterni,1
ColoreTesto 2
Scrivi "Casi Negativi............ " & k -(Totambi + Totterni),1
ColoreTesto 0
Scrivi "Tabella listed by Mike58 ",1,- 1,3
End Sub