Metodo WINNING

Buona serata a tutti

Uno script molto interessante......

Cordiali saluti a tutti/e
------------------------------------

Sub main()
Dim r(10)
Dim vam1(10),vam2(10),vam3(10),vam4(10)
Dim am1(2),am2(2),am3(2),am4(2)
Dim n1(20),n2(20),n3(20),n4(20)
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim posta(5)
posta(2)=1.5
posta(3)=0.4
posta(4)=0.1
co=0
rr=InputBox("SU QUALE RUOTA ?","SCELTA RUOTA",1)
r(1)=rr
ini=InputBox("ESTRAZIONE INIZIALE : ","INIZIO ANALISI",EstrazioneFin-100)
fin=InputBox("ESTRAZIONE FINALE : ","FINE ANALISI",EstrazioneFin)
For es=ini To fin
Messaggio (es)
' Estratti estrazione precedente
a1=Estratto(es-1,rr,1)
a2=Estratto(es-1,rr,2)
a3=Estratto(es-1,rr,3)
a4=Estratto(es-1,rr,4)
' Estratti estrazione corrente
b1=Estratto(es,rr,2)
b2=Estratto(es,rr,3)
b3=Estratto(es,rr,4)
b4=Estratto(es,rr,5)
' Moltiplicazione in diagonale degli estratti
d1=a1*b1
d2=a2*b2
d3=a3*b3
d4=a4*b4
' Formazione dell'Ambo n° 1
If d1<100 Then
am1(1)=Decina(d1)
am1(2)=Cadenza(d1)
If am1(2)=0 Then am1(2)=90 End If
End If
If d1>99 And d1<1000 Then
am1(1)=d1\10
am1(2)=d1 Mod 10
If am1(2)=0 Then am1(2)=90 End If
End If
If d1>999 Then
am1(1)=d1\100
am1(2)=d1 Mod 100
If am1(2)=0 Then am1(2)=90 End If
End If
x1=Decina(am1(1))
x2=Decina(am1(2))
If x1=x2 Then
dd1=1
Else
dd1=0
End If
' Formazione dell'Ambo n° 2
If d2<100 Then
am2(1)=Decina(d2)
am2(2)=Cadenza(d2)
If am2(2)=0 Then am2(2)=90 End If
End If
If d2>99 And d2<1000 Then
am2(1)=d2\10
am2(2)=d2 Mod 10
If am2(2)=0 Then am2(2)=90 End If
End If
If d2>999 Then
am2(1)=d2\100
am2(2)=d2 Mod 100
If am2(2)=0 Then am2(2)=90 End If
End If
x1=Decina(am2(1))
x2=Decina(am2(2))
If x1=x2 Then
dd2=1
Else
dd2=0
End If
' Formazione dell'Ambo n° 3
If d3<100 Then
am3(1)=Decina(d3)
am3(2)=Cadenza(d3)
If am3(2)=0 Then am3(2)=90 End If
End If
If d3>99 And d3<1000 Then
am3(1)=d3\10
am3(2)=d3 Mod 10
If am3(2)=0 Then am3(2)=90 End If
End If
If d3>999 Then
am3(1)=d3\100
am3(2)=d3 Mod 100
If am3(2)=0 Then am3(2)=90 End If
End If
x1=Decina(am3(1))
x2=Decina(am3(2))
If x1=x2 Then
dd3=1
Else
dd3=0
End If
' Formazione dell'Ambo n° 4
If d4<100 Then
am4(1)=Decina(d4)
am4(2)=Cadenza(d4)
If am4(2)=0 Then am4(2)=90 End If
End If
If d4>99 And d4<1000 Then
am4(1)=d4\10
am4(2)=d4 Mod 10
If am4(2)=0 Then am4(2)=90 End If
End If
If d4>999 Then
am4(1)=d4\100
am4(2)=d4 Mod 100
If am4(2)=0 Then am4(2)=90 End If
End If
x1=Decina(am4(1))
x2=Decina(am4(2))
If x1=x2 Then
dd4=1
Else
dd4=0
End If
'*********************** INIZIO CONTROLLI REGOLE DI GIOCO **********************************
' controllo n° 1 - presenza nelle 2 estr. precedenti dei vertibili dell'ambo
c11=0
vam1(1)=Vert(am1(1))
vam1(2)=Vert(am1(2))
c11=SerieFreq(es-4,es,vam1,r,1)
c12=0
vam2(1)=Vert(am2(1))
vam2(2)=Vert(am2(2))
c12=SerieFreq(es-4,es,vam2,r,1)
c13=0
vam3(1)=Vert(am3(1))
vam3(2)=Vert(am3(2))
c13=SerieFreq(es-4,es,vam3,r,1)
c14=0
vam4(1)=Vert(am4(1))
vam4(2)=Vert(am4(2))
c14=SerieFreq(es-4,es,vam4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 2 - presenza nelle 5 estr. precedenti dei due numeri dell'ambo
c21=0
c21=SerieFreq(es-7,es,am1,r,1)
c22=0
c22=SerieFreq(es-7,es,am2,r,1)
c23=0
c23=SerieFreq(es-7,es,am3,r,1)
c24=0
c24=SerieFreq(es-7,es,am3,r,1)
'-----------------------------------------------------------------------------
' controllo n° 3 - presenza nelle 25 estr. precedenti dell'ambo
c31=0
c31=SerieFreq(es-27,es,am1,r,2)
c32=0
c32=SerieFreq(es-27,es,am2,r,2)
c33=0
c33=SerieFreq(es-27,es,am3,r,2)
c34=0
c34=SerieFreq(es-27,es,am4,r,2)
'-----------------------------------------------------------------------------
' controllo n° 4 - ritardo dei 2 numeri dell'ambo non superiore a 30 estrazioni
c41=0
c41=SerieRitardo(es-200,es,am1,r,1)
c42=0
c42=SerieRitardo(es-200,es,am2,r,1)
c43=0
c43=SerieRitardo(es-200,es,am3,r,1)
c44=0
c44=SerieRitardo(es-200,es,am4,r,1)
'-----------------------------------------------------------------------------
' controllo n° 5 - presenza dell'ambo dei vertibili nelle 12 estrazioni precedenti
c51=0
c51=SerieFreq(es-14,es,vam1,r,2)
c52=0
c52=SerieFreq(es-14,es,vam2,r,2)
c53=0
c53=SerieFreq(es-14,es,vam3,r,2)
c54=0
c54=SerieFreq(es-14,es,vam4,r,2)
'********** ESAME DEI CONTROLLI E FORMAZIONE DELLE GIOCATE ***********************
' AMBO 1
If c11=0 And c21=0 And c31=0 And c41<32 And c51=0 And dd1=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am1(1))
If y=9 Then y=0 End If
For i=1 To 10
n1(i)=(y*10)+i
Next
j=Decina(am1(2))
If j=9 Then j=0 End If
For i=1 To 10
n1(10+i)=(j*10)+i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr)&" "&DataEstrazione(es-1)&"-"&DataEstrazione(es)&" "&StringaNumeri(am1)&" "&_
StringaNumeri(am2)&" "&StringaNumeri(am3)&" "&StringaNumeri(am4)&" Ambo 1 "&StringaNumeri(am1),1
Scrivi " Numeri in gioco " & StringaNumeri(n1)
nu1(1)=n1(1)
nu1(2)=n1(2)
nu1(3)=n1(3)
nu1(4)=n1(4)
nu1(5)=n1(5)
nu1(6)=n1(6)
nu1(7)=n1(7)
nu1(8)=n1(8)
nu1(9)=n1(9)
nu1(10)=n1(10)
ImpostaGiocata 1,nu1,r,posta,5,4
nu1(1)=n1(11)
nu1(2)=n1(12)
nu1(3)=n1(13)
nu1(4)=n1(14)
nu1(5)=n1(15)
nu1(6)=n1(16)
nu1(7)=n1(17)
nu1(8)=n1(18)
nu1(9)=n1(19)
nu1(10)=n1(20)
ImpostaGiocata 2,nu1,r,posta,5,4
nu1(1)=n1(1)
nu1(2)=n1(2)
nu1(3)=n1(3)
nu1(4)=n1(4)
nu1(5)=n1(5)
nu1(6)=n1(11)
nu1(7)=n1(12)
nu1(8)=n1(13)
nu1(9)=n1(14)
nu1(10)=n1(15)
ImpostaGiocata 3,nu1,r,posta,5,4
nu1(1)=n1(1)
nu1(2)=n1(2)
nu1(3)=n1(3)
nu1(4)=n1(4)
nu1(5)=n1(5)
nu1(6)=n1(16)
nu1(7)=n1(17)
nu1(8)=n1(18)
nu1(9)=n1(19)
nu1(10)=n1(20)
ImpostaGiocata 4,nu1,r,posta,5,4
nu1(1)=n1(6)
nu1(2)=n1(7)
nu1(3)=n1(8)
nu1(4)=n1(9)
nu1(5)=n1(10)
nu1(6)=n1(11)
nu1(7)=n1(12)
nu1(8)=n1(13)
nu1(9)=n1(14)
nu1(10)=n1(15)
ImpostaGiocata 5,nu1,r,posta,5,4
nu1(1)=n1(6)
nu1(2)=n1(7)
nu1(3)=n1(8)
nu1(4)=n1(9)
nu1(5)=n1(10)
nu1(6)=n1(16)
nu1(7)=n1(17)
nu1(8)=n1(18)
nu1(9)=n1(19)
nu1(10)=n1(20)
ImpostaGiocata 6,nu1,r,posta,5,4
Gioca es
End If
' AMBO 2
If c12=0 And c22=0 And c32=0 And c42<32 And c52=0 And dd2=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am2(1))
If y=9 Then y=0 End If
For i=1 To 10
n2(i)=(y*10)+i
Next
j=Decina(am2(2))
If j=9 Then j=0 End If
For i=1 To 10
n2(10+i)=(j*10)+i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr)&" "&DataEstrazione(es-1)&"-"&DataEstrazione(es)&" "&StringaNumeri(am1)&" "&_
StringaNumeri(am2)&" "&StringaNumeri(am3)&" "&StringaNumeri(am4)&" Ambo 2 "&StringaNumeri(am2),1
Scrivi " Numeri in gioco " & StringaNumeri(n2)
nu2(1)=n2(1)
nu2(2)=n2(2)
nu2(3)=n2(3)
nu2(4)=n2(4)
nu2(5)=n2(5)
nu2(6)=n2(6)
nu2(7)=n2(7)
nu2(8)=n2(8)
nu2(9)=n2(9)
nu2(10)=n2(10)
ImpostaGiocata 7,nu2,r,posta,5,4
nu2(1)=n2(11)
nu2(2)=n2(12)
nu2(3)=n2(13)
nu2(4)=n2(14)
nu2(5)=n2(15)
nu2(6)=n2(16)
nu2(7)=n2(17)
nu2(8)=n2(18)
nu2(9)=n2(19)
nu2(10)=n2(20)
ImpostaGiocata 8,nu2,r,posta,5,4
nu2(1)=n2(1)
nu2(2)=n2(2)
nu2(3)=n2(3)
nu2(4)=n2(4)
nu2(5)=n2(5)
nu2(6)=n2(11)
nu2(7)=n2(12)
nu2(8)=n2(13)
nu2(9)=n2(14)
nu2(10)=n2(15)
ImpostaGiocata 9,nu2,r,posta,5,4
nu2(1)=n2(1)
nu2(2)=n2(2)
nu2(3)=n2(3)
nu2(4)=n2(4)
nu2(5)=n2(5)
nu2(6)=n2(16)
nu2(7)=n2(17)
nu2(8)=n2(18)
nu2(9)=n2(19)
nu2(10)=n2(20)
ImpostaGiocata 10,nu2,r,posta,5,4
nu2(1)=n2(6)
nu2(2)=n2(7)
nu2(3)=n2(8)
nu2(4)=n2(9)
nu2(5)=n2(10)
nu2(6)=n2(11)
nu2(7)=n2(12)
nu2(8)=n2(13)
nu2(9)=n2(14)
nu2(10)=n2(15)
ImpostaGiocata 11,nu2,r,posta,5,4
nu2(1)=n2(6)
nu2(2)=n2(7)
nu2(3)=n2(8)
nu2(4)=n2(9)
nu2(5)=n2(10)
nu2(6)=n2(16)
nu2(7)=n2(17)
nu2(8)=n2(18)
nu2(9)=n2(19)
nu2(10)=n2(20)
ImpostaGiocata 12,nu2,r,posta,5,4
Gioca es
End If
' AMBO 3
If c13=0 And c23=0 And c33=0 And c43<32 And c53=0 And dd3=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am3(1))
If y=9 Then y=0 End If
For i=1 To 10
n3(i)=(y*10)+i
Next
j=Decina(am3(2))
If j=9 Then j=0 End If
For i=1 To 10
n3(10+i)=(j*10)+i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr)&" "&DataEstrazione(es-1)&"-"&DataEstrazione(es)&" "&StringaNumeri(am1)&" "&_
StringaNumeri(am2)&" "&StringaNumeri(am3)&" "&StringaNumeri(am4)&" Ambo 3 "&StringaNumeri(am3),1
Scrivi " Numeri in gioco " & StringaNumeri(n3)
nu3(1)=n3(1)
nu3(2)=n3(2)
nu3(3)=n3(3)
nu3(4)=n3(4)
nu3(5)=n3(5)
nu3(6)=n3(6)
nu3(7)=n3(7)
nu3(8)=n3(8)
nu3(9)=n3(9)
nu3(10)=n3(10)
ImpostaGiocata 13,nu3,r,posta,5,4
nu3(1)=n3(11)
nu3(2)=n3(12)
nu3(3)=n3(13)
nu3(4)=n3(14)
nu3(5)=n3(15)
nu3(6)=n3(16)
nu3(7)=n3(17)
nu3(8)=n3(18)
nu3(9)=n3(19)
nu3(10)=n3(20)
ImpostaGiocata 14,nu3,r,posta,5,4
nu3(1)=n3(1)
nu3(2)=n3(2)
nu3(3)=n3(3)
nu3(4)=n3(4)
nu3(5)=n3(5)
nu3(6)=n3(11)
nu3(7)=n3(12)
nu3(8)=n3(13)
nu3(9)=n3(14)
nu3(10)=n3(15)
ImpostaGiocata 15,nu3,r,posta,5,4
nu3(1)=n3(1)
nu3(2)=n3(2)
nu3(3)=n3(3)
nu3(4)=n3(4)
nu3(5)=n3(5)
nu3(6)=n3(16)
nu3(7)=n3(17)
nu3(8)=n3(18)
nu3(9)=n3(19)
nu3(10)=n3(20)
ImpostaGiocata 16,nu3,r,posta,5,4
nu3(1)=n3(6)
nu3(2)=n3(7)
nu3(3)=n3(8)
nu3(4)=n3(9)
nu3(5)=n3(10)
nu3(6)=n3(11)
nu3(7)=n3(12)
nu3(8)=n3(13)
nu3(9)=n3(14)
nu3(10)=n3(15)
ImpostaGiocata 17,nu3,r,posta,5,4
nu3(1)=n3(6)
nu3(2)=n3(7)
nu3(3)=n3(8)
nu3(4)=n3(9)
nu3(5)=n3(10)
nu3(6)=n3(16)
nu3(7)=n3(17)
nu3(8)=n3(18)
nu3(9)=n3(19)
nu3(10)=n3(20)
ImpostaGiocata 18,nu3,r,posta,5,4
Gioca es
End If
' AMBO 4
If c14=0 And c24=0 And c34=0 And c44<32 And c54=0 And dd4=0 Then
'Formazione dei numeri da mettere in gioco
y=Decina(am4(1))
If y=9 Then y=0 End If
For i=1 To 10
n4(i)=(y*10)+i
Next
j=Decina(am4(2))
If j=9 Then j=0 End If
For i=1 To 10
n4(10+i)=(j*10)+i
Next
Scrivi "--------------------------------------------------------------------------------------"
Scrivi NomeRuota(rr)&" "&DataEstrazione(es-1)&"-"&DataEstrazione(es)&" "&StringaNumeri(am1)&" "&_
StringaNumeri(am2)&" "&StringaNumeri(am3)&" "&StringaNumeri(am4)&" Ambo 4 "&StringaNumeri(am4),1
Scrivi " Numeri in gioco " & StringaNumeri(n4)
nu4(1)=n4(1)
nu4(2)=n4(2)
nu4(3)=n4(3)
nu4(4)=n4(4)
nu4(5)=n4(5)
nu4(6)=n4(6)
nu4(7)=n4(7)
nu4(8)=n4(8)
nu4(9)=n4(9)
nu4(10)=n4(10)
ImpostaGiocata 19,nu4,r,posta,5,4
nu4(1)=n4(11)
nu4(2)=n4(12)
nu4(3)=n4(13)
nu4(4)=n4(14)
nu4(5)=n4(15)
nu4(6)=n4(16)
nu4(7)=n4(17)
nu4(8)=n4(18)
nu4(9)=n4(19)
nu4(10)=n4(20)
ImpostaGiocata 20,nu4,r,posta,5,4
nu4(1)=n4(1)
nu4(2)=n4(2)
nu4(3)=n4(3)
nu4(4)=n4(4)
nu4(5)=n4(5)
nu4(6)=n4(11)
nu4(7)=n4(12)
nu4(8)=n4(13)
nu4(9)=n4(14)
nu4(10)=n4(15)
ImpostaGiocata 21,nu4,r,posta,5,4
nu4(1)=n4(1)
nu4(2)=n4(2)
nu4(3)=n4(3)
nu4(4)=n4(4)
nu4(5)=n4(5)
nu4(6)=n4(16)
nu4(7)=n4(17)
nu4(8)=n4(18)
nu4(9)=n4(19)
nu4(10)=n4(20)
ImpostaGiocata 22,nu4,r,posta,5,4
nu4(1)=n4(6)
nu4(2)=n4(7)
nu4(3)=n4(8)
nu4(4)=n4(9)
nu4(5)=n4(10)
nu4(6)=n4(11)
nu4(7)=n4(12)
nu4(8)=n4(13)
nu4(9)=n4(14)
nu4(10)=n4(15)
ImpostaGiocata 23,nu4,r,posta,5,4
nu4(1)=n4(6)
nu4(2)=n4(7)
nu4(3)=n4(8)
nu4(4)=n4(9)
nu4(5)=n4(10)
nu4(6)=n4(16)
nu4(7)=n4(17)
nu4(8)=n4(18)
nu4(9)=n4(19)
nu4(10)=n4(20)
ImpostaGiocata 24,nu4,r,posta,5,4
Gioca es
End If
Next
ScriviResoconto
End Sub