R
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Scrivi " Script modificato by *Max-lotto* ",1
Scrivi " ====================================",1
Scrivi " L'AMBO OLTRE DI ANTONIO LONGO ",1
Scrivi " ====================================",1
Dim num(2)
Dim num2(3)
Dim am(1)
Dim ruota(2)
Dim ruote(3)
Dim poste(2),posta(2)
posta(1) = 1
poste(2) = 1
Ini = EstrazioneFin - 20 ' modificare se si vuole cercare piu estrazioni'
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 12
For r2 = r1 + 1 To 12
For p1 = 1 To 5
For p2 = p1 + 1 To 5
For p3 = 1 To 5
For p4 = p3 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p3) '
n4 = Estratto(es,r2,p4)
If n1 = n3 And n2 = n4 Or n2 = n3 And n1 = n4 Then
If n1 = n3 And n2 = n4 Then
c1 = Massimo(n1,n2)
c2 = Minimo(n1,n2)
c3 = Fuori90(c1 + c1)
c4 = Fuori90(c2 + c2)
c5 = Abs(c3 - c4)
c6 =(c5/2)
c7 = Massimo(c3,c4)
c8 = Minimo(c3,c4)
c9 = Fuori90(Abs(c7 - c6))
c10 = Fuori90(c8 + c6)
x1 = Fuori90(n1 + c9)
x2 = Fuori90(n2 + c10)
x3 = Fuori90(x1 + x2)
ambatmod = Fuori90(c1 + c10)
ruota(1) = r1
ruota(2) = r2
ruote(1) = 11
ruote(2) = r1
ruote(3) = r2
k = 9
am(1) = ambatmod
num(1) = ambatmod
num(2) = x3
num2(1) = x1
num2(2) = x2
num2(3) = x3
EliminaRipetuti num
ImpostaGiocata 1,am,ruota,posta,k
ImpostaGiocata 2,num,ruote,poste,k
ImpostaGiocata 3,num2,ruote,poste,k
Gioca es
Scrivi DataEstrazione(es) + " " + NomeRuota(r1) + " " + Format2(n1) + " " + Format2(n2) + " POSIZIONE [" + Format2(p1) + " " + Format2(p2) + "] " + NomeRuota(r2) + " " + Format2(n3) + " " + Format2(n4) + " POSizione [ " + Format2(p3) + " " + Format2(p4) + "]"
End If
If n2 = n3 And n1 = n4 Then
c1 = Massimo(n1,n2)
c2 = Minimo(n1,n2)
c3 = Fuori90(c1 + c1)
c4 = Fuori90(c2 + c2)
c5 = Abs(c3 - c4)
c6 =(c5/2)
c7 = Massimo(c3,c4)
c8 = Minimo(c3,c4)
c9 = Fuori90(Abs(c7 - c6))
c10 = Fuori90(c8 + c6)
x1 = Fuori90(n1 + c9)
x2 = Fuori90(n2 + c10)
x3 = Fuori90(x1 + x2)
ambatmod = Fuori90(c1 + c10)
ruota(1) = r1
ruota(2) = r2
ruote(1) = 11
ruote(2) = r1
ruote(3) = r2
am(1) = ambatmod
k = 9
num(1) = ambatmod
num(2) = x3
num2(1) = x1
num2(2) = x2
num2(3) = x3
EliminaRipetuti num2
ImpostaGiocata 1,am,ruota,posta,k
ImpostaGiocata 2,num,ruote,poste,k
ImpostaGiocata 3,num2,ruote,poste,k
Gioca es
Scrivi DataEstrazione(es) + " " + NomeRuota(r1) + " " + Format2(n1) + " " + Format2(n2) + " POSIZIONE [" + Format2(p1) + " " + Format2(p2) + "] " + NomeRuota(r2) + " " + Format2(n3) + " " + Format2(n4) + " POSizione [ " + Format2(p3) + " " + Format2(p4) + "]"
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: AMBO OLTRE",1
Scrivi "AUTORE: A. Longo-",1
ColoreTesto 2
End Sub
Ciao Chloè il 29 giugno c'è una sola previsione infatti è in gioco perche dici che ci sono 2 previsioni forse intendi anche quella delle ruote PAlermo NAzionale? ricopia il codice perche l'ho modificato Fammi sapere .ciao Max,grazie ancora per il tuo lavoro..copiando il secondo script ora gira,però c'è qualcosa di strano nelle ultime previsioni,ci dovrebbero essere 2 previsioni scaturite dal 29 giugno,ti posto invece l'immagine che mi dà..scusa se ti sto rompendo così tanto
Vedi l'allegato 6136
Vedi l'allegato 6137si intendevo anche quella,io prendo in considerazione tutti gli ambi uguali,anche quelli che non hanno nessun numero isotopo..e ora quella di palermo nazionale c'è,anche quella cagliari-venezia,l'unica cosa è che lo script invece di cagliari venezia scrive che l'ambo uguale si gioca sulle ruote di firenze torino..ma a parte questo,per il resto direi che è ok..grazie ancora per tutto..
Per Max-lotto (e per quanto chiestomi anche per Lo studente)
Ho dato un'occhiata allo scipt ed è molto più preciso del precedente soprattutto perchè individua l'ambata giusta. Complimenti.