Novità

sistemare una tabella

infatti non e semplice ho chiesto anche a Mike58 e mi a detto che forse e un problema dovuto alla matrice
forse LuigiB puo risolvere il problema..
 
Cinzia devo fare una prova se riesco a inserire la piramida degli estratti in tabella..
vuoi provarci anche te..ti metto la base dello script..sono dieci righe e 9 colonne..
 
Ultima modifica:
Cinzia disegnare una tabella e facilissimo il piu difficile e inserire i numeri di calcolo..
 
Ultima modifica:
Codice: 
Option Explicit
Sub Main
   Dim ambata1(2),ruota(5),posta(1),poste(2)
   Dim ES,RS,SR
   Dim A,B,C,D,E
   Dim S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12
   Dim R1,K
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10
   '
   posta(1) = 1
   '
   RS = InputBox("Quante estrazioni vuoi controllare?",,0)
   K = 0
   For ES = EstrazioneFin - RS To EstrazioneFin
      AvanzamentoElab EstrazioneFin - RS,EstrazioneFin,ES
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12 End If
         '
         A = Estratto(ES,R1,1)
         B = Estratto(ES,R1,2)
         C = Estratto(ES,R1,3)
         D = Estratto(ES,R1,4)
         E = Estratto(ES,R1,5)
         '
         SR = SiglaRuota(R1)
         T1 = Array(T1,SR,"  ","  ","  ","  ","  ","  ","  ","  ")
         Call InitTabella(T1)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         S1 = Fuori90(A + B)
         S2 = Fuori90(B + C)
         S3 = Fuori90(C + D)
         S4 = Fuori90(D + E)
         '-----------------------
         S5 = Fuori90(S1 + S2)
         S6 = Fuori90(S2 + S3)
         S7 = Fuori90(S3 + S4)
         '------------------------------
         S8 = Fuori90(S5 + S6)
         S9 = Fuori90(S6 + S7)
         '--------------------------------
         S10 = Fuori90(S8 + S9)
         '------------------------------------------------
         T2 = Array(T2,"  ","  ","  ","  ",Format2(S10),"  ","  ","  ","  ")
         Call AddRigaTabella(T2)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T3 = Array(T3,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T3)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         S1 = Fuori90(A + B)
         S2 = Fuori90(B + C)
         S3 = Fuori90(C + D)
         S4 = Fuori90(D + E)
         '-----------------------
         S5 = Fuori90(S1 + S2)
         S6 = Fuori90(S2 + S3)
         S7 = Fuori90(S3 + S4)
         '------------------------------
         S8 = Fuori90(S5 + S6)
         S9 = Fuori90(S6 + S7)
         '-------------------------------
         T4 = Array(T4,"  ","  ","  ",Format2(S8),"  ",Format2(S9),"  ","  ","  ")
         Call AddRigaTabella(T4)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(219,238,87),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(219,238,87),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '-------------------------------
         T5 = Array(T5,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T5)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         S1 = Fuori90(A + B)
         S2 = Fuori90(B + C)
         S3 = Fuori90(C + D)
         S4 = Fuori90(D + E)
         '-----------------------
         S5 = Fuori90(S1 + S2)
         S6 = Fuori90(S2 + S3)
         S7 = Fuori90(S3 + S4)
         '-------------------------------
         T6 = Array(T6,"  ","  ",Format2(S5),"  ",Format2(S6),"  ",Format2(S7),"  ","  ")
         Call AddRigaTabella(T6)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         S1 = Fuori90(A + B)
         S2 = Fuori90(B + C)
         S3 = Fuori90(C + D)
         S4 = Fuori90(D + E)
         '-------------------------------
         T8 = Array(T8,"  ",Format2(S1),"  ",Format2(S2),"  ",Format2(S3),"  ",Format2(S4),"  ")
         Call AddRigaTabella(T8)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(219,238,87),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(219,238,87),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(219,238,87),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         T9 = Array(T9,"  ","  ","  ","  ","  ","  ","  ","  ","  ")
         Call AddRigaTabella(T9)
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         '-------------------------------
         T10 = Array(T10,Format2(A),"  ",Format2(B),"  ",Format2(C),"  ",Format2(D),"  ",Format2(E))
         Call AddRigaTabella(T10)
         Call SetColoreCella(1,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(28,224,95),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(9,RGB(28,224,95),RGB(0,0,0))
         '-------------------------------
         '-------------------------------
         ReDim MatriceCaselleDaEvid(5,1)
         '
         MatriceCaselleDaEvid(1,0) = R1
         MatriceCaselleDaEvid(1,1) = 1
         '
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = 2
         '
         MatriceCaselleDaEvid(3,0) = R1
         MatriceCaselleDaEvid(3,1) = 3
         '
         MatriceCaselleDaEvid(4,0) = R1
         MatriceCaselleDaEvid(4,1) = 4
         '
         MatriceCaselleDaEvid(5,0) = R1
         MatriceCaselleDaEvid(5,1) = 5
         '
         Call DisegnaEstrazione(ES,MatriceCaselleDaEvid)
         '------------------------------
         '
         Call SetTableWidth("19%")
         CreaTabella
         '
         ruota(1) = R1
         ruota(2) = RuotaDiametrale(R1)
         '-----------------------------
         ambata1(1) = S10
         '
         ImpostaGiocata 1,ambata1,ruota,posta,K
         Gioca ES,1,,1
         Scrivi
      Next
   Next
End Sub

Cinzia ecco la tabella della piramida..
 
Ultima modifica:
Bravo, Zetrix.Mi è chiara. Farla è un altro discorso.
Ho associato mentalmente alla tabella i calcoli del tuo script e ho capito le tabelle.
E' già un primo passo. Ora sei tornato indietro di un'estrazione e c'è il 74 su MI che andrebbe
giocato su VE, ruota diametrale. Ma allora anche il 75 di VE andrebbe giocato su MI, giusto ?
 
Dipende.jpg

Bha ... tralasciando tutti i possibili dubbi relativi all'originalità di certe "idee",

secondo me si tratta di complicarsi inutilmente la vita.

Dunque anche le "Piramidi" hanno soluzioni, che non richiedono affatto la costruzione di una tabella

Per il resto nel ri-trito si deve notare che con 10 ruote si generano 10 ambate.

Se 10 ambate vengono giocate anche sulla ruota diametrale generano 20 pronostici differenti.

Che sia conveniente giocare 20 numeri ... non mi pare possa essere dimostrato

al di fuori di alcuni rarissimi casi.

Pir.jpg


:)
 
quanto ci si espone troppo nel forum qualcuno deve dire sempre la sua..
ma chi me la fatto fare a mettere le tabelle nel forum..
la discussione e chiusa.
 
Ultima modifica:
Zetrix ha scritto:
quanto ci si espone troppo nel forum qualcuno deve dire sempre la sua..
ecco perche e meglio non mettere piu niente nel forum..
la discussione e chiusa.
Clicca per espandere...

Non è che ... si voglia criticare.

Ma l'aver creato (forse per primo) lo script per la costruzione delle piramidi

risale a molti anni fa ... ed è mio.

Poi con LuigiB (cioè) Lui (con la L maiuscola di Luigi) lo ha aggiunto come istruzione.

Dunque non mi pare che nel 2024 questa sia una grande scoperta.

Nulla di più e nulla di meno di una invenzione che stando così le cose,

sembra un qualcosa ancora da inventare ed anche da costruire.

Quello che è fortemente irrispettoso è quello che accade, quando si prendono lavori altrui,

si cancella chi è l'autore ... e poi ...

:)
 
Ciao Cinzia,

come sai non gioco, di tanto in tanto mi diverto nel pescare qualcosa.

No, è roba molto-molto-molto più vecchia.

Sarà di almeno 10 anni fa ed era molto più complicato.

Di contorno s'era fatto anche il "FuoriX" e si erano anche esplorati altri "modi" diversi.

Quello script, so dov'è ma recuperarlo è una impresa.

Poi, era diverso nella sua struttura probabilmente non andrebbe neppure bene.

Quello che ho scritto oggi è questo (ed è già pieno di fronzoli inutili):

Codice: 
Option Explicit
Sub Main
'Piramide By Joe Script V.1.0 del 01/04/2024
   Dim Ini,Fin,Es,R,P,Y
   Ini = 10413 : Fin = 10413
   For Es = Ini To Fin
      Scrivi DataEstrazione (Es) & " ",1,0
      For R = MI_ To MI_
      Scrivi NomeRuota (R),1,1
         ReDim E(5)
         For P = 1 To 5
            E(P) = Estratto(Es,R,P)
            Scrivi Format2(E(P)) & Space(2),0,0
         Next
         Scrivi
         For Y = 4 To 1 Step - 1
            Scrivi String(10 - Y*2," "),0,0
            For P = 1 To Y
               E(P) = Fuori90(E(P) + E(P + 1))
               Scrivi E(P) & "  ",0,0
            Next
            Scrivi
         Next
      Next
   Next
End Sub

:)

NB: Il I° d'Aprile è più facile trovare pesci fuor d'acqua che indovinare i numeri che usciranno.
 
Ultima modifica:
Ciao, Joe.
Non era quello lo script che ti avevo chiesto.
L'avevi fatto gentilmente e pubblicato nell'altro topic
Da dove ora proseguo per non intasare questo 3D
di Zetrix.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto