'Option Explicit
Sub Main
'script x metodo di imaging by lottotom75
'
'Data inizio Ricerca: 5/1/2000
'Data fine Ricerca: 20/2/2021
'Condizione di gioco: sortita ambo di somma 15
'ruota/e di ricerca condizione: Ca
'ruota/e di Gioco: Ca
'Colpi di Gioco: 9
'
'Operazioni da eseguire:
'
'Calcolo Capogioco:
'Capogioco: 1° To - 83
'
'Calcolo Abbinamenti per ambo:
'Abbinamento 1: 4° Pa X 5° Ba
'Abbinamento 2: 3° Fi X 4° Pa
'
'
'Statistiche delle Vincite
'Ambate vincenti: 161 (100%)
'Ambi secchi vincenti: 30 (18,6%)
'
'Tempo Medio di Attesa per il gioco di ambata e ambo: 4,7
'
'
'- Per i numeri doppi si è fatto il + 1
'- Tutte le operazioni matematiche prevedono il fuori 90
Dim es
estrazionivolute = InputBox("estrazioni","estrazioni",300)
fin = EstrazioneFin
Ini = EstrazioneFin - estrazionivolute
For es = Ini To fin
For R1 = 2 To 2
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(es,R1,P1)
B = Estratto(es,R1,P2)
If A + B = 15 Then
Dim Valori
Valori = Array(0,A,B)
ambata1 = Fuori90(Estratto(es,TO_,1) - 83)
ambata2 = Fuori90(Estratto(es,PA_,4) * Estratto(es,BA_,5))
ambata3 = Fuori90(Estratto(es,FI_,3) * Estratto(es,PA_,4))
ReDim ambataingioco(3)
ambataingioco(1) = ambata1
ambataingioco(2) = ambata2
ambataingioco(3) = ambata3
ReDim capogioco(1)
capogioco(1) = ambata1
ReDim posta(1)
ReDim poste(2)
posta(1) = 1
poste(2) = 2
ReDim ruota(1)
ruota(1) = R1
colpi = 9
ImpostaGiocata 1,capogioco,ruota,posta,colpi
ImpostaGiocata 2,ambataingioco,ruota,posta,colpi
ImpostaGiocata 3,ambataingioco,ruota,poste,colpi
Gioca es,1
Gioca es,2
Gioca es,3
End If
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
Call AvanzamentoElab(1,EstrazioneFin,es)
If ScriptInterrotto Then Exit For
Next
Call ScriviResoconto
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub
