Listato per "Quale dei due"?

[tiberio1]

Ciao a tutti questo nuovo articolo diede nel giro di 2 colpi l'ambo a ruota se ricordo bene,utilizzare condizioni di diverse figure grazie .

 

[salvo50]

Ciao a Tutti.

Tiberio1, Red*One, Rudivall, Xeroxs.
Grazie

Nel metodo - Quale dei due - L'esempio nell'articolo è sbagliato perchè menziona il numero 21 nella ruota di Cagliari, che non esiste, di conseguenza tutta la previsione è sbagliata, cioè è basata su un errore iniziale, poi questo metodo per essere valido chiede una verifica a ritroso del vertice delle 2 corde, questa verifica l'ho predisposta ma l'ho spuntata, quindi chi vuole applicarla deve togliere la spunta, l'ho impostata così perchè toglie molte previsioni tutte vincenti. I colpi di gioco, per l'ambata ho messo 5 colpi fisso, per gli ambi si può cambiare alla seconda domanda.
La terza domanda chiede se si vogliono visualizzare i cerchi ciclometrici, per SI, inserire il numero 1, per NO un qualsiasi altro numero.
Alla quarta domanda chiede se si vogliono giocare gli ambetti, per SI, inserire il numero 1, per NO un qualsiasi altro numero.
Anche per gli ambetti non li ho predisposti fissi, perche il sistema giocando gli ambetti va molto di più in perdita.

Primo Metodo - Tre Numeri 3

Option Explicit
Sub Main
   Dim Fin,Ini,Es,R1,R2,A,B,C,D,E,F,Abb1,Abb2
   Dim Caso,Casi,Ruo,Salvo50,IniR,FinR,Clp
   Dim Amba(1),Terno(3),Ru(2)
   Dim Poste(3),Posta(1)
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9500)
   Ruo = CInt(InputBox(" In quale ruota vuoi giocare?",,11))
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",Salvo50,6))
   Scrivi Space(15) & " Tre Numeri 3 - Angelo Gargiulo - SCRIPT SALVO50" & Space(15),1,,4,,3,,1
   Call ScegliRange(Ini,Fin,Ini,Fin)
   If Ruo = 11 Then
      IniR = 1
      FinR = 12
   Else
      IniR = Ruo
      FinR = Ruo
   End If
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      For R1 = IniR To FinR
         If R1 = 11 Then R1 = 12
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R1,2)
         If Distanza(A,B) = 7 Then
            If A > B Then C = Fuori90((90 + B) - 7)
            If A < B Then C = Fuori90(B + 7)
            If A <> C Then
               D = Diametrale(C)
               E = Fuori90(D + 1)
               F = Fuori90(E + 1)
               R2 = RuotaGemella(R1)
               Amba(1) = D
               Terno(1) = D : Terno(2) = E : Terno(3) = F
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
               Scrivi
               Scrivi Space(17) & "1° e 2° Estratto ",1,,,7
               Scrivi Space(17) & Format2(A) & "----------" & Format2(B) & "----------" & Format2(C),1,0
               Scrivi " <-- Distanza 7 Dal 2° Estratto",1,,,7
               Scrivi
               Scrivi Space(16) & "Diametrale di " & Format2(C) & " = Ambata " & Format2(D),1
               Scrivi Space(20) & "Terna  =  " & StringaNumeri(Terno," ",True),1
               Scrivi
               Ru(1) = R1 : Ru(2) = R2
               ImpostaGiocata 1,Amba,Ru,Posta,Clp
               ImpostaGiocata 2,Terno,Ru,Poste,Clp
               Gioca Es
            End If
         End If
      Next
   Next
   ScriviResoconto
End Sub

Secondo metodo - Quale dei due

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
   Dim R1,R2,P1,P2,P3,P4,Salvo50
   Dim DM12,DM23,DM34,DM41,Caso,Casi,Ambe
   Dim Ambetto1(2),Ambetto2(2),Ambetto3(2),Ambetto4(2)
   Dim Ambetto5(2),Ambetto6(2),Ambetto7(2),Ambetto8(2)
   Dim Ambata(1),Ambo1(2),Ambo2(2),Ruo(2),Nu(1)
   Dim Post1(1),Post2(2),L(5),M(4),N(3),Ruote(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Ambe = CInt(InputBox(" Vuoi Giocare Anche Per la Sorte di Ambetto? SI = 1, NO un qualsiasi altro numero",Salvo50,0))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "La Struttura Ciclometrica di Angelo Gargiulo - Script Salvo50" & Space(12),1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 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)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R1 <> R2 Then
                        For P4 = 1 To 5
                           D = Estratto(Es,R2,P4)
                           If A > 0 And D > 0 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 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 _
                                    Or DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
                                    '---------------------------------
                                    If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 Then
                                       L(5) = Fuori90(M(4) + 18) : N(2) = Fuori90(M(4) + 9)
                                    End If
                                    If DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
                                       L(5) = Fuori90(M(3) + 18) : N(2) = Fuori90(M(3) + 9)
                                    End If
                                    Nu(1) = L(5)
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde, anche al suo End If
                                    'If SerieFreq (Es-4,Es,Nu,Ruo,1)> 0 Then
                                    L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
                                    N(1) = Diametrale(L(5)) : N(3) = Fuori90(N(2) + 18)
                                    Ambata(1) = N(1)
                                    Ambo1(1) = N(1) : Ambo1(2) = N(2)
                                    Ambo2(1) = N(1) : Ambo2(2) = N(3)
                                    If Ambe = 1 Then
                                       Ambetto1(1) = N(1) : Ambetto1(2) = Fuori90(N(2) + 1)
                                       Ambetto2(1) = N(1) : Ambetto2(2) = Fuori90((90 + N(2)) - 1)
                                       Ambetto3(1) = N(2) : Ambetto3(2) = Fuori90(N(1) + 1)
                                       Ambetto4(1) = N(2) : Ambetto4(2) = Fuori90((90 + N(1)) - 1)
                                       '
                                       Ambetto5(1) = N(1) : Ambetto5(2) = Fuori90(N(3) + 1)
                                       Ambetto6(1) = N(1) : Ambetto6(2) = Fuori90((90 + N(3)) - 1)
                                       Ambetto7(1) = N(3) : Ambetto7(2) = Fuori90(N(1) + 1)
                                       Ambetto8(1) = N(3) : Ambetto8(2) = Fuori90((90 + N(1)) - 1)
                                    End If
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                    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
                                    Scrivi Space(10) & " Vertice Delle 2 Corde Distanza 36 = " & Format2(L(5)),1,,,1
                                    Scrivi
                                    Scrivi Space(24) & " Ambata",1,,,2
                                    Scrivi Space(17) & " Diametrale di " & Format2(L(5)) & " = ",1,0
                                    Scrivi Format2(N(1)),1,,,2
                                    Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
                                    Scrivi Space(20) & Format2(N(2)) & " Abbinamento 1 ",1
                                    Scrivi Space(20) & Format2(N(3)) & " Abbinamento 2 ",1
                                    Scrivi
                                    If Cer = 1 Then
                                       DisegnaCerchioCiclometrico M,1,1,,,1,1
                                       DisegnaCerchioCiclometrico L,1,1,,,1,1
                                       DisegnaCerchioCiclometrico N,1,1,,,1,1
                                    End If
                                    Scrivi
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                    ImpostaGiocata 1,Ambata,Ruo,Post1,5
                                    ImpostaGiocata 2,Ambo1,Ruote,Post2,Clp
                                    ImpostaGiocata 3,Ambo2,Ruote,Post2,Clp
                                    Gioca Es,1
                                    If Ambe = 1 Then
                                       Scrivi Space(19) & "AMBETTI",1,,,1,5
                                       ImpostaGiocata 4,Ambetto1,Ruo,Post2,Clp
                                       ImpostaGiocata 5,Ambetto2,Ruo,Post2,Clp
                                       ImpostaGiocata 6,Ambetto3,Ruo,Post2,Clp
                                       ImpostaGiocata 7,Ambetto4,Ruo,Post2,Clp
                                       ImpostaGiocata 8,Ambetto5,Ruo,Post2,Clp
                                       ImpostaGiocata 9,Ambetto6,Ruo,Post2,Clp
                                       ImpostaGiocata 10,Ambetto7,Ruo,Post2,Clp
                                       ImpostaGiocata 11,Ambetto8,Ruo,Post2,Clp
                                       Gioca Es,1
                                       'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde, anche al suo If
                                       'End If
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               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)
               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 A > 0 And C > 0 Then
                           If A <> C And A <> D And B <> C And B <> 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)) : DM41 = Distanza(M(4),M(1))
                              If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 _
                                 Or DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
                                 '---------------------------------
                                 If DM12 = 9 And DM23 = 36 And DM34 = 9 And DM41 = 36 Then
                                    L(5) = Fuori90(M(4) + 18) : N(2) = Fuori90(M(4) + 9)
                                 End If
                                 If DM23 = 9 And DM34 = 36 And DM41 = 9 And DM12 = 36 Then
                                    L(5) = Fuori90(M(3) + 18) : N(2) = Fuori90(M(3) + 9)
                                 End If
                                 Nu(1) = L(5)
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde Anche al suo End if
                                 'If SerieFreq (Es-4,Es,Nu,Ruo,1)> 0 Then
                                 L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
                                 N(1) = Diametrale(L(5)) : N(3) = Fuori90(N(2) + 18)
                                 Ambata(1) = N(1)
                                 Ambo1(1) = N(1) : Ambo1(2) = N(2)
                                 Ambo2(1) = N(1) : Ambo2(2) = N(3)
                                 If Ambe = 1 Then
                                    Ambetto1(1) = N(1) : Ambetto1(2) = Fuori90(N(2) + 1)
                                    Ambetto2(1) = N(1) : Ambetto2(2) = Fuori90((90 + N(2)) - 1)
                                    Ambetto3(1) = N(2) : Ambetto3(2) = Fuori90(N(1) + 1)
                                    Ambetto4(1) = N(2) : Ambetto4(2) = Fuori90((90 + N(1)) - 1)
                                    '
                                    Ambetto5(1) = N(1) : Ambetto5(2) = Fuori90(N(3) + 1)
                                    Ambetto6(1) = N(1) : Ambetto6(2) = Fuori90((90 + N(3)) - 1)
                                    Ambetto7(1) = N(3) : Ambetto7(2) = Fuori90(N(1) + 1)
                                    Ambetto8(1) = N(3) : Ambetto8(2) = Fuori90((90 + N(1)) - 1)
                                 End If
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 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
                                 Scrivi Space(10) & " Vertice Delle 2 Corde Distanza 36 = " & Format2(L(5)),1,,,1
                                 Scrivi
                                 Scrivi Space(24) & " Ambata",1,,,2
                                 Scrivi Space(17) & " Diametrale di " & Format2(L(5)) & " = ",1,0
                                 Scrivi Format2(N(1)),1,,,2
                                 Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
                                 Scrivi Space(20) & Format2(N(2)) & " Abbinamento 1 ",1
                                 Scrivi Space(20) & Format2(N(3)) & " Abbinamento 2 ",1
                                 Scrivi
                                 If Cer = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,,,1,1
                                    DisegnaCerchioCiclometrico L,1,1,,,1,1
                                    DisegnaCerchioCiclometrico N,1,1,,,1,1
                                 End If
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                 ImpostaGiocata 1,Ambata,Ruo,Post1,5
                                 ImpostaGiocata 2,Ambo1,Ruote,Post2,Clp
                                 ImpostaGiocata 3,Ambo2,Ruote,Post2,Clp
                                 Gioca Es,1
                                 If Ambe = 1 Then
                                    Scrivi Space(19) & "AMBETTI",1,,,1,5
                                    ImpostaGiocata 4,Ambetto1,Ruo,Post2,Clp
                                    ImpostaGiocata 5,Ambetto2,Ruo,Post2,Clp
                                    ImpostaGiocata 6,Ambetto3,Ruo,Post2,Clp
                                    ImpostaGiocata 7,Ambetto4,Ruo,Post2,Clp
                                    ImpostaGiocata 8,Ambetto5,Ruo,Post2,Clp
                                    ImpostaGiocata 9,Ambetto6,Ruo,Post2,Clp
                                    ImpostaGiocata 10,Ambetto7,Ruo,Post2,Clp
                                    ImpostaGiocata 11,Ambetto8,Ruo,Post2,Clp
                                    Gioca Es,1
                                    'Togliere la spunta alla riga seguente se si vuole fare il controllo a ritroso del vertice delle corde Anche al suo If
                                    'End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub

 

[rudivall]

GRANDE Salvo...

 

[abasul]

Bravissimo Salvo.
I metodi proposti dal Sig. A. Gargiulo li trovo proprio ottimi.
Salvo, perchè non ci proponi i listati della tua raccolta "solo quelli ciclometrici" di tutti i grandi esperti del Lotto però con anche i grafici, in modo tale da poterli studiare al meglio?

 

[abasul]

Per grafici ovviamente intendo le strutture nel cerchio ciclometrico come le troviamo nel tuo ultimo script.

 

[salvo50]

Per grafici ovviamente intendo le strutture nel cerchio ciclometrico come le troviamo nel tuo ultimo script.

Ciao Abasul, non ho raccolte di metodi, tutti gli script ciclometrici che ho sono quelli già postati in questo sito, cioè non ne faccio quasi mai per conto mio, e quando li faccio (quasi sempre prese da riviste di Lotto) li posto.