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.
 
La prima piramide è già fatta perchè è uguale al primo metodo
proseguo, l'autore ha usato la stessa estrazione del primo metodo
 
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
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 11 settembre 2025
    Bari
    60
    35
    51
    84
    13
    Cagliari
    57
    89
    73
    27
    16
    Firenze
    12
    73
    44
    36
    09
    Genova
    24
    22
    51
    16
    46
    Milano
    24
    62
    77
    55
    58
    Napoli
    41
    44
    09
    35
    50
    Palermo
    74
    62
    15
    21
    41
    Roma
    80
    40
    27
    07
    10
    Torino
    77
    34
    68
    17
    24
    Venezia
    65
    59
    10
    87
    11
    Nazionale
    34
    18
    77
    39
    03
    Estrazione Simbolotto
    Palermo
    18
    30
    17
    06
    21
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto