'Progetto preso dal web da Bibbolotto
'Prima versione, con numeri isotopi anche diversi
'script by Salvo50
'Si ricerca un ambo ripetuto su due ruote In cui almeno un numero sia In Posizione isotopa
'sommare i due numeri che compongono l'ambo per gli abbinamenti moltiplicare per 2 i numeri
'del ambo in modo da avere una terzina da giocare per ambo e terno
'la seconda terzina sara' formata dagli stessi numeri aumentati di una unita.
'esempio In gioco
'ambo 02 79 genova venezia
'1°numero 2+79=81
'2°numero 2x2 = 4
'3°numero 79x2= 68
'quindi In gioco 81 04 68
'82 05 69
Sub Main()
Dim A,B,C,D,Ini,FIn,Es,P1,P2,P3,P4,R1,R2
Dim N1(3),N2(3),Posta(3),Tutte(1)
Dim Caso,Casi,Clp
Posta(2) = 1
Posta(3) = 1
Tutte(1) = TU_
Ini = EstrazioneFin - 200
FIn = EstrazioneFin
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,3))
For Es = Ini To FIn
Call AvanzamentoElab(Ini,FIn,Es)
Messaggio Es
Caso = 0
For R1 = 1 To 9
For P1 = 1 To 4
A = Estratto(Es,R1,P1)
For P2 = P1 + 1 To 5
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 10
For P3 = 1 To 4
C = Estratto(Es,R2,P3)
For P4 = P3 + 1 To 5
D = Estratto(Es,R2,P4)
If P1 = P3 Or P1 = P4 Or P2 = P3 Or P2 = P4 Then
If A = C And B = D Or A = D And B = C Then
N1(1) = Fuori90(A + B)
N1(2) = Fuori90(A + A)
N1(3) = Fuori90(B + B)
N2(1) = Fuori90(N1(1) + 1)
N2(2) = Fuori90(N1(2) + 1)
N2(3) = Fuori90(N1(3) + 1)
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " - ",0,0
Scrivi SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B)
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " - ",0,0
Scrivi SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D)
Scrivi
EliminaRipetuti N1
ImpostaGiocata 1,N1,Tutte,Posta,Clp
EliminaRipetuti N2
ImpostaGiocata 2,N2,Tutte,Posta,Clp
Gioca Es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
