E' Possibile farci uno Script?

[jure]

Scelta a Piacimento , una delle 10 Ruote: delimitato il Campo
Operativo di 41 estrazioni , qualunque ne sia l'anno ed il Periodo:
due numeri (AeB), sortiti per 2 volte in posizione ISOTOPA
tendono a riprodursi per la terza Volta. Ognuno dei 2 numeri
fa parte di 2 diverse Terzine Simmetriche :
Oltre all'Ambo principale Completeranno la Previsione di
altri 4 Ambi.
es. 20-06-2009: Milano 85 89 4° 5° pos.
----04-07-2009 Milano 85 89 4° 5° pos.
ISOTOPI - Previsione Ambo Principale 85 89 secondari 85 29 - 85 59
89 25 - 89 55
Gli abbinamenti fanno parte delle Terzine Simmetriche 29 59 89 - 25 55 85
esito 11-07-2009 ambo Secondario a Milano 85 59.
es. 04-04-2009 Cagliari 68 15 4° 5° pos.
--- 07-04-2009 Cagliari 68 15 4° 5° pos.
Previsione Cagliari Ambo Principale 68 15
Ambi Secondari 68 45 - 68 75 - 15 08 - 15 38
Esito 23-04-2009 Ambo Principale 68 15
Se ci fossero poche previsioni vanno bene anche
ambi non ISOTOPI.

 

[Reacher]

Sub Main()
Dim number(3),number1(3)
Dim ruote(12),r1,p1,p2,p3,p4
Dim posta(2),n
posta(2) = 2
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(12) = 12
For n = 10820 To EstrazioneFin
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(n-41,r1,p3)
d = Estratto(n-41,r1,p4)
If a = c And b = d Or a = d And b = c Then
number(1) = a
number(2) = Fuori90(b+30)
number(3) = Fuori90(b+60)
number1(1) = b
number1(2) = Fuori90(a+30)
number1(3) = Fuori90(a+60)
Scrivi "----------------------------------------------------"
Scrivi "AMBO RIPETUTO SU STESSA RUOTA IN ESTRAZIONI SUCCESSIVE"
Scrivi DataEstrazione(n - 41) & " " & NomeRuota(r1) & " " & " " & StringaEstratti(n - 41,r1,".") & " " & c & " " & d
Scrivi DataEstrazione & " " & NomeRuota(r1) & " " & " " & StringaEstratti(n,r1,".") & " " & a & " " & b
ReDim matrcasella(2,1)
matrcasella(1,0) = r1
matrcasella(1,1) = p3
matrcasella(2,0) = r1
matrcasella(2,1) = p4
Call DisegnaEstrazione(n - 41,matrcasella,,vbBlue)
ReDim matrcasella(2,1)
matrcasella(1,0) = r1
matrcasella(1,1) = p1
matrcasella(2,0) = r1
matrcasella(2,1) = p2
Call DisegnaEstrazione(n,matrcasella,,vbBlue)
ImpostaGiocata 1,number,ruote,posta,9,2
ImpostaGiocata 2,number1,ruote,posta,9,2
Gioca n,2
End If
Next:Next
Next:Next
Next:Next
End Sub