Ho rimesso mano allo script poichà da segnalazione di Abitte mi sono reso conto che non leggeva tutte le combinazioni.
Questo è quello richiesto da Alberto in terzine.
Codice:
Sub Main()
Dim n(5)
Dim x(5)
Dim y(5)
Dim nn(5)
Dim xx(5)
Dim yy(5)
Dim Ruotedigioco(12)
Dim Poste(4)
'Poste(1) = 3
Poste(2) = 2
Poste(3) = 1
clp = 13
Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
fin = EstrazioneFin
ini = EstrazioneFin - esaritroso
For es = ini To fin
AvanzamentoElab ini,fin,es
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 5
w = p - 1
ww = p + 1
If w = 0 Then w = 5
If ww = 6 Then ww = 1
a = Estratto(es - 1,r,p)
b = Estratto(es,r,p)
c = Estratto(es - 1,r,ww)
d = Estratto(es,r,ww)
e = Estratto(es - 1,r,w)
f = Estratto(es,r,w)
If a = b Then
h = Differenza(c,d)
i = a + b
g = i + h
k = Fuori90(g/2)
j = Fuori90(Differenza(i,k))
qq = Fuori90(k + j)
ss = Fuori90(qq + 1)
vv = Fuori90(qq + 2)
If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
xx(1) = j
xx(2) = k
xx(3) = ss
nn(1) = j
nn(2) = k
yy(1) = j
yy(2) = k
yy(4) = vv
Ruotedigioco(1) = r
'Ruotedigioco(2) = 11
Scrivi String(110,"*"),1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 1,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
ColoreTesto 1:Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione destra " & c & " e " & d,1,,,10
Scrivi String(110,"*"),1
ImpostaGiocata 4,nn,Ruotedigioco,Poste,clp
ImpostaGiocata 5,xx,Ruotedigioco,Poste,clp
ImpostaGiocata 6,yy,Ruotedigioco,Poste,clp
Gioca es,1,,1
End If
'Scrivi String(110,"*"),1
' _______________________________________________________________
l = Differenza(e,f)
m = i + l
u = Fuori90(m/2)
o = Fuori90(Differenza(i,u))
q = Fuori90(U + o)
s = Fuori90(q + 1)
v = Fuori90(q + 2)
If pari(e) And pari(f) = True Or dispari(e) And dispari(f) = True Then
x(1) = u
x(2) = o
x(3) = s
n(1) = u
n(2) = o
y(1) = u
y(2) = o
y(4) = v
'Scrivi String(110,"*"),1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 1,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
ColoreTesto 1:Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione sinistra " & e & " e " & f,1,,,10
'Scrivi
Scrivi String(110,"*"),1
Ruotedigioco(1) = r
'Ruotedigioco(2) = 11
ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
ImpostaGiocata 3,y,Ruotedigioco,Poste,clp
Gioca es,1,,1
End If
'End If
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
porto su questo metodo che ultimamente ha ricominciato a dare....lo tengo controllato e non sempre lo gioco MA il 3 ed il 5 del mese è uscito il 6 sulla NAZ in doppia condizione e...le due condizioni davano lo stesso ambo ! 2-10 con il 13 e 14 come abbinamenti. Vista la previsione fuor dal comune l'ho giocata e ieri sera....AMBO SECCO,AMBETTO E AMBO IN QUARTINA SULLA NAZIONALE!!!!! 
