lotto_tom75
Advanced Premium Member
Codice:
'Option Explicit
Sub Main
'script x metodo di imaging by lottotom75
'
'Metodo Somma Spia
'Data inizio Ricerca: 5/1/2000
'Data fine Ricerca: 25/2/2021
'Condizione di gioco: sortita ambo di somma 83
'ruota/e di ricerca condizione: Ca
'ruota/e di Gioco: Ca
'Colpi di Gioco: 9
'
'
'Operazioni da eseguire:
'
'Calcolo Capogioco:
'Capogioco: 4° Pa - 4
'
'Calcolo Abbinamenti per ambo:
'Abbinamento 1: 2° Pa - 64
'Abbinamento 2: 5° Pa + 3° Ge
Dim es
estrazionivolute = InputBox("estrazioni","estrazioni",3000)
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 > 0 Then
If A + B = 83 Then
Dim Valori
Valori = Array(0,A,B)
ambata1 = Fuori90(Estratto(es,PA_,4) - 4)
ambata2 = Fuori90(Estratto(es,PA_,2) - 64)
ambata3 = Fuori90(Estratto(es,PA_,5) + Estratto(es,GE_,3))
ReDim ambataingioco(3)
ambataingioco(1) = ambata1
ambataingioco(2) = ambata2
ambataingioco(3) = ambata3
ReDim posta(1)
posta(1) = 1
ReDim ruota(1)
ruota(1) = R1
colpi = 9
ReDim poste2(2)
poste2(2) = 2
'ReDim poste3(3)
'poste3(3) = 3
ReDim capogiocoingioco1(1)
capogiocoingioco1(1) = ambata1
' x verificare capogioco... come estratto
ImpostaGiocata 1,capogiocoingioco1,ruota,posta,colpi
' x verificare eventuali esiti di ambo o superiori in 3ina...
ImpostaGiocata 2,ambataingioco,ruota,poste2,colpi
Gioca es,1
Gioca es,2
'End If
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
Ultima modifica:
