Novità

Listato per "Quale dei due"?

tiberio1

Member
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 .
 

Allegati

  • Snapshot_21-04-02_13-53-05.png
    Snapshot_21-04-02_13-53-05.png
    469,9 KB · Visite: 37

salvo50

Advanced Member >PLATINUM PLUS<
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

Codice:
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


Codice:
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
 

abasul

Super Member >PLATINUM<
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

Super Member >PLATINUM<
Per grafici ovviamente intendo le strutture nel cerchio ciclometrico come le troviamo nel tuo ultimo script.
 

salvo50

Advanced Member >PLATINUM PLUS<
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 06 maggio 2021
    Bari
    29
    63
    52
    60
    85
    Cagliari
    81
    01
    26
    41
    70
    Firenze
    12
    38
    33
    57
    36
    Genova
    29
    38
    79
    37
    66
    Milano
    78
    44
    32
    66
    75
    Napoli
    50
    43
    15
    29
    16
    Palermo
    72
    70
    05
    53
    50
    Roma
    01
    69
    57
    36
    47
    Torino
    26
    69
    63
    68
    42
    Venezia
    87
    71
    31
    79
    11
    Nazionale
    27
    18
    39
    61
    86
    Estrazione Simbolotto
    Milano
    19
    36
    15
    23
    16

Ultimi Messaggi

Alto