Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Questo è quello nuovo completo che ho modificato, anche se non capisco perchè fa 2 previsioni una Completa e una ridotta ?
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(5),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
Dim Ruo(2),Ruote(3),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10831)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Vertice Avanti - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn - 1
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Abb3 = Diam_E + 9
Abb4 = Diam_E - 9
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Ambo4(1) = Diam_E : Ambo4(2) = Abb3
Ambo5(1) = Diam_E : Ambo5(2) = Abb4
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1,,1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2,,1
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2,,1
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2,,1
ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2,,1
ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2,,1
ImpostaGiocata 7,Terno,Ruote,Posts,Clp2,,1
ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2,,1
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If isNumeroValidoLotto(A) Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1,,1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2,,1
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2,,1
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2,,1
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2,,1
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
 
1782147283984.png
Non capisco Casi esaminati 2, vincenti2 100% wow!
Pronostici totale 13 vincenti 3 23,08 %
Sembra il mio conto corrente che dice saldo; 1000000000000000000 ma dimentica di mettere il segno negativo davanti!
A parte le minkiate, mi spiegate come interpretare queste divinazioni di Spaziometria.
Perché se un metodo ha il 100% di esiti vincenti vi scrivo dalle Canaglie (so che si scrive Canarie, ma trattandosi di me...)
Se inveve è il 28% vi scrivo da San Vittore...
 
bubù ha scritto:
Questo è quello nuovo completo che ho modificato, anche se non capisco perchè fa 2 previsioni una Completa e una ridotta ?
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(5),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
Dim Ruo(2),Ruote(3),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10831)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Vertice Avanti - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn - 1
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Abb3 = Diam_E + 9
Abb4 = Diam_E - 9
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Ambo4(1) = Diam_E : Ambo4(2) = Abb3
Ambo5(1) = Diam_E : Ambo5(2) = Abb4
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1,,1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2,,1
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2,,1
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2,,1
ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2,,1
ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2,,1
ImpostaGiocata 7,Terno,Ruote,Posts,Clp2,,1
ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2,,1
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If isNumeroValidoLotto(A) Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1,,1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2,,1
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2,,1
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2,,1
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2,,1
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
Clicca per espandere...
Ciao a Tutti

Ciao Bubù.
Non me lo ricordo perché ho fatto 2 previsioni diverse, una con 6 ambi e 2 terni e l'altra con 3 ambi e un terno.
Devo controllare
 
salvo50 ha scritto:
Ciao a Tutti

Ciao Bubù.
Non me lo ricordo perché ho fatto 2 previsioni diverse, una con 6 ambi e 2 terni e l'altra con 3 ambi e un terno.
Devo controllare
Clicca per espandere...
i tuoi erano i 2 del post 1218 con ricerca indietro e avanti del vertice, ho usato quello in avanti ma ho apportato delle modifiche facendo delle aggiunte di Ambi e Terni . Quello che non capisco è che mi da quello completo con le mie aggiunte e quello ridotto ma non importa l'importante è che risultano tutti . Grazie e non impazzire io l'ho postato giusto per giustificare quello che posto. Grazie e Buona giornata a tutti .
 
InRicordo ha scritto:
Vedi l'allegato 2316769
Non capisco Casi esaminati 2, vincenti2 100% wow!
Pronostici totale 13 vincenti 3 23,08 %
Sembra il mio conto corrente che dice saldo; 1000000000000000000 ma dimentica di mettere il segno negativo davanti!
A parte le minkiate, mi spiegate come interpretare queste divinazioni di Spaziometria.
Perché se un metodo ha il 100% di esiti vincenti vi scrivo dalle Canaglie (so che si scrive Canarie, ma trattandosi di me...)
Se inveve è il 28% vi scrivo da San Vittore...
Clicca per espandere...
Buongiorno, non volevo rispondere perchè non ho capito se era una presa in giro o .......
Dico subito che non sono un esperto ma mi piace divertirmi a provare a cimentarmi , NON gioco quasi mai, e NON voglio indurre a giocare perchè credo che sia un gioco a perdere come tutti i giochi gestiti da qualcuno, il Banco deve vincere altrimenti chi gestisce fallisce. Detto questo se può fargli piacere le posto lo script da inizio anno , quello che ha fatto prima non mi interessa e non ho nemmeno una macchina idonea a far girare lo script , già così ci mette tantissimo e soprattutto io mi diverto a farlo a mano con il cerchio, diciamo che questi script mi servono per ricercare l'eventuale condizione senza che perdo la poca vista che mi rimane per trovarle a mano. Adesso chiudo il discorso e posto l'ultimo post aggiornato proprio adesso. Buona serata a Tutti 👋

'Questo è quello nuovo completo che ho modificato, 8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Vertice Avanti - Script Salvo50
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(5),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
Dim Ruo(2),Ruote(3),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10788)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Vertice Avanti - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn - 1
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Abb3 = Diam_E + 9
Abb4 = Diam_E - 9
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Ambo4(1) = Abb1 : Ambo4(2) = Abb3
Ambo5(1) = Abb2 : Ambo5(2) = Abb4
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1,,1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2,,1
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2,,1
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2,,1
ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2,,1
ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2,,1
ImpostaGiocata 7,Terno,Ruote,Posts,Clp2,,1
ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2,,1
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If isNumeroValidoLotto(A) Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1,,1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2,,1
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2,,1
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2,,1
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2,,1
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
 
bubù ha scritto:
Ciao salvo50, ben rientrato,
se non ti distuba troppo e se hai un minuto da dedicarmi, vorrei segnalarti un tuo script che ha qualche problema. Era una modifica che ti avevo chiesto al famoso post del 8 piglia tutto di Angelo Gargiulo che era di fare la ricerca al contrario cioè con un vertice nell'estrazione successiva ma forse è meglio che metto il tuo script :

Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(3),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Terno(3)
Dim Ruo(3),Ruote(4),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10831)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Vertice Avanti - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn - 1
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = 12
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If isNumeroValidoLotto(A) Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
Intatto mette le date delle estrazioni tutti uguali ; poi se lo fai girare noterai che ha calcolato l'AMBO 42-78 a TUTTE (PALERMO) nella stessa estrazione dove ha trovato il 33 sulla NAZIONALE che completava l'estrazione del 19 giugno dove erano usciti : FIRENZE 06-60-51 e NAZIONALE 51-15 che formavano un rettagolo 9x36
e appunto mancava il 33 o come ho trovato io nell'estrazione precedente cioè quella del 19 giugno l'87 sulla nazionale. dove ho ottenuto lo stesso AMBO uscito ieri Estrazione del 20 giugno 42-78 a TUTTE (PALERMO) . insomma va benissimo se è ancora valida ma se mi fa vedere la vincita nella stessa estrazione dovè trova il numero che manca è troppo difficile da pronosticare .
in pratica la ricerca del numero mancante la deve fare nell'estrazione precedente e non su quella che ancora deve uscire.
Ti allego il mio post che trovi anche nella sezione Ciclonometria del forum
N.B.: ho sbagliato anche io a mettere la data nell'estrazione del 19 per sbaglio ho messo la stessa di quella precedente nell figura del cerchio quindi capisco che deve essere un pò complicato da fare e quindi ti chiedo scusa se non puoi o non vuoi fa lo stesso non ti preoccupare.
Grazie e Buona Domenica 👋
Clicca per espandere...

*** Estrazione del lotto sabato 20 giugno 2026 AMBO SECCO 42-78 a TUTTE (PALERMO) al 1° colpo!!! ***

*** Estrazione del lotto martedì 23 giugno 2026 AMBO SECCO 24-42 a TUTTE (BARI) e AMBO SECCO 24-69 a TUTTE (NAPOLI) al 2° colpo!!! ***

*** Estrazione del lotto giovedì 25 giugno 2026 AMBOOOOO SECCOOOO 33-78 a FIRENZE e AMBO SECCO 42-24 a TUTTE (GENOVA) al 3° colpo!!! ***

img1519632330130.jpg​
 
Buongiorno a Tutti.
Salvo50 se hai tempo e voglia, questo che vado a postare usa la NAZIONALE come terza ruota nella stessa Estrazione per trovare il vertice che in questo caso è il 41, il resto è quasi identico alla ricerca dei numeri da abbinare all'Ambata che altro non è il diametrale del vertice. Grazie di tutto e Buona giornata a Tutti 👋

TORINO-VENEZIA-NAZIONALE fig 5 ESTRATTO 86-32-50 dal 26 Giugno 2026.jpg​

 
salvo50 ha scritto:
Scusa Bubù ma non ho capito qual è la modifica da fare
Clicca per espandere...
Ciao salvo50, la mofica sta nella ricerca del vertice nella stessa estrazione ma in una terza ruota , nel caso postato era il 41 sulla nazionale che negli esempi precedenti era in una stessa ruota ma nell'estrazione precedente o successiva al rettangolo formato in questo caso dai numeri 23-68 di TORINO e 14-59 di VENEZIA . Spero di averti spiegato bene la modifica da fare, ovviamente sempre se puoi e se vuoi, non ti sentire forzato , come dicevo è solo per evitare di perdere la vista per la ricerca delle condizioni. Grazie di cuore per tutto quello che fai sia per me che per tutti gli altri 🤝🙏👍
 
bubù ha scritto:
Ciao salvo50, la mofica sta nella ricerca del vertice nella stessa estrazione ma in una terza ruota , nel caso postato era il 41 sulla nazionale che negli esempi precedenti era in una stessa ruota ma nell'estrazione precedente o successiva al rettangolo formato in questo caso dai numeri 23-68 di TORINO e 14-59 di VENEZIA . Spero di averti spiegato bene la modifica da fare, ovviamente sempre se puoi e se vuoi, non ti sentire forzato , come dicevo è solo per evitare di perdere la vista per la ricerca delle condizioni. Grazie di cuore per tutto quello che fai sia per me che per tutti gli altri 🤝🙏👍
Clicca per espandere...
allora ricapitoliamo,

1) la terza ruota deve essere diversa dalle altre 2 ruote

la ricerca del vertice in avanti oppure indietro lo fa già di una sola estrazione, tu vorresti che

2) la ricerca avanti indietro del vertice, fosse fatta in più estrazioni indietro e avanti, se è così, di quante estrazioni?
 
Dragon zf ha scritto:
Anche quello che mi da' errore sullo script ho messo lo screenshot
Clicca per espandere...
Ciao a Tutti

Le spiegazioni di questo metodo si trovano qui
Dragon zf

Discussione 'Richiesta script x spaziometria'

Questo e' il metodo.Grazie.

Un Trapezio che presenta LA BOMBA CICLOMETRICA Di A. Gargiulo

Codice: 
Option Explicit
Dim DM12,DM14,DM23,DM34
Dim Es,Clp,Fin,R1,R2,R3
Dim M(4),N(4),Num(3)
Dim Ambo1(2),Ambo2(2),Ambo3(2)
Sub Main
   Dim Ini,Caso,Casi,Salvo50
   Dim Visual,Ok,X
   Dim P1,P2,P3,P4,A,B,C,D,k
   Dim Ruo(4),Ro(3),Poste(2),Posts(3)
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10800)
   Clp = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,10)
   Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(4) & "Un Trapezio che presenta LA BOMBA CICLOMETRICA Di A. Gargiulo - Script Salvo50",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If isNumeroValidoLotto(A)Then
                     For R2 = 1 To 12
                        If R2 = 11 Then R2 = 12
                        For P4 = 1 To 5
                           D = Estratto(Es,R2,P4)
                           If isNumeroValidoLotto(D)Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM14 = Distanza(M(1),M(4))
                              Ok = 0
                              If(DM12 = 27 And DM23 = 9 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 9 And DM23 = 27 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 27) And(DM14 = 9)Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 9) And(DM14 = 27) Then Ok = 1
                              If Ok = 1 Then
                                 Call Dragon
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 2
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R1
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 If Visual = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,,,1,1
                                    DisegnaCerchioCiclometrico N,1,1,,,1,1
                                 End If
                                 Scrivi
                                 R3 = NZ_
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = TT_
                                 ImpostaGiocata 1,Ambo1,Ruo,Poste,Clp
                                 ImpostaGiocata 2,Ambo2,Ruo,Poste,Clp
                                 ImpostaGiocata 3,Ambo3,Ruo,Poste,Clp
                                 ImpostaGiocata 4,Num,Ruo,Posts,Clp
                                 Gioca Es,,,1
                                 Call Ambet
                                 '
                              End If
                           End If
                           If ScriptInterrotto Then Exit Sub
                        Next
                     Next
                  End If '----
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If isNumeroValidoLotto(A)Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If isNumeroValidoLotto(C)Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM14 = Distanza(M(1),M(4))
                              Ok = 0
                              If(DM12 = 27 And DM23 = 9 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 9 And DM23 = 27 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 27) And(DM14 = 9)Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 9) And(DM14 = 27) Then Ok = 1
                              If Ok = 1 Then
                                 Call Dragon
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 2
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 If Visual = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,,,1,1
                                    DisegnaCerchioCiclometrico N,1,1,,,1,1
                                 End If
                                 R3 = NZ_
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = TT_
                                 ImpostaGiocata 1,Ambo1,Ruo,Poste,Clp
                                 ImpostaGiocata 2,Ambo2,Ruo,Poste,Clp
                                 ImpostaGiocata 3,Ambo3,Ruo,Poste,Clp
                                 ImpostaGiocata 4,Num,Ruo,Posts,Clp
                                 Gioca Es,,,1
                                 Call Ambet
                              End If
                           End If
                        Next
                        If ScriptInterrotto Then Exit Sub
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
Function Dragon
   If(DM12 = 27 And DM23 = 9 And DM34 = 27 And DM14 = 27) Then
      N(1) = Fuori90(M(4) + 18) : N(2) = Fuori90(M(1) + 18)
      N(3) = Fuori90(M(3) + 9) : N(4) = Fuori90(M(4) + 9)
   End If
   '
   If(DM12 = 9 And DM23 = 27 And DM34 = 27 And DM14 = 27) Then
      N(1) = Fuori90(M(3) + 18) : N(2) = Fuori90(M(4) + 18)
      N(3) = Fuori90(M(2) + 9) : N(4) = Fuori90(M(3) + 9)
   End If
   '
   If(DM12 = 27 And DM23 = 27 And DM34 = 27) And(DM14 = 9) Then
      N(1) = Fuori90(M(2) + 18) : N(2) = Fuori90(M(3) + 18)
      N(3) = Fuori90(M(1) + 9) : N(4) = Fuori90(M(2) + 9)
   End If
   '
   If(DM12 = 27 And DM23 = 27 And DM34 = 9) And(DM14 = 27) Then
      N(1) = Fuori90(M(1) + 18) : N(2) = Fuori90(M(2) + 18)
      N(3) = Fuori90(M(4) + 9) : N(4) = Fuori90(M(1) + 9)
   End If
   Num(1) = N(1) : Num(2) = N(2) : Num(3) = N(3)
   Ambo1(1) = Num(1) : Ambo1(2) = Num(2)
   Ambo2(1) = Num(1) : Ambo2(2) = Num(3)
   Ambo3(1) = Num(2) : Ambo3(2) = Num(3)
End Function
Function Ambet
   Dim EsClp,X
   Dim Ambetti,AmbettR1,AmbettR2,AmbettR3
   Dim RetNum1,RetVinc1
   Dim RetNum2,RetVinc2
   Dim RetNum3,RetVinc3
   'Scrivi Space(19) & "AMBETTI",1,,,2
   EsClp = Es + Clp
   If EsClp > Fin Then EsClp = Fin
   For X = Es + 1 To EsClp
      AmbettR1 = VerificaAmbetto(Ambo1,R1,X,RetNum1,RetVinc1)
      AmbettR2 = VerificaAmbetto(Ambo1,R2,X,RetNum2,RetVinc2)
      AmbettR3 = VerificaAmbetto(Ambo1,R3,X,RetNum3,RetVinc3)
      If AmbettR1 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum1 & Space(4) & " Vincita di " & RetVinc1,1
      End If
      If AmbettR2 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum2 & Space(4) & " Vincita di " & RetVinc2,1
      End If
      If AmbettR3 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum3 & Space(4) & " Vincita di " & RetVinc3,1
      End If
      AmbettR1 = 0 : AmbettR2 = 0 : AmbettR3 = 0
      '
      AmbettR1 = VerificaAmbetto(Ambo2,R1,X,RetNum1,RetVinc1)
      AmbettR2 = VerificaAmbetto(Ambo2,R2,X,RetNum2,RetVinc2)
      AmbettR3 = VerificaAmbetto(Ambo2,R3,X,RetNum3,RetVinc3)
      If AmbettR1 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum1 & Space(4) & " Vincita di " & RetVinc1,1
      End If
      If AmbettR2 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum2 & Space(4) & " Vincita di " & RetVinc2,1
      End If
      If AmbettR3 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum3 & Space(4) & " Vincita di " & RetVinc3,1
      End If
      AmbettR1 = 0 : AmbettR2 = 0 : AmbettR3 = 0
      '
      AmbettR1 = VerificaAmbetto(Ambo3,R1,X,RetNum1,RetVinc1)
      AmbettR2 = VerificaAmbetto(Ambo3,R2,X,RetNum2,RetVinc2)
      AmbettR3 = VerificaAmbetto(Ambo3,R3,X,RetNum3,RetVinc3)
      If AmbettR1 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum1 & Space(4) & " Vincita di " & RetVinc1,1
      End If
      If AmbettR2 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum2 & Space(4) & " Vincita di " & RetVinc2,1
      End If
      If AmbettR3 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum3 & Space(4) & " Vincita di " & RetVinc3,1
      End If
      AmbettR1 = 0 : AmbettR2 = 0 : AmbettR3 = 0
   Next
End Function
 
Ultima modifica:
salvo50 ha scritto:
allora ricapitoliamo,

1) la terza ruota deve essere diversa dalle altre 2 ruote

la ricerca del vertice in avanti oppure indietro lo fa già di una sola estrazione, tu vorresti che

2) la ricerca avanti indietro del vertice, fosse fatta in più estrazioni indietro e avanti, se è così, di quante estrazioni?
Clicca per espandere...
Non mi sono spiegato bene, scusami, non voglio la ricerca avanti o indietro, ma tutto nella stessa estrazione come da esempio però il vertice deve essere su una terza ruota della stessa estrazione, non sulle due ruote che formano il rettangolo. Nel mio post il 41 è sulla NAZIONALE ma puo benissimo essere su un'altra ruota. Perdonami se non so spiegarmi. 🙏👋
 
salvo50 ha scritto:
Ciao a Tutti

Le spiegazioni di questo metodo si trovano qui
Dragon zf

Discussione 'Richiesta script x spaziometria'

Questo e' il metodo.Grazie.

Un Trapezio che presenta LA BOMBA CICLOMETRICA Di A. Gargiulo

Codice: 
Option Explicit
Dim DM12,DM14,DM23,DM34
Dim Es,Clp,Fin,R1,R2,R3
Dim M(4),N(4),Num(3)
Dim Ambo1(2),Ambo2(2),Ambo3(2)
Sub Main
   Dim Ini,Caso,Casi,Salvo50
   Dim Visual,Ok,X
   Dim P1,P2,P3,P4,A,B,C,D,k
   Dim Ruo(4),Ro(3),Poste(2),Posts(3)
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10800)
   Clp = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,10)
   Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(4) & "Un Trapezio che presenta LA BOMBA CICLOMETRICA Di A. Gargiulo - Script Salvo50",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If isNumeroValidoLotto(A)Then
                     For R2 = 1 To 12
                        If R2 = 11 Then R2 = 12
                        For P4 = 1 To 5
                           D = Estratto(Es,R2,P4)
                           If isNumeroValidoLotto(D)Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM14 = Distanza(M(1),M(4))
                              Ok = 0
                              If(DM12 = 27 And DM23 = 9 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 9 And DM23 = 27 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 27) And(DM14 = 9)Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 9) And(DM14 = 27) Then Ok = 1
                              If Ok = 1 Then
                                 Call Dragon
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 2
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R1
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 If Visual = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,,,1,1
                                    DisegnaCerchioCiclometrico N,1,1,,,1,1
                                 End If
                                 Scrivi
                                 R3 = NZ_
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = TT_
                                 ImpostaGiocata 1,Ambo1,Ruo,Poste,Clp
                                 ImpostaGiocata 2,Ambo2,Ruo,Poste,Clp
                                 ImpostaGiocata 3,Ambo3,Ruo,Poste,Clp
                                 ImpostaGiocata 4,Num,Ruo,Posts,Clp
                                 Gioca Es,,,1
                                 Call Ambet
                                 '
                              End If
                           End If
                           If ScriptInterrotto Then Exit Sub
                        Next
                     Next
                  End If '----
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If isNumeroValidoLotto(A)Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If isNumeroValidoLotto(C)Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM14 = Distanza(M(1),M(4))
                              Ok = 0
                              If(DM12 = 27 And DM23 = 9 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 9 And DM23 = 27 And DM34 = 27 And DM14 = 27) Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 27) And(DM14 = 9)Then Ok = 1
                              If(DM12 = 27 And DM23 = 27 And DM34 = 9) And(DM14 = 27) Then Ok = 1
                              If Ok = 1 Then
                                 Call Dragon
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 2
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 If Visual = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,,,1,1
                                    DisegnaCerchioCiclometrico N,1,1,,,1,1
                                 End If
                                 R3 = NZ_
                                 Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = TT_
                                 ImpostaGiocata 1,Ambo1,Ruo,Poste,Clp
                                 ImpostaGiocata 2,Ambo2,Ruo,Poste,Clp
                                 ImpostaGiocata 3,Ambo3,Ruo,Poste,Clp
                                 ImpostaGiocata 4,Num,Ruo,Posts,Clp
                                 Gioca Es,,,1
                                 Call Ambet
                              End If
                           End If
                        Next
                        If ScriptInterrotto Then Exit Sub
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
Function Dragon
   If(DM12 = 27 And DM23 = 9 And DM34 = 27 And DM14 = 27) Then
      N(1) = Fuori90(M(4) + 18) : N(2) = Fuori90(M(1) + 18)
      N(3) = Fuori90(M(3) + 9) : N(4) = Fuori90(M(4) + 9)
   End If
   '
   If(DM12 = 9 And DM23 = 27 And DM34 = 27 And DM14 = 27) Then
      N(1) = Fuori90(M(3) + 18) : N(2) = Fuori90(M(4) + 18)
      N(3) = Fuori90(M(2) + 9) : N(4) = Fuori90(M(3) + 9)
   End If
   '
   If(DM12 = 27 And DM23 = 27 And DM34 = 27) And(DM14 = 9) Then
      N(1) = Fuori90(M(2) + 18) : N(2) = Fuori90(M(3) + 18)
      N(3) = Fuori90(M(1) + 9) : N(4) = Fuori90(M(2) + 9)
   End If
   '
   If(DM12 = 27 And DM23 = 27 And DM34 = 9) And(DM14 = 27) Then
      N(1) = Fuori90(M(1) + 18) : N(2) = Fuori90(M(2) + 18)
      N(3) = Fuori90(M(4) + 9) : N(4) = Fuori90(M(1) + 9)
   End If
   Num(1) = N(1) : Num(2) = N(2) : Num(3) = N(3)
   Ambo1(1) = Num(1) : Ambo1(2) = Num(2)
   Ambo2(1) = Num(1) : Ambo2(2) = Num(3)
   Ambo3(1) = Num(2) : Ambo3(2) = Num(3)
End Function
Function Ambet
   Dim EsClp,X
   Dim Ambetti,AmbettR1,AmbettR2,AmbettR3
   Dim RetNum1,RetVinc1
   Dim RetNum2,RetVinc2
   Dim RetNum3,RetVinc3
   'Scrivi Space(19) & "AMBETTI",1,,,2
   EsClp = Es + Clp
   If EsClp > Fin Then EsClp = Fin
   For X = Es + 1 To EsClp
      AmbettR1 = VerificaAmbetto(Ambo1,R1,X,RetNum1,RetVinc1)
      AmbettR2 = VerificaAmbetto(Ambo1,R2,X,RetNum2,RetVinc2)
      AmbettR3 = VerificaAmbetto(Ambo1,R3,X,RetNum3,RetVinc3)
      If AmbettR1 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum1 & Space(4) & " Vincita di " & RetVinc1,1
      End If
      If AmbettR2 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum2 & Space(4) & " Vincita di " & RetVinc2,1
      End If
      If AmbettR3 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum3 & Space(4) & " Vincita di " & RetVinc3,1
      End If
      AmbettR1 = 0 : AmbettR2 = 0 : AmbettR3 = 0
      '
      AmbettR1 = VerificaAmbetto(Ambo2,R1,X,RetNum1,RetVinc1)
      AmbettR2 = VerificaAmbetto(Ambo2,R2,X,RetNum2,RetVinc2)
      AmbettR3 = VerificaAmbetto(Ambo2,R3,X,RetNum3,RetVinc3)
      If AmbettR1 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum1 & Space(4) & " Vincita di " & RetVinc1,1
      End If
      If AmbettR2 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum2 & Space(4) & " Vincita di " & RetVinc2,1
      End If
      If AmbettR3 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum3 & Space(4) & " Vincita di " & RetVinc3,1
      End If
      AmbettR1 = 0 : AmbettR2 = 0 : AmbettR3 = 0
      '
      AmbettR1 = VerificaAmbetto(Ambo3,R1,X,RetNum1,RetVinc1)
      AmbettR2 = VerificaAmbetto(Ambo3,R2,X,RetNum2,RetVinc2)
      AmbettR3 = VerificaAmbetto(Ambo3,R3,X,RetNum3,RetVinc3)
      If AmbettR1 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum1 & Space(4) & " Vincita di " & RetVinc1,1
      End If
      If AmbettR2 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum2 & Space(4) & " Vincita di " & RetVinc2,1
      End If
      If AmbettR3 > 0 Then
         Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
         Scrivi " Ambetto su " & RetNum3 & Space(4) & " Vincita di " & RetVinc3,1
      End If
      AmbettR1 = 0 : AmbettR2 = 0 : AmbettR3 = 0
   Next
End Function
Clicca per espandere...
In pratica è un trapezio visto alla specchio, ma secondo me nella previsione manca il 4 numero che c'è nella figura formata dalle diametrali dei numeri originari. Vorrei aggiungerla ma non so come si fa. 👋
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 27 giugno 2026
    Bari
    46
    42
    63
    90
    08
    Cagliari
    86
    69
    76
    89
    55
    Firenze
    77
    54
    87
    57
    88
    Genova
    70
    65
    44
    76
    58
    Milano
    52
    41
    53
    74
    16
    Napoli
    32
    56
    09
    73
    63
    Palermo
    17
    82
    87
    84
    67
    Roma
    50
    09
    48
    79
    12
    Torino
    81
    43
    75
    21
    38
    Venezia
    15
    72
    65
    74
    60
    Nazionale
    88
    21
    04
    26
    55
    Estrazione Simbolotto
    Napoli
    03
    30
    18
    38
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto