Script su Metodi Cabalistici, Ciclometrici & C.

[salvo50]

Ciao a Tutti.

Giggio, Sax71, Rudivall

Grazie

Eugenio, lo script Nuova Formula Propozionale, l'ho già fatto il 03-05-2017 lo trovi qui
post 16

https://forum.lottoced.com/threads/script-su-metodi-di-fabarri.2058755/page-4#post-2096227

*****************************************
Per Toon, appena posso lo faccio

 

[Sakti]

Grazie Salvo, non dico niente di nuovo, gentilezza e Grande disponibilità.
Grazie.

 

[salvo50]

Questo è un vecchio metodo trovato in rete e spiegato oralmente da un video, quindi spero di averlo trascritto nella maniera più chiara possibile, purtroppo non ne conosco l'autore, ma era detto AmboBinario.

Dovremo trovare nella stessa estrazione un ambo uguale in due ruote,sommare i due numeri e fare la differenza a 90, Dalla differenza sottrarre ognuno dei due numeri ed i risultanti due numeri saranno da giocare sulle due ruote.
Esempio: su Bari e agliari troviamo l'ambo 60 e 06, sommati avremo 66, differenza a 90, 24, da 60 a 24 =54, da 06 a 24= 18, Metteremo in gioco 60-54 e 06-18 su BA-CA. Per recupero spese possiamo giocare la quartina.

L'Ambo Binario di FABARRI

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6
   Dim Sab,Com90,Caso,Casi,E1,E2
   Dim Ambo1(2),Ambo2(2),Quat(4)
   Dim Ruo(2),Po1(2),Po2(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9760)
   Clp1 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la quartina?",,8)
   Call ScegliRange(Ini,FIn,Ini,Fin)
   Scrivi Space(18) & " L'AMBO BINARIO di FABARRI - SCRIPT SALVO50" & Space(18),1,,4,,3,,1
   Po1(2) = 1
   Po2(2) = 1
   Po2(3) = 1
   'Post3(4) = 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) : If A > 0 Then
               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) : If C > 0 Then
                        D = Estratto(Es,R2,P4)
                        If(A = C Or A = D) And(B = C Or B = D) Then
                           Sab = Fuori90(A + B) : Com90 = ComplAdX(Sab)
                           Ambo1(2) = A : Ambo1(1) = Fuori90(90 +(Com90 - A))
                           Ambo2(2) = B : Ambo2(1) = Fuori90(90 +(Com90 - B))
                           Quat(1) = A : Quat(2) = Ambo1(1) : Quat(3) = B : Quat(4) = Ambo2(1)
                           Ruo(1) = R1 : Ruo(2) = R2
                           Caso = Caso + 1
                           Casi = Casi + 1
                           ColoreTesto 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                           ColoreTesto 2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                           ColoreTesto 0
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(35) & Format2(A) & " + " & Format2(B) & " = " & Format2(Sab),1
                           Scrivi Space(35) & 90 & " - " & Format2(Sab) & " = " & Format2(Com90),1
                           Scrivi Space(35) & Format2(Com90) & " - " & Format2(A) & " = " & Format2(Ambo1(1)),1
                           Scrivi Space(35) & Format2(Com90) & " - " & Format2(B) & " = " & Format2(Ambo2(1)),1
                           Scrivi Space(34) & " Ambo1  " & Format2(Ambo1(1)) & " " & Format2(A),1,,,2
                           Scrivi Space(34) & " Ambo2  " & Format2(Ambo2(1)) & " " & Format2(B),1,,,2
                           Scrivi
                           Ruo(1) = R1 : Ruo(2) = R2
                           ImpostaGiocata 1,Ambo1,Ruo,Po1,Clp1
                           ImpostaGiocata 2,Ambo2,Ruo,Po1,Clp1
                           ImpostaGiocata 3,Quat,Ruo,Po2,Clp2
                           Gioca Es
                        End If
                     End If
                  Next
               Next
            Next
         End If
      Next
   Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

 

[Sakti]

Ggrazie, Salvo, hai dissipato la mia ignoranza, non immaginavo fosse un metodo ispirato all Grande Fabarri.
Non sei solo gentile, ma la tua conoscenza del Lotto è più grande di quanto immaginassi.
Grazie..

 

[salvo50]

Ciao a Tutti.

Sax71, Toon, Rudivall

Grazie.
------------------------------------------
Il Pentagono Armonico di M. Rosaria Falbo

Questo metodo cerca in 2-3 ruote quattro numeri della cinquina pentagonale e gioca per ambata il numero mancante, l'autrice per sorti superiore non l'ha specificato anche se menziona di un ambo uscito, quindi per le sorti superiori ho deciso io come fare, in ogni ruota gioco tutti i numeri, meno quello/i usciti nella stessa ruota, avevo fatto 2 script uno per 2 ruote e l'altro per 3 ruote, poi ho pensato vediamo se mi riesce come ha fatto Enplein nello script chiesto da Asuniverso, quindi un solo script per 2-3 ruote.

Option Explicit
Sub Main()
   Dim Es,Ini,Fin,R1,R2,R3,P1,P2,P3,P4,P5,P6
   Dim A,B,C,D,K1,K2,Casi,Caso,E1,E2,Salvo50,Clp1,Clp2
   Dim Num(5),Nu(5),R1R2(2),Ru1(1),Ru2(1),Ru3(1)
   Dim Posta(1),Poste(3),Amba(1),Ter1(3),ter2(3)
   Dim E3,P7,QuaR2(4),QuaR3(4),R123(3),TerR1(3)
   Posta(1) = 1
   Poste(2) = 1
   'Poste(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9790)'ESEMPIO NELL'ARTICOLO 6487
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,18)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Il Pentagono Armonico di Rosaria Falbo - Script Salvo50" & Space(10),1,,4,,3,,1
   For Es = Ini To Fin: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) = 18 Or Distanza(A,B) = 36 Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If(A <> C And B <> C And A <> D And B <> D) Then
                              If(Distanza(A,C) = 18 Or Distanza(A,C) = 36) And(Distanza(B,C) = 18 Or Distanza(B,C) = 36) _
                                 And(Distanza(A,D) = 18 Or Distanza(A,D) = 36) And(Distanza(B,D) = 18 Or Distanza(B,D) = 36)Then '<<<<<
                                 Num(1) = A
                                 Nu(1) = A
                                 For K1 = 2 To 5
                                    Num(K1) = Fuori90(Num(K1 - 1) + 18)
                                    Nu(K1) = Num(K1)
                                 Next
                                 For K2 = 1 To 5
                                    If Num(K2) = A Or Num(K2) = B Or Num(K2) = C Or Num(K2) = D Then Num(K2) = 0
                                 Next
                                 OrdinaMatrice Nu,1
                                 OrdinaMatrice Num,- 1
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es,R2,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi " Cinquina Pentagonale Completa ",1,0
                                 Scrivi StringaNumeri(Nu," ",True),1,0,,1
                                 Scrivi "  Per La Cinquina Pentagonale Manca  ",1,0
                                 Scrivi Format2(Num(1)),1,,,2
                                 Scrivi
                                 R1R2(1) = R1 : R1R2(2) = R2 : Ru1(1) = R1 : Ru2(1) = R2
                                 ImpostaGiocata 1,Num,R1R2,Posta,Clp1
                                 Ter1(1) = Num(1) : Ter1(2) = C : Ter1(3) = D
                                 ImpostaGiocata 2,Ter1,Ru1,Poste,Clp2
                                 ter2(1) = Num(1) : ter2(2) = A : ter2(3) = B
                                 ImpostaGiocata 3,ter2,Ru2,Poste,Clp2
                                 Gioca Es,1,,1
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         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) = 18 Or Distanza(A,B) = 36 Then
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     If R1 <> R2 Then
                        For P3 = 1 To 4
                           For P4 = P3 + 1 To 5
                              C = Estratto(Es,R2,P3)
                              For R3 = 1 To 12
                                 If R3 = 11 Then R3 = 12
                                 If R3 <> R1 And R3 <> R2 Then
                                    D = Estratto(Es,R3,P4)
                                    If A <> C And B <> C And A <> D And B <> D And C <> D Then
                                       If(Distanza(A,C) = 18 Or Distanza(A,C) = 36) And(Distanza(B,C) = 18 Or Distanza(B,C) = 36) _
                                          And(Distanza(A,D) = 18 Or Distanza(A,D) = 36) And(Distanza(B,D) = 18 Or Distanza(B,D) = 36)Then '<<<<<
                                          Num(1) = A
                                          Nu(1) = A
                                          For K1 = 2 To 5
                                             Num(K1) = Fuori90(Num(K1 - 1) + 18)
                                             Nu(K1) = Num(K1)
                                          Next
                                          For K2 = 1 To 5
                                             If Num(K2) = A Or Num(K2) = B Or Num(K2) = C Or Num(K2) = D Then Num(K2) = 0
                                          Next
                                          OrdinaMatrice Nu,1
                                          OrdinaMatrice Num,- 1
                                          Caso = Caso + 1
                                          Casi = Casi + 1
                                          Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                          Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                          For P5 = 1 To 5
                                             E1 = Estratto(Es,R1,P5)
                                             If E1 = A Or E1 = B Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E1) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                          For P6 = 1 To 5
                                             E2 = Estratto(Es,R2,P6)
                                             If E2 = C Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E2) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                          Scrivi "  " & SiglaRuota(R3) & "  ",1,0
                                          For P7 = 1 To 5
                                             E3 = Estratto(Es,R3,P7)
                                             If E3 = D Then
                                                ColoreTesto 2
                                             Else
                                                ColoreTesto 0
                                             End If
                                             Scrivi Format2(E3) & " ",1,0
                                             ColoreTesto 0
                                          Next
                                          Scrivi
                                          Scrivi
                                          Scrivi " Cinquina Pentagonale Completa ",1,0
                                          Scrivi StringaNumeri(Nu," ",True),1,0,,1
                                          Scrivi "  Per La Cinquina Pentagonale Manca  ",1,0
                                          Scrivi Format2(Num(1)),1,,,2
                                          Scrivi
                                          R123(1) = R1 : R123(2) = R2 : R123(3) = R3
                                          Ru1(1) = R1 : Ru2(1) = R2 : Ru3(1) = R3
                                          ImpostaGiocata 1,Num,R123,Posta,Clp1
                                          TerR1(1) = Num(1) : TerR1(2) = C : TerR1(3) = D
                                          ImpostaGiocata 2,TerR1,Ru1,Poste,Clp2
                                          QuaR2(1) = Num(1) : QuaR2(2) = A : QuaR2(3) = B : QuaR2(4) = D
                                          ImpostaGiocata 3,QuaR2,Ru2,Poste,Clp2
                                          QuaR3(1) = Num(1) : QuaR3(2) = A : QuaR3(3) = B : QuaR3(4) = C
                                          ImpostaGiocata 4,QuaR3,Ru3,Poste,Clp2
                                          Gioca Es,1
                                       End If
                                    End If
                                 End If
                              Next
                           Next
                        Next
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
End Sub

 

[salvo50]

Ciao a Tutti.

Rudivall
Grazie.

LA CHIAVE D'ORO - LA FORTUNA NEI SECOLI

Le immagini per questo metodo li ho presi dal topic - TUTTOLOTTO - post 2 immagine 5 e 6, postate da Cerberus.

TUTTOLOTTO - Immagini postate da Cerberus

Metto in questo 3D le immagini postate da Cerberus che sono sparite

forum.lottoced.com

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,IniR
   Dim R1,R2,P1,Caso,Casi,Ruota,FInR
   Dim A(5),N(5),Ruote(1),Poste(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9800)'
   Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,5)
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,12)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(14) & " La Chiave D'Oro - La Fortuna Nei Secoli - SCRIPT SALVO50" & Space(14),1,,4,,3,,1
   Poste(2) = 1
   Poste(3) = 1
   'Poste(4) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            If A(P1) = 1 Then N(1) = 24 : N(2) = 59 : N(3) = 54 : N(4) = 78 : N(5) = 85
            If A(P1) = 2 Then N(1) = 26 : N(2) = 70 : N(3) = 77 : N(4) = 40 : N(5) = 59
            If A(P1) = 3 Then N(1) = 18 : N(2) = 81 : N(3) = 41 : N(4) = 70 : N(5) = 77
            If A(P1) = 4 Then N(1) = 55 : N(2) = 61 : N(3) = 20 : N(4) = 01 : N(5) = 79
            If A(P1) = 5 Then N(1) = 71 : N(2) = 40 : N(3) = 38 : N(4) = 68 : N(5) = 90
            If A(P1) = 6 Then N(1) = 42 : N(2) = 57 : N(3) = 63 : N(4) = 44 : N(5) = 21
            If A(P1) = 7 Then N(1) = 31 : N(2) = 82 : N(3) = 54 : N(4) = 37 : N(5) = 22
            If A(P1) = 8 Then N(1) = 50 : N(2) = 46 : N(3) = 86 : N(4) = 65 : N(5) = 23
            If A(P1) = 9 Then N(1) = 36 : N(2) = 17 : N(3) = 78 : N(4) = 84 : N(5) = 60
            If A(P1) = 10 Then N(1) = 85 : N(2) = 16 : N(3) = 43 : N(4) = 48 : N(5) = 71
            If A(P1) = 11 Then N(1) = 08 : N(2) = 68 : N(3) = 17 : N(4) = 49 : N(5) = 62
            If A(P1) = 12 Then N(1) = 78 : N(2) = 24 : N(3) = 58 : N(4) = 50 : N(5) = 72
            If A(P1) = 13 Then N(1) = 07 : N(2) = 64 : N(3) = 51 : N(4) = 36 : N(5) = 28
            If A(P1) = 14 Then N(1) = 71 : N(2) = 52 : N(3) = 28 : N(4) = 74 : N(5) = 62
            If A(P1) = 15 Then N(1) = 81 : N(2) = 66 : N(3) = 53 : N(4) = 79 : N(5) = 30
            If A(P1) = 16 Then N(1) = 47 : N(2) = 54 : N(3) = 31 : N(4) = 90 : N(5) = 13
            If A(P1) = 17 Then N(1) = 20 : N(2) = 05 : N(3) = 72 : N(4) = 41 : N(5) = 86
            If A(P1) = 18 Then N(1) = 42 : N(2) = 12 : N(3) = 49 : N(4) = 21 : N(5) = 24
            If A(P1) = 19 Then N(1) = 31 : N(2) = 07 : N(3) = 85 : N(4) = 71 : N(5) = 53
            If A(P1) = 20 Then N(1) = 26 : N(2) = 38 : N(3) = 50 : N(4) = 83 : N(5) = 53
            If A(P1) = 21 Then N(1) = 34 : N(2) = 53 : N(3) = 42 : N(4) = 43 : N(5) = 06
            If A(P1) = 22 Then N(1) = 16 : N(2) = 60 : N(3) = 73 : N(4) = 41 : N(5) = 80
            If A(P1) = 23 Then N(1) = 40 : N(2) = 20 : N(3) = 89 : N(4) = 61 : N(5) = 37
            If A(P1) = 24 Then N(1) = 09 : N(2) = 57 : N(3) = 62 : N(4) = 72 : N(5) = 64
            If A(P1) = 25 Then N(1) = 12 : N(2) = 55 : N(3) = 63 : N(4) = 45 : N(5) = 82
            If A(P1) = 26 Then N(1) = 65 : N(2) = 83 : N(3) = 50 : N(4) = 68 : N(5) = 74
            If A(P1) = 27 Then N(1) = 39 : N(2) = 77 : N(3) = 78 : N(4) = 03 : N(5) = 66
            If A(P1) = 28 Then N(1) = 71 : N(2) = 61 : N(3) = 26 : N(4) = 34 : N(5) = 52
            If A(P1) = 29 Then N(1) = 43 : N(2) = 62 : N(3) = 23 : N(4) = 18 : N(5) = 74
            If A(P1) = 30 Then N(1) = 04 : N(2) = 86 : N(3) = 68 : N(4) = 47 : N(5) = 69
            If A(P1) = 31 Then N(1) = 07 : N(2) = 61 : N(3) = 64 : N(4) = 82 : N(5) = 49
            If A(P1) = 32 Then N(1) = 40 : N(2) = 17 : N(3) = 11 : N(4) = 47 : N(5) = 66
            If A(P1) = 33 Then N(1) = 21 : N(2) = 09 : N(3) = 35 : N(4) = 66 : N(5) = 28
            If A(P1) = 34 Then N(1) = 01 : N(2) = 70 : N(3) = 48 : N(4) = 20 : N(5) = 38
            If A(P1) = 35 Then N(1) = 58 : N(2) = 44 : N(3) = 29 : N(4) = 90 : N(5) = 86
            If A(P1) = 36 Then N(1) = 03 : N(2) = 61 : N(3) = 21 : N(4) = 42 : N(5) = 88
            If A(P1) = 37 Then N(1) = 16 : N(2) = 07 : N(3) = 49 : N(4) = 25 : N(5) = 47
            If A(P1) = 38 Then N(1) = 26 : N(2) = 14 : N(3) = 71 : N(4) = 23 : N(5) = 65
            If A(P1) = 39 Then N(1) = 68 : N(2) = 87 : N(3) = 15 : N(4) = 18 : N(5) = 55
            If A(P1) = 40 Then N(1) = 79 : N(2) = 06 : N(3) = 37 : N(4) = 52 : N(5) = 28
            If A(P1) = 41 Then N(1) = 17 : N(2) = 35 : N(3) = 74 : N(4) = 23 : N(5) = 39
            If A(P1) = 42 Then N(1) = 19 : N(2) = 66 : N(3) = 18 : N(4) = 30 : N(5) = 45
            If A(P1) = 43 Then N(1) = 01 : N(2) = 48 : N(3) = 22 : N(4) = 85 : N(5) = 28
            If A(P1) = 44 Then N(1) = 66 : N(2) = 17 : N(3) = 29 : N(4) = 76 : N(5) = 65
            If A(P1) = 45 Then N(1) = 21 : N(2) = 27 : N(3) = 74 : N(4) = 62 : N(5) = 66
            If A(P1) = 46 Then N(1) = 01 : N(2) = 14 : N(3) = 17 : N(4) = 21 : N(5) = 49
            If A(P1) = 47 Then N(1) = 26 : N(2) = 50 : N(3) = 41 : N(4) = 56 : N(5) = 80
            If A(P1) = 48 Then N(1) = 36 : N(2) = 15 : N(3) = 82 : N(4) = 54 : N(5) = 78
            If A(P1) = 49 Then N(1) = 19 : N(2) = 34 : N(3) = 51 : N(4) = 70 : N(5) = 37
            If A(P1) = 50 Then N(1) = 03 : N(2) = 17 : N(3) = 59 : N(4) = 38 : N(5) = 67
            If A(P1) = 51 Then N(1) = 21 : N(2) = 72 : N(3) = 46 : N(4) = 27 : N(5) = 09
            If A(P1) = 52 Then N(1) = 08 : N(2) = 13 : N(3) = 55 : N(4) = 27 : N(5) = 83
            If A(P1) = 53 Then N(1) = 05 : N(2) = 83 : N(3) = 62 : N(4) = 80 : N(5) = 26
            If A(P1) = 54 Then N(1) = 03 : N(2) = 69 : N(3) = 78 : N(4) = 23 : N(5) = 75
            If A(P1) = 55 Then N(1) = 57 : N(2) = 13 : N(3) = 64 : N(4) = 79 : N(5) = 85
            If A(P1) = 56 Then N(1) = 71 : N(2) = 14 : N(3) = 62 : N(4) = 41 : N(5) = 34
            If A(P1) = 57 Then N(1) = 18 : N(2) = 61 : N(3) = 31 : N(4) = 06 : N(5) = 38
            If A(P1) = 58 Then N(1) = 45 : N(2) = 29 : N(3) = 07 : N(4) = 27 : N(5) = 89
            If A(P1) = 59 Then N(1) = 45 : N(2) = 89 : N(3) = 20 : N(4) = 46 : N(5) = 55
            If A(P1) = 60 Then N(1) = 13 : N(2) = 37 : N(3) = 57 : N(4) = 23 : N(5) = 75
            If A(P1) = 61 Then N(1) = 49 : N(2) = 55 : N(3) = 74 : N(4) = 23 : N(5) = 90
            If A(P1) = 62 Then N(1) = 41 : N(2) = 56 : N(3) = 60 : N(4) = 23 : N(5) = 66
            If A(P1) = 63 Then N(1) = 40 : N(2) = 51 : N(3) = 48 : N(4) = 07 : N(5) = 81
            If A(P1) = 64 Then N(1) = 82 : N(2) = 04 : N(3) = 43 : N(4) = 86 : N(5) = 21
            If A(P1) = 65 Then N(1) = 24 : N(2) = 59 : N(3) = 26 : N(4) = 14 : N(5) = 75
            If A(P1) = 66 Then N(1) = 54 : N(2) = 15 : N(3) = 69 : N(4) = 84 : N(5) = 02
            If A(P1) = 67 Then N(1) = 09 : N(2) = 02 : N(3) = 38 : N(4) = 46 : N(5) = 79
            If A(P1) = 68 Then N(1) = 29 : N(2) = 54 : N(3) = 11 : N(4) = 32 : N(5) = 83
            If A(P1) = 69 Then N(1) = 63 : N(2) = 27 : N(3) = 03 : N(4) = 18 : N(5) = 81
            If A(P1) = 70 Then N(1) = 13 : N(2) = 55 : N(3) = 74 : N(4) = 35 : N(5) = 58
            If A(P1) = 71 Then N(1) = 11 : N(2) = 49 : N(3) = 14 : N(4) = 59 : N(5) = 31
            If A(P1) = 72 Then N(1) = 33 : N(2) = 48 : N(3) = 82 : N(4) = 15 : N(5) = 56
            If A(P1) = 73 Then N(1) = 15 : N(2) = 04 : N(3) = 47 : N(4) = 61 : N(5) = 01
            If A(P1) = 74 Then N(1) = 12 : N(2) = 82 : N(3) = 23 : N(4) = 42 : N(5) = 57
            If A(P1) = 75 Then N(1) = 60 : N(2) = 18 : N(3) = 51 : N(4) = 70 : N(5) = 39
            If A(P1) = 76 Then N(1) = 01 : N(2) = 52 : N(3) = 37 : N(4) = 15 : N(5) = 25
            If A(P1) = 77 Then N(1) = 74 : N(2) = 22 : N(3) = 40 : N(4) = 35 : N(5) = 47
            If A(P1) = 78 Then N(1) = 15 : N(2) = 54 : N(3) = 44 : N(4) = 01 : N(5) = 30
            If A(P1) = 79 Then N(1) = 40 : N(2) = 18 : N(3) = 85 : N(4) = 03 : N(5) = 73
            If A(P1) = 80 Then N(1) = 25 : N(2) = 68 : N(3) = 05 : N(4) = 83 : N(5) = 84
            If A(P1) = 81 Then N(1) = 42 : N(2) = 84 : N(3) = 19 : N(4) = 87 : N(5) = 20
            If A(P1) = 82 Then N(1) = 67 : N(2) = 41 : N(3) = 16 : N(4) = 53 : N(5) = 04
            If A(P1) = 83 Then N(1) = 14 : N(2) = 62 : N(3) = 09 : N(4) = 61 : N(5) = 31
            If A(P1) = 84 Then N(1) = 42 : N(2) = 81 : N(3) = 78 : N(4) = 11 : N(5) = 37
            If A(P1) = 85 Then N(1) = 16 : N(2) = 67 : N(3) = 82 : N(4) = 73 : N(5) = 34
            If A(P1) = 86 Then N(1) = 02 : N(2) = 60 : N(3) = 34 : N(4) = 56 : N(5) = 71
            If A(P1) = 87 Then N(1) = 30 : N(2) = 72 : N(3) = 63 : N(4) = 12 : N(5) = 42
            If A(P1) = 88 Then N(1) = 13 : N(2) = 46 : N(3) = 73 : N(4) = 12 : N(5) = 69
            If A(P1) = 89 Then N(1) = 47 : N(2) = 50 : N(3) = 60 : N(4) = 56 : N(5) = 87
            If A(P1) = 90 Then N(1) = 44 : N(2) = 13 : N(3) = 78 : N(4) = 39 : N(5) = 52
            If P1 = 1 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
               Scrivi StringaEstratti(Es,R1),1,,,1
            End If
            Scrivi
            Scrivi " L'Estratto " & Format2(A(P1)) & "  Genera i Simpatici ",1,0,,1
            Scrivi StringaNumeri(N," ",True),1,,,2
            Scrivi
            Ruote(1) = R1
            ImpostaGiocata P1,N,Ruote,Poste,Clp,2
            Gioca Es,1,,1
            Scrivi
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[salvo50]

Ciao a Tutti

Ruduvall
Grazie

Il 7 Un Vero Artista... di Maria Rosaria Falbo

Option Explicit
Sub Main
   Dim Es,Ini,Fin,R1,P1,P2,P5,DiAB,Clp
   Dim A,B,S,K1,Casi,Caso,E1,Salvo50
   Dim Num(13),Ruo(2),X1,X2,IndM
   Dim Posta(2),Ambo1(2),Ambo2(2)
   Posta(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9790)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambo?",,12)
   IndM = CInt(InputBox("Inserisci il numero dell'indice mensile",,2))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(11) & "Il 7 Un Vero Artista... di Maria Rosaria Falbo - Script Salvo50" & Space(11),1,,4,,3,,1
   For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
      If IndiceMensile(Es) = IndM Then
         Caso = 0
         For R1 = 1 To 12
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  S = ""
                  DiAB = Differenza(A,B)
                  If DiAB = 7 Or DiAB = 14 Or DiAB = 21 Or DiAB = 28 Or DiAB = 35 Or DiAB = 42 Or DiAB = 49 _
                     Or DiAB = 56 Or DiAB = 63 Or DiAB = 70 Or DiAB = 77 Or DiAB = 84 Then
                     Num(1) = A
                     For K1 = 2 To 13
                        Num(K1) = FuoriX((Num(K1 - 1) + 7),91)
                     Next
                     OrdinaMatrice Num,1
                     If Num(1) = 1 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore ROSSO   -> "
                     If Num(1) = 2 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore ARANCIO -> "
                     If Num(1) = 3 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore GIALLO  -> "
                     If Num(1) = 4 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore VERDE   -> "
                     If Num(1) = 5 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore BLEU    -> "
                     If Num(1) = 6 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore INDACO  -> "
                     If Num(1) = 7 Then S = S & "I Numeri Dell'Arcobaleno Appartenenti al Colore VIOLA   -> "
                     Ambo1(1) = Fuori90(A + 7) : Ambo1(2) = Fuori90(B + 7)
                     Ambo2(1) = Fuori90(90 +(A - 7)) : Ambo2(2) = Fuori90(90 +(B - 7))
                     Ruo(1) = TU_
                     X1 = 0 : X2 = 0
                     If SerieFreq(Es - 8,Es,Ambo1,Ruo,2) = 0 Then X1 = 1
                     If SerieFreq(Es - 8,Es,Ambo2,Ruo,2) = 0 Then X2 = 1
                     If(X1 = 1 Or X2 = 1) Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",True,False
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi S & " ",True,False
                        Scrivi StringaNumeri(Num," ",True),True,,,1
                        Scrivi
                        If X1 = 1 Then ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp,2
                        If X2 = 1 Then ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp,2
                        Gioca Es,True,,1
                     End If
                  End If
               Next
            Next
            If ScriptInterrotto Then Exit Sub
         Next
      End If
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

 

[Sakti]

Salvo, sei sempre Magico, ci doni sempre dei lavori magistralmente redatti.
GRAZIE

 

[salvo50]

Ciao a Tutti

Matematico, Toon, Rudivall
Grazie.

CICLOMETRIA COSTANTE a cura di LUCIANA GIORGETTI

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp1,Clp2,Es,Salvo50,Som_Com
   Dim R1,R2,P1,P2,P5,P6,E1,E2,Caso,Casi,Abb
   Dim SAB,SCD,SAC,SBD,SAD,SBC,DAB,DCD,Ind_M
   Dim Amba(1),Qua(4),Ru(2),Posta(1),Poste(4)
   Posta(1) = 1
   Poste(2) = 1
   'Poste(3) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9820))
   Clp1 = CInt(InputBox("Inserisci i Colpi di Gioco per l'ambata",Salvo50,5))
   Clp2 = CInt(InputBox("Inserisci i Colpi di Gioco per la quartina",Salvo50,7))

   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(9) & " CICLOMETRIA COSTANTE a cura di LUCIANA GIORGETTI - SCRIPT SALVO50" & Space(12),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es & "     Tempo Trascorso " & TempoTrascorso
      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)
               R2 = R1 + 1
               If R2 = 11 Then R2 = 12
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               If A > 0 And C > 0 Then
                  'A---B
                  '|   |
                  'C---D
                  If A <> C And A <> D And B <> C And B <> D Then
                     DAB = Distanza(A,B) : DCD = Distanza(C,D)
                     SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : SAC = Fuori90(A + C)
                     SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                     If DAB = DCD Then
                        If(SAB = SCD)Xor(SAC = SBD) Xor(SAD = SBC) Then
                           If SAB = SCD Then Som_Com = SAB
                           If SAC = SBD Then Som_Com = SBD
                           If SAD = SBC Then Som_Com = SAD
                           Abb = Fuori90((Som_Com + 90) - DAB)
                           Amba(1) = Fuori90(Som_Com + DAB)
                           Qua(1) = Amba(1) : Qua(2) = DAB : Qua(3) = Som_Com : Qua(4) = Abb
                           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 P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi " <-- Evidenziati Con Distanza ",1,0,,1
                           Scrivi Format2(DAB),1,,,2
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi " <-- Evidenziati Con Distanza ",1,0,,1
                           Scrivi Format2(DCD),1,,,2
                           Scrivi
                           Scrivi Space(21) & " (Almeno un gruppo con somme uguali)",1,,,2
                           Scrivi Space(7) & "Estratti " & Space(7) & "Somme " & Space(8) & " Somme",1,0
                           Scrivi Space(8) & " Somme",1
                           Scrivi Space(7) & "Isotopi " & Space(5) & "Orizzontali" & Space(5),1,0
                           Scrivi "Verticali     Diagonali",1
                           Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
                           Scrivi Space(13) & Format2(SAC) & Space(12) & Format2(SAD),1
                           Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
                           Scrivi Space(13) & Format2(SBD) & Space(12) & Format2(SBC),1
                           Scrivi
                           Scrivi Space(10) & Format2(Som_Com) & " + " & Format2(DAB) & " = " & Format2(Amba(1)) & "  Ambata",1
                           Scrivi Space(10) & Format2(Som_Com) & " - " & Format2(DAB) & " = " & Format2(Abb) & "  Abbinamento 1",1
                           Scrivi "     Somme Uguali   " & Format2(Som_Com) & "  Abbinamento 2",1
                           Scrivi "  Distanze Uguali   " & Format2(DAB) & "  Abbinamento 3",1
                           Scrivi
                           Ru(1) = R1 : Ru(2) = R2
                           ImpostaGiocata 1,Amba,Ru,Posta,Clp1
                           ImpostaGiocata 2,Qua,Ru,Poste,Clp2
                           Gioca Es,1,,1
                        End If
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

 

[salvo50]

Ciao a Tutti.

Matematico, Rudivall
Grazie

La Super Chiave 7 e il Terno Secco di Marco Senesi

Il pronostico di questo metodo è composto da 2 ambi e da 4 terni secchi, poi tutti i numeri raggruppati in una lunghetta di 12 numeri che può essere anche di meno (numeri) per via dei doppioni.
Il pronostico degli ambi e terni lo fatto con ImpostaGiocata, dato che ImpostaGiocata gestisce massimo 10 numeri, la lunghetta l'ho pronosticata con Verificaesito in tabella, naturalmente le eventuali vincite della lunghetta non sono riportate nel resoconto di ImpostaGiocata

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Nov,Ok,A,B,A1,B1,P1,P2,K
   Dim R1,R2,Casi,Capo_G,Diam_A,Fisso7,Fisso90
   Dim Conta,Retesito,Retcolpi,Retestratti,Retid,C1
   Dim Ruota(3),Posta(2),Poste(3),Abb(12)
   Dim Ambo1(2),Ambo2(2),Terno1(3),Terno2(3)
   Dim Terno3(3),Terno4(3),Ruote(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,6534)'Estrazione 6534 primo esempio, 6578 secondo esempio
   Clp1 = InputBox("Per quanti colpi vuoi giocare ?",,10)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & " La Super Chiave 7 e il Terno Secco di Marco Senesi - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   R1 = BA_
   R2 = VE_
   Fisso7 = 7
   Fisso90 = 90
   ReDim aT(7)
   aT(1) = " data estraz. INIZIO  "
   aT(2) = " Ruote "
   aT(3) = " Numeri in Gioco "
   aT(4) = " Esito "
   aT(5) = " Colpo "
   aT(6) = " Estratti "
   aT(7) = " Data estraz. Fine "
   Call InitTabella(aT,1,,3,5)
   Scrivi
   For Es = Ini To FIn
      Messaggio Es
        AvanzamentoElab Ini,FIn,Es
      A = Estratto(Es,R1,1)
      B = Estratto(Es,R2,5)
      If A > 0 And B > 0 Then
         If B = 45 And A > B Then
            Ok = 0
            'Inizio Esclusione Estrazione con Estratti Uguali
            For P1 = 1 To 5
               If Ok = 1 Then Exit For
               For P2 = 1 To 5
                  If Ok = 1 Then Exit For
                  A1 = Estratto(Es,R1,P1)
                  B1 = Estratto(Es,R2,P2)
                  If A1 = B1 Then Ok = 1
               Next
            Next
            'Fine Esclusione Estrazione con Estratti Uguali
            If Ok = 0 Then
               Ruota(1) = R1 : Ruota(2) = R2 : Ruota(3) = TT_
               Ruote(1) = R1 : Ruote(2) = R2
               Diam_A = Diametrale(A)
               Capo_G = Fuori90(Diam_A + Fisso7)
               Ambo1(1) = Capo_G : Ambo1(2) = B
               Ambo2(1) = Capo_G : Ambo2(2) = A
               If Capo_G <> B Then
                  'Abbinamenti per terno al fisso 90
                  Abb(1) = Fuori90(Capo_G + 2) : Abb(2) = Fuori90(90 +(Capo_G - 2))
                  Abb(3) = Fuori90(Capo_G + 3) : Abb(4) = Fuori90(90 +(Capo_G - 3))
                  Abb(5) = Fuori90(B - Capo_G) : Abb(6) = Fuori90(Fisso90 - Capo_G)
                  Abb(7) = Fuori90((A + 2)) : Abb(8) = Fuori90(90 +(A - 2))
                  Abb(9) = A : Abb(10) = B : Abb(11) = Capo_G : Abb(12) = Fisso90
                  '--------------------------------------------------------------
                  Terno1(1) = Fisso90 : Terno1(2) = Abb(1): Terno1(3) = Abb(2)
                  Terno2(1) = Fisso90 : Terno2(2) = Abb(3): Terno2(3) = Abb(4)
                  Terno3(1) = Fisso90 : Terno3(2) = Abb(5): Terno3(3) = Abb(6)
                  Terno4(1) = Fisso90 : Terno4(2) = Abb(7): Terno4(3) = Abb(8)
                  Casi = Casi + 1
                  EliminaRipetuti Abb
                  Call VerificaEsito(Abb,Ruote,Es + 1,2,Clp1,Nothing,Retesito,Retcolpi,Retestratti,Retid)
                  ReDim aV(7)
                  aV(1) = "(" & Format2(Es) & ") (" & DataEstrazione(Es) & ")"
                  aV(2) = NomeRuota(R1) & " - " & NomeRuota(R2)
                  aV(3) = StringaNumeri(Abb," ",True)
                  aV(4) = Retesito
                  aV(5) = Retcolpi
                  aV(6) = Retestratti
                  If Retesito = "" Then aV(7) = " Esito Non Verificato "
                  If Retesito <> "" Then aV(7) = DataEstrazione(Retid)
                  Call AddRigaTabella(aV,,,3)
                  Scrivi String(96,"*") & " Caso " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                  Scrivi "   Il Primo  Estratto " & FormatSpace(NomeRuota(R1),7),1,0
                  Scrivi " = Abbinamento 9 ",1,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,0
                  Scrivi "   Il Quinto Estratto " & FormatSpace(NomeRuota(R2),7),1,0
                  Scrivi " = Abbinamento 10 ",1,,,2
                  Scrivi
                  Scrivi Space(5) & " Diametrale Primo Estratto " & NomeRuota(R1) & " Uguale " & Format2(Diam_A),1
                  Scrivi Space(5) & " Capogioco " & Format2(Capo_G) & " Uguale a Diametrale ",1,0
                  Scrivi Format2(Diam_A) & " + il Fisso " & Format2(Fisso7),1
                  Scrivi Space(22) & " Ambi ",1,,,2
                  Scrivi Space(15) & "(" & Format2(Capo_G) & " " & Format2(B) & ")" & Space(5) & "(" & Format2(Capo_G) & " " & Format2(A) & ")",1
                  Scrivi Space(11) & "Abbinamenti per Terno al Fisso 90 ",1,,,1
                  Scrivi Space(10) & Format2(Capo_G) & " + Il Fisso 2 = " & Format2(Abb(1)),1,0
                  Scrivi " Abbinamento 1",1,0,,2
                  Scrivi Space(10) & Format2(Fisso90) & " " & Format2(Abb(1)) & " " & Format2(Abb(2)) & " Terno 1",1
                  Scrivi Space(10) & Format2(Capo_G) & " - Il Fisso 2 = " & Format2(Abb(2)),1,0
                  Scrivi " Abbinamento 2",1,,,2
                  Scrivi Space(10) & Format2(Capo_G) & " + Il Fisso 3 = " & Format2(Abb(3)),1,0
                  Scrivi " Abbinamento 3",1,0,,2
                  Scrivi Space(10) & Format2(Fisso90) & " " & Format2(Abb(3)) & " " & Format2(Abb(4)) & " Terno 2",1
                  Scrivi Space(10) & Format2(Capo_G) & " - Il Fisso 3 = " & Format2(Abb(4)),1,0
                  Scrivi " Abbinamento 4",1,,,2
                  Scrivi Space(10) & Format2(B) & " - " & Format2(Capo_G) & Space(8) & " = " & Format2(Abb(5)),1,0
                  Scrivi " Abbinamento 5",1,0,,2
                  Scrivi Space(10) & Format2(Fisso90) & " " & Format2(Abb(5)) & " " & Format2(Abb(6)) & " Terno 3",1
                  Scrivi Space(10) & Format2(Fisso90) & " - " & Format2(Capo_G) & Space(8) & " = " & Format2(Abb(6)),1,0
                  Scrivi " Abbinamento 6",1,,,2
                  Scrivi Space(10) & Format2(A) & " + Il Fisso 2 = " & Format2(Abb(7)),1,0
                  Scrivi " Abbinamento 7",1,0,,2
                  Scrivi Space(10) & Format2(Fisso90) & " " & Format2(Abb(7)) & " " & Format2(Abb(8)) & " Terno 4",1
                  Scrivi Space(10) & Format2(A) & " - Il Fisso 2 = " & Format2(Abb(8)),1,0
                  Scrivi " Abbinamento 8",1,,,2
                  Scrivi Space(1) & " Lunghetta Abbinamenti più il fisso 90 ed il Capogioco ",1,0,,1
                  Scrivi Format2(Capo_G) & "  -  " & StringaNumeri(Abb," ",True),1,,,1
                  Scrivi
                  ImpostaGiocata 1,Ambo1,Ruota,Posta,Clp1
                  ImpostaGiocata 2,Ambo2,Ruota,Posta,Clp1
                  ImpostaGiocata 3,Terno1,Ruota,Poste,Clp1
                  ImpostaGiocata 4,Terno2,Ruota,Poste,Clp1
                  ImpostaGiocata 5,Terno3,Ruota,Poste,Clp1
                  ImpostaGiocata 6,Terno4,Ruota,Poste,Clp1
                  Gioca Es,1,,1
               End If
            End If
         End If
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   Call CreaTabella
   ScriviResoconto
End Sub

 

[Matematico]

Ciao salvo50 , questo l'ho appena trovato nel forum "ambolotto" di Enplein ed è stato postato dall'utente : fede53,
A mio avviso è davvero interessante e varrebbe la pena farne uno script ...grazie in anticipo .

Prof. Fedele Daneval : L'Armonia triplare
1° parte
Regola Prima
Per trovare tre terzine mensili che sommate e sviluppate in piramide, daranno come risultato un solo numero da giocare per tre colpi!
Si opera sulle due ultime estrazioni del mese:
Es.: il 21 settembre 1872 sortirono sulla ruota di Napoli: 70 – 69 – 28 – 68 – 82
Nell’estrazione successiva del 28 settembre uscirono: 10 – 36 – 13 – 61 – 72
Per iniziare si segnano su di una stessa linea orizzontale il primo estratto della penultima estrazione che nel nostro caso è il 70, quindi il secondo e terzo dell’ultima e cioè 36 e 13:
70 – 36 – 13
Sotto il 70 verrà posto il primo estratto dell’ultima estrazione che in questo caso è il 10:
70 – 36 – 13
10
Quindi dovranno essere sommati il 10 e 70, ed il totale si porrà sotto il 36. Tale somma verrà a sua volta addizionata al 36 e con il risultato ottenuto si procederà alla stesso modo come spiegato in precedenza. Ecco l’esempio pratico:
Procedimento per il primo estratto della penultima estrazione
70 – 36 – 13
10 – 80 – 26
_ _ _
80 26 39 (somma delle terzine)
Nello stesso modo si procederà con il secondo estratto della penultima estrazione accanto al quale verranno posti il terzo e quarto estratto dell’ultima estrazione:
Procedimento per il secondo estratto della penultima estrazione
69 – 13 – 61
36 – 15 – 28
_ _ _
15 28 89 (somma delle terzine)
Allo stesso modo si opera con il terzo estratto:
Procedimento per il terzo estratto della penultima estrazione
28 – 61 – 72
13 – 41 – 12
_ _ _
41 12 84
In questo modo si vengono ad ottenere le seguenti terzine che andranno sommate:
80 – 26 – 39
15 – 28 – 89
41 – 12 – 84
_ _ _
46 66 32 (somma delle terzine)
A questo punto il risultato verrà sviluppato in piramide:
466632
13395
4635
198
18
Ecco l’ambata da giocare nelle tre successive estrazioni a ruota secca. Difatti nella successiva estrazione del 5 ottobre sortì l’ambata 18 sulla stessa ruota di Napoli!
(continua)

...



Prof. Fedele Daneval : L'Armonia triplare
2° ed ultima parte
Per trovare una sola terzina che sviluppata in piramide, darà come risultato una sola ambata da giocare per le tre estrazioni successive!
Ogni volta che nella medesima estrazione escono due numeri della stessa figura si scriveranno sopra una sola riga, segnandoli nel loro ordine di uscita; quindi si unirà la decina del primo con la decina del secondo, l’unità del primo e l’unità del secondo (avvertendo che quando uno dei due numeri della stessa figura è un numero semplice lo si dovrà sempre far precedere dallo zero). Una volta ottenuti i due numeri si prenderà la distanza che passa dal primo al secondo degli stessi e questa si scriverà alla loro destra, in questo modo si otterrà la terzina desiderata.
Es. Estrazione del 25 gennaio 1873 sulla ruota di Napoli: 78, 83, 59, 2, 64
I due numeri con la stessa figura sono l’83 (8 + 3 =11; 11 – 9 = 2) ed il 02 (dato che si tratta di un numero semplice va preceduto dallo zero).
Riunendo come detto sopra le cifre di decina ed unità si ottengono i due seguenti numeri: 80, 32.
La distanza dall’80 al 32 è 42 (32 + 90= 122; 122 – 80 = 42).
Ecco la terzina desiderata: 80 – 32 – 42
Sviluppiamola in piramide nel seguente modo:
803242
83566
2823
115
26
Il numero ottenuto va giocato per soli tre colpi: difatti nella seconda estrazione successiva l’8 febbraio sortì sulla stessa ruota di Napoli il numero 26!
Regola Terza
Per trovare una sola terzina che sviluppata in piramide darà come risultato due numeri ottimi sia per il gioco dell’ambata sia per quello dell’ambo.
Si opera allo stesso modo della regola precedente, prendendo nella medesima estrazione due numeri della stessa figura riunendo le decine e le unità, e prendendo infine la distanza da un numero all’altro che verrà posta alla destra dei due numeri ottenuti.
Es. nell’estrazione del 4 gennaio 1873 uscirono sulla ruota di Napoli i seguenti numeri: 86, 80, 72, 35, 77.
L’86 ed il 77 hanno la medesima figura di 5.
Riunendo le decine si ottiene il numero 87, e riunendo le unità si ottiene il 67 che si scriverà a destra dell’87. Ora si prenda la distanza che passa dall’87 al 67 che è 70 (67 + 90 = 157; 157 – 87 = 70) e si scrive alla destra del 67 nel modo seguente:
87 67 70
I tre numeri ottenuti vanno sviluppati in piramide fino ad avere altri due numeri da giocare per ambate ed ambo secco:
876770
64457
1893
Il 18 ed il 3 costituiranno l’ambo e le ambate da giocare per le tre successive estrazioni. Difatti già nell’estrazione successiva dell’11 gennaio sortì l’ambata 3 sulla stessa ruota di Napoli!

 

[salvo50]

Ciao Matematico, ci provo.

 

[Matematico]

Grazie salvo50

 

[salvo50]

Ciao a Tutti.

Matematico, Rudivall, Silvix.
Grazie

Armonia Triplare 1 - 2 - 3

Di script ne ho fatto 3 ognuno per conta suo.

Armonia Triplare 1 di Fedele Davenal

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,FInR
   Dim R1,Caso,Casi,P1,IniR,Sp,Bas,X,Cusp
   Dim A(5),B(5),Som(12),XBas(3)
   Dim Num(1),Ruo(1),Posta(1)
   Sp = " "
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700) '91 esempio nelle spiegazioni
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ",,3))
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   FIn = EstrazioneFin
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Armonia Triplare 1 di Fedele Davenal - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IsUltimaDelMese(Es) Then
         Caso = 0
         For R1 = IniR To FInR
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 5
               A(P1) = Estratto(Es - 1,R1,P1)
               B(P1) = Estratto(Es,R1,P1)
            Next
            Som(1) = Fuori90(A(1) + B(1))
            Som(2) = Fuori90(Som(1) + B(2))
            Som(3) = Fuori90(Som(2) + B(3))
            '
            Som(4) = Fuori90(A(2) + B(2))
            Som(5) = Fuori90(Som(4) + B(3))
            Som(6) = Fuori90(Som(5) + B(4))
            '
            Som(7) = Fuori90(A(3) + B(3))
            Som(8) = Fuori90(Som(7) + B(4))
            Som(9) = Fuori90(Som(8) + B(5))
            '
            Som(10) = Fuori90(Som(1) + Som(4) + Som(7))
            Som(11) = Fuori90(Som(2) + Som(5) + Som(8))
            Som(12) = Fuori90(Som(3) + Som(6) + Som(9))
            XBas(1) = Som(10) : XBas(2) = Som(11) : XBas(3) = Som(12)
            Bas = StringaNumeri(XBas,"",True)
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es - 1,R1),1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1),1
            Scrivi
            Scrivi "Gruppo 1" & Space(10) & "Gruppo 2" & Space(10) & "Gruppo 3" & Space(6) & "Somma delle somme Gr. 1-2-3",1,,,7
            Scrivi Format2(A(1)) & Sp & Format2(B(2)) & Sp & Format2(B(3)) & Space(10),1,0
            Scrivi Format2(A(2)) & Sp & Format2(B(3)) & Sp & Format2(B(4)) & Space(10),1,0
            Scrivi Format2(A(3)) & Sp & Format2(B(4)) & Sp & Format2(B(5)) & Space(15),1,0
            Scrivi Format2(Som(1)) & Sp & Format2(Som(2)) & Sp & Format2(Som(3)),1,,,1
            Scrivi Format2(B(1)) & Sp & Format2(Som(1)) & Sp & Format2(Som(2)) & Space(10),1,0
            Scrivi Format2(B(2)) & Sp & Format2(Som(4)) & Sp & Format2(Som(5)) & Space(10),1,0
            Scrivi Format2(B(3)) & Sp & Format2(Som(7)) & Sp & Format2(Som(8)) & Space(15),1,0
            Scrivi Format2(Som(4)) & Sp & Format2(Som(5)) & Sp & Format2(Som(6)),1,,,1
            Scrivi String(8,"-") & Space(10) & String(8,"-") & Space(10) & String(8,"-"),1,0,,2
            Scrivi Space(15) & Format2(Som(7)) & Sp & Format2(Som(8)) & Sp & Format2(Som(9)),1,,,1
            Scrivi Format2(Som(1)) & Sp & Format2(Som(2)) & Sp & Format2(Som(3)) & Space(10),1,0
            Scrivi Format2(Som(4)) & Sp & Format2(Som(5)) & Sp & Format2(Som(6)) & Space(10),1,0
            Scrivi Format2(Som(7)) & Sp & Format2(Som(8)) & Sp & Format2(Som(9)),1,0
            Scrivi Space(15) & String(8,"-"),1
            Scrivi Space(59) & Format2(Som(10)) & Sp & Format2(Som(11)) & Sp & Format2(Som(12)),1,,,2
            Scrivi
            Scrivi Space(28) & StringaNumeri(XBas,"",True),1,,,2
            For X = 1 To Len(Bas) - 2
               Cusp =(Piramide(Bas,X))
               Scrivi Space(28) &(Piramide(Bas,X)),1
            Next
            Num(1) = Fuori90(Cusp)
            Ruo(1) = R1
            Scrivi
            ImpostaGiocata 1,Num,Ruo,Posta,Clp
            Gioca Es
         Next
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub

Armonia Triplare 2 di Fedele Davenal

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,FInR,IniR
   Dim R1,Caso,Casi,P1,P2,P3,E1,Sp,Bas,X,Cusp
   Dim A,B,C,A1,B1,C1,FgA,FgB,CadA,CadB,DecA,DecB
   Dim Num(1),Ruo(1),Posta(1),XBas(3)
   Sp = " "
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)'108 estrazione nelle spiegazioni
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ",,3))
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   FIn = EstrazioneFin
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Armonia Triplare 2 di Fedele Davenal - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               FgA = Figura(A) : FgB = Figura(B)
               If FgA = FgB Then
                  DecA = Decina(A) : DecB = Decina(B)
                  CadA = Cadenza(A) : CadB = Cadenza(B)
                  A1 = DecA & DecB : B1 = CadA & CadB
                  C1 = Fuori90((B1 + 90) - A1)
                  XBas(1) = A1 : XBas(2) = B1 : XBas(3) = C1
                  Bas = StringaNumeri(XBas,"",True)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then ColoreTesto 2 Else ColoreTesto 0
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi "  <-- Cadenza di " & Format2(A) & " Cambiata con Decina " & Format2(B) & " e Viceversa ",1,0
                  Scrivi Format2(A1) & Sp & Format2(B1),1
                  Scrivi
                  Scrivi Space(5) & Format2(C1) & " = " & Format2(B1) & " - " & Format2(A1) & Space(25),1,0
                  Scrivi " La base della piramide e formata dai numeri ",1,0
                  Scrivi StringaNumeri(XBas," ",True),1,,,7
                  Scrivi Space(28) & StringaNumeri(XBas,"",True),1,,,2
                  For X = 1 To Len(Bas) - 2
                     Cusp =(Piramide(Bas,X))
                     Scrivi Space(28) &(Piramide(Bas,X)),1
                  Next
                  Num(1) = Fuori90(Cusp)
                  Ruo(1) = R1
                  Scrivi
                  ImpostaGiocata 1,Num,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Armonia Triplare 3 di Fedele Davenal

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,FInR,IniR
   Dim R1,Caso,Casi,P1,P2,P3,E1,Sp,Bas,X,Cusp
   Dim A,B,C,A1,B1,C1,FgA,FgB,CadA,CadB,DecA,DecB
   Dim Num(2),Ruo(1),Posta(2),XBas(3)
   Sp = " "
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)'105 estrazione nelle spiegazioni
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ",,3))
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   FIn = EstrazioneFin
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Armonia Triplare 3 di Fedele Davenal - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Posta(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               FgA = Figura(A) : FgB = Figura(B)
               If FgA = FgB Then
                  DecA = Decina(A) : DecB = Decina(B)
                  CadA = Cadenza(A) : CadB = Cadenza(B)
                  A1 = DecA & DecB : B1 = CadA & CadB
                  C1 = Fuori90((B1 + 90) - A1)
                  XBas(1) = A1 : XBas(2) = B1 : XBas(3) = C1
                  Bas = StringaNumeri(XBas,"",True)
                  For X = 1 To Len(Bas) - 4
                     Cusp =(Piramide(Bas,X))
                  Next
                  Num(1) = Fuori90(Cusp \ 100)
                  Num(2) = Fuori90(Cusp -(Num(1) * 100))
                  If Num(1) <> Num(2) Then

                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then ColoreTesto 2 Else ColoreTesto 0
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi "  <-- Cadenza di " & Format2(A) & " Cambiata con Decina " & Format2(B) & " e Viceversa ",1,0
                  Scrivi Format2(A1) & Sp & Format2(B1),1
                  Scrivi
                  Scrivi Space(5) & Format2(C1) & " = " & Format2(B1) & " - " & Format2(A1) & Space(25),1,0
                  Scrivi " La base della piramide e formata dai numeri ",1,0
                  Scrivi StringaNumeri(XBas," ",True),1,,,7
                  Scrivi Space(28) & StringaNumeri(XBas,"",True),1,,,2
                  For X = 1 To Len(Bas) - 4
                     Scrivi Space(28) &(Piramide(Bas,X)),1
                  Next
                  Ruo(1) = R1
                  Scrivi
                  ImpostaGiocata 1,Num,Ruo,Posta,Clp
                  Gioca Es
               End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Matematico]

Ciao a Tutti.

Matematico, Rudivall, Silvix.
Grazie

Armonia Triplare 1 - 2 - 3

Di script ne ho fatto 3 ognuno per conta suo.

Armonia Triplare 1 di Fedele Davenal

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,FInR
   Dim R1,Caso,Casi,P1,IniR,Sp,Bas,X,Cusp
   Dim A(5),B(5),Som(12),XBas(3)
   Dim Num(1),Ruo(1),Posta(1)
   Sp = " "
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700) '91 esempio nelle spiegazioni
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ",,3))
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   FIn = EstrazioneFin
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Armonia Triplare 1 di Fedele Davenal - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IsUltimaDelMese(Es) Then
         Caso = 0
         For R1 = IniR To FInR
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 5
               A(P1) = Estratto(Es - 1,R1,P1)
               B(P1) = Estratto(Es,R1,P1)
            Next
            Som(1) = Fuori90(A(1) + B(1))
            Som(2) = Fuori90(Som(1) + B(2))
            Som(3) = Fuori90(Som(2) + B(3))
            '
            Som(4) = Fuori90(A(2) + B(2))
            Som(5) = Fuori90(Som(4) + B(3))
            Som(6) = Fuori90(Som(5) + B(4))
            '
            Som(7) = Fuori90(A(3) + B(3))
            Som(8) = Fuori90(Som(7) + B(4))
            Som(9) = Fuori90(Som(8) + B(5))
            '
            Som(10) = Fuori90(Som(1) + Som(4) + Som(7))
            Som(11) = Fuori90(Som(2) + Som(5) + Som(8))
            Som(12) = Fuori90(Som(3) + Som(6) + Som(9))
            XBas(1) = Som(10) : XBas(2) = Som(11) : XBas(3) = Som(12)
            Bas = StringaNumeri(XBas,"",True)
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es - 1,R1),1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1),1
            Scrivi
            Scrivi "Gruppo 1" & Space(10) & "Gruppo 2" & Space(10) & "Gruppo 3" & Space(6) & "Somma delle somme Gr. 1-2-3",1,,,7
            Scrivi Format2(A(1)) & Sp & Format2(B(2)) & Sp & Format2(B(3)) & Space(10),1,0
            Scrivi Format2(A(2)) & Sp & Format2(B(3)) & Sp & Format2(B(4)) & Space(10),1,0
            Scrivi Format2(A(3)) & Sp & Format2(B(4)) & Sp & Format2(B(5)) & Space(15),1,0
            Scrivi Format2(Som(1)) & Sp & Format2(Som(2)) & Sp & Format2(Som(3)),1,,,1
            Scrivi Format2(B(1)) & Sp & Format2(Som(1)) & Sp & Format2(Som(2)) & Space(10),1,0
            Scrivi Format2(B(2)) & Sp & Format2(Som(4)) & Sp & Format2(Som(5)) & Space(10),1,0
            Scrivi Format2(B(3)) & Sp & Format2(Som(7)) & Sp & Format2(Som(8)) & Space(15),1,0
            Scrivi Format2(Som(4)) & Sp & Format2(Som(5)) & Sp & Format2(Som(6)),1,,,1
            Scrivi String(8,"-") & Space(10) & String(8,"-") & Space(10) & String(8,"-"),1,0,,2
            Scrivi Space(15) & Format2(Som(7)) & Sp & Format2(Som(8)) & Sp & Format2(Som(9)),1,,,1
            Scrivi Format2(Som(1)) & Sp & Format2(Som(2)) & Sp & Format2(Som(3)) & Space(10),1,0
            Scrivi Format2(Som(4)) & Sp & Format2(Som(5)) & Sp & Format2(Som(6)) & Space(10),1,0
            Scrivi Format2(Som(7)) & Sp & Format2(Som(8)) & Sp & Format2(Som(9)),1,0
            Scrivi Space(15) & String(8,"-"),1
            Scrivi Space(59) & Format2(Som(10)) & Sp & Format2(Som(11)) & Sp & Format2(Som(12)),1,,,2
            Scrivi
            Scrivi Space(28) & StringaNumeri(XBas,"",True),1,,,2
            For X = 1 To Len(Bas) - 2
               Cusp =(Piramide(Bas,X))
               Scrivi Space(28) &(Piramide(Bas,X)),1
            Next
            Num(1) = Fuori90(Cusp)
            Ruo(1) = R1
            Scrivi
            ImpostaGiocata 1,Num,Ruo,Posta,Clp
            Gioca Es
         Next
         If ScriptInterrotto Then Exit Sub
      End If
   Next
   ScriviResoconto
End Sub

Armonia Triplare 2 di Fedele Davenal

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,FInR,IniR
   Dim R1,Caso,Casi,P1,P2,P3,E1,Sp,Bas,X,Cusp
   Dim A,B,C,A1,B1,C1,FgA,FgB,CadA,CadB,DecA,DecB
   Dim Num(1),Ruo(1),Posta(1),XBas(3)
   Sp = " "
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)'108 estrazione nelle spiegazioni
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ",,3))
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   FIn = EstrazioneFin
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Armonia Triplare 2 di Fedele Davenal - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               FgA = Figura(A) : FgB = Figura(B)
               If FgA = FgB Then
                  DecA = Decina(A) : DecB = Decina(B)
                  CadA = Cadenza(A) : CadB = Cadenza(B)
                  A1 = DecA & DecB : B1 = CadA & CadB
                  C1 = Fuori90((B1 + 90) - A1)
                  XBas(1) = A1 : XBas(2) = B1 : XBas(3) = C1
                  Bas = StringaNumeri(XBas,"",True)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then ColoreTesto 2 Else ColoreTesto 0
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi "  <-- Cadenza di " & Format2(A) & " Cambiata con Decina " & Format2(B) & " e Viceversa ",1,0
                  Scrivi Format2(A1) & Sp & Format2(B1),1
                  Scrivi
                  Scrivi Space(5) & Format2(C1) & " = " & Format2(B1) & " - " & Format2(A1) & Space(25),1,0
                  Scrivi " La base della piramide e formata dai numeri ",1,0
                  Scrivi StringaNumeri(XBas," ",True),1,,,7
                  Scrivi Space(28) & StringaNumeri(XBas,"",True),1,,,2
                  For X = 1 To Len(Bas) - 2
                     Cusp =(Piramide(Bas,X))
                     Scrivi Space(28) &(Piramide(Bas,X)),1
                  Next
                  Num(1) = Fuori90(Cusp)
                  Ruo(1) = R1
                  Scrivi
                  ImpostaGiocata 1,Num,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Armonia Triplare 3 di Fedele Davenal

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50,Ruota,FInR,IniR
   Dim R1,Caso,Casi,P1,P2,P3,E1,Sp,Bas,X,Cusp
   Dim A,B,C,A1,B1,C1,FgA,FgB,CadA,CadB,DecA,DecB
   Dim Num(2),Ruo(1),Posta(2),XBas(3)
   Sp = " "
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)'105 estrazione nelle spiegazioni
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ",,3))
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,6)
   FIn = EstrazioneFin
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "Armonia Triplare 3 di Fedele Davenal - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Posta(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               FgA = Figura(A) : FgB = Figura(B)
               If FgA = FgB Then
                  DecA = Decina(A) : DecB = Decina(B)
                  CadA = Cadenza(A) : CadB = Cadenza(B)
                  A1 = DecA & DecB : B1 = CadA & CadB
                  C1 = Fuori90((B1 + 90) - A1)
                  XBas(1) = A1 : XBas(2) = B1 : XBas(3) = C1
                  Bas = StringaNumeri(XBas,"",True)
                  For X = 1 To Len(Bas) - 4
                     Cusp =(Piramide(Bas,X))
                  Next
                  Num(1) = Fuori90(Cusp \ 100)
                  Num(2) = Fuori90(Cusp -(Num(1) * 100))
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then ColoreTesto 2 Else ColoreTesto 0
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi "  <-- Cadenza di " & Format2(A) & " Cambiata con Decina " & Format2(B) & " e Viceversa ",1,0
                  Scrivi Format2(A1) & Sp & Format2(B1),1
                  Scrivi
                  Scrivi Space(5) & Format2(C1) & " = " & Format2(B1) & " - " & Format2(A1) & Space(25),1,0
                  Scrivi " La base della piramide e formata dai numeri ",1,0
                  Scrivi StringaNumeri(XBas," ",True),1,,,7
                  Scrivi Space(28) & StringaNumeri(XBas,"",True),1,,,2
                  For X = 1 To Len(Bas) - 4
                     Scrivi Space(28) &(Piramide(Bas,X)),1
                  Next
                  Ruo(1) = R1
                  Scrivi
                  ImpostaGiocata 1,Num,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Grande salvo50 !Sempre al top x gli script e generosità

 

[salvo50]

Ciao a Tutti.

Armonia Triplare 3
è da riprendere, perchè a volte capitavano 2 numeri uguali, in questo caso adesso ho saltato l'estrazione.

 

[rudivall]

Grazie grande...

 

[jure]

Ciao salvo50
Hai qualche script di FIBONACCI?

 

[salvo50]

Ciao salvo50
Hai qualche script di FIBONACCI?

Ciao Jure, no.

 

[Matematico]

Ciao a tutti , per jure e salvo50 ...io avrei una tabella data gratis nella pagina su facebook di : i numeri di padre pacifico a cura di Davide Lo Stracco...