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
    giovedì 23 ottobre 2025
    Bari
    81
    19
    12
    57
    40
    Cagliari
    20
    69
    66
    49
    48
    Firenze
    39
    15
    41
    70
    69
    Genova
    59
    83
    42
    07
    08
    Milano
    42
    25
    02
    14
    68
    Napoli
    29
    28
    38
    56
    82
    Palermo
    08
    28
    32
    90
    74
    Roma
    48
    07
    32
    55
    34
    Torino
    31
    85
    24
    54
    87
    Venezia
    86
    72
    67
    69
    34
    Nazionale
    67
    32
    58
    81
    34
    Estrazione Simbolotto
    43
    22
    12
    01
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto