Novità

Per salvo50 una cortesia

salvo50 ha scritto:
Ciao a Tutti
Matematico
Quando nel Maggio 2018, mi chiedesti di fare uno script sulle piramidi di Pietro Casamia
non sapevo niente di questo autore, dopo l'ho cercato e ho trovato un sito questo

'https://books.google.it/books?id=Lz4GSZAR7CYC&hl=it

dove puoi scaricare gratuitamente il libro di Pirtro Casamia
Nel libro c'è un po' di tutto delle scienze e parla anche
di gioco del Lotto, da pagina 64 a pagina 69 è spiegato
come pronosticare una cinquina a colpo con la chiave fissa 1 (uno)

ed ho fatto uno script

Codice: 
Option Explicit
Sub Main
   Dim PrimoMezzoPeso(5),SecondoMezzoPeso(5),k,S1(5),S2(5),Som(5)
   Dim A(5),B(5),D(5),E(5),F(5),G(5),H(5),I(5)
   Dim D2(5),E2(5),F2(5),G2(5),H2(5),I2(5)
   A(1) = 61 : A(2) = 25 : A(3) = 01 : A(4) = 53 : A(5) = 06
   B(1) = 20 : B(2) = 16 : B(3) = 60 : B(4) = 27 : B(5) = 55
   'Inizio Calcoli Primo Gruppo Piramidi
   'Calcoli Prima Piramide
   D(1) = Fuori90(A(1) + A(3))
   E(1) = Fuori90(A(2) + D(1))
   F(1) = Fuori90(A(3) + D(1))
   G(1) = Fuori90(D(1) + E(1))
   H(1) = Fuori90(F(1) + G(1))
   I(1) = Fuori90(E(1) + G(1) + H(1))
   'Calcoli Seconda Piramide
   D(2) = Fuori90(A(2) + A(3))
   E(2) = Fuori90(A(3) + D(2))
   F(2) = Fuori90(A(3) + D(2))
   G(2) = Fuori90(D(2) + E(2))
   H(2) = Fuori90(F(2) + G(2))
   I(2) = Fuori90(E(2) + G(2) + H(2))
   'Calcoli Terza Piramide
   D(3) = Fuori90(A(3) + A(3))
   E(3) = Fuori90(A(4) + D(3))
   F(3) = Fuori90(A(3) + D(3))
   G(3) = Fuori90(D(3) + E(3))
   H(3) = Fuori90(F(3) + G(3))
   I(3) = Fuori90(E(3) + G(3) + H(3))
   'Calcoli Quarta Piramide
   D(4) = Fuori90(A(4) + A(3))
   E(4) = Fuori90(A(5) + D(4))
   F(4) = Fuori90(A(3) + D(4))
   G(4) = Fuori90(D(4) + E(4))
   H(4) = Fuori90(F(4) + G(4))
   I(4) = Fuori90(E(4) + G(4) + H(4))
   'Calcoli Quinta Piramide
   D(5) = Fuori90(A(5) + A(3))
   E(5) = Fuori90(A(1) + D(5))
   F(5) = Fuori90(A(3) + D(5))
   G(5) = Fuori90(D(5) + E(5))
   H(5) = Fuori90(F(5) + G(5))
   I(5) = Fuori90(E(5) + G(5) + H(5))
   'Fine Calcoli Primo Gruppo Piramidi
   For k = 1 To 5
      PrimoMezzoPeso(k) = Fuori90(I(k) * 13)
      PrimoMezzoPeso(k) = 91 - PrimoMezzoPeso(k)
      SecondoMezzoPeso(k) = Fuori90(B(k) * 13)
      Som(k) = Fuori90(PrimoMezzoPeso(k) + SecondoMezzoPeso(k))
      S1(k) = "Al Numero " & Format2(I(k)) & " corrisponde il primo mezzo peso " & Format2(PrimoMezzoPeso(k))
      S2(k) = " Al secondo mezzo peso corrisponde " & Format2(SecondoMezzoPeso(k))
   Next
   'Inizio Calcoli Ultimo Gruppo Piramidi
   'Calcoli Prima Piramide
   D2(1) = Fuori90(A(1) + Som(1))
   E2(1) = Fuori90(A(2) + D2(1))
   F2(1) = Fuori90(Som(1) + D2(1))
   G2(1) = Fuori90(D2(1) + E2(1))
   H2(1) = Fuori90(F2(1) + G2(1))
   I2(1) = Fuori90(E2(1) + G2(1) + H2(1))
   'Calcoli Seconda Piramide
   D2(2) = Fuori90(A(2) + Som(2))
   E2(2) = Fuori90(A(3) + D2(2))
   F2(2) = Fuori90(Som(2) + D2(2))
   G2(2) = Fuori90(D2(2) + E2(2))
   H2(2) = Fuori90(F2(2) + G2(2))
   I2(2) = Fuori90(E2(2) + G2(2) + H2(2))
   'Calcoli Terza Piramide
   D2(3) = Fuori90(A(3) + Som(3))
   E2(3) = Fuori90(A(4) + D2(3))
   F2(3) = Fuori90(Som(3) + D2(3))
   G2(3) = Fuori90(D2(3) + E2(3))
   H2(3) = Fuori90(F2(3) + G2(3))
   I2(3) = Fuori90(E2(3) + G2(3) + H2(3))
   'Calcoli Quarta Piramide
   D2(4) = Fuori90(A(4) + Som(4))
   E2(4) = Fuori90(A(5) + D2(4))
   F2(4) = Fuori90(Som(4) + D2(4))
   G2(4) = Fuori90(D2(4) + E2(4))
   H2(4) = Fuori90(F2(4) + G2(4))
   I2(4) = Fuori90(E2(4) + G2(4) + H2(4))
   'Calcoli Quinta Piramide
   D2(5) = Fuori90(A(5) + Som(5))
   E2(5) = Fuori90(A(1) + D2(5))
   F2(5) = Fuori90(Som(5) + D2(5))
   G2(5) = Fuori90(D2(5) + E2(5))
   H2(5) = Fuori90(F2(5) + G2(5))
   I2(5) = Fuori90(E2(5) + G2(5) + H2(5))
   'Fine Calcoli Ultimo Gruppo Piramidi
   Scrivi "Estratti Ruota Di Roma Del 19-10-1775 " & StringaNumeri(A," ",True),1,0,,1
   Scrivi "  Estazione base per calcoli",1,,,1
   Scrivi "Estratti Ruota Di Roma Del 29-10-1775 " & StringaNumeri(B," ",True),1,0,,2
   Scrivi "  Estazione successiva",1,,,2
   Scrivi
   Scrivi Space(16) & "Con gli estratti base formare 5 gruppi di 2 numeri ",1,,,1
   Scrivi
   Scrivi Space(20) & "(" & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(A(1)) & ")",1
   Scrivi
   Scrivi Space(18) & "Prime Piramidi Per Ogni Gruppo Di 2 Numeri ",1,,,2
   Scrivi
   'PRIMA FILA
   Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
   'SECONDA FILA
   Scrivi Space(10) & Format2(A(3)) & " " & Format2(D(1)) & " " & Format2(E(1)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(2)) & " " & Format2(E(2)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(3)) & " " & Format2(E(3)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(4)) & " " & Format2(E(4)),1,0
   Scrivi Space(5) & Format2(A(3)) & " " & Format2(D(5)) & " " & Format2(E(5)),1
   'TERZA FILA
   Scrivi Space(13) & Format2(F(1)) & " " & Format2(G(1)),1,0
   Scrivi Space(8) & Format2(F(2)) & " " & Format2(G(2)),1,0
   Scrivi Space(8) & Format2(F(3)) & " " & Format2(G(3)),1,0
   Scrivi Space(8) & Format2(F(4)) & " " & Format2(G(4)),1,0
   Scrivi Space(8) & Format2(F(5)) & " " & Format2(G(5)),1
   'QUARTA FILA
   Scrivi Space(16) & Format2(H(1)) & Space(11) & Format2(H(2)) & Space(11) & Format2(H(3)),1,0
   Scrivi Space(11) & Format2(H(4)) & Space(11) & Format2(H(5)),1
   'QUINTA FILA
   Scrivi Space(16) & Format2(I(1)) & Space(11) & Format2(I(2)) & Space(11) & Format2(I(3)),1,0,,2
   Scrivi Space(11) & Format2(I(4)) & Space(11) & Format2(I(5)),1,,,2
   Scrivi
   Scrivi "Per ognuno di questi numeri si deve prendere il corrispondente ",1
   Scrivi "numero nei mezzi pesi della tavola settenaria ",1
   Scrivi
   Scrivi S1(1) & " " & S2(1),1
   Scrivi S1(2) & " " & S2(2),1
   Scrivi S1(3) & " " & S2(3),1
   Scrivi S1(4) & " " & S2(4),1
   Scrivi S1(5) & " " & S2(5),1
   Scrivi
   Scrivi Space(20) & " Sommare i 2 mezzi pesi corrispondenti ",1
   Scrivi
   Scrivi Space(32) & StringaNumeri(PrimoMezzoPeso," ",True) & " + ",1
   Scrivi Space(32) & StringaNumeri(SecondoMezzoPeso," ",True) & " = ",1
   Scrivi Space(32) & String((16),"-")
   Scrivi Space(19) & " Pesi Interi " & StringaNumeri(Som," ",True),1
   Scrivi
   Scrivi Space(16) & " Rifare di nuovo la piramidi e invece di mettere la chiave",1,,,2
   Scrivi Space(16) & " uno al terzo posto, mettere i pesi interi calcolati  ",1,,,2
   Scrivi
   Scrivi
   'PRIMA FILA
   Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
   'SECONDA FILA
   Scrivi Space(10) & Format2(Som(1)) & " " & Format2(D2(1)) & " " & Format2(E2(1)),1,0
   Scrivi Space(5) & Format2(Som(2)) & " " & Format2(D2(2)) & " " & Format2(E2(2)),1,0
   Scrivi Space(5) & Format2(Som(3)) & " " & Format2(D2(3)) & " " & Format2(E2(3)),1,0
   Scrivi Space(5) & Format2(Som(4)) & " " & Format2(D2(4)) & " " & Format2(E2(4)),1,0
   Scrivi Space(5) & Format2(Som(5)) & " " & Format2(D2(5)) & " " & Format2(E2(5)),1
   'TERZA FILA
   Scrivi Space(13) & Format2(F2(1)) & " " & Format2(G2(1)),1,0
   Scrivi Space(8) & Format2(F2(2)) & " " & Format2(G2(2)),1,0
   Scrivi Space(8) & Format2(F2(3)) & " " & Format2(G2(3)),1,0
   Scrivi Space(8) & Format2(F2(4)) & " " & Format2(G2(4)),1,0
   Scrivi Space(8) & Format2(F2(5)) & " " & Format2(G2(5)),1
   'QUARTA FILA
   Scrivi Space(16) & Format2(H2(1)) & Space(11) & Format2(H2(2)) & Space(11) & Format2(H2(3)),1,0
   Scrivi Space(11) & Format2(H2(4)) & Space(11) & Format2(H2(5)),1
   'QUINTA FILA
   Scrivi Space(16) & Format2(I2(1)) & Space(11) & Format2(I2(2)) & Space(11) & Format2(I2(3)),1,0,,2
   Scrivi Space(11) & Format2(I2(4)) & Space(11) & Format2(I2(5)),1,,,2
   Scrivi
   Scrivi Space(25) & "Pronostico " & StringaNumeri(I2," ",True),1
End Sub
Clicca per espandere...
Ciao salvo50, mi sono rieletto bene tutti i passaggi che fà il Casamia , dove lui scrive dalla pagina 70 in poi che ha trovato soluzioni diverse e le descrive per ottenere numeri validi e non la cinquina già estratta , sarebbe molto utile se tu potessi farne uno script per verificarne la veridicità di queste sue interessanti soluzioni.
 
Ciao a Tutti
Nello script l'ultimo calcolo è formato da 5 addizioni.
Per questo calcolo l'autore usa i numeri dell'ultima somma per
ognuno ricava dalla tavola settenaria il primo mezzo peso ed il
secondo mezzo peso, però dato che il numero è sempre lo stesso
la somma totale dei 2 mezzi pesi è sempre 91,‌ quindi praticamente
ad ognuno dei numeri dell'ultima somma aggiunge il numero 91 che
col fuori 90 diventa 1, però l'autore le somme le fa strampallate
(secondo me), per fare uscire il terno nei 5 numeri pronosticati

Io nello script le somme le ho fatte più 1

Queste sono le addizioni come le ha fatte l'autore, si trovano
nel libro a pagina 76 e 77 se qualcuno riesce a capirle e me le
spiega, modificherò lo script con le vostre spiegazioni

Codice: 
                 Prima Colonna
Primo punto         19     d'Ordine
Primi Mezzi pesi    24    di Disposizione
Secondi Mezzi Pesi  67    di Armonia
                    --
         Somma ed   20       Eletto


              Seconda Colonna
Avanzo e porto      1
Primo punto         21     d'Ordine
Primi Mezzi pesi    88    di Disposizione
Secondi Mezzi Pesi  03    di Armonia
                    --
         Somma ed   31       Eletto

              Terza Colonna
Avanzo e porto      1
Primo punto         44     d'Ordine
Primi Mezzi pesi    59    di Disposizione
Secondi Mezzi Pesi  32    di Armonia
                    --
         Somma ed   55       Eletto

              Quarta Colonna
Avanzo e porto      1
Primo punto         50     d'Ordine
Primi Mezzi pesi    71    di Disposizione
Secondi Mezzi Pesi  20    di Armonia
                    --
         Somma ed   60       Eletto

              Quinta Colonna
Avanzo e porto      1
Primo punto         09     d'Ordine
Primi Mezzi pesi    64    di Disposizione
Secondi Mezzi Pesi  27    di Armonia
                    --
         Somma ed   20       Eletto

Quindi l'ultima somma aveva questi numeri

19 21 44 50 09 dopo queste addizioni il pronostico è

20 31 55 60 20 l'estrazione successiva uscirono

20 16 60 27 55 quindi ne avrebbe indovinati 3

se si riesce a capire con che criterio ha fatto quelle addizioni

Di script ne ho fatti 2
il primo c'è l'estrazione delle spiegazioni per vedere che i calcoli siano giusti
Nel secondo ho impostato tutte le ruote ed ho messo anche un imputbox
per cambiare la chiave fissa che di fisso è impostata a 1


Primo script con gli estratti delle spiegazioni

Codice: 
Option Explicit
Sub Main
   Dim Chiave,K
   Dim PrimoMezzoPeso(5),SecondoMezzoPeso(5)
   Dim S1(5),S2(5),S3(5),S4(5),S3_2(5),Som(5),AA(5),P1_2(5),P2_2(5),Bas0_2(5),Bas1_2(5)
   Dim A(5),B(5),D(5),E(5),F(5),G(5),H(5),I(5),Bas0(5),Bas1(5),PMP(5)
   Dim D2(5),E2(5),F2(5),G2(5),H2(5),I2(5),P1(5),P2(5),P3(5),SMP(5)
   A(1) = 61 : A(2) = 25 : A(3) = 01 : A(4) = 53 : A(5) = 06
   B(1) = 20 : B(2) = 16 : B(3) = 60 : B(4) = 27 : B(5) = 55
   Chiave = 1
   'Inizio Calcoli Primo Gruppo Piramidi
   'Calcoli Prima Piramide
   D(1) = Fuori90(A(1) + Chiave)
   E(1) = Fuori90(A(2) + D(1))
   F(1) = Fuori90(Chiave + D(1))
   G(1) = Fuori90(D(1) + E(1))
   H(1) = Fuori90(F(1) + G(1))
   I(1) = Fuori90(E(1) + G(1) + H(1))
   'Calcoli Seconda Piramide
   D(2) = Fuori90(A(2) + Chiave)
   E(2) = Fuori90(A(3) + D(2))
   F(2) = Fuori90(Chiave + D(2))
   G(2) = Fuori90(D(2) + E(2))
   H(2) = Fuori90(F(2) + G(2))
   I(2) = Fuori90(E(2) + G(2) + H(2))
   'Calcoli Terza Piramide
   D(3) = Fuori90(A(3) + Chiave)
   E(3) = Fuori90(A(4) + D(3))
   F(3) = Fuori90(Chiave + D(3))
   G(3) = Fuori90(D(3) + E(3))
   H(3) = Fuori90(F(3) + G(3))
   I(3) = Fuori90(E(3) + G(3) + H(3))
   'Calcoli Quarta Piramide
   D(4) = Fuori90(A(4) + Chiave)
   E(4) = Fuori90(A(5) + D(4))
   F(4) = Fuori90(Chiave + D(4))
   G(4) = Fuori90(D(4) + E(4))
   H(4) = Fuori90(F(4) + G(4))
   I(4) = Fuori90(E(4) + G(4) + H(4))
   'Calcoli Quinta Piramide
   D(5) = Fuori90(A(5) + Chiave)
   E(5) = Fuori90(A(1) + D(5))
   F(5) = Fuori90(Chiave + D(5))
   G(5) = Fuori90(D(5) + E(5))
   H(5) = Fuori90(F(5) + G(5))
   I(5) = Fuori90(E(5) + G(5) + H(5))
   'Fine Calcoli Primo Gruppo Piramidi
   For K = 1 To 5
      PrimoMezzoPeso(K) = Fuori90(I(K) * 13)
      PrimoMezzoPeso(K) = 91 - PrimoMezzoPeso(K)
      S1(K) = "Al Numero " & Format2(I(K)) & " corrisponde il primo mezzo peso " & Format2(PrimoMezzoPeso(K))
      AA(K) = A(K)
      PMP(K) = PrimoMezzoPeso(K)
      If(AA(K)) < 10 Then AA(K) = AA(K) + 90
      If Cadenza(AA(K)) = 0 Then Cadenza(AA(K)) = 9
      If(PMP(K)) < 10 Then PMP(K) = PMP(K) + 90
      If Cadenza(PMP(K)) = 0 Then Cadenza(PMP(K)) = 9
      Bas0(K) = AA(K) & PMP(K)
      Bas1(K) = AA(K) & PrimoMezzoPeso(K)
      P1(K) = Piramide(Bas0(K),1)
      P2(K) = Piramide(Bas0(K),2)
      SecondoMezzoPeso(K) = Fuori90(P2(K) * 13)
      S2(K) = "Al Numero " & Format2(P2(K)) & " corrisponde il secondo mezzo peso " & Format2(SecondoMezzoPeso(K))
      S3(K) = FuoriX(PrimoMezzoPeso(K) + SecondoMezzoPeso(K) + A(K),100)'Prima somma di tutto
      S3_2(K) = S3(K)
      If(S3_2(K)) < 10 Then S3_2(K) = S3_2(K) + 90
  
      Bas0_2(K) = AA(K) & S3_2(K)
      Bas1_2(K) = A(K) & S3(K)
      P1_2(K) = Piramide(Bas0_2(K),1)
      P2_2(K) = Piramide(Bas0_2(K),2)
      S4(K) = FuoriX(P2_2(K) + S3(K),100) 'seconda somma di tutto
   Next
   Scrivi "Estratti Ruota Di Roma Del 19-10-1775 " & StringaNumeri(A," ",True),1,0,,1
   Scrivi "  Estazione base per calcoli",1,,,1
   Scrivi "Estratti Ruota Di Roma Del 29-10-1775 " & StringaNumeri(B," ",True),1,0,,2
   Scrivi "  Estazione successiva",1,,,2
   Scrivi
   Scrivi Space(16) & "Con gli estratti base formare 5 gruppi di 2 numeri ",1,,,1
   Scrivi
   Scrivi Space(20) & "(" & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(A(1)) & ")",1
   Scrivi
   Scrivi Space(18) & "Prime Piramidi Per Ogni Gruppo Di 2 Numeri ",1,,,2
   Scrivi
   'PRIMA FILA
   Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
   'SECONDA FILA
   Scrivi Space(10) & Format2(Chiave) & " " & Format2(D(1)) & " " & Format2(E(1)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(2)) & " " & Format2(E(2)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(3)) & " " & Format2(E(3)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(4)) & " " & Format2(E(4)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(5)) & " " & Format2(E(5)),1
   'TERZA FILA
   Scrivi Space(13) & Format2(F(1)) & " " & Format2(G(1)),1,0
   Scrivi Space(8) & Format2(F(2)) & " " & Format2(G(2)),1,0
   Scrivi Space(8) & Format2(F(3)) & " " & Format2(G(3)),1,0
   Scrivi Space(8) & Format2(F(4)) & " " & Format2(G(4)),1,0
   Scrivi Space(8) & Format2(F(5)) & " " & Format2(G(5)),1
   'QUARTA FILA
   Scrivi Space(16) & Format2(H(1)) & Space(11) & Format2(H(2)) & Space(11) & Format2(H(3)),1,0
   Scrivi Space(11) & Format2(H(4)) & Space(11) & Format2(H(5)),1
   'QUINTA FILA
   Scrivi Space(16) & Format2(I(1)) & Space(11) & Format2(I(2)) & Space(11) & Format2(I(3)),1,0,,2
   Scrivi Space(11) & Format2(I(4)) & Space(11) & Format2(I(5)),1,,,2
   Scrivi
   Scrivi Space(11) & "Per ognuno dei numeri evidenziati in rosso si deve prendere  ",1,,,1
   Scrivi Space(8) & "il corrispondente numero nei mezzi pesi della tavola settenaria ",1,,,1
   Scrivi
   Scrivi Space(16) & S1(1),1
   Scrivi Space(16) & S1(2),1
   Scrivi Space(16) & S1(3),1
   Scrivi Space(16) & S1(4),1
   Scrivi Space(16) & S1(5),1
   Scrivi
   Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente primo",1,,,1
   Scrivi Space(12) & "mezzo peso a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
   Scrivi
   Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(PrimoMezzoPeso(1)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(PrimoMezzoPeso(2)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(PrimoMezzoPeso(3)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(PrimoMezzoPeso(4)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(PrimoMezzoPeso(5)) & ")",1
   Scrivi
   Scrivi Space(23) & FormattaStringa(Bas1(1),"0000") & Space(3) & FormattaStringa(Bas1(2),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1(3),"0000") & Space(3) & FormattaStringa(Bas1(4),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1(5),"0000"),1,,,2
   Scrivi Space(23) & FormattaStringa(P1(1),"000") & Space(4) & FormattaStringa(P1(2),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1(3),"000") & Space(4) & FormattaStringa(P1(4),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1(5),"000"),1,,,1
   Scrivi Space(23) & FormattaStringa(P2(1),"00") & Space(5) & FormattaStringa(P2(2),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2(3),"00") & Space(5) & FormattaStringa(P2(4),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2(5),"00"),1,,,2
   Scrivi
   Scrivi Space(13) & "Per ogni cupide di queste piramidi trovare nella tavola",1,,,1
   Scrivi Space(13) & "dei secondi mezzi pesi il numero corrispondente ",1,,,1
   Scrivi
   Scrivi Space(15) & S2(1),1
   Scrivi Space(15) & S2(2),1
   Scrivi Space(15) & S2(3),1
   Scrivi Space(15) & S2(4),1
   Scrivi Space(15) & S2(5),1
   Scrivi
   Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
   Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
   Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
   Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
   Scrivi Space(40) & String(15,"-"),,,,2
   Scrivi Space(20) & "1a Somma di Tutti    " & StringaNumeri(S3," ",True),1
   Scrivi
   Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente alla",1,,,1
   Scrivi Space(12) & "somma di tutti a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
   Scrivi
   Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(S3(1)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(S3(2)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(S3(3)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(S3(4)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(S3(5)) & ")",1
   Scrivi
   Scrivi Space(23) & FormattaStringa(Bas1_2(1),"0000") & Space(3) & FormattaStringa(Bas1_2(2),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1_2(3),"0000") & Space(3) & FormattaStringa(Bas1_2(4),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1_2(5),"0000"),1,,,2
   Scrivi Space(23) & FormattaStringa(P1_2(1),"000") & Space(4) & FormattaStringa(P1_2(2),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1_2(3),"000") & Space(4) & FormattaStringa(P1_2(4),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1_2(5),"000"),1,,,1
   Scrivi Space(23) & FormattaStringa(P2_2(1),"00") & Space(5) & FormattaStringa(P2_2(2),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2_2(3),"00") & Space(5) & FormattaStringa(P2_2(4),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2_2(5),"00"),1,,,2
   Scrivi
   Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
   Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
   Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
   Scrivi Space(20) & "Cuspidi 3a piramide  " & StringaNumeri(P2_2," ",True),1
   Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
   Scrivi Space(40) & String(15,"-"),,,,2
   Scrivi Space(20) & "2a Somma di Tutti    " & StringaNumeri(S4," ",True),1

End Sub


Secondo script per tutte le ruote

Codice: 
Option Explicit
Sub Main
   Dim Ini,Fin,Salvo50,Es,R1,P,Casi,Caso,Chiave,k,Clp
   Dim PrimoMezzoPeso(5),SecondoMezzoPeso(5),Posta(5),Ruo(2)
   Dim S1(5),S2(5),S3(5),S4(5),aS4(5),S5(5),S3_2(5),Som(5),AA(5),P1_2(5),P2_2(5),Bas0_2(5),Bas1_2(5)
   Dim A(5),B(5),D(5),E(5),F(5),G(5),H(5),I(5),Bas0(5),Bas1(5),PMP(5)
   Dim D2(5),E2(5),F2(5),G2(5),H2(5),I2(5),P1(5),P2(5),P3(5),SMP(5)
   Posta(2) = 1
   Posta(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10700)
   Clp = InputBox("Inserisci per quanti colpi vuoi giocare",Salvo50,10)
   Chiave = InputBox("Inserisci il numero della chiave fissa",Salvo50,1)
   For Es = Ini To Fin - 1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P = 1 To 5
            A(P) = Estratto(Es,R1,P)
         Next
         'Inizio Calcoli Primo Gruppo Piramidi
         'Calcoli Prima Piramide
         D(1) = Fuori90(A(1) + Chiave)
         E(1) = Fuori90(A(2) + D(1))
         F(1) = Fuori90(Chiave + D(1))
         G(1) = Fuori90(D(1) + E(1))
         H(1) = Fuori90(F(1) + G(1))
         I(1) = Fuori90(E(1) + G(1) + H(1))
         'Calcoli Seconda Piramide
         D(2) = Fuori90(A(2) + Chiave)
         E(2) = Fuori90(A(3) + D(2))
         F(2) = Fuori90(Chiave + D(2))
         G(2) = Fuori90(D(2) + E(2))
         H(2) = Fuori90(F(2) + G(2))
         I(2) = Fuori90(E(2) + G(2) + H(2))
         'Calcoli Terza Piramide
         D(3) = Fuori90(A(3) + Chiave)
         E(3) = Fuori90(A(4) + D(3))
         F(3) = Fuori90(Chiave + D(3))
         G(3) = Fuori90(D(3) + E(3))
         H(3) = Fuori90(F(3) + G(3))
         I(3) = Fuori90(E(3) + G(3) + H(3))
         'Calcoli Quarta Piramide
         D(4) = Fuori90(A(4) + Chiave)
         E(4) = Fuori90(A(5) + D(4))
         F(4) = Fuori90(Chiave + D(4))
         G(4) = Fuori90(D(4) + E(4))
         H(4) = Fuori90(F(4) + G(4))
         I(4) = Fuori90(E(4) + G(4) + H(4))
         'Calcoli Quinta Piramide
         D(5) = Fuori90(A(5) + Chiave)
         E(5) = Fuori90(A(1) + D(5))
         F(5) = Fuori90(Chiave + D(5))
         G(5) = Fuori90(D(5) + E(5))
         H(5) = Fuori90(F(5) + G(5))
         I(5) = Fuori90(E(5) + G(5) + H(5))
         'Fine Calcoli Primo Gruppo Piramidi
         For k = 1 To 5
            PrimoMezzoPeso(k) = Fuori90(I(k) * 13)
            PrimoMezzoPeso(k) = 91 - PrimoMezzoPeso(k)
            S1(k) = "Al Numero " & Format2(I(k)) & " corrisponde il primo mezzo peso " & Format2(PrimoMezzoPeso(k))
            AA(k) = A(k)
            PMP(k) = PrimoMezzoPeso(k)
            Bas0(k) = AA(k) & PMP(k)
            Bas1(k) = A(k) & PrimoMezzoPeso(k)
            P1(k) = Piramide(Bas0(k),1)
            P2(k) = Piramide(Bas0(k),2)
            SecondoMezzoPeso(k) = Fuori90(P2(k) * 13)
            S2(k) = "Al Numero " & Format2(P2(k)) & " corrisponde il secondo mezzo peso " & Format2(SecondoMezzoPeso(k))
            S3(k) = FuoriX(PrimoMezzoPeso(k) + SecondoMezzoPeso(k) + A(k),100)'Prima somma di tutto
            S3_2(k) = S3(k)
            If(S3_2(k)) < 10 Then S3_2(k) = S3_2(k) + 90
            Bas0_2(k) = AA(k) & S3_2(k)
            Bas1_2(k) = A(k) & S3(k)
            P1_2(k) = Piramide(Bas0_2(k),1)
            P2_2(k) = Piramide(Bas0_2(k),2)
            S4(k) = FuoriX(P2_2(k) + S3(k),100) 'seconda somma di tutto
            S4(k) = Fuori90(S4(k))
            S5(k) = Fuori90(S4(k) + 1)
         Next
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "    " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
         Scrivi "  La chiave fissa impostata è  " & Chiave,1,,,1
         Scrivi
         Scrivi Space(16) & "Con gli estratti base formare 5 gruppi di 2 numeri ",1,,,1
         Scrivi
         Scrivi Space(20) & "(" & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi ")(" & Format2(A(2)) & " " & Format2(A(3)),1,0
         Scrivi ")(" & Format2(A(3)) & " " & Format2(A(4)),1,0
         Scrivi ")(" & Format2(A(4)) & " " & Format2(A(5)),1,0
         Scrivi ")(" & Format2(A(5)) & " " & Format2(A(1)) & ")",1
         Scrivi
         Scrivi Space(18) & "Prime Piramidi Per Ogni Gruppo Di 2 Numeri ",1,,,2
         Scrivi
         'PRIMA FILA
         Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
         Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
         Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
         Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
         'SECONDA FILA
         Scrivi Space(10) & Format2(Chiave) & " " & Format2(D(1)) & " " & Format2(E(1)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(2)) & " " & Format2(E(2)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(3)) & " " & Format2(E(3)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(4)) & " " & Format2(E(4)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(5)) & " " & Format2(E(5)),1
         'TERZA FILA
         Scrivi Space(13) & Format2(F(1)) & " " & Format2(G(1)),1,0
         Scrivi Space(8) & Format2(F(2)) & " " & Format2(G(2)),1,0
         Scrivi Space(8) & Format2(F(3)) & " " & Format2(G(3)),1,0
         Scrivi Space(8) & Format2(F(4)) & " " & Format2(G(4)),1,0
         Scrivi Space(8) & Format2(F(5)) & " " & Format2(G(5)),1
         'QUARTA FILA
         Scrivi Space(16) & Format2(H(1)) & Space(11) & Format2(H(2)) & Space(11) & Format2(H(3)),1,0
         Scrivi Space(11) & Format2(H(4)) & Space(11) & Format2(H(5)),1
         'QUINTA FILA
         Scrivi Space(16) & Format2(I(1)) & Space(11) & Format2(I(2)) & Space(11) & Format2(I(3)),1,0,,2
         Scrivi Space(11) & Format2(I(4)) & Space(11) & Format2(I(5)),1,,,2
         Scrivi
         Scrivi Space(11) & "Per ognuno dei numeri evidenziati in rosso si deve prendere  ",1,,,1
         Scrivi Space(8) & "il corrispondente numero nei mezzi pesi della tavola settenaria ",1,,,1
         Scrivi
         Scrivi Space(16) & S1(1),1 ' & " " & S2(1),1
         Scrivi Space(16) & S1(2),1 ' & " " & S2(2),1
         Scrivi Space(16) & S1(3),1 ' & " " & S2(3),1
         Scrivi Space(16) & S1(4),1 ' & " " & S2(4),1
         Scrivi Space(16) & S1(5),1 ' & " " & S2(5),1
         Scrivi
         Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente primo",1,,,1
         Scrivi Space(12) & "mezzo peso a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
         Scrivi
         Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(PrimoMezzoPeso(1)),1,0
         Scrivi ")(" & Format2(A(2)) & " " & Format2(PrimoMezzoPeso(2)),1,0
         Scrivi ")(" & Format2(A(3)) & " " & Format2(PrimoMezzoPeso(3)),1,0
         Scrivi ")(" & Format2(A(4)) & " " & Format2(PrimoMezzoPeso(4)),1,0
         Scrivi ")(" & Format2(A(5)) & " " & Format2(PrimoMezzoPeso(5)) & ")",1
         Scrivi
         Scrivi Space(23) & FormattaStringa(Bas1(1),"0000") & Space(3) & FormattaStringa(Bas1(2),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1(3),"0000") & Space(3) & FormattaStringa(Bas1(4),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1(5),"0000"),1,,,2
         Scrivi Space(23) & FormattaStringa(P1(1),"000") & Space(4) & FormattaStringa(P1(2),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1(3),"000") & Space(4) & FormattaStringa(P1(4),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1(5),"000"),1,,,1
         Scrivi Space(23) & FormattaStringa(P2(1),"00") & Space(5) & FormattaStringa(P2(2),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2(3),"00") & Space(5) & FormattaStringa(P2(4),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2(5),"00"),1,,,2
         Scrivi
         Scrivi Space(13) & "Per ogni cupide di queste piramidi trovare nella tavola",1,,,1
         Scrivi Space(13) & "dei secondi mezzi pesi il numero corrispondente ",1,,,1
         Scrivi
         Scrivi Space(15) & S2(1),1
         Scrivi Space(15) & S2(2),1
         Scrivi Space(15) & S2(3),1
         Scrivi Space(15) & S2(4),1
         Scrivi Space(15) & S2(5),1
         Scrivi
         Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
         Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
         Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
         Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
         Scrivi Space(40) & String(15,"-"),,,,2
         Scrivi Space(20) & "1a Somma di Tutti    " & StringaNumeri(S3," ",True),1
         Scrivi
         Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente alla",1,,,1
         Scrivi Space(12) & "somma di tutti a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
         Scrivi
         Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(S3(1)),1,0
         Scrivi ")(" & Format2(A(2)) & " " & Format2(S3(2)),1,0
         Scrivi ")(" & Format2(A(3)) & " " & Format2(S3(3)),1,0
         Scrivi ")(" & Format2(A(4)) & " " & Format2(S3(4)),1,0
         Scrivi ")(" & Format2(A(5)) & " " & Format2(S3(5)) & ")",1
         Scrivi
         Scrivi Space(23) & FormattaStringa(Bas1_2(1),"0000") & Space(3) & FormattaStringa(Bas1_2(2),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1_2(3),"0000") & Space(3) & FormattaStringa(Bas1_2(4),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1_2(5),"0000"),1,,,2
         Scrivi Space(23) & FormattaStringa(P1_2(1),"000") & Space(4) & FormattaStringa(P1_2(2),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1_2(3),"000") & Space(4) & FormattaStringa(P1_2(4),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1_2(5),"000"),1,,,1
         Scrivi Space(23) & FormattaStringa(P2_2(1),"00") & Space(5) & FormattaStringa(P2_2(2),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2_2(3),"00") & Space(5) & FormattaStringa(P2_2(4),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2_2(5),"00"),1,,,2
         Scrivi
         Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
         Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
         Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
         Scrivi Space(20) & "Cuspidi 3a piramide  " & StringaNumeri(P2_2," ",True),1
         Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
         Scrivi Space(40) & String(15,"-"),,,,2
         Scrivi Space(20) & "2a Somma di Tutti    " & StringaNumeri(S4," ",True),1
         Scrivi
         Scrivi Space(10) & "Il Pronostico è di Sommare 1 ad Ogni Numero Della 2a somma di Tutti ",1,,,1
         Scrivi
         Ruo(1) = R1
         EliminaRipetuti S5
         ImpostaGiocata 1,S5,Ruo,Posta,Clp
         Gioca Es,,,1
         'Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
salvo50 ha scritto:
Ciao a Tutti
Nello script l'ultimo calcolo è formato da 5 addizioni.
Per questo calcolo l'autore usa i numeri dell'ultima somma per
ognuno ricava dalla tavola settenaria il primo mezzo peso ed il
secondo mezzo peso, però dato che il numero è sempre lo stesso
la somma totale dei 2 mezzi pesi è sempre 91,‌ quindi praticamente
ad ognuno dei numeri dell'ultima somma aggiunge il numero 91 che
col fuori 90 diventa 1, però l'autore le somme le fa strampallate
(secondo me), per fare uscire il terno nei 5 numeri pronosticati

Io nello script le somme le ho fatte più 1

Queste sono le addizioni come le ha fatte l'autore, si trovano
nel libro a pagina 76 e 77 se qualcuno riesce a capirle e me le
spiega, modificherò lo script con le vostre spiegazioni

Codice: 
                 Prima Colonna
Primo punto         19     d'Ordine
Primi Mezzi pesi    24    di Disposizione
Secondi Mezzi Pesi  67    di Armonia
                    --
         Somma ed   20       Eletto


              Seconda Colonna
Avanzo e porto      1
Primo punto         21     d'Ordine
Primi Mezzi pesi    88    di Disposizione
Secondi Mezzi Pesi  03    di Armonia
                    --
         Somma ed   31       Eletto

              Terza Colonna
Avanzo e porto      1
Primo punto         44     d'Ordine
Primi Mezzi pesi    59    di Disposizione
Secondi Mezzi Pesi  32    di Armonia
                    --
         Somma ed   55       Eletto

              Quarta Colonna
Avanzo e porto      1
Primo punto         50     d'Ordine
Primi Mezzi pesi    71    di Disposizione
Secondi Mezzi Pesi  20    di Armonia
                    --
         Somma ed   60       Eletto

              Quinta Colonna
Avanzo e porto      1
Primo punto         09     d'Ordine
Primi Mezzi pesi    64    di Disposizione
Secondi Mezzi Pesi  27    di Armonia
                    --
         Somma ed   20       Eletto

Quindi l'ultima somma aveva questi numeri

19 21 44 50 09 dopo queste addizioni il pronostico è

20 31 55 60 20 l'estrazione successiva uscirono

20 16 60 27 55 quindi ne avrebbe indovinati 3

se si riesce a capire con che criterio ha fatto quelle addizioni

Di script ne ho fatti 2
il primo c'è l'estrazione delle spiegazioni per vedere che i calcoli siano giusti
Nel secondo ho impostato tutte le ruote ed ho messo anche un imputbox
per cambiare la chiave fissa che di default è impostata a 1


Primo script con gli estratti delle spiegazioni

Codice: 
Option Explicit
Sub Main
   Dim Chiave,K
   Dim PrimoMezzoPeso(5),SecondoMezzoPeso(5)
   Dim S1(5),S2(5),S3(5),S4(5),S3_2(5),Som(5),AA(5),P1_2(5),P2_2(5),Bas0_2(5),Bas1_2(5)
   Dim A(5),B(5),D(5),E(5),F(5),G(5),H(5),I(5),Bas0(5),Bas1(5),PMP(5)
   Dim D2(5),E2(5),F2(5),G2(5),H2(5),I2(5),P1(5),P2(5),P3(5),SMP(5)
   A(1) = 61 : A(2) = 25 : A(3) = 01 : A(4) = 53 : A(5) = 06
   B(1) = 20 : B(2) = 16 : B(3) = 60 : B(4) = 27 : B(5) = 55
   Chiave = 1
   'Inizio Calcoli Primo Gruppo Piramidi
   'Calcoli Prima Piramide
   D(1) = Fuori90(A(1) + Chiave)
   E(1) = Fuori90(A(2) + D(1))
   F(1) = Fuori90(Chiave + D(1))
   G(1) = Fuori90(D(1) + E(1))
   H(1) = Fuori90(F(1) + G(1))
   I(1) = Fuori90(E(1) + G(1) + H(1))
   'Calcoli Seconda Piramide
   D(2) = Fuori90(A(2) + Chiave)
   E(2) = Fuori90(A(3) + D(2))
   F(2) = Fuori90(Chiave + D(2))
   G(2) = Fuori90(D(2) + E(2))
   H(2) = Fuori90(F(2) + G(2))
   I(2) = Fuori90(E(2) + G(2) + H(2))
   'Calcoli Terza Piramide
   D(3) = Fuori90(A(3) + Chiave)
   E(3) = Fuori90(A(4) + D(3))
   F(3) = Fuori90(Chiave + D(3))
   G(3) = Fuori90(D(3) + E(3))
   H(3) = Fuori90(F(3) + G(3))
   I(3) = Fuori90(E(3) + G(3) + H(3))
   'Calcoli Quarta Piramide
   D(4) = Fuori90(A(4) + Chiave)
   E(4) = Fuori90(A(5) + D(4))
   F(4) = Fuori90(Chiave + D(4))
   G(4) = Fuori90(D(4) + E(4))
   H(4) = Fuori90(F(4) + G(4))
   I(4) = Fuori90(E(4) + G(4) + H(4))
   'Calcoli Quinta Piramide
   D(5) = Fuori90(A(5) + Chiave)
   E(5) = Fuori90(A(1) + D(5))
   F(5) = Fuori90(Chiave + D(5))
   G(5) = Fuori90(D(5) + E(5))
   H(5) = Fuori90(F(5) + G(5))
   I(5) = Fuori90(E(5) + G(5) + H(5))
   'Fine Calcoli Primo Gruppo Piramidi
   For K = 1 To 5
      PrimoMezzoPeso(K) = Fuori90(I(K) * 13)
      PrimoMezzoPeso(K) = 91 - PrimoMezzoPeso(K)
      S1(K) = "Al Numero " & Format2(I(K)) & " corrisponde il primo mezzo peso " & Format2(PrimoMezzoPeso(K))
      AA(K) = A(K)
      PMP(K) = PrimoMezzoPeso(K)
      If(AA(K)) < 10 Then AA(K) = AA(K) + 90
      If Cadenza(AA(K)) = 0 Then Cadenza(AA(K)) = 9
      If(PMP(K)) < 10 Then PMP(K) = PMP(K) + 90
      If Cadenza(PMP(K)) = 0 Then Cadenza(PMP(K)) = 9
      Bas0(K) = AA(K) & PMP(K)
      Bas1(K) = AA(K) & PrimoMezzoPeso(K)
      P1(K) = Piramide(Bas0(K),1)
      P2(K) = Piramide(Bas0(K),2)
      SecondoMezzoPeso(K) = Fuori90(P2(K) * 13)
      S2(K) = "Al Numero " & Format2(P2(K)) & " corrisponde il secondo mezzo peso " & Format2(SecondoMezzoPeso(K))
      S3(K) = FuoriX(PrimoMezzoPeso(K) + SecondoMezzoPeso(K) + A(K),100)'Prima somma di tutto
      S3_2(K) = S3(K)
      If(S3_2(K)) < 10 Then S3_2(K) = S3_2(K) + 90
  
      Bas0_2(K) = AA(K) & S3_2(K)
      Bas1_2(K) = A(K) & S3(K)
      P1_2(K) = Piramide(Bas0_2(K),1)
      P2_2(K) = Piramide(Bas0_2(K),2)
      S4(K) = FuoriX(P2_2(K) + S3(K),100) 'seconda somma di tutto
   Next
   Scrivi "Estratti Ruota Di Roma Del 19-10-1775 " & StringaNumeri(A," ",True),1,0,,1
   Scrivi "  Estazione base per calcoli",1,,,1
   Scrivi "Estratti Ruota Di Roma Del 29-10-1775 " & StringaNumeri(B," ",True),1,0,,2
   Scrivi "  Estazione successiva",1,,,2
   Scrivi
   Scrivi Space(16) & "Con gli estratti base formare 5 gruppi di 2 numeri ",1,,,1
   Scrivi
   Scrivi Space(20) & "(" & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(A(1)) & ")",1
   Scrivi
   Scrivi Space(18) & "Prime Piramidi Per Ogni Gruppo Di 2 Numeri ",1,,,2
   Scrivi
   'PRIMA FILA
   Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
   Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
   Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
   Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
   Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
   'SECONDA FILA
   Scrivi Space(10) & Format2(Chiave) & " " & Format2(D(1)) & " " & Format2(E(1)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(2)) & " " & Format2(E(2)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(3)) & " " & Format2(E(3)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(4)) & " " & Format2(E(4)),1,0
   Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(5)) & " " & Format2(E(5)),1
   'TERZA FILA
   Scrivi Space(13) & Format2(F(1)) & " " & Format2(G(1)),1,0
   Scrivi Space(8) & Format2(F(2)) & " " & Format2(G(2)),1,0
   Scrivi Space(8) & Format2(F(3)) & " " & Format2(G(3)),1,0
   Scrivi Space(8) & Format2(F(4)) & " " & Format2(G(4)),1,0
   Scrivi Space(8) & Format2(F(5)) & " " & Format2(G(5)),1
   'QUARTA FILA
   Scrivi Space(16) & Format2(H(1)) & Space(11) & Format2(H(2)) & Space(11) & Format2(H(3)),1,0
   Scrivi Space(11) & Format2(H(4)) & Space(11) & Format2(H(5)),1
   'QUINTA FILA
   Scrivi Space(16) & Format2(I(1)) & Space(11) & Format2(I(2)) & Space(11) & Format2(I(3)),1,0,,2
   Scrivi Space(11) & Format2(I(4)) & Space(11) & Format2(I(5)),1,,,2
   Scrivi
   Scrivi Space(11) & "Per ognuno dei numeri evidenziati in rosso si deve prendere  ",1,,,1
   Scrivi Space(8) & "il corrispondente numero nei mezzi pesi della tavola settenaria ",1,,,1
   Scrivi
   Scrivi Space(16) & S1(1),1
   Scrivi Space(16) & S1(2),1
   Scrivi Space(16) & S1(3),1
   Scrivi Space(16) & S1(4),1
   Scrivi Space(16) & S1(5),1
   Scrivi
   Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente primo",1,,,1
   Scrivi Space(12) & "mezzo peso a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
   Scrivi
   Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(PrimoMezzoPeso(1)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(PrimoMezzoPeso(2)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(PrimoMezzoPeso(3)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(PrimoMezzoPeso(4)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(PrimoMezzoPeso(5)) & ")",1
   Scrivi
   Scrivi Space(23) & FormattaStringa(Bas1(1),"0000") & Space(3) & FormattaStringa(Bas1(2),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1(3),"0000") & Space(3) & FormattaStringa(Bas1(4),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1(5),"0000"),1,,,2
   Scrivi Space(23) & FormattaStringa(P1(1),"000") & Space(4) & FormattaStringa(P1(2),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1(3),"000") & Space(4) & FormattaStringa(P1(4),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1(5),"000"),1,,,1
   Scrivi Space(23) & FormattaStringa(P2(1),"00") & Space(5) & FormattaStringa(P2(2),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2(3),"00") & Space(5) & FormattaStringa(P2(4),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2(5),"00"),1,,,2
   Scrivi
   Scrivi Space(13) & "Per ogni cupide di queste piramidi trovare nella tavola",1,,,1
   Scrivi Space(13) & "dei secondi mezzi pesi il numero corrispondente ",1,,,1
   Scrivi
   Scrivi Space(15) & S2(1),1
   Scrivi Space(15) & S2(2),1
   Scrivi Space(15) & S2(3),1
   Scrivi Space(15) & S2(4),1
   Scrivi Space(15) & S2(5),1
   Scrivi
   Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
   Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
   Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
   Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
   Scrivi Space(40) & String(15,"-"),,,,2
   Scrivi Space(20) & "1a Somma di Tutti    " & StringaNumeri(S3," ",True),1
   Scrivi
   Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente alla",1,,,1
   Scrivi Space(12) & "somma di tutti a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
   Scrivi
   Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(S3(1)),1,0
   Scrivi ")(" & Format2(A(2)) & " " & Format2(S3(2)),1,0
   Scrivi ")(" & Format2(A(3)) & " " & Format2(S3(3)),1,0
   Scrivi ")(" & Format2(A(4)) & " " & Format2(S3(4)),1,0
   Scrivi ")(" & Format2(A(5)) & " " & Format2(S3(5)) & ")",1
   Scrivi
   Scrivi Space(23) & FormattaStringa(Bas1_2(1),"0000") & Space(3) & FormattaStringa(Bas1_2(2),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1_2(3),"0000") & Space(3) & FormattaStringa(Bas1_2(4),"0000"),1,0,,2
   Scrivi Space(3) & FormattaStringa(Bas1_2(5),"0000"),1,,,2
   Scrivi Space(23) & FormattaStringa(P1_2(1),"000") & Space(4) & FormattaStringa(P1_2(2),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1_2(3),"000") & Space(4) & FormattaStringa(P1_2(4),"000"),1,0,,1
   Scrivi Space(4) & FormattaStringa(P1_2(5),"000"),1,,,1
   Scrivi Space(23) & FormattaStringa(P2_2(1),"00") & Space(5) & FormattaStringa(P2_2(2),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2_2(3),"00") & Space(5) & FormattaStringa(P2_2(4),"00"),1,0,,2
   Scrivi Space(5) & FormattaStringa(P2_2(5),"00"),1,,,2
   Scrivi
   Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
   Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
   Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
   Scrivi Space(20) & "Cuspidi 3a piramide  " & StringaNumeri(P2_2," ",True),1
   Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
   Scrivi Space(40) & String(15,"-"),,,,2
   Scrivi Space(20) & "2a Somma di Tutti    " & StringaNumeri(S4," ",True),1

End Sub


Secondo script per tutte le ruote

Codice: 
Option Explicit
Sub Main
   Dim Ini,Fin,Salvo50,Es,R1,P,Casi,Caso,Chiave,k,Clp
   Dim PrimoMezzoPeso(5),SecondoMezzoPeso(5),Posta(5),Ruo(2)
   Dim S1(5),S2(5),S3(5),S4(5),aS4(5),S5(5),S3_2(5),Som(5),AA(5),P1_2(5),P2_2(5),Bas0_2(5),Bas1_2(5)
   Dim A(5),B(5),D(5),E(5),F(5),G(5),H(5),I(5),Bas0(5),Bas1(5),PMP(5)
   Dim D2(5),E2(5),F2(5),G2(5),H2(5),I2(5),P1(5),P2(5),P3(5),SMP(5)
   Posta(2) = 1
   Posta(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10700)
   Clp = InputBox("Inserisci per quanti colpi vuoi giocare",Salvo50,10)
   Chiave = InputBox("Inserisci il numero della chiave fissa",Salvo50,1)
   For Es = Ini To Fin - 1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P = 1 To 5
            A(P) = Estratto(Es,R1,P)
         Next
         'Inizio Calcoli Primo Gruppo Piramidi
         'Calcoli Prima Piramide
         D(1) = Fuori90(A(1) + Chiave)
         E(1) = Fuori90(A(2) + D(1))
         F(1) = Fuori90(Chiave + D(1))
         G(1) = Fuori90(D(1) + E(1))
         H(1) = Fuori90(F(1) + G(1))
         I(1) = Fuori90(E(1) + G(1) + H(1))
         'Calcoli Seconda Piramide
         D(2) = Fuori90(A(2) + Chiave)
         E(2) = Fuori90(A(3) + D(2))
         F(2) = Fuori90(Chiave + D(2))
         G(2) = Fuori90(D(2) + E(2))
         H(2) = Fuori90(F(2) + G(2))
         I(2) = Fuori90(E(2) + G(2) + H(2))
         'Calcoli Terza Piramide
         D(3) = Fuori90(A(3) + Chiave)
         E(3) = Fuori90(A(4) + D(3))
         F(3) = Fuori90(Chiave + D(3))
         G(3) = Fuori90(D(3) + E(3))
         H(3) = Fuori90(F(3) + G(3))
         I(3) = Fuori90(E(3) + G(3) + H(3))
         'Calcoli Quarta Piramide
         D(4) = Fuori90(A(4) + Chiave)
         E(4) = Fuori90(A(5) + D(4))
         F(4) = Fuori90(Chiave + D(4))
         G(4) = Fuori90(D(4) + E(4))
         H(4) = Fuori90(F(4) + G(4))
         I(4) = Fuori90(E(4) + G(4) + H(4))
         'Calcoli Quinta Piramide
         D(5) = Fuori90(A(5) + Chiave)
         E(5) = Fuori90(A(1) + D(5))
         F(5) = Fuori90(Chiave + D(5))
         G(5) = Fuori90(D(5) + E(5))
         H(5) = Fuori90(F(5) + G(5))
         I(5) = Fuori90(E(5) + G(5) + H(5))
         'Fine Calcoli Primo Gruppo Piramidi
         For k = 1 To 5
            PrimoMezzoPeso(k) = Fuori90(I(k) * 13)
            PrimoMezzoPeso(k) = 91 - PrimoMezzoPeso(k)
            S1(k) = "Al Numero " & Format2(I(k)) & " corrisponde il primo mezzo peso " & Format2(PrimoMezzoPeso(k))
            AA(k) = A(k)
            PMP(k) = PrimoMezzoPeso(k)
            Bas0(k) = AA(k) & PMP(k)
            Bas1(k) = A(k) & PrimoMezzoPeso(k)
            P1(k) = Piramide(Bas0(k),1)
            P2(k) = Piramide(Bas0(k),2)
            SecondoMezzoPeso(k) = Fuori90(P2(k) * 13)
            S2(k) = "Al Numero " & Format2(P2(k)) & " corrisponde il secondo mezzo peso " & Format2(SecondoMezzoPeso(k))
            S3(k) = FuoriX(PrimoMezzoPeso(k) + SecondoMezzoPeso(k) + A(k),100)'Prima somma di tutto
            S3_2(k) = S3(k)
            If(S3_2(k)) < 10 Then S3_2(k) = S3_2(k) + 90
            Bas0_2(k) = AA(k) & S3_2(k)
            Bas1_2(k) = A(k) & S3(k)
            P1_2(k) = Piramide(Bas0_2(k),1)
            P2_2(k) = Piramide(Bas0_2(k),2)
            S4(k) = FuoriX(P2_2(k) + S3(k),100) 'seconda somma di tutto
            S4(k) = Fuori90(S4(k))
            S5(k) = Fuori90(S4(k) + 1)
         Next
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "    " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
         Scrivi "  La chiave fissa impostata è  " & Chiave,1,,,1
         Scrivi
         Scrivi Space(16) & "Con gli estratti base formare 5 gruppi di 2 numeri ",1,,,1
         Scrivi
         Scrivi Space(20) & "(" & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi ")(" & Format2(A(2)) & " " & Format2(A(3)),1,0
         Scrivi ")(" & Format2(A(3)) & " " & Format2(A(4)),1,0
         Scrivi ")(" & Format2(A(4)) & " " & Format2(A(5)),1,0
         Scrivi ")(" & Format2(A(5)) & " " & Format2(A(1)) & ")",1
         Scrivi
         Scrivi Space(18) & "Prime Piramidi Per Ogni Gruppo Di 2 Numeri ",1,,,2
         Scrivi
         'PRIMA FILA
         Scrivi Space(10) & Format2(A(1)) & " " & Format2(A(2)),1,0
         Scrivi Space(8) & Format2(A(2)) & " " & Format2(A(3)),1,0
         Scrivi Space(8) & Format2(A(3)) & " " & Format2(A(4)),1,0
         Scrivi Space(8) & Format2(A(4)) & " " & Format2(A(5)),1,0
         Scrivi Space(8) & Format2(A(5)) & " " & Format2(A(1)),1
         'SECONDA FILA
         Scrivi Space(10) & Format2(Chiave) & " " & Format2(D(1)) & " " & Format2(E(1)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(2)) & " " & Format2(E(2)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(3)) & " " & Format2(E(3)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(4)) & " " & Format2(E(4)),1,0
         Scrivi Space(5) & Format2(Chiave) & " " & Format2(D(5)) & " " & Format2(E(5)),1
         'TERZA FILA
         Scrivi Space(13) & Format2(F(1)) & " " & Format2(G(1)),1,0
         Scrivi Space(8) & Format2(F(2)) & " " & Format2(G(2)),1,0
         Scrivi Space(8) & Format2(F(3)) & " " & Format2(G(3)),1,0
         Scrivi Space(8) & Format2(F(4)) & " " & Format2(G(4)),1,0
         Scrivi Space(8) & Format2(F(5)) & " " & Format2(G(5)),1
         'QUARTA FILA
         Scrivi Space(16) & Format2(H(1)) & Space(11) & Format2(H(2)) & Space(11) & Format2(H(3)),1,0
         Scrivi Space(11) & Format2(H(4)) & Space(11) & Format2(H(5)),1
         'QUINTA FILA
         Scrivi Space(16) & Format2(I(1)) & Space(11) & Format2(I(2)) & Space(11) & Format2(I(3)),1,0,,2
         Scrivi Space(11) & Format2(I(4)) & Space(11) & Format2(I(5)),1,,,2
         Scrivi
         Scrivi Space(11) & "Per ognuno dei numeri evidenziati in rosso si deve prendere  ",1,,,1
         Scrivi Space(8) & "il corrispondente numero nei mezzi pesi della tavola settenaria ",1,,,1
         Scrivi
         Scrivi Space(16) & S1(1),1 ' & " " & S2(1),1
         Scrivi Space(16) & S1(2),1 ' & " " & S2(2),1
         Scrivi Space(16) & S1(3),1 ' & " " & S2(3),1
         Scrivi Space(16) & S1(4),1 ' & " " & S2(4),1
         Scrivi Space(16) & S1(5),1 ' & " " & S2(5),1
         Scrivi
         Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente primo",1,,,1
         Scrivi Space(12) & "mezzo peso a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
         Scrivi
         Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(PrimoMezzoPeso(1)),1,0
         Scrivi ")(" & Format2(A(2)) & " " & Format2(PrimoMezzoPeso(2)),1,0
         Scrivi ")(" & Format2(A(3)) & " " & Format2(PrimoMezzoPeso(3)),1,0
         Scrivi ")(" & Format2(A(4)) & " " & Format2(PrimoMezzoPeso(4)),1,0
         Scrivi ")(" & Format2(A(5)) & " " & Format2(PrimoMezzoPeso(5)) & ")",1
         Scrivi
         Scrivi Space(23) & FormattaStringa(Bas1(1),"0000") & Space(3) & FormattaStringa(Bas1(2),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1(3),"0000") & Space(3) & FormattaStringa(Bas1(4),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1(5),"0000"),1,,,2
         Scrivi Space(23) & FormattaStringa(P1(1),"000") & Space(4) & FormattaStringa(P1(2),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1(3),"000") & Space(4) & FormattaStringa(P1(4),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1(5),"000"),1,,,1
         Scrivi Space(23) & FormattaStringa(P2(1),"00") & Space(5) & FormattaStringa(P2(2),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2(3),"00") & Space(5) & FormattaStringa(P2(4),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2(5),"00"),1,,,2
         Scrivi
         Scrivi Space(13) & "Per ogni cupide di queste piramidi trovare nella tavola",1,,,1
         Scrivi Space(13) & "dei secondi mezzi pesi il numero corrispondente ",1,,,1
         Scrivi
         Scrivi Space(15) & S2(1),1
         Scrivi Space(15) & S2(2),1
         Scrivi Space(15) & S2(3),1
         Scrivi Space(15) & S2(4),1
         Scrivi Space(15) & S2(5),1
         Scrivi
         Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
         Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
         Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
         Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
         Scrivi Space(40) & String(15,"-"),,,,2
         Scrivi Space(20) & "1a Somma di Tutti    " & StringaNumeri(S3," ",True),1
         Scrivi
         Scrivi Space(12) & "Ognuno degli estratti base unito al corrisondente alla",1,,,1
         Scrivi Space(12) & "somma di tutti a formare 5 gruppi di 2 numeri e piramidarli",1,,,1
         Scrivi
         Scrivi Space(22) & "(" & Format2(A(1)) & " " & Format2(S3(1)),1,0
         Scrivi ")(" & Format2(A(2)) & " " & Format2(S3(2)),1,0
         Scrivi ")(" & Format2(A(3)) & " " & Format2(S3(3)),1,0
         Scrivi ")(" & Format2(A(4)) & " " & Format2(S3(4)),1,0
         Scrivi ")(" & Format2(A(5)) & " " & Format2(S3(5)) & ")",1
         Scrivi
         Scrivi Space(23) & FormattaStringa(Bas1_2(1),"0000") & Space(3) & FormattaStringa(Bas1_2(2),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1_2(3),"0000") & Space(3) & FormattaStringa(Bas1_2(4),"0000"),1,0,,2
         Scrivi Space(3) & FormattaStringa(Bas1_2(5),"0000"),1,,,2
         Scrivi Space(23) & FormattaStringa(P1_2(1),"000") & Space(4) & FormattaStringa(P1_2(2),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1_2(3),"000") & Space(4) & FormattaStringa(P1_2(4),"000"),1,0,,1
         Scrivi Space(4) & FormattaStringa(P1_2(5),"000"),1,,,1
         Scrivi Space(23) & FormattaStringa(P2_2(1),"00") & Space(5) & FormattaStringa(P2_2(2),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2_2(3),"00") & Space(5) & FormattaStringa(P2_2(4),"00"),1,0,,2
         Scrivi Space(5) & FormattaStringa(P2_2(5),"00"),1,,,2
         Scrivi
         Scrivi Space(25) & "Sommare col fuori 100 ",1,,,1
         Scrivi Space(20) & "Primi mezzi pesi     " & StringaNumeri(PrimoMezzoPeso," ",True),1
         Scrivi Space(20) & "Secondi mezzi pesi   " & StringaNumeri(SecondoMezzoPeso," ",True),1
         Scrivi Space(20) & "Cuspidi 3a piramide  " & StringaNumeri(P2_2," ",True),1
         Scrivi Space(20) & "Estratti base        " & StringaNumeri(A," ",True),1
         Scrivi Space(40) & String(15,"-"),,,,2
         Scrivi Space(20) & "2a Somma di Tutti    " & StringaNumeri(S4," ",True),1
         Scrivi
         Scrivi Space(10) & "Il Pronostico è di Sommare 1 ad Ogni Numero Della 2a somma di Tutti ",1,,,1
         Scrivi
         Ruo(1) = R1
         EliminaRipetuti S5
         ImpostaGiocata 1,S5,Ruo,Posta,Clp
         Gioca Es,,,1
         'Next
      Next
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Grazie salvo, ho provato a inserire il pronostico anche a Tutte ma il risultato cambia di poco qualche terno ma solo a TUTTE , secondo me non è convienente così. Grazie lo stesso per l'impegno e il tempo che dedichi a tutti noi. Se qualcuno trova qualche soluzione diversa più convienente allora sono pronto a investire qualche euro. 🤞 🍀
 
Ciao a Tutti

Ho fatto delle prove con l'ultima cinquina.
ho cercato 3 cinquine
la prima facendo tutti e 5 numeri meno 1
la seconda non modificando i 5 numeri
la terza facendo tutti e 5 numeri più 1

e cambiando anche la chiave
e qualche quaterna l'ho vista

Però vai a indovinare la ruota giusta
e vai anche a indovinare la chiave giusta
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 ottobre 2025
    Bari
    43
    31
    77
    89
    85
    Cagliari
    50
    30
    77
    43
    53
    Firenze
    23
    53
    28
    11
    72
    Genova
    14
    86
    37
    22
    68
    Milano
    62
    14
    19
    48
    26
    Napoli
    46
    56
    42
    13
    77
    Palermo
    44
    71
    53
    73
    74
    Roma
    24
    56
    90
    57
    29
    Torino
    72
    02
    29
    12
    21
    Venezia
    10
    64
    37
    65
    22
    Nazionale
    69
    39
    08
    04
    61
    Estrazione Simbolotto
    09
    15
    20
    32
    42
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto