Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Paki144

Super member
Ciao salvo50, era soltanto del numero 20 dove il primo in alto a sinistra della tabella dell'ultima pagina qui nel forum c'è il numero 23. Era solo un informazione se poteva essere utile.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao salvo50, era soltanto del numero 20 dove il primo in alto a sinistra della tabella dell'ultima pagina qui nel forum c'è il numero 23.
Era solo un informazione se poteva essere utile.
Ok, grazie, scusami avevo capito male, ma purtroppo manca più di un numero.
 

Matematico

Advanced Member >PLATINUM<
Ciao a Tutti.

Matematico, Xeroxs, Simon-Simon.

Grazie.

L'AMBO RELATIVO di GIUSEPPE PEZZELLA

Di script ne ho fatti due, nel primo ho visualizzato i segni distanziali e rispettato la disposizione ++- e --+, nel secondo li ho visualizzati ma non ho rispettato la disposizione ++- e --+ .

CON I SEGNI DISTANZIALI CONTROLLATI

Codice:
Option Explicit
Sub Main
   Dim FIn,Es1,Es2,Es3,Ini,Caso,Casi,Salvo50
   Dim Clp1,Clp2,Sp,A,B,C,D,E,F,E1,E2,E3,Som1
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9
   Dim DiAB,DiCD,DiEF,DiAD,DiBC,DiAF,DiBE
   Dim Diff1,Diff2,Diff3,X1,X2,X3,Abb1
   Dim Ruo(3),Tutte(1),Posta(1),Poste(2)
   Dim Amba(1),Ambo1(2),Ambo2(2)
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   Som1 = 45
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9830)
   Clp1 = InputBox("Per quanti colpi vuoi giocare A Ruota?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "AMBO RELATIVO di GIUSEPPE PEZZELLA  - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(8) & "        CON I SEGNI DISTANZIALI CONTROLLATI         ",1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            P2 = FuoriX(P1 + 1,5)
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            DiAB = Distanza(A,B)
            If A > 0 And DiAB <> 1 And DiAB <> 17 And DiAB <> 44 And DiAB <> 45 Then
               For Es2 = Es1 - 1 To Es1 - 18 Step - 1
                  For R2 = 1 To 10
                     For P3 = 1 To 5
                        P4 = FuoriX(P3 + 1,5)
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        DiCD = Distanza(C,D)
                        'A--B
                        '|  |
                        'C--D
                        If C > 0 And DiCD <> 1 And DiCD <> 17 And DiCD <> 44 And DiCD <> 45 Then
                           DiAD = Distanza(A,D) : DiBC = Distanza(B,C)
                           If(DiAB = DiCD) And(DiAD = DiBC) Then
                              If DiAD + DiAB = Som1 Then
                                 For Es3 = Es2 To Es1 - 18 Step - 1
                                    For R3 = R2 + 1 To 12
                                       If R3 = 11 Then R3 = 12
                                       For P5 = 1 To 5
                                          P6 = FuoriX(P5 + 1,5)
                                          E = Estratto(Es3,R3,P5)
                                          F = Estratto(Es3,R3,P6)
                                          DiEF = Distanza(E,F)
                                          'A--B
                                          '|  |
                                          'E--F
                                          If E > 0 And DiEF <> 1 And DiEF <> 17 And DiEF <> 44 And DiEF <> 45 Then
                                             DiAF = Distanza(A,F) : DiBE = Distanza(B,E)
                                             If(DiCD = DiEF) And DiAF = DiBE Then
                                                If DiAF + DiEF = Som1 Then
                                                   Diff1 = Differenza(A,B)
                                                   Diff2 = Differenza(C,D)
                                                   Diff3 = Differenza(E,F)
                                                   If Diff1 > 45 And A > B Then X1 = "+"
                                                   If Diff1 > 45 And A < B Then X1 = "-"
                                                   If Diff1 < 46 And A > B Then X1 = "-"
                                                   If Diff1 < 46 And A < B Then X1 = "+"
                                                   If Diff2 > 45 And C > D Then X2 = "+"
                                                   If Diff2 > 45 And C < D Then X2 = "-"
                                                   If Diff2 < 46 And C > D Then X2 = "-"
                                                   If Diff2 < 46 And C < D Then X2 = "+"
                                                   If Diff3 > 45 And E > F Then X3 = "+"
                                                   If Diff3 > 45 And E < F Then X3 = "-"
                                                   If Diff3 < 46 And E > F Then X3 = "-"
                                                   If Diff3 < 46 And E < F Then X3 = "+"
                                                   If(X1 = "+" And X2 = "+" And X3 = "-") Or(X1 = "-" And X2 = "-" And X3 = "+") Then
                                                      Abb1 = Fuori90(B + DiAB)
                                                      If Abb1 = A Then Abb1 = Fuori90(A + DiAB)
                                                      Amba(1) = B
                                                      Ambo1(1) = B
                                                      Ambo1(2) = Abb1
                                                      Ambo2(1) = A : Ambo2(2) = B
                                                      Caso = Caso + 1
                                                      Casi = Casi + 1
                                                      ColoreTesto 2
                                                      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                      ColoreTesto 1
                                                      Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000")
                                                      ColoreTesto 0
                                                      Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                                      Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                                      For P7 = 1 To 5
                                                         E1 = Estratto(Es1,R1,P7)
                                                         If E1 = A Or E1 = B Then
                                                            ColoreTesto 2
                                                         Else
                                                            ColoreTesto 0
                                                         End If
                                                         Scrivi Format2(E1) & " ",1,0
                                                         ColoreTesto 0
                                                      Next
                                                      Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiAB) & Sp & X1,1
                                                      Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                      Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                      For P8 = 1 To 5
                                                         E2 = Estratto(Es2,R2,P8)
                                                         If E2 = C Or E2 = D Then
                                                            ColoreTesto 2
                                                         Else
                                                            ColoreTesto 0
                                                         End If
                                                         Scrivi Format2(E2) & " ",1,0
                                                         ColoreTesto 0
                                                      Next
                                                      Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiCD) & Sp & X2,1
                                                      Scrivi(" Estrazione n." & Format2(Es3) & " del " & DataEstrazione(Es3)),1,0
                                                      Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                      For P9 = 1 To 5
                                                         E3 = Estratto(Es3,R3,P9)
                                                         If E3 = E Or E3 = F Then
                                                            ColoreTesto 2
                                                         Else
                                                            ColoreTesto 0
                                                         End If
                                                         Scrivi Format2(E3) & " ",1,0
                                                         ColoreTesto 0
                                                      Next
                                                      Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiEF) & Sp & X3,1
                                                      Scrivi
                                                      Scrivi Space(17) & "Distanze " & Space(7),1,0
                                                      Scrivi "Distanze" & Space(11) & "Somme",1
                                                      Scrivi Space(3) & "Ambi Uniti" & Space(4) & "Diagonali" & Space(5),1,0
                                                      Scrivi " Orizzontali" & Space(8) & "Distanze ",1
                                                      Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAD),1,0
                                                      Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                      Scrivi Space(5) & Format2(C) & Sp & Format2(D) & Space(10) & Format2(DiBC),1,0
                                                      Scrivi Space(14) & Format2(DiCD) & Space(16) & Format2(Som1),1
                                                      Scrivi String(60,"=")
                                                      Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAF),1,0
                                                      Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                      Scrivi Space(5) & Format2(E) & Sp & Format2(F) & Space(10) & Format2(DiBE),1,0
                                                      Scrivi Space(14) & Format2(DiEF) & Space(16) & Format2(Som1),1
                                                      Scrivi
                                                      Tutte(1) = TT_
                                                      Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                      ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                      ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp1
                                                      ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp1
                                                      ImpostaGiocata 4,Ambo2,Tutte,Poste,Clp2
                                                      Gioca Es1
                                                   End If
                                                End If
                                             End If
                                          End If
                                       Next
                                       If ScriptInterrotto Then Exit Sub
                                    Next
                                 Next
                              End If
                           End If
                        End If
                     Next
                     If ScriptInterrotto Then Exit Sub
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

CON I SEGNI DISTANZIALI NON CONTROLLATI

Codice:
Option Explicit
Sub Main
   Dim FIn,Es1,Es2,Es3,Ini,Caso,Casi,Salvo50
   Dim Clp1,Clp2,Sp,A,B,C,D,E,F,E1,E2,E3,Som1
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9
   Dim DiAB,DiCD,DiEF,DiAD,DiBC,DiAF,DiBE
   Dim Diff1,Diff2,Diff3,X1,X2,X3,Abb1
   Dim Ruo(3),Tutte(1),Posta(1),Poste(2)
   Dim Amba(1),Ambo1(2),Ambo2(2)
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   Som1 = 45
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9830)
   Clp1 = InputBox("Per quanti colpi vuoi giocare A Ruota?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "AMBO RELATIVO di GIUSEPPE PEZZELLA  - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(8) & "     CON I SEGNI DISTANZIALI NON CONTROLLATI       ",1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            P2 = FuoriX(P1 + 1,5)
            A = Estratto(Es1,R1,P1)
            B = Estratto(Es1,R1,P2)
            DiAB = Distanza(A,B)
            If A > 0 And DiAB <> 1 And DiAB <> 17 And DiAB <> 44 And DiAB <> 45 Then
               For Es2 = Es1 - 1 To Es1 - 18 Step - 1
                  For R2 = 1 To 10
                     For P3 = 1 To 5
                        P4 = FuoriX(P3 + 1,5)
                        C = Estratto(Es2,R2,P3)
                        D = Estratto(Es2,R2,P4)
                        DiCD = Distanza(C,D)
                        'A--B
                        '|  |
                        'C--D
                        If C > 0 And DiCD <> 1 And DiCD <> 17 And DiCD <> 44 And DiCD <> 45 Then
                           DiAD = Distanza(A,D) : DiBC = Distanza(B,C)
                           If(DiAB = DiCD) And(DiAD = DiBC) Then
                              If DiAD + DiAB = Som1 Then
                                 For Es3 = Es2 To Es1 - 18 Step - 1
                                    For R3 = R2 + 1 To 12
                                       If R3 = 11 Then R3 = 12
                                       For P5 = 1 To 5
                                          P6 = FuoriX(P5 + 1,5)
                                          E = Estratto(Es3,R3,P5)
                                          F = Estratto(Es3,R3,P6)
                                          DiEF = Distanza(E,F)
                                          'A--B
                                          '|  |
                                          'E--F
                                          If E > 0 And DiEF <> 1 And DiEF <> 17 And DiEF <> 44 And DiEF <> 45 Then
                                             DiAF = Distanza(A,F) : DiBE = Distanza(B,E)
                                             If(DiCD = DiEF) And DiAF = DiBE Then
                                                If DiAF + DiEF = Som1 Then
                                                   Diff1 = Differenza(A,B)
                                                   Diff2 = Differenza(C,D)
                                                   Diff3 = Differenza(E,F)
                                                   If Diff1 > 45 And A > B Then X1 = "+"
                                                   If Diff1 > 45 And A < B Then X1 = "-"
                                                   If Diff1 < 46 And A > B Then X1 = "-"
                                                   If Diff1 < 46 And A < B Then X1 = "+"
                                                   If Diff2 > 45 And C > D Then X2 = "+"
                                                   If Diff2 > 45 And C < D Then X2 = "-"
                                                   If Diff2 < 46 And C > D Then X2 = "-"
                                                   If Diff2 < 46 And C < D Then X2 = "+"
                                                   If Diff3 > 45 And E > F Then X3 = "+"
                                                   If Diff3 > 45 And E < F Then X3 = "-"
                                                   If Diff3 < 46 And E > F Then X3 = "-"
                                                   If Diff3 < 46 And E < F Then X3 = "+"
                                                   Abb1 = Fuori90(B + DiAB)
                                                   If Abb1 = A Then Abb1 = Fuori90(A + DiAB)
                                                   Amba(1) = B
                                                   Ambo1(1) = B
                                                   Ambo1(2) = Abb1
                                                   Ambo2(1) = A : Ambo2(2) = B
                                                   Caso = Caso + 1
                                                   Casi = Casi + 1
                                                   ColoreTesto 2
                                                   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                   ColoreTesto 1
                                                   Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000")
                                                   ColoreTesto 0
                                                   Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                                   Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                                   For P7 = 1 To 5
                                                      E1 = Estratto(Es1,R1,P7)
                                                      If E1 = A Or E1 = B Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E1) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiAB) & Sp & X1,1
                                                   Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                   Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                   For P8 = 1 To 5
                                                      E2 = Estratto(Es2,R2,P8)
                                                      If E2 = C Or E2 = D Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E2) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiCD) & Sp & X2,1
                                                   Scrivi(" Estrazione n." & Format2(Es3) & " del " & DataEstrazione(Es3)),1,0
                                                   Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                   For P9 = 1 To 5
                                                      E3 = Estratto(Es3,R3,P9)
                                                      If E3 = E Or E3 = F Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E3) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi "  <-- Evidenziato Ambo Distanza " & Format2(DiEF) & Sp & X3,1
                                                   Scrivi
                                                   Scrivi Space(17) & "Distanze " & Space(7),1,0
                                                   Scrivi "Distanze" & Space(11) & "Somme",1
                                                   Scrivi Space(3) & "Ambi Uniti" & Space(4) & "Diagonali" & Space(5),1,0
                                                   Scrivi " Orizzontali" & Space(8) & "Distanze ",1
                                                   Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAD),1,0
                                                   Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                   Scrivi Space(5) & Format2(C) & Sp & Format2(D) & Space(10) & Format2(DiBC),1,0
                                                   Scrivi Space(14) & Format2(DiCD) & Space(16) & Format2(Som1),1
                                                   Scrivi String(60,"=")
                                                   Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAF),1,0
                                                   Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1
                                                   Scrivi Space(5) & Format2(E) & Sp & Format2(F) & Space(10) & Format2(DiBE),1,0
                                                   Scrivi Space(14) & Format2(DiEF) & Space(16) & Format2(Som1),1
                                                   Scrivi
                                                   Tutte(1) = TT_
                                                   Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                   ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                   ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp1
                                                   ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp1
                                                   ImpostaGiocata 4,Ambo2,Tutte,Poste,Clp2
                                                   Gioca Es1
                                                End If
                                             End If
                                          End If
                                       Next
                                       If ScriptInterrotto Then Exit Sub
                                    Next
                                 Next
                              End If
                           End If
                        End If
                     Next
                     If ScriptInterrotto Then Exit Sub
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Ciao salvo50, grazie di cuore superveloce come sempre...pensavo fosse più efficace almeno x l'ambo su tutte...comunque x l'ambata è valido:)
Ho altri metodi vecchi ma in cartaceo e devo scennerizzarli ..appena posso li metto qui.
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50 , uno script per questo metodo datato cortesemente ...la statistica è ottima :)

IL METODO E' DI RAMCOLOTTO


SOMMA SPY 21 in quarta posizione

Saremo attenti ad ogni estrazione, qualora si formasse fra le sole DUE RUOTE BARI E TORINO e con elementi sortiti in QUARTA POSIZIONE, una somma di VALORE 21.

La somma dei due numeri usciti tiene conto del fuori90 se necessario.

ITER OPERATIVO

Analizzando tutte le somme, ci pare di sottolineare questa particolare somma sulle sopradette ruote, attraverso il concetto classico di Spia, ricaviamo una tipologia di gioco interessante e “sicuramente” affidabile.

Ci differenzieremo da una puntata all’altra dalla posizione di sortita di questa somma che di volta in volta analizzeremo.

LA SOMMA SPY DEVE SORTIRE IN QUARTA POSIZIONE



1) Ricerca fra le due ruote, BARI-TORINO nella stessa estrazione e nella stessa posizione (indicata sopra), DUE elementi che sommati tra di loro generino il VALORE 21
2) Ad ogni somma corrisponde una previsione “FISSA” di tipo statistico, da porre in gioco a partire dall’estrazione successiva sulle due ruote di rilevamento.
3) Poniamo in gioco solo una Ambata più quattro abbinamenti per ambo secco, ovviamente la lunghetta con tutti i numeri per ambo e terno.



La previsione genera l’Ambata 39

Abbinamenti e lunghetta: 39-5-52-53-71

(l’analisi di questa metodica dal 02/05/2014 al 30/01/2018 è stata vincente nel 100% dei casi rilevati..)
-----------------------------------------------------------------------------------------------------------------
Ovviamente con qualche esempio reale chiariamo ogni concetto:



02/05/2014 Ba (77) – To (34)

39 To 1C

39 To 4C

39-52 To 1C



10/07/2014 Ba (25) – To (86)

39 Ba 2C

39 To 8C

39 Ba 9C

39-53 To 8C

39-71 To 8C

T 39 53 71 To 8C



17/07/2014 Ba (59) – To (52)

39 To 5C

39 Ba 6C

39-53 To 5C

39-71 To 5C

T 39 53 71 To 5C



04/10/2014 Ba (64) – To (47)

39 Ba 6C



25/10/2014 Ba (12) – To (9)

39 Ba 4C

39 To 4C

39 Ba 7C

39-5 Ba 4C

A 5 52 Ba 6C



07/07/2015 Ba (43) – To (68)

39 To 5C

39 Ba 8C

39 To 8C

39 To 11C

39-71 To 5C



03/05/2016 Ba (16) – To (5)

39 To 3C

39 Ba 10C



26/11/2016 Ba (3) – To (18)

39 To 8C

39 To 10C

39-53 To 8C

39-5 To 10C



13/04/2017 Ba (73) – To (38)

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C



29/08/2017 Ba (48) – To (63)

39 To 7C

39-52 To 7C

A 5 53 To 2C



07/09/2017 Ba (31) – To (80)

39 To 3C

39-52 To 3C
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Matematico

Qualche chiarimento

Ovviamente con qualche esempio reale chiariamo ogni concetto:



02/05/2014 Ba (77) – To (34)

39 To 1C

39 To 4C

39-52 To 1C



10/07/2014 Ba (25) – To (86)

39 Ba 2C

39 To 8C

39 Ba 9C

39-53 To 8C

39-71 To 8C

T 39 53 71 To 8C



17/07/2014 Ba (59) – To (52)

39 To 5C

39 Ba 6C

39-53 To 5C

39-71 To 5C

T 39 53 71 To 5C



04/10/2014 Ba (64) – To (47)

39 Ba 6C



25/10/2014 Ba (12) – To (9)

39 Ba 4C

39 To 4C

39 Ba 7C

39-5 Ba 4C

A 5 52 Ba 6C



07/07/2015 Ba (43) – To (68)

39 To 5C

39 Ba 8C

39 To 8C

39 To 11C

39-71 To 5C



03/05/2016 Ba (16) – To (5)

39 To 3C

39 Ba 10C



26/11/2016 Ba (3) – To (18)

39 To 8C

39 To 10C

39-53 To 8C

39-5 To 10C



13/04/2017 Ba (73) – To (38)

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C



29/08/2017 Ba (48) – To (63)

39 To 7C

39-52 To 7C

A 5 53 To 2C



07/09/2017 Ba (31) – To (80)

39 To 3C

39-52 To 3C

non ho capito a cosa corrispondono questi

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C

perchè 39, perchè 71, perchè 12 ecc...
perchè 11C, perche12C. ecc...
 

Matematico

Advanced Member >PLATINUM<
Ciao a Tutti.

Ciao Matematico

Qualche chiarimento

Ovviamente con qualche esempio reale chiariamo ogni concetto:



02/05/2014 Ba (77) – To (34)

39 To 1C

39 To 4C

39-52 To 1C



10/07/2014 Ba (25) – To (86)

39 Ba 2C

39 To 8C

39 Ba 9C

39-53 To 8C

39-71 To 8C

T 39 53 71 To 8C



17/07/2014 Ba (59) – To (52)

39 To 5C

39 Ba 6C

39-53 To 5C

39-71 To 5C

T 39 53 71 To 5C



04/10/2014 Ba (64) – To (47)

39 Ba 6C



25/10/2014 Ba (12) – To (9)

39 Ba 4C

39 To 4C

39 Ba 7C

39-5 Ba 4C

A 5 52 Ba 6C



07/07/2015 Ba (43) – To (68)

39 To 5C

39 Ba 8C

39 To 8C

39 To 11C

39-71 To 5C



03/05/2016 Ba (16) – To (5)

39 To 3C

39 Ba 10C



26/11/2016 Ba (3) – To (18)

39 To 8C

39 To 10C

39-53 To 8C

39-5 To 10C



13/04/2017 Ba (73) – To (38)

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C



29/08/2017 Ba (48) – To (63)

39 To 7C

39-52 To 7C

A 5 53 To 2C



07/09/2017 Ba (31) – To (80)

39 To 3C

39-52 To 3C

non ho capito a cosa corrispondono questi

39 Ba 8C

39 Ba 11C

39 Ba 12C

39-5 Ba 8C

39-71 Ba 11C

perchè 39, perchè 71, perchè 12 ecc...
perchè 11C, perche12C. ecc...
Ciao salvo50, m isà proprio che sia un errore di battitura dell'autore , infatti questi numeri che non fanno parte della totale previsione sono riportati solo in questo ultimo caso...non tenerne conto , la previsione completa è solo questa :

La previsione genera l’Ambata 39

Abbinamenti e lunghetta: 39-5-52-53-71
 

salvo50

Advanced Member >PLATINUM PLUS<
Matematico
Grazie

DUE RUOTE, E SPIA IN POSIZIONE (di RAMCOLOTTO)

Le 2 ruote, la spia, la posizione e la lunghetta si possono cambiare tramite inputbox, ma per defoult ho messo le ruote, la spia, le posizioni e la lunghetta che hai usato negli esempi.

L'ambata è il primo numero della lunghetta.


Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi
   Dim Spia,Pos,A,B,C,Num,aNum
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Ruo(2),Amba(1),Posta(1),Poste(2),Post(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9630))
   R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1))
   R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,9))
   Spia = CInt(InputBox("Inserisci la Spia",Salvo50,21))
   Pos = CInt(InputBox("Inserisci la Posizione",Salvo50,4))
   Num = InputBox("Inserisci 5 Numeri Separati da un Punto (.)",,"39.05.52.53.71")
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,15))
   aNum = Split("0." & Num,".")
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "DUE RUOTE, E SPIA IN POSIZIONE " & Pos & " (di RamcoLotto) - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Post(2) = 1
   Post(3) = 1
   Ruo(1) = R1
   Ruo(2) = R2
   Amba(1) = aNum(1)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      A = Estratto(Es,R1,Pos)
      B = Estratto(Es,R2,Pos)
      C = Fuori90(A + B)
      If C = Spia Then
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P2 = 1 To 5
            E1 = Estratto(Es,R1,P2)
            If E1 = A 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 P3 = 1 To 5
            E2 = Estratto(Es,R2,P3)
            If E2 = B Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi Space(18) & " Spia Inserita " & Format2(Spia),1
         Scrivi Space(10) & " Posizine Spia Inserita " & Pos,1
         Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(C) & " <-- Spia inserita ",1
         Scrivi Space(10) & "Numeri Lunghetta Inseriti " & StringaNumeri(aNum," ",True),1
         Scrivi
         Amba(1) = aNum(1)
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         Ambo1(1) = aNum(1) : Ambo1(2) = aNum(2)
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         Ambo2(1) = aNum(1) : Ambo2(2) = aNum(3)
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         Ambo3(1) = aNum(1) : Ambo3(2) = aNum(4)
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         Ambo4(1) = aNum(1) : Ambo4(2) = aNum(5)
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         ImpostaGiocata 6,aNum,Ruo,Post,Clp
         Gioca Es,1
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

Matematico

Advanced Member >PLATINUM<
Matematico
Grazie

DUE RUOTE, E SPIA IN POSIZIONE (di RAMCOLOTTO)

Le 2 ruote, la spia, la posizione e la lunghetta si possono cambiare tramite inputbox, ma per defoult ho messo le ruote, la spia, le posizioni e la lunghetta che hai usato negli esempi.

L'ambata è il primo numero della lunghetta.


Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi
   Dim Spia,Pos,A,B,C,Num,aNum
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Ruo(2),Amba(1),Posta(1),Poste(2),Post(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9630))
   R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1))
   R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,9))
   Spia = CInt(InputBox("Inserisci la Spia",Salvo50,21))
   Pos = CInt(InputBox("Inserisci la Posizione",Salvo50,4))
   Num = InputBox("Inserisci 5 Numeri Separati da un Punto (.)",,"39.05.52.53.71")
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,15))
   aNum = Split("0." & Num,".")
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "DUE RUOTE, E SPIA IN POSIZIONE " & Pos & " (di RamcoLotto) - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Post(2) = 1
   Post(3) = 1
   Ruo(1) = R1
   Ruo(2) = R2
   Amba(1) = aNum(1)
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      A = Estratto(Es,R1,Pos)
      B = Estratto(Es,R2,Pos)
      C = Fuori90(A + B)
      If C = Spia Then
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P2 = 1 To 5
            E1 = Estratto(Es,R1,P2)
            If E1 = A 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 P3 = 1 To 5
            E2 = Estratto(Es,R2,P3)
            If E2 = B Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi Space(18) & " Spia Inserita " & Format2(Spia),1
         Scrivi Space(10) & " Posizine Spia Inserita " & Pos,1
         Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(C) & " <-- Spia inserita ",1
         Scrivi Space(10) & "Numeri Lunghetta Inseriti " & StringaNumeri(aNum," ",True),1
         Scrivi
         Amba(1) = aNum(1)
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp
         Ambo1(1) = aNum(1) : Ambo1(2) = aNum(2)
         ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
         Ambo2(1) = aNum(1) : Ambo2(2) = aNum(3)
         ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
         Ambo3(1) = aNum(1) : Ambo3(2) = aNum(4)
         ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
         Ambo4(1) = aNum(1) : Ambo4(2) = aNum(5)
         ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
         ImpostaGiocata 6,aNum,Ruo,Post,Clp
         Gioca Es,1
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Grazie , sempre forte con i tuoi script ottimi ....peccato x le condizioni abbastanza rare , ma gli iesiti sono davvero buoni :)
Entro domani ti metto un metodo datato 2020 di Franco Mongillo in cartaceo davvero interessante ...devo scannerizzare le pagine e ora non sono in sede.

Buona serata
 

Matematico

Advanced Member >PLATINUM<
Ciao a tutti , in particolare a salvo50 ,
Come promesso allego pagine scannerizzate x un'altro interessante omaggio a voi tutti lettori , si tratta di un metodo in cartaceo da me acquistato nel lontano anno 2000.
Autore : Franco Mongillo
Nome metodo : "ARMONIA STELLARE" distanza 45
 

Allegati

  • IMG.pdf
    730,3 KB · Visite: 72
  • IMG_0001.pdf
    464 KB · Visite: 58
  • IMG_0002.pdf
    401,5 KB · Visite: 57
  • IMG_0003.pdf
    502,3 KB · Visite: 58

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Matematico, Xeroxs
Grazie.

ARMONIA STELLARE a cura di FRANCO MONGILLO

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,K,Sp,Salvo50
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim A,B,C,D,SommeOr,SommeVe,SommeDi
   Dim SomOr1,SomOr2,SomVe1,SomVe2,SomDi1,SomDi2
   Dim Nu(5),DiaNu(5),Amba(1),Ambo1(2),Ambo2(2)
   Dim Ruote(3),Ruota(2),Posta(1),Poste(2)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9812)'6881 secondo esempio nel metodo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "ARMONIA STELLARE a cura di FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      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 Distanza(A,B) = 45 Then
                  K = 0
                  For K = 1 To 5
                     Nu(K) = Estratto(Es,R1,K)
                     If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
                  Next
                  Call OrdinaMatrice(Nu,1)
                  DiaNu(1) = Diametrale(Nu(3))
                  DiaNu(2) = Diametrale(Nu(4))
                  DiaNu(3) = Diametrale(Nu(5))
                  For R2 = 1 To 10
                     If R2 <> R1 Then
                        For P3 = 1 To 5
                           If P3 <> P1 And P3 <> P2 Then
                              C =(Estratto(Es,R2,P3))
                              If C = DiaNu(1) Or C = DiaNu(2) Or C = DiaNu(3)Then
                                 If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) _
                                    Or Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) _
                                    Or Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then
                                    If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) Then D = Nu(3)
                                    If Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) Then D = Nu(4)
                                    If Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then D = Nu(5)
                                    'A--B
                                    '|  |
                                    'D--C
                                    SomOr1 = Fuori90(A + B) : SomOr2 = Fuori90(D + C)
                                    SomDi1 = Fuori90(A + C) : SomDi2 = Fuori90(D + B)
                                    SomVe1 = Fuori90(A + D) : SomVe2 = Fuori90(B + C)
                                    SommeOr = Fuori90(SomOr1 + SomOr2)
                                    SommeDi = Fuori90(SomDi1 + SomDi2)
                                    SommeVe = Fuori90(SomVe1 + SomVe2)
                                    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 P = 1 To 5
                                       E1 = Estratto(Es,R1,P)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 1
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati in Rosso Distanza 45",1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es,R2,PP)
                                       If E2 = C Then
                                          ColoreTesto 1
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziato In Blu Diametrale Corrispondente",1
                                    Scrivi
                                    Scrivi Space(6) & " Quadrato " & Space(15) & "Somme " & Space(10),1,0
                                    Scrivi " Somme" & Space(11) & " Somme",1
                                    Scrivi Space(6) & " Composto " & Space(12) & " Orizontali" & Space(7),1,0
                                    Scrivi "Diagonali        Verticali",1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(20),1,0
                                    Scrivi Format2(SomOr1) & Space(14) & Format2(SomDi1),1,0
                                    Scrivi Space(15) & Format2(SomVe1),1
                                    Scrivi Space(8) & Format2(D) & " " & Format2(C) & Space(20),1,0
                                    Scrivi Format2(SomOr2) & Space(14) & Format2(SomDi2),1,0
                                    Scrivi Space(15) & Format2(SomVe2),1
                                    Scrivi Space(30) & String(40,"-"),1
                                    Scrivi Space(9) & " Tripla Sommativi " & Space(6) & Format2(SommeOr) & Space(14),1,0
                                    Scrivi Format2(SommeDi) & Space(15) & Format2(SommeVe),1
                                    Scrivi
                                    Scrivi Space(45) & "Pronostico",1
                                    Scrivi Space(44) & " Ambata " & Format2(SommeDi),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(C),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(Vert(C)),1
                                    Scrivi
                                    Ruota(1) = R1 : Ruota(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                    Amba(1) = SommeDi
                                    ImpostaGiocata 1,Amba,Ruota,Posta,Clp1
                                    Ambo1(1) = SommeDi : Ambo1(2) = C
                                    ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                    Ambo2(1) = SommeDi : Ambo2(2) = Vert(C)
                                    ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

Matematico

Advanced Member >PLATINUM<
Ciao a Tutti

Matematico, Xeroxs
Grazie.

ARMONIA STELLARE a cura di FRANCO MONGILLO

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Clp2,K,Sp,Salvo50
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim A,B,C,D,SommeOr,SommeVe,SommeDi
   Dim SomOr1,SomOr2,SomVe1,SomVe2,SomDi1,SomDi2
   Dim Nu(5),DiaNu(5),Amba(1),Ambo1(2),Ambo2(2)
   Dim Ruote(3),Ruota(2),Posta(1),Poste(2)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9812)'6881 secondo esempio nel metodo
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "ARMONIA STELLARE a cura di FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      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 Distanza(A,B) = 45 Then
                  K = 0
                  For K = 1 To 5
                     Nu(K) = Estratto(Es,R1,K)
                     If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
                  Next
                  Call OrdinaMatrice(Nu,1)
                  DiaNu(1) = Diametrale(Nu(3))
                  DiaNu(2) = Diametrale(Nu(4))
                  DiaNu(3) = Diametrale(Nu(5))
                  For R2 = 1 To 10
                     If R2 <> R1 Then
                        For P3 = 1 To 5
                           If P3 <> P1 And P3 <> P2 Then
                              C =(Estratto(Es,R2,P3))
                              If C = DiaNu(1) Or C = DiaNu(2) Or C = DiaNu(3)Then
                                 If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) _
                                    Or Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) _
                                    Or Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then
                                    If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) Then D = Nu(3)
                                    If Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) Then D = Nu(4)
                                    If Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then D = Nu(5)
                                    'A--B
                                    '|  |
                                    'D--C
                                    SomOr1 = Fuori90(A + B) : SomOr2 = Fuori90(D + C)
                                    SomDi1 = Fuori90(A + C) : SomDi2 = Fuori90(D + B)
                                    SomVe1 = Fuori90(A + D) : SomVe2 = Fuori90(B + C)
                                    SommeOr = Fuori90(SomOr1 + SomOr2)
                                    SommeDi = Fuori90(SomDi1 + SomDi2)
                                    SommeVe = Fuori90(SomVe1 + SomVe2)
                                    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 P = 1 To 5
                                       E1 = Estratto(Es,R1,P)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 1
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziati in Rosso Distanza 45",1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For PP = 1 To 5
                                       E2 = Estratto(Es,R2,PP)
                                       If E2 = C Then
                                          ColoreTesto 1
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi " <-- Evidenziato In Blu Diametrale Corrispondente",1
                                    Scrivi
                                    Scrivi Space(6) & " Quadrato " & Space(15) & "Somme " & Space(10),1,0
                                    Scrivi " Somme" & Space(11) & " Somme",1
                                    Scrivi Space(6) & " Composto " & Space(12) & " Orizontali" & Space(7),1,0
                                    Scrivi "Diagonali        Verticali",1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(20),1,0
                                    Scrivi Format2(SomOr1) & Space(14) & Format2(SomDi1),1,0
                                    Scrivi Space(15) & Format2(SomVe1),1
                                    Scrivi Space(8) & Format2(D) & " " & Format2(C) & Space(20),1,0
                                    Scrivi Format2(SomOr2) & Space(14) & Format2(SomDi2),1,0
                                    Scrivi Space(15) & Format2(SomVe2),1
                                    Scrivi Space(30) & String(40,"-"),1
                                    Scrivi Space(9) & " Tripla Sommativi " & Space(6) & Format2(SommeOr) & Space(14),1,0
                                    Scrivi Format2(SommeDi) & Space(15) & Format2(SommeVe),1
                                    Scrivi
                                    Scrivi Space(45) & "Pronostico",1
                                    Scrivi Space(44) & " Ambata " & Format2(SommeDi),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(C),1
                                    Scrivi Space(44) & " Ambo   " & Format2(SommeDi) & Sp & Format2(Vert(C)),1
                                    Scrivi
                                    Ruota(1) = R1 : Ruota(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
                                    Amba(1) = SommeDi
                                    ImpostaGiocata 1,Amba,Ruota,Posta,Clp1
                                    Ambo1(1) = SommeDi : Ambo1(2) = C
                                    ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                    Ambo2(1) = SommeDi : Ambo2(2) = Vert(C)
                                    ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Grazie salvo50, se allunghiamo i colpi di gioco migliora negli esiti ...bravissimo !(y)👏
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50 ,
Ho un'altro bellissimo metodo in cartaceo del bravissimo Antonio Fiacco : IL RETTANGOLO ASSOLUTO 2002
Se non è stato fatto lo script lo scannerizzo e lo invio ....ne vale la pena davvero.
 

Giovanni81

Junior Member
Piacere Salvo,
sto osservando tutti gli script per cercare da autodidatta di imparare qualcosa di codice di programmazione dal tuo enorme lavoro. Ma ahimé non sono ancora riuscito a portare a casa neanche un calcolo (se non con i copia/incolla).
A questo punto ti chiederei una cortesia, se mai dovessi avere tempo, per uno script su questo metodo che io ho chiamato Forza4 (gioco sulla diagonale) e che non escludo possa aver "teorizzato" qualcuno prima di me.

Condizioni di gioco
Individuare una diagonale (sx verso dx) con i primi due elementi "in cadenza"

Giocata
2 ambate (3° e 4° elemento della diagonale) - Esito molto positivo da settembre ad oggi

Per costruzione ambi secchi (somma di 1°+4° della diagonale; somma di 2°+3° della diagonale) - DA VERIFICARE (sono alla ricerca di un buon gioco per ambo)

Nell'immagine ho provato a specificare sia le condizioni di rilevamento, sia quelle di giocata.
Nello specifico quella giocata ha portato una ambata al secondo colpo su Roma (estratto il 63)

Scusa e grazie per l'aiuto.
 

Allegati

  • esempio_giocata.PNG
    esempio_giocata.PNG
    15,5 KB · Visite: 13

salvo50

Advanced Member >PLATINUM PLUS<
Piacere Salvo,
sto osservando tutti gli script per cercare da autodidatta di imparare qualcosa di codice di programmazione dal tuo enorme lavoro. Ma ahimé non sono ancora riuscito a portare a casa neanche un calcolo (se non con i copia/incolla).
A questo punto ti chiederei una cortesia, se mai dovessi avere tempo, per uno script su questo metodo che io ho chiamato Forza4 (gioco sulla diagonale) e che non escludo possa aver "teorizzato" qualcuno prima di me.

Condizioni di gioco
Individuare una diagonale (sx verso dx) con i primi due elementi "in cadenza"

Giocata
2 ambate (3° e 4° elemento della diagonale) - Esito molto positivo da settembre ad oggi

Per costruzione ambi secchi (somma di 1°+4° della diagonale; somma di 2°+3° della diagonale) - DA VERIFICARE (sono alla ricerca di un buon gioco per ambo)

Nell'immagine ho provato a specificare sia le condizioni di rilevamento, sia quelle di giocata.
Nello specifico quella giocata ha portato una ambata al secondo colpo su Roma (estratto il 63)

Scusa e grazie per l'aiuto.
Ciao Giovanni81, non la vedo semplice per questo script, comunque a tempo perso vedrò cosa posso fare.
 

Matematico

Advanced Member >PLATINUM<
Ciao salvo50, questo è un grande metodo del bravissimo Antonio Fiacco , vediamo se lo script mi darà ragione :))
 

Allegati

  • IMG.pdf
    904,3 KB · Visite: 55
  • IMG_0001.pdf
    750,3 KB · Visite: 45
  • IMG_0003.pdf
    778,5 KB · Visite: 45
  • IMG_0004.pdf
    1,1 MB · Visite: 47
  • IMG_0002.pdf
    1.020,4 KB · Visite: 44

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Matematico, Giovanni81, per adesso nel tempo libero sto facendo quello proposto da Giovanni81, appena concludo Forza4, passo a quello di Antonio Fiacco
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto