Codice:
Sub Main()
Dim n(5)
Dim x(5)
Dim y(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"
t = 0
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,w)
d = Estratto(es,r,w)
e = Estratto(es - 1,r,ww)
f = Estratto(es,r,ww)
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)
ok = 0
If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
z1 = j
z2 = k
z3 = qq
z4 = ss
z5 = vv'
x(1) = j
x(2) = k
x(3) = ss
n(1) = j
n(2) = k
y(1) = j
y(2) = k
y(4) = vv
Ok = 1
Scrivi String(110,"*"),1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 1,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1,,,5
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 sinistra " & c & " e " & d,1
End If
' _______________________________________________________________
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) = True And pari(f) = True Or dispari(e) = True 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
ok = 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 destra " & e & " e " & f,1
End If
If ok = 1 Then
'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
End If
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
Ultima modifica:
