Novità

un aiuto x completare script

  • Creatore Discussione Creatore Discussione roy
  • Data di inizio Data di inizio

roy

Super Member >PLATINUM<
Ciao a tutti,mi serve un aiuto x completare uno script,grazie in anticipo

Lo script consiste nell'individuare una coppia di numeri (es: ambi uguali isotopi su qualunque delle 5 posizioni o ambi uguali isotopi stessa distanza,ect)

che chiameremo a e b, c e d non riesco a capire il passaggio x individuare gli altri numeri delle due cinquine.

altro problema è quello di inserire ogni mese ad ogni evento dei numeri da sommare agli stessi ,ogni mese diversi(es: gennaio 1,2,3,4,5,6,febbraio

3,5,7,9,1,11 e così via gli altri mesi) in base al mese dell'evento,grazie.

ho provato anche con qualche cpia incolla ...ma niente
 
Ti consiglio di inserire lo script che hai realizzato onde dare la possibilità a chi vorrebbe aiutarti di poterlo fare.
Un saluto
 
Salutando tutte/i. Una curiosità: Sei il Roy ... che postava su P.L. una decina di anni fa ? :) Grazie.
 
Bene!

Non dovrebbe essere difficile fare quanto chiedi.

Se ho capito bene l'evento rivelatore si presenta casualmente.

Quindi in "un mese" a caso.

A seconda del mese devi abbinare dei numeri diversi.

Diversi in funzione del mese.

Poi ... delle 2 cinquine che contengono l' Ambo Ripetuto

(cioè l'evento spia) vorresti "dividere" i numeri degli ambi presenti (i 2+2 numeri)

dai rimanenti 6.

In ultimo formare e testare "il pronostico" (correttamente calcolato).

L'uniche cose ... dovrò modificare lo script,

presentando qualche versione di prova ... su cui chiarire eventuali,

aspetti rimasti per ora non compresi / descritti / "inquadrati".

Inoltre .... mi ci vuole un pò di tempo.

:)
 
Ultima modifica:
Grazie Magia x la tua disponibilità,ho controllato x la somma mensile è ok,ora rimane l'individuazione dei 6 numeri restanti come ho esposto sù con l'eventuale griglia e l'individuazione dei frequenti nella suddetta.grazie
 
Buon Giorno a tutte/i.

Ho controllato i risultati prodotti dalle modifiche allo script di Amaretto,

sono identici a quelli calcolati dal mio. (che ha altre istruzioni).

Quindi un doppio (o triplo) riscontro certifica la correttezza formale dei pronostici.

Nel commento allo "script originale" si legge: "Tavola ... 2017"

Significa che i numeri variano di anno in anno oltre che di mese in mese ?

In questo caso è nota la logica con cui cambiano, cioè come è costruita la tavola ?

Poi ancora ... il redigendo controllo delle frequenze dei numeri

si deve considerare "il mese" ... "un "tot" di pronostici" un anno o cos'altro ?

:) Grazie per la risposta.
 
Ciao anche io ho fatto un piccolo script e restituisce gli stessi valori.
ma non ho capito il concetto .si utilizzano i numeri di rutilio ma
si verificano solo i numeri ripetuti.
ai numeri di rutilio andrebbeRo sommati tutti e 10 gli estratti e prendere i ripetuti oppure i restanti 6 estratti? Senza fare il +&-(3) vengono fuori o due gruppi da 30 e ovviamente i numeri ripetuti daranno somme ripetute.
complimenti per lo script che è veloce.
ciao a tutti:)
 
Ciao Roy

Rinnovo il ringraziamento e per la risposta.

Non nascondo la curiosità ... di poter/voler testare completamente

e concretamente, queste assurde supposizioni.

Ma il mio scetticismo è tale, da (quasi) impedirmi l'avventurarsi nell' impresa.

Quindi non ti prometto niente ... ma se ... dovessi mutare di un minimo le mie convinzioni,

può essere che vorrò trovare conferma alle mie ipotesi.

:)
 
Ultima modifica:
Ciao Roy
ciao Joe
Roy mi spiace ma passo la mano.
cm trovo affascinanti queste tecniche del passato.
ciao e buona giornata a tutti.
 
Buoniorno.
Le frequenze che richiede rigurdano i numeri della griglia in quel momento ?
Per i curiosi , postiamo il listato delle Tavole di Rutilio Benincasa , reperito in rete

Codice:
Option Explicit
'Le Tavole Periodiche di Rutilio Benincasa
Sub Main()
Dim Caso : Caso = 00
Dim Ini,fin,es : Ini = 9260 : fin = EstrazioneFin - 01
For es = Ini To fin : Call Messaggio(es): Call AvanzamentoElab(Ini,fin,es)
Dim YY,YYInCorso,TabInCorso : YY = Anno(es) - 1551 : YYInCorso = Int(YY / 19) * 19 : TabInCorso = YY - YYInCorso
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
ReDim x(06)
Dim MM : MM = Mese(es)
Dim Tav,TavRiga
If TabInCorso = 01 Then
Tav =("Tavola I (1552)")
Select Case(MM)
Case(01) : x(01) = 36 : x(01) = 11 : x(01) = 58 : x(01) = 16 : x(01) = 98 : x(01) = 23 : TavRiga =("Gennaio       36    11 58 16 98 23")
Case(02) : x(01) = 73 : x(01) = 85 : x(01) = 78 : x(01) = 02 : x(01) = 31 : x(01) = 17 : TavRiga =("Febbraio      73    85 78 02 31 17")
Case(03) : x(01) = 79 : x(01) = 55 : x(01) = 03 : x(01) = 44 : x(01) = 01 : x(01) = 13 : TavRiga =("Marzo         79    55 03 44 01 13")
Case(04) : x(01) = 15 : x(01) = 09 : x(01) = 20 : x(01) = 39 : x(01) = 73 : x(01) = 10 : TavRiga =("Aprile        15    09 20 39 73 10")
Case(05) : x(01) = 84 : x(01) = 15 : x(01) = 83 : x(01) = 58 : x(01) = 38 : x(01) = 11 : TavRiga =("Maggio        84    15 83 58 38 11")
Case(06) : x(01) = 76 : x(01) = 77 : x(01) = 66 : x(01) = 71 : x(01) = 89 : x(01) = 56 : TavRiga =("Giugno        76    77 66 71 89 56")
Case(07) : x(01) = 61 : x(01) = 35 : x(01) = 36 : x(01) = 34 : x(01) = 11 : x(01) = 53 : TavRiga =("Luglio        61    35 36 34 11 53")
Case(08) : x(01) = 62 : x(01) = 26 : x(01) = 28 : x(01) = 65 : x(01) = 41 : x(01) = 13 : TavRiga =("Agosto        62    26 28 65 41 13")
Case(09) : x(01) = 38 : x(01) = 40 : x(01) = 17 : x(01) = 57 : x(01) = 10 : x(01) = 18 : TavRiga =("Settembre     38    40 17 57 10 18")
Case(10) : x(01) = 92 : x(01) = 46 : x(01) = 28 : x(01) = 47 : x(01) = 22 : x(01) = 74 : TavRiga =("Ottobre       92    46 28 47 22 74")
Case(11) : x(01) = 32 : x(01) = 36 : x(01) = 84 : x(01) = 09 : x(01) = 16 : x(01) = 21 : TavRiga =("Novembre      32    36 84 09 16 21")
Case(12) : x(01) = 68 : x(01) = 74 : x(01) = 56 : x(01) = 51 : x(01) = 54 : x(01) = 22 : TavRiga =("Dicembre      68    74 56 51 54 22")
End Select
ElseIf TabInCorso = 02 Then
Tav =("Tavola II (1553)")
Select Case(MM)
Case(01) : x(01) = 26 : x(01) = 46 : x(01) = 13 : x(01) = 45 : x(01) = 09 : x(01) = 74 : TavRiga =("Gennaio 26 46 13 45 09 74")
Case(02) : x(01) = 88 : x(01) = 35 : x(01) = 14 : x(01) = 05 : x(01) = 39 : x(01) = 35 : TavRiga =("Febbraio 88 35 14 05 39 35")
Case(03) : x(01) = 67 : x(01) = 64 : x(01) = 62 : x(01) = 18 : x(01) = 16 : x(01) = 03 : TavRiga =("Marzo   67 64 62 18 16 03")
Case(04) : x(01) = 59 : x(01) = 13 : x(01) = 80 : x(01) = 73 : x(01) = 54 : x(01) = 29 : TavRiga =("Aprile   59 13 80 73 54 29")
Case(05) : x(01) = 81 : x(01) = 75 : x(01) = 58 : x(01) = 69 : x(01) = 15 : x(01) = 24 : TavRiga =("Maggio   81 75 58 69 15 24")
Case(06) : x(01) = 73 : x(01) = 60 : x(01) = 15 : x(01) = 38 : x(01) = 22 : x(01) = 07 : TavRiga =("Giugno   73 60 15 38 22 07")
Case(07) : x(01) = 57 : x(01) = 17 : x(01) = 26 : x(01) = 81 : x(01) = 16 : x(01) = 39 : TavRiga =("Luglio   57 17 26 81 16 39")
Case(08) : x(01) = 44 : x(01) = 09 : x(01) = 43 : x(01) = 15 : x(01) = 03 : x(01) = 61 : TavRiga =("Agosto   44 09 43 15 03 61")
Case(09) : x(01) = 05 : x(01) = 18 : x(01) = 47 : x(01) = 11 : x(01) = 52 : x(01) = 04 : TavRiga =("Settembre 05 18 47 11 52 04")
Case(10) : x(01) = 03 : x(01) = 40 : x(01) = 61 : x(01) = 29 : x(01) = 17 : x(01) = 12 : TavRiga =("Ottobre 03 40 61 29 17 12")
Case(11) : x(01) = 26 : x(01) = 04 : x(01) = 16 : x(01) = 21 : x(01) = 40 : x(01) = 38 : TavRiga =("Novembre 26 04 16 21 40 38")
Case(12) : x(01) = 31 : x(01) = 29 : x(01) = 53 : x(01) = 24 : x(01) = 33 : x(01) = 08 : TavRiga =("Dicembre 31 29 53 24 33 08")
End Select
ElseIf TabInCorso = 03 Then
Tav =("Tavola III (1554)")
Select Case(MM)
Case(01) : x(01) = 53 : x(01) = 24 : x(01) = 44 : x(01) = 27 : x(01) = 11 : x(01) = 03 : TavRiga =("Gennaio 53 24 44 27 11 03")
Case(02) : x(01) = 82 : x(01) = 18 : x(01) = 16 : x(01) = 30 : x(01) = 43 : x(01) = 21 : TavRiga =("Febbraio 82 18 16 30 43 21")
Case(03) : x(01) = 03 : x(01) = 13 : x(01) = 44 : x(01) = 22 : x(01) = 46 : x(01) = 28 : TavRiga =("Marzo   03 13 44 22 46 28")
Case(04) : x(01) = 81 : x(01) = 09 : x(01) = 54 : x(01) = 26 : x(01) = 19 : x(01) = 04 : TavRiga =("Aprile   81 09 54 26 19 04")
Case(05) : x(01) = 69 : x(01) = 03 : x(01) = 76 : x(01) = 07 : x(01) = 11 : x(01) = 20 : TavRiga =("Maggio        69 03 76 07 11 20")
Case(06) : x(01) = 08 : x(01) = 23 : x(01) = 38 : x(01) = 21 : x(01) = 15 : x(01) = 36 : TavRiga =("Giugno   08 23 38 21 15 36")
Case(07) : x(01) = 13 : x(01) = 47 : x(01) = 11 : x(01) = 70 : x(01) = 44 : x(01) = 09 : TavRiga =("Luglio   13 47 11 70 44 09")
Case(08) : x(01) = 17 : x(01) = 45 : x(01) = 19 : x(01) = 47 : x(01) = 16 : x(01) = 32 : TavRiga =("Agosto   17 45 19 47 16 32")
Case(09) : x(01) = 61 : x(01) = 59 : x(01) = 55 : x(01) = 34 : x(01) = 15 : x(01) = 39 : TavRiga =("Settembre 61 59 55 34 15 39")
Case(10) : x(01) = 12 : x(01) = 16 : x(01) = 19 : x(01) = 83 : x(01) = 22 : x(01) = 09 : TavRiga =("Ottobre 12 16 19 83 22 09")
Case(11) : x(01) = 75 : x(01) = 14 : x(01) = 83 : x(01) = 91 : x(01) = 46 : x(01) = 35 : TavRiga =("Novembre 75 14 83 91 46 35")
Case(12) : x(01) = 69 : x(01) = 04 : x(01) = 73 : x(01) = 13 : x(01) = 01 : x(01) = 20 : TavRiga =("Dicembre 69 04 73 13 01 20")
End Select
ElseIf TabInCorso = 04 Then
Tav =("Tavola IV (1555)")
Select Case(MM)
Case(01) : x(01) = 04 : x(01) = 62 : x(01) = 47 : x(01) = 17 : x(01) = 27 : x(01) = 16 : TavRiga =("Gennaio 04 62 47 17 27 16")
Case(02) : x(01) = 19 : x(01) = 15 : x(01) = 31 : x(01) = 52 : x(01) = 58 : x(01) = 35 : TavRiga =("Febbraio 19 15 31 52 58 35")
Case(03) : x(01) = 67 : x(01) = 86 : x(01) = 07 : x(01) = 55 : x(01) = 27 : x(01) = 90 : TavRiga =("Marzo   67 86 07 55 27 90")
Case(04) : x(01) = 73 : x(01) = 07 : x(01) = 74 : x(01) = 59 : x(01) = 08 : x(01) = 02 : TavRiga =("Aprile   73 07 74 59 08 02")
Case(05) : x(01) = 39 : x(01) = 61 : x(01) = 23 : x(01) = 07 : x(01) = 16 : x(01) = 24 : TavRiga =("Maggio   39 61 23 07 16 24")
Case(06) : x(01) = 06 : x(01) = 05 : x(01) = 13 : x(01) = 34 : x(01) = 26 : x(01) = 83 : TavRiga =("Giugno   06 05 13 34 26 83")
Case(07) : x(01) = 27 : x(01) = 15 : x(01) = 24 : x(01) = 37 : x(01) = 79 : x(01) = 02 : TavRiga =("Luglio   27 15 24 37 79 02")
Case(08) : x(01) = 05 : x(01) = 53 : x(01) = 71 : x(01) = 46 : x(01) = 55 : x(01) = 60 : TavRiga =("Agosto   05 53 71 46 55 60")
Case(09) : x(01) = 47 : x(01) = 07 : x(01) = 81 : x(01) = 42 : x(01) = 41 : x(01) = 57 : TavRiga =("Settembre 47 07 81 42 41 57")
Case(10) : x(01) = 04 : x(01) = 11 : x(01) = 19 : x(01) = 72 : x(01) = 52 : x(01) = 12 : TavRiga =("Ottobre 04 11 19 72 52 12")
Case(11) : x(01) = 69 : x(01) = 77 : x(01) = 41 : x(01) = 13 : x(01) = 59 : x(01) = 11 : TavRiga =("Novembre 69 77 41 13 59 11")
Case(12) : x(01) = 71 : x(01) = 70 : x(01) = 15 : x(01) = 38 : x(01) = 77 : x(01) = 04 : TavRiga =("Dicembre 71 70 15 38 77 04")
End Select
ElseIf TabInCorso = 05 Then
Tav =("Tavola V (1556)")
Select Case(MM)
Case(01) : x(01) = 11 : x(01) = 38 : x(01) = 37 : x(01) = 72 : x(01) = 44 : x(01) = 23 : TavRiga =("Gennaio 11 38 37 72 44 23")
Case(02) : x(01) = 17 : x(01) = 23 : x(01) = 16 : x(01) = 48 : x(01) = 13 : x(01) = 29 : TavRiga =("Febbraio 17 23 16 48 13 29")
Case(03) : x(01) = 10 : x(01) = 79 : x(01) = 51 : x(01) = 76 : x(01) = 24 : x(01) = 31 : TavRiga =("Marzo   10 79 51 76 24 31")
Case(04) : x(01) = 30 : x(01) = 17 : x(01) = 24 : x(01) = 81 : x(01) = 39 : x(01) = 15 : TavRiga =("Aprile   30 17 24 81 39 15")
Case(05) : x(01) = 05 : x(01) = 32 : x(01) = 11 : x(01) = 22 : x(01) = 26 : x(01) = 40 : TavRiga =("Maggio   05 32 11 22 26 40")
Case(06) : x(01) = 13 : x(01) = 24 : x(01) = 34 : x(01) = 56 : x(01) = 11 : x(01) = 39 : TavRiga =("Giugno   13 24 34 56 11 39")
Case(07) : x(01) = 06 : x(01) = 66 : x(01) = 55 : x(01) = 10 : x(01) = 28 : x(01) = 90 : TavRiga =("Luglio   06 66 55 10 28 90")
Case(08) : x(01) = 15 : x(01) = 44 : x(01) = 31 : x(01) = 43 : x(01) = 26 : x(01) = 49 : TavRiga =("Agosto   15 44 31 43 26 49")
Case(09) : x(01) = 57 : x(01) = 16 : x(01) = 25 : x(01) = 90 : x(01) = 28 : x(01) = 12 : TavRiga =("Settembre 57 16 25 90 28 12")
Case(10) : x(01) = 80 : x(01) = 86 : x(01) = 72 : x(01) = 48 : x(01) = 15 : x(01) = 11 : TavRiga =("Ottobre 80 86 72 48 15 11")
Case(11) : x(01) = 70 : x(01) = 78 : x(01) = 74 : x(01) = 45 : x(01) = 59 : x(01) = 73 : TavRiga =("Novembre 70 78 74 45 59 73")
Case(12) : x(01) = 70 : x(01) = 47 : x(01) = 52 : x(01) = 16 : x(01) = 48 : x(01) = 23 : TavRiga =("Dicembre 70 47 52 16 48 23")
End Select
ElseIf TabInCorso = 06 Then
Tav =("Tavola VI (1557)")
Select Case(MM)
Case(01) : x(01) = 34 : x(01) = 16 : x(01) = 07 : x(01) = 49 : x(01) = 19 : x(01) = 36 : TavRiga =("Gennaio 34 16 07 49 19 36")
Case(02) : x(01) = 11 : x(01) = 72 : x(01) = 10 : x(01) = 71 : x(01) = 23 : x(01) = 29 : TavRiga =("Febbraio 11 72 10 71 23 29")
Case(03) : x(01) = 07 : x(01) = 55 : x(01) = 30 : x(01) = 37 : x(01) = 16 : x(01) = 20 : TavRiga =("Marzo     07 55 30 37 16 20")
Case(04) : x(01) = 31 : x(01) = 04 : x(01) = 33 : x(01) = 10 : x(01) = 17 : x(01) = 85 : TavRiga =("Aprile   31 04 33 10 17 85")
Case(05) : x(01) = 05 : x(01) = 13 : x(01) = 24 : x(01) = 66 : x(01) = 33 : x(01) = 29 : TavRiga =("Maggio   05 13 24 66 33 29")
Case(06) : x(01) = 80 : x(01) = 07 : x(01) = 13 : x(01) = 05 : x(01) = 46 : x(01) = 23 : TavRiga =("Giugno   80 07 13 05 46 23")
Case(07) : x(01) = 71 : x(01) = 28 : x(01) = 41 : x(01) = 48 : x(01) = 56 : x(01) = 25 : TavRiga =("Luglio        71 28 41 48 56 25")
Case(08) : x(01) = 47 : x(01) = 15 : x(01) = 28 : x(01) = 61 : x(01) = 08 : x(01) = 66 : TavRiga =("Agosto     47 15 28 61 08 66")
Case(09) : x(01) = 11 : x(01) = 59 : x(01) = 56 : x(01) = 24 : x(01) = 12 : x(01) = 27 : TavRiga =("Settembre 11 59 56 24 12 27")
Case(10) : x(01) = 25 : x(01) = 41 : x(01) = 16 : x(01) = 34 : x(01) = 18 : x(01) = 09 : TavRiga =("Ottobre 25 41 16 34 18 09")
Case(11) : x(01) = 19 : x(01) = 67 : x(01) = 37 : x(01) = 21 : x(01) = 62 : x(01) = 08 : TavRiga =("Novembre 19 67 37 21 62 08")
Case(12) : x(01) = 83 : x(01) = 85 : x(01) = 58 : x(01) = 12 : x(01) = 32 : x(01) = 06 : TavRiga =("Dicembre 83 85 58 12 32 06")
End Select
ElseIf TabInCorso = 07 Then
Tav =("Tavola VII (1558)")
Select Case(MM)
Case(01) : x(01) = 27 : x(01) = 35 : x(01) = 17 : x(01) = 38 : x(01) = 53 : x(01) = 47 : TavRiga =("Gennaio 27 35 17 38 53 47")
Case(02) : x(01) = 17 : x(01) = 50 : x(01) = 79 : x(01) = 48 : x(01) = 42 : x(01) = 37 : TavRiga =("Febbraio 17 50 79 48 42 37")
Case(03) : x(01) = 61 : x(01) = 07 : x(01) = 34 : x(01) = 53 : x(01) = 09 : x(01) = 05 : TavRiga =("Marzo   61 07 34 53 09 05")
Case(04) : x(01) = 26 : x(01) = 06 : x(01) = 32 : x(01) = 68 : x(01) = 47 : x(01) = 13 : TavRiga =("Aprile   26 06 32 68 47 13")
Case(05) : x(01) = 17 : x(01) = 42 : x(01) = 83 : x(01) = 18 : x(01) = 57 : x(01) = 28 : TavRiga =("Maggio   17 42 83 18 57 28")
Case(06) : x(01) = 89 : x(01) = 15 : x(01) = 64 : x(01) = 36 : x(01) = 40 : x(01) = 15 : TavRiga =("Giugno   89 15 64 36 40 15")
Case(07) : x(01) = 16 : x(01) = 79 : x(01) = 19 : x(01) = 65 : x(01) = 44 : x(01) = 49 : TavRiga =("Luglio   16 79 19 65 44 49")
Case(08) : x(01) = 62 : x(01) = 73 : x(01) = 30 : x(01) = 15 : x(01) = 58 : x(01) = 18 : TavRiga =("Agosto   62 73 30 15 58 18")
Case(09) : x(01) = 66 : x(01) = 61 : x(01) = 09 : x(01) = 01 : x(01) = 25 : x(01) = 12 : TavRiga =("Settembre 66 61 09 01 25 12")
Case(10) : x(01) = 18 : x(01) = 24 : x(01) = 31 : x(01) = 47 : x(01) = 08 : x(01) = 19 : TavRiga =("Ottobre 18 24 31 47 08 19")
Case(11) : x(01) = 03 : x(01) = 74 : x(01) = 69 : x(01) = 15 : x(01) = 27 : x(01) = 53 : TavRiga =("Novembre 03 74 69 15 27 53")
Case(12) : x(01) = 80 : x(01) = 05 : x(01) = 36 : x(01) = 37 : x(01) = 76 : x(01) = 67 : TavRiga =("Dicembre 80 05 36 37 76 67")
End Select
ElseIf TabInCorso = 08 Then
Tav =("Tavola VIII (1559)")
Select Case(MM)
Case(01) : x(01) = 04 : x(01) = 13 : x(01) = 11 : x(01) = 26 : x(01) = 30 : x(01) = 37 : TavRiga =("Gennaio 04 13 11 26 30 37")
Case(02) : x(01) = 26 : x(01) = 49 : x(01) = 15 : x(01) = 21 : x(01) = 86 : x(01) = 58 : TavRiga =("Febbraio 26 49 15 21 86 58")
Case(03) : x(01) = 80 : x(01) = 53 : x(01) = 35 : x(01) = 46 : x(01) = 57 : x(01) = 72 : TavRiga =("Marzo   80 53 35 46 57 72")
Case(04) : x(01) = 70 : x(01) = 07 : x(01) = 02 : x(01) = 25 : x(01) = 34 : x(01) = 45 : TavRiga =("Aprile   70 07 02 25 34 45")
Case(05) : x(01) = 10 : x(01) = 85 : x(01) = 18 : x(01) = 41 : x(01) = 38 : x(01) = 21 : TavRiga =("Maggio   10 85 18 41 38 21")
Case(06) : x(01) = 15 : x(01) = 81 : x(01) = 72 : x(01) = 48 : x(01) = 27 : x(01) = 51 : TavRiga =("Giugno   15 81 72 48 27 51")
Case(07) : x(01) = 48 : x(01) = 21 : x(01) = 36 : x(01) = 27 : x(01) = 26 : x(01) = 29 : TavRiga =("Luglio   48 21 36 27 26 29")
Case(08) : x(01) = 05 : x(01) = 11 : x(01) = 08 : x(01) = 02 : x(01) = 06 : x(01) = 03 : TavRiga =("Agosto   05 11 08 02 06 03")
Case(09) : x(01) = 22 : x(01) = 07 : x(01) = 04 : x(01) = 59 : x(01) = 24 : x(01) = 28 : TavRiga =("Settembre 22 07 04 59 24 28")
Case(10) : x(01) = 88 : x(01) = 41 : x(01) = 52 : x(01) = 32 : x(01) = 37 : x(01) = 39 : TavRiga =("Ottobre 88 41 52 32 37 39")
Case(11) : x(01) = 01 : x(01) = 15 : x(01) = 25 : x(01) = 31 : x(01) = 59 : x(01) = 19 : TavRiga =("Novembre 01 15 25 31 59 19")
Case(12) : x(01) = 80 : x(01) = 46 : x(01) = 57 : x(01) = 59 : x(01) = 26 : x(01) = 04 : TavRiga =("Dicembre 80 46 57 59 26 04")
End Select
ElseIf TabInCorso = 09 Then
Tav =("Tavola IX (1560)")
Select Case(MM)
Case(01) : x(01) = 25 : x(01) = 07 : x(01) = 49 : x(01) = 10 : x(01) = 69 : x(01) = 65 : TavRiga =("Gennaio 25 07 49 10 69 65")
Case(02) : x(01) = 03 : x(01) = 59 : x(01) = 15 : x(01) = 38 : x(01) = 56 : x(01) = 13 : TavRiga =("Febbraio 03 59 15 38 56 13")
Case(03) : x(01) = 06 : x(01) = 07 : x(01) = 04 : x(01) = 11 : x(01) = 47 : x(01) = 60 : TavRiga =("Marzo   06 07 04 11 47 60")
Case(04) : x(01) = 70 : x(01) = 02 : x(01) = 35 : x(01) = 45 : x(01) = 15 : x(01) = 64 : TavRiga =("Aprile        70 02 35 45 15 64")
Case(05) : x(01) = 14 : x(01) = 53 : x(01) = 27 : x(01) = 17 : x(01) = 89 : x(01) = 61 : TavRiga =("Maggio   14 53 27 17 89 61")
Case(06) : x(01) = 06 : x(01) = 13 : x(01) = 81 : x(01) = 48 : x(01) = 87 : x(01) = 59 : TavRiga =("Giugno   06 13 81 48 87 59")
Case(07) : x(01) = 17 : x(01) = 56 : x(01) = 37 : x(01) = 24 : x(01) = 25 : x(01) = 27 : TavRiga =("Luglio   17 56 37 24 25 27")
Case(08) : x(01) = 20 : x(01) = 03 : x(01) = 11 : x(01) = 55 : x(01) = 15 : x(01) = 68 : TavRiga =("Agosto   20 03 11 55 15 68")
Case(09) : x(01) = 12 : x(01) = 41 : x(01) = 19 : x(01) = 28 : x(01) = 05 : x(01) = 39 : TavRiga =("Settembre 12 41 19 28 05 39")
Case(10) : x(01) = 42 : x(01) = 20 : x(01) = 16 : x(01) = 35 : x(01) = 86 : x(01) = 06 : TavRiga =("Ottobre 42 20 16 35 86 06")
Case(11) : x(01) = 12 : x(01) = 24 : x(01) = 42 : x(01) = 17 : x(01) = 07 : x(01) = 68 : TavRiga =("Novembre 12 24 42 17 07 68")
Case(12) : x(01) = 43 : x(01) = 08 : x(01) = 39 : x(01) = 04 : x(01) = 02 : x(01) = 06 : TavRiga =("Dicembre 43 08 39 04 02 06")
End Select
ElseIf TabInCorso = 10 Then
Tav =("Tavola X (1561)")
Select Case(MM)
Case(01) : x(01) = 10 : x(02) = 47 : x(03) = 44 : x(04) = 35 : x(05) = 21 : x(06) = 79 : TavRiga =("Gennaio 10 47 44 35 21 79")
Case(02) : x(01) = 38 : x(02) = 17 : x(03) = 11 : x(04) = 56 : x(05) = 18 : x(06) = 46 : TavRiga =("Febbraio 38 17 11 56 18 46")
Case(03) : x(01) = 09 : x(02) = 47 : x(03) = 61 : x(04) = 35 : x(05) = 31 : x(06) = 10 : TavRiga =("Marzo   09 47 61 35 31 10")
Case(04) : x(01) = 74 : x(02) = 81 : x(03) = 71 : x(04) = 15 : x(05) = 24 : x(06) = 79 : TavRiga =("Aprile   74 81 71 15 24 79")
Case(05) : x(01) = 05 : x(02) = 28 : x(03) = 13 : x(04) = 50 : x(05) = 15 : x(06) = 38 : TavRiga =("Maggio   05 28 13 50 15 38")
Case(06) : x(01) = 17 : x(02) = 34 : x(03) = 15 : x(04) = 28 : x(05) = 63 : x(06) = 56 : TavRiga =("Giugno   17 34 15 28 63 56")
Case(07) : x(01) = 34 : x(02) = 11 : x(03) = 26 : x(04) = 18 : x(05) = 16 : x(06) = 46 : TavRiga =("Luglio   34 11 26 18 16 46")
Case(08) : x(01) = 89 : x(02) = 19 : x(03) = 23 : x(04) = 11 : x(05) = 60 : x(06) = 56 : TavRiga =("Agosto   89 19 23 11 60 56")
Case(09) : x(01) = 66 : x(02) = 41 : x(03) = 15 : x(04) = 28 : x(05) = 68 : x(06) = 60 : TavRiga =("Settembre 66 41 15 28 68 60")
Case(10) : x(01) = 21 : x(02) = 18 : x(03) = 10 : x(04) = 14 : x(05) = 81 : x(06) = 25 : TavRiga =("Ottobre 21 18 10 14 81 25")
Case(11) : x(01) = 80 : x(02) = 05 : x(03) = 50 : x(04) = 75 : x(05) = 14 : x(06) = 87 : TavRiga =("Novembre 80 05 50 75 14 87")
Case(12) : x(01) = 36 : x(02) = 41 : x(03) = 11 : x(04) = 15 : x(05) = 14 : x(06) = 85 : TavRiga =("Dicembre 36 41 11 15 14 85")
End Select
ElseIf TabInCorso = 11 Then
Tav =("Tavola XI (1562)")
Select Case(MM)
Case(01) : x(01) = 01 : x(01) = 05 : x(01) = 08 : x(01) = 07 : x(01) = 20 : x(01) = 34 : TavRiga =("Gennaio 01 05 08 07 20 34")
Case(02) : x(01) = 40 : x(01) = 18 : x(01) = 02 : x(01) = 12 : x(01) = 26 : x(01) = 81 : TavRiga =("Febbraio 40 18 02 12 26 81")
Case(03) : x(01) = 09 : x(01) = 15 : x(01) = 52 : x(01) = 24 : x(01) = 19 : x(01) = 39 : TavRiga =("Marzo   09 15 52 24 19 39")
Case(04) : x(01) = 02 : x(01) = 30 : x(01) = 20 : x(01) = 07 : x(01) = 24 : x(01) = 18 : TavRiga =("Aprile   02 30 20 07 24 18")
Case(05) : x(01) = 24 : x(01) = 36 : x(01) = 46 : x(01) = 11 : x(01) = 40 : x(01) = 03 : TavRiga =("Maggio   24 36 46 11 40 03")
Case(06) : x(01) = 32 : x(01) = 40 : x(01) = 45 : x(01) = 07 : x(01) = 15 : x(01) = 39 : TavRiga =("Giugno   32 40 45 07 15 39")
Case(07) : x(01) = 04 : x(01) = 80 : x(01) = 35 : x(01) = 59 : x(01) = 12 : x(01) = 27 : TavRiga =("Luglio   04 80 35 59 12 27")
Case(08) : x(01) = 09 : x(01) = 28 : x(01) = 31 : x(01) = 24 : x(01) = 61 : x(01) = 76 : TavRiga =("Agosto   09 28 31 24 61 76")
Case(09) : x(01) = 55 : x(01) = 23 : x(01) = 04 : x(01) = 29 : x(01) = 84 : x(01) = 02 : TavRiga =("Settembre 55 23 04 29 84 02")
Case(10) : x(01) = 46 : x(01) = 73 : x(01) = 08 : x(01) = 24 : x(01) = 18 : x(01) = 16 : TavRiga =("Ottobre 46 73 08 24 18 16")
Case(11) : x(01) = 07 : x(01) = 12 : x(01) = 42 : x(01) = 45 : x(01) = 60 : x(01) = 51 : TavRiga =("Novembre 07 12 42 45 60 51")
Case(12) : x(01) = 15 : x(01) = 28 : x(01) = 17 : x(01) = 01 : x(01) = 57 : x(01) = 45 : TavRiga =("Dicembre 15 28 17 01 57 45")
End Select
ElseIf TabInCorso = 12 Then
Tav =("Tavola XII (1563)")
Select Case(MM)
Case(01) : x(01) = 55 : x(01) = 56 : x(01) = 48 : x(01) = 13 : x(01) = 35 : x(01) = 29 : TavRiga =("Gennaio 55 56 48 13 35 29")
Case(02) : x(01) = 51 : x(01) = 45 : x(01) = 16 : x(01) = 64 : x(01) = 38 : x(01) = 12 : TavRiga =("Febbraio 51 45 16 64 38 12")
Case(03) : x(01) = 18 : x(01) = 57 : x(01) = 46 : x(01) = 16 : x(01) = 21 : x(01) = 13 : TavRiga =("Marzo   18 57 46 16 21 13")
Case(04) : x(01) = 17 : x(01) = 40 : x(01) = 29 : x(01) = 28 : x(01) = 27 : x(01) = 39 : TavRiga =("Aprile   17 40 29 28 27 39")
Case(05) : x(01) = 57 : x(01) = 28 : x(01) = 15 : x(01) = 43 : x(01) = 39 : x(01) = 04 : TavRiga =("Maggio   57 28 15 43 39 04")
Case(06) : x(01) = 11 : x(01) = 25 : x(01) = 46 : x(01) = 71 : x(01) = 54 : x(01) = 16 : TavRiga =("Giugno   11 25 46 71 54 16")
Case(07) : x(01) = 08 : x(01) = 45 : x(01) = 16 : x(01) = 19 : x(01) = 43 : x(01) = 02 : TavRiga =("Luglio   08 45 16 19 43 02")
Case(08) : x(01) = 17 : x(01) = 44 : x(01) = 52 : x(01) = 40 : x(01) = 25 : x(01) = 83 : TavRiga =("Agosto   17 44 52 40 25 83")
Case(09) : x(01) = 02 : x(01) = 05 : x(01) = 09 : x(01) = 17 : x(01) = 21 : x(01) = 38 : TavRiga =("Settembre 02 05 09 17 21 38")
Case(10) : x(01) = 32 : x(01) = 19 : x(01) = 46 : x(01) = 12 : x(01) = 24 : x(01) = 04 : TavRiga =("Ottobre 32 19 46 12 24 04")
Case(11) : x(01) = 29 : x(01) = 54 : x(01) = 43 : x(01) = 40 : x(01) = 50 : x(01) = 51 : TavRiga =("Novembre 29 54 43 40 50 51")
Case(12) : x(01) = 46 : x(01) = 37 : x(01) = 43 : x(01) = 51 : x(01) = 70 : x(01) = 80 : TavRiga =("Dicembre 46 37 43 51 70 80")
End Select
ElseIf TabInCorso = 13 Then
Tav =("Tavola XIII (1564)")
Select Case(MM)
Case(01) : x(01) = 27 : x(01) = 54 : x(01) = 64 : x(01) = 31 : x(01) = 42 : x(01) = 45 : TavRiga =("Gennaio 27 54 64 31 42 45")
Case(02) : x(01) = 17 : x(01) = 10 : x(01) = 46 : x(01) = 34 : x(01) = 11 : x(01) = 28 : TavRiga =("Febbraio 17 10 46 34 11 28")
Case(03) : x(01) = 49 : x(01) = 57 : x(01) = 62 : x(01) = 79 : x(01) = 87 : x(01) = 25 : TavRiga =("Marzo   49 57 62 79 87 25")
Case(04) : x(01) = 13 : x(01) = 73 : x(01) = 04 : x(01) = 18 : x(01) = 21 : x(01) = 15 : TavRiga =("Aprile   13 73 04 18 21 15")
Case(05) : x(01) = 04 : x(01) = 10 : x(01) = 76 : x(01) = 65 : x(01) = 79 : x(01) = 34 : TavRiga =("Maggio   04 10 76 65 79 34")
Case(06) : x(01) = 28 : x(01) = 45 : x(01) = 56 : x(01) = 13 : x(01) = 30 : x(01) = 09 : TavRiga =("Giugno   28 45 56 13 30 09")
Case(07) : x(01) = 74 : x(01) = 14 : x(01) = 70 : x(01) = 16 : x(01) = 71 : x(01) = 19 : TavRiga =("Luglio   74 14 70 16 71 19")
Case(08) : x(01) = 06 : x(01) = 05 : x(01) = 86 : x(01) = 15 : x(01) = 48 : x(01) = 17 : TavRiga =("Agosto   06 05 86 15 48 17")
Case(09) : x(01) = 02 : x(01) = 11 : x(01) = 27 : x(01) = 13 : x(01) = 32 : x(01) = 31 : TavRiga =("Settembre 02 11 27 13 32 31")
Case(10) : x(01) = 21 : x(01) = 19 : x(01) = 56 : x(01) = 15 : x(01) = 85 : x(01) = 60 : TavRiga =("Ottobre 21 19 56 15 85 60")
Case(11) : x(01) = 01 : x(01) = 09 : x(01) = 25 : x(01) = 58 : x(01) = 73 : x(01) = 82 : TavRiga =("Novembre 01 09 25 58 73 82")
Case(12) : x(01) = 47 : x(01) = 10 : x(01) = 20 : x(01) = 59 : x(01) = 71 : x(01) = 70 : TavRiga =("Dicembre 47 10 20 59 71 70")
End Select
ElseIf TabInCorso = 14 Then
Tav =("Tavola XIV (1565)")
Select Case(MM)
Case(01) : x(01) = 39 : x(01) = 10 : x(01) = 15 : x(01) = 31 : x(01) = 28 : x(01) = 29 : TavRiga =("Gennaio 39 10 15 31 28 29")
Case(02) : x(01) = 17 : x(01) = 25 : x(01) = 13 : x(01) = 55 : x(01) = 72 : x(01) = 19 : TavRiga =("Febbraio 17 25 13 55 72 19")
Case(03) : x(01) = 70 : x(01) = 38 : x(01) = 15 : x(01) = 22 : x(01) = 58 : x(01) = 51 : TavRiga =("Marzo   70 38 15 22 58 51")
Case(04) : x(01) = 01 : x(01) = 93 : x(01) = 62 : x(01) = 16 : x(01) = 73 : x(01) = 12 : TavRiga =("Aprile   01 93 62 16 73 12")
Case(05) : x(01) = 23 : x(01) = 54 : x(01) = 18 : x(01) = 29 : x(01) = 17 : x(01) = 45 : TavRiga =("Maggio   23 54 18 29 17 45")
Case(06) : x(01) = 89 : x(01) = 22 : x(01) = 15 : x(01) = 76 : x(01) = 66 : x(01) = 04 : TavRiga =("Giugno   89 22 15 76 66 04")
Case(07) : x(01) = 28 : x(01) = 12 : x(01) = 16 : x(01) = 64 : x(01) = 26 : x(01) = 77 : TavRiga =("Luglio   28 12 16 64 26 77")
Case(08) : x(01) = 35 : x(01) = 37 : x(01) = 24 : x(01) = 59 : x(01) = 79 : x(01) = 83 : TavRiga =("Agosto   35 37 24 59 79 83")
Case(09) : x(01) = 55 : x(01) = 19 : x(01) = 46 : x(01) = 34 : x(01) = 61 : x(01) = 48 : TavRiga =("Settembre 55 19 46 34 61 48")
Case(10) : x(01) = 47 : x(01) = 11 : x(01) = 23 : x(01) = 56 : x(01) = 75 : x(01) = 38 : TavRiga =("Ottobre 47 11 23 56 75 38")
Case(11) : x(01) = 45 : x(01) = 79 : x(01) = 16 : x(01) = 59 : x(01) = 84 : x(01) = 85 : TavRiga =("Novembre 45 79 16 59 84 85")
Case(12) : x(01) = 81 : x(01) = 08 : x(01) = 34 : x(01) = 19 : x(01) = 88 : x(01) = 66 : TavRiga =("Dicembre 81 08 34 19 88 66")
End Select
ElseIf TabInCorso = 15 Then
Tav =("Tavola XV (1566)")
Select Case(MM)
Case(01) : x(01) = 29 : x(02) = 35 : x(03) = 53 : x(04) = 32 : x(05) = 28 : x(06) = 73 : TavRiga =("Gennaio 29 35 53 32 28 73")
Case(02) : x(01) = 06 : x(02) = 05 : x(03) = 08 : x(04) = 02 : x(05) = 03 : x(06) = 01 : TavRiga =("Febbraio 06 05 08 02 03 01")
Case(03) : x(01) = 36 : x(02) = 93 : x(03) = 35 : x(04) = 19 : x(05) = 53 : x(06) = 65 : TavRiga =("Marzo   36 93 35 19 53 65")
Case(04) : x(01) = 55 : x(02) = 34 : x(03) = 10 : x(04) = 59 : x(05) = 21 : x(06) = 37 : TavRiga =("Aprile   55 34 10 59 21 37")
Case(05) : x(01) = 80 : x(02) = 29 : x(03) = 69 : x(04) = 12 : x(05) = 66 : x(06) = 45 : TavRiga =("Maggio   80 29 69 12 66 45")
Case(06) : x(01) = 35 : x(02) = 43 : x(03) = 20 : x(04) = 13 : x(05) = 37 : x(06) = 31 : TavRiga =("Giugno   35 43 20 13 37 31")
Case(07) : x(01) = 01 : x(02) = 03 : x(03) = 05 : x(04) = 01 : x(05) = 06 : x(06) = 02 : TavRiga =("Luglio   01 03 05 01 06 02")
Case(08) : x(01) = 17 : x(02) = 24 : x(03) = 33 : x(04) = 64 : x(05) = 34 : x(06) = 62 : TavRiga =("Agosto   17 24 33 64 34 62")
Case(09) : x(01) = 17 : x(02) = 24 : x(03) = 33 : x(04) = 20 : x(05) = 27 : x(06) = 34 : TavRiga =("Settembre 17 24 33 20 27 34")
Case(10) : x(01) = 33 : x(02) = 03 : x(03) = 25 : x(04) = 42 : x(05) = 58 : x(06) = 57 : TavRiga =("Ottobre 33 03 25 42 58 57")
Case(11) : x(01) = 08 : x(02) = 06 : x(03) = 04 : x(04) = 03 : x(05) = 05 : x(06) = 01 : TavRiga =("Novembre 08 06 04 03 05 01")
Case(12) : x(01) = 05 : x(02) = 42 : x(03) = 49 : x(04) = 02 : x(05) = 15 : x(06) = 50 : TavRiga =("Dicembre 05 42 49 02 15 50")
End Select
ElseIf TabInCorso = 16 Then
Tav =("Tavola XVI (1567)")
Select Case(MM)
Case(01) : x(01) = 17 : x(02) = 35 : x(03) = 15 : x(04) = 52 : x(05) = 75 : x(06) = 40 : TavRiga =("Gennaio 17 35 15 52 75 40")
Case(02) : x(01) = 10 : x(02) = 71 : x(03) = 84 : x(04) = 41 : x(05) = 55 : x(06) = 61 : TavRiga =("Febbraio 10 71 84 41 55 61")
Case(03) : x(01) = 19 : x(02) = 06 : x(03) = 04 : x(04) = 50 : x(05) = 35 : x(06) = 01 : TavRiga =("Marzo   19 06 04 50 35 01")
Case(04) : x(01) = 08 : x(02) = 37 : x(03) = 35 : x(04) = 31 : x(05) = 04 : x(06) = 18 : TavRiga =("Aprile   08 37 35 31 04 18")
Case(05) : x(01) = 86 : x(02) = 34 : x(03) = 50 : x(04) = 63 : x(05) = 15 : x(06) = 23 : TavRiga =("Maggio   86 34 50 63 15 23")
Case(06) : x(01) = 18 : x(02) = 05 : x(03) = 27 : x(04) = 37 : x(05) = 81 : x(06) = 50 : TavRiga =("Giugno   18 05 27 37 81 50")
Case(07) : x(01) = 14 : x(02) = 18 : x(03) = 56 : x(04) = 19 : x(05) = 13 : x(06) = 27 : TavRiga =("Luglio   14 18 56 19 13 27")
Case(08) : x(01) = 18 : x(02) = 56 : x(03) = 45 : x(04) = 29 : x(05) = 88 : x(06) = 74 : TavRiga =("Agosto   18 56 45 29 88 74")
Case(09) : x(01) = 58 : x(02) = 14 : x(03) = 07 : x(04) = 17 : x(05) = 13 : x(06) = 15 : TavRiga =("Settembre 58 14 07 17 13 15")
Case(10) : x(01) = 89 : x(02) = 04 : x(03) = 19 : x(04) = 75 : x(05) = 80 : x(06) = 51 : TavRiga =("Ottobre 89 04 19 75 80 51")
Case(11) : x(01) = 31 : x(02) = 45 : x(03) = 27 : x(04) = 14 : x(05) = 18 : x(06) = 73 : TavRiga =("Novembre 31 45 27 14 18 73")
Case(12) : x(01) = 18 : x(02) = 15 : x(03) = 38 : x(04) = 14 : x(05) = 57 : x(06) = 83 : TavRiga =("Dicembre 18 15 38 14 57 83")
End Select
ElseIf TabInCorso = 17 Then
Tav =("Tavola XVII (1568)")
Select Case(MM)
Case(01) : x(01) = 13 : x(02) = 15 : x(03) = 33 : x(04) = 72 : x(05) = 06 : x(06) = 68 : TavRiga =("Gennaio 13 15 33 72 06 68")
Case(02) : x(01) = 33 : x(02) = 13 : x(03) = 37 : x(04) = 19 : x(05) = 03 : x(06) = 42 : TavRiga =("Febbraio 33 13 37 19 03 42")
Case(03) : x(01) = 91 : x(02) = 24 : x(03) = 11 : x(04) = 58 : x(05) = 32 : x(06) = 67 : TavRiga =("Marzo   91 24 11 58 32 67")
Case(04) : x(01) = 42 : x(02) = 07 : x(03) = 87 : x(04) = 94 : x(05) = 22 : x(06) = 12 : TavRiga =("Aprile   42 07 87 94 22 12")
Case(05) : x(01) = 08 : x(02) = 22 : x(03) = 02 : x(04) = 59 : x(05) = 15 : x(06) = 65 : TavRiga =("Maggio   08 22 02 59 15 65")
Case(06) : x(01) = 93 : x(02) = 39 : x(03) = 59 : x(04) = 67 : x(05) = 11 : x(06) = 21 : TavRiga =("Giugno   93 39 59 67 11 21")
Case(07) : x(01) = 22 : x(02) = 36 : x(03) = 12 : x(04) = 48 : x(05) = 23 : x(06) = 24 : TavRiga =("Luglio   22 36 12 48 23 24")
Case(08) : x(01) = 25 : x(02) = 11 : x(03) = 43 : x(04) = 31 : x(05) = 88 : x(06) = 41 : TavRiga =("Agosto   25 11 43 31 88 41")
Case(09) : x(01) = 04 : x(02) = 17 : x(03) = 27 : x(04) = 35 : x(05) = 39 : x(06) = 38 : TavRiga =("Settembre 04 17 27 35 39 38")
Case(10) : x(01) = 02 : x(02) = 40 : x(03) = 21 : x(04) = 73 : x(05) = 85 : x(06) = 15 : TavRiga =("Ottobre 02 40 21 73 85 15")
Case(11) : x(01) = 05 : x(02) = 15 : x(03) = 54 : x(04) = 18 : x(05) = 21 : x(06) = 70 : TavRiga =("Novembre 05 15 54 18 21 70")
Case(12) : x(01) = 17 : x(02) = 37 : x(03) = 32 : x(04) = 51 : x(05) = 62 : x(06) = 75 : TavRiga =("Dicembre 17 37 32 51 62 75")
End Select
ElseIf TabInCorso = 18 Then
Tav =("Tavola XVIII (1569)")
Select Case(MM)
Case(01) : x(01) = 11 : x(02) = 19 : x(03) = 24 : x(04) = 15 : x(05) = 10 : x(06) = 44 : TavRiga =("Gennaio 11 19 24 15 10 44")
Case(02) : x(01) = 82 : x(02) = 12 : x(03) = 34 : x(04) = 13 : x(05) = 21 : x(06) = 47 : TavRiga =("Febbraio 82 12 34 13 21 47")
Case(03) : x(01) = 19 : x(02) = 24 : x(03) = 18 : x(04) = 52 : x(05) = 32 : x(06) = 67 : TavRiga =("Marzo   19 24 18 52 32 67")
Case(04) : x(01) = 23 : x(02) = 52 : x(03) = 39 : x(04) = 74 : x(05) = 27 : x(06) = 43 : TavRiga =("Aprile   23 52 39 74 27 43")
Case(05) : x(01) = 24 : x(02) = 27 : x(03) = 43 : x(04) = 07 : x(05) = 21 : x(06) = 80 : TavRiga =("Maggio   24 27 43 07 21 80")
Case(06) : x(01) = 08 : x(02) = 52 : x(03) = 14 : x(04) = 48 : x(05) = 32 : x(06) = 15 : TavRiga =("Giugno   08 52 14 48 32 15")
Case(07) : x(01) = 52 : x(02) = 31 : x(03) = 47 : x(04) = 21 : x(05) = 74 : x(06) = 05 : TavRiga =("Luglio   52 31 47 21 74 05")
Case(08) : x(01) = 51 : x(02) = 25 : x(03) = 17 : x(04) = 20 : x(05) = 45 : x(06) = 21 : TavRiga =("Agosto   51 25 17 20 45 21")
Case(09) : x(01) = 34 : x(02) = 28 : x(03) = 47 : x(04) = 09 : x(05) = 52 : x(06) = 23 : TavRiga =("Settembre 34 28 47 09 52 23")
Case(10) : x(01) = 02 : x(02) = 07 : x(03) = 49 : x(04) = 15 : x(05) = 48 : x(06) = 59 : TavRiga =("Ottobre 02 07 49 15 48 59")
Case(11) : x(01) = 08 : x(02) = 33 : x(03) = 22 : x(04) = 47 : x(05) = 59 : x(06) = 23 : TavRiga =("Novembre 08 33 22 47 59 23")
Case(12) : x(01) = 52 : x(02) = 47 : x(03) = 45 : x(04) = 44 : x(05) = 68 : x(06) = 80 : TavRiga =("Dicembre 52 47 45 44 68 80")
End Select
ElseIf TabInCorso = 19 Or TabInCorso = 00 Then
Tav =("Tavola XIX (1570)")
Select Case(MM)
Case(01) : x(01) = 73 : x(02) = 20 : x(03) = 18 : x(04) = 61 : x(05) = 21 : x(06) = 13 : TavRiga =("Gennaio 73 20 18 61 21 13")
Case(02) : x(01) = 19 : x(02) = 12 : x(03) = 76 : x(04) = 39 : x(05) = 58 : x(06) = 48 : TavRiga =("Febbraio 19 12 76 39 58 48")
Case(03) : x(01) = 45 : x(02) = 51 : x(03) = 36 : x(04) = 27 : x(05) = 11 : x(06) = 60 : TavRiga =("Marzo      45 51 36 27 11 60")
Case(04) : x(01) = 23 : x(02) = 16 : x(03) = 41 : x(04) = 18 : x(05) = 27 : x(06) = 11 : TavRiga =("Aprile     23 16 41 18 27 11")
Case(05) : x(01) = 09 : x(02) = 32 : x(03) = 79 : x(04) = 51 : x(05) = 24 : x(06) = 04 : TavRiga =("Maggio   09 32 79 51 24 04")
Case(06) : x(01) = 41 : x(02) = 29 : x(03) = 20 : x(04) = 37 : x(05) = 70 : x(06) = 08 : TavRiga =("Giugno   41 29 20 37 70 08")
Case(07) : x(01) = 59 : x(02) = 15 : x(03) = 77 : x(04) = 49 : x(05) = 25 : x(06) = 06 : TavRiga =("Luglio   59 15 77 49 25 06")
Case(08) : x(01) = 74 : x(02) = 21 : x(03) = 08 : x(04) = 05 : x(05) = 03 : x(06) = 39 : TavRiga =("Agosto   74 21 08 05 03 39")
Case(09) : x(01) = 05 : x(02) = 32 : x(03) = 22 : x(04) = 76 : x(05) = 24 : x(06) = 40 : TavRiga =("Settembre 05 32 22 76 24 40")
Case(10) : x(01) = 11 : x(02) = 59 : x(03) = 56 : x(04) = 24 : x(05) = 27 : x(06) = 08 : TavRiga =("Ottobre 11 59 56 24 27 08")
Case(11) : x(01) = 19 : x(02) = 67 : x(03) = 37 : x(04) = 21 : x(05) = 62 : x(06) = 15 : TavRiga =("Novembre 19 67 37 21 62 15")
Case(12) : x(01) = 71 : x(02) = 47 : x(03) = 15 : x(04) = 48 : x(05) = 12 : x(06) = 26 : TavRiga =("Dicembre 71 47 15 48 12 26")
End Select
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
Caso = Caso + 01
Dim Cond,DD : Cond = "" : DD = giorno(es + 01)
ReDim aNumeri(06)
Dim P
For P = 01 To 06
aNumeri(P) =((x(P) + 09) + DD)
If aNumeri(P) >= 091 And aNumeri(P) <= 099 Then aNumeri(P) = Cadenza(aNumeri(P)): _
Cond =("se un numero supera il 90, si prende in cosiderazione solo la cifra delle unità (es: 97 => giocare 7)")
If aNumeri(P) >= 100 Then aNumeri(P) = Left(aNumeri(P),02): _
Cond =("se un numero è di 3 cifre, togliere la cifra delle unità e considerare solo le prime 2 (es: 119 => giocare 11)")
Next
ReDim ru(01) : ru(1) = TU_
Call Scrivi(String(125,"-") & " Caso n° " & Format2(Caso),01)
Call Scrivi(GetInfoEstrazione(es + 01) & " Ruota " & SiglaRuota(ru(1)) & " " & StringaNumeri(aNumeri,,True),01) : Call Scrivi(String(125,"-"),01)
Call Scrivi(Tav,01) : Call Scrivi("Mese " & FormatSpace(" ",10,True) & " Numeri",01) :Call Scrivi(TavRiga,01)
Call Scrivi(Format2(x(01)) & " + 9 + " & DD & " = " &((x(01) + 09) + DD),01) : Call Scrivi(Format2(x(02)) & " + 9 + " & DD & " = " &((x(02) + 09) + DD),01)
Call Scrivi(Format2(x(03)) & " + 9 + " & DD & " = " &((x(03) + 09) + DD),01) : Call Scrivi(Format2(x(04)) & " + 9 + " & DD & " = " &((x(04) + 09) + DD),01)
Call Scrivi(Format2(x(05)) & " + 9 + " & DD & " = " &((x(05) + 09) + DD),01) : Call Scrivi(Format2(x(06)) & " + 9 + " & DD & " = " &((x(06) + 09) + DD),01)
Call Scrivi(Cond,01)
Dim klp : klp = 01
ReDim posta(02) : posta(02) = 2
Call ImpostaGiocata(01,aNumeri,ru,posta,klp,02) : Call Gioca(es,True,,01)
Next
Call ScriviResoconto()
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .
 
Ultima modifica di un moderatore:
Ciao Magia ,bella l'idea delle tavole anche se la tavola inserita nello script x l'anno 2017 facendo i calcoli dovrebbe essere la x(decima e non la xix ),grazie .

Sì Magia ,le frequenze riguardano i numeri della griglia(1 sola estrazione),grazie
 
Ultima modifica:
Allora ...

... premettiamo alcuni dati.

Questo "metodo per il lotto" è stato scritto 2-3 CENTO ANNI prima che esistesse il gioco.

Poi se di lotto si deve parlare ... alcune ... sono "le scuole" di esso.

Quella napoletana quella veneta, quella siciliana, quella piemontese, pugliese ...

Ho citato, per prima, quella napoletana perchè intrisa di cabala e di superstizione.

A questa scuola è attribuibile il metodo, l'autore, l'interprete.

Unitamente alla presenza "di un periodo storico", in cui, oltre non esistere il gioco ...

che è dello stesso lasso, in cui non si era "capaci" di calcolare con precisione alcune "cose".

(Scrivo "cose" non a caso, quasi fosse toscano).

Basti ricordare che "subito-dopo" questo periodo, Papa Gregorio mutò il calendario,

perchè sino ad allora in quello presente il conteggio delle date era sbagliato.

E siamo al 1582.

E' per questo che sono citati e ricorsivi, prodromici, negli esempi, numeri che,

non appartengono alla cabala ma all'osservazione degli eventi naturali.

3 con 11 e 19 (a somma 30) approssimano il mese, e più ancora la fase della luna.

Aggiungendo che ... non stiamo parlando di Euclide, di Pitagora, di Eulero

neppure di Leonardo o di Galileo, di Copenico di Gauss o di Einstein ...

Ribadisco che qui pare trattarsi di "personaggi" ...

appartenuti ad un periodo tardo (ed ancora) medioevale,

ove, arte, religione, conoscenza si fondevano ed erano appannaggio di pochi soggetti,

e purtroppo, spesso, conquistavano fiducia immeritata.

Personaggi non sempre alternativi dunque (ed alcune volte, s'è detto, "sbagliati"),

assimilabili ad aruspici o giullari di corti, ove,

allegoria, conoscenza, arte, scienza, religione ...

ciarlataneria, divinazione, erano quasi senza confini un tutt'uno.

Il tutto o il nulla senza soluzioni di continuità.

Una riscoperta è un mio dubbio.

Dante (che ne sapeva!) dunque, con anticipo sui tempi citati di qualche secolo ...

ebbe a scrivere:

... mosse di prima quelle "cose" belle ...

riferendoci "di un 'inizio'" che non è "1 in quanto inizio".

Che piuttosto ... è un 3.

lo stesso 3 ricorrente ed inizio della creazione da cui "muovono" le cose belle,

Che cioè, iniziano a muoversi ... dal "3". Ovvero dal mese di marzo.

Quindi, pare potersi dedurre che non manchino "anni" ma mesi.

E .... neppure i mesi ... perchè di questi mesi, ovvero, dell'epatta,

si effettua il calcolo, con riferimento ad un numero "per ogni anno" terrestre/solare

che tuttavia "parte" dal mese di Marzo e "si riallinea" ogni diciannovesimo anno.

Come già Dante ebbe a riferire e riferisce del +/- 3.

Tutto ciò premesso occorrerebbe verificare se tutte le mie ipoesi qui formulate

trovano ulteriori conferme nei testi citati ... o se semplicemente

ho preso una cantonata, storico/lotto/letteraria.

Del resto è il primo d'Aprile!

:) Buon Pesce a tutte/i. ​
 
Ciao a tutti,ciao Magia la modifica x quando riguarda le tavole errate io da scarso scripter avevo capito l'errore e facendo un passaggio in +
risolverlo ,poi vedendo la tua correzione era sufficiente eliminare la parentesi,grazie:)


"Dim YY,YYY,YYInCorso,TabInCorso : YY = Anno(es) - 1551 : YYY = Int(YY / 19): YYInCorso = Int(YYY * 19) : TabInCorso = YY - YYInCorso"

Dim YY,YYInCorso,TabInCorso : YY = Anno(es) - 1551 : YYInCorso = Int(YY / 19) * 19 : TabInCorso = YY - YYInCorso


Ciao Joe,anch'io sono perplesso perchè essenzialmente a leggere la regola mi sembra strano il fatto di sommare 2 fissi

"si prendono i numeri corrispondenti al mese in corso


ad ognuno di essi va aggiunto il numero 9 e il numero del giorno corrispondente all'estrazione"



quando era sufficiente di base dare la somma finale saltando la suddetta(quindi è da pensare che la regola se fosse valida sia stata tramandata in modo errata)

in questo periodo mi interessa studiare la "GRIGLIA" e numeri che scaturiscono dalle varie somme che possono essere svariate

(curiosità scaturita da queste TAVOLE)


ecco xchè mi sarebbe utile concludere lo script con quella ulteriore ricerca(cosa che io non so fare)grazie ancora in anticipo a chi lo farà:)

ps: JOE notando che ti sei informato , l'errore date potrebbe slittare di - o + mesi oppure di giorni?
Sai la correzione che fu data al calendario all'epoca?grazie:)
 
Ultima modifica:
Ciao Roy. Quello che scrivi ... pare essere la quadratura del cerchio. Cioè non ti spieghi il perchè di un "doppio numero" quando invece, sono necessari, "due numeri" da sommare. Per ora, preferisco non rispondere alla tua domanda, in quanto, non ho potuto raggiungere "una convinzione" su come si debba procedere per il calcolo. Tantomeno come siano calcolate le tabelle. :)
 
Ciao!

La correzione fu di 10 giorni


10_giorni_meno.jpg

Non capisco perche l'immagine è venuta così piccola
 
Ultima modifica:
Grazie Salvo50 dell'informazione,non riuscendo a ingrandire la foto,10 giorni in avanti o indietro?:)ancora grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
Indietro
Alto