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ì 11 marzo 2025
    Bari
    88
    82
    13
    06
    24
    Cagliari
    61
    79
    29
    01
    05
    Firenze
    68
    22
    69
    13
    40
    Genova
    16
    20
    82
    43
    38
    Milano
    30
    70
    75
    86
    82
    Napoli
    08
    11
    13
    25
    38
    Palermo
    63
    42
    14
    79
    56
    Roma
    39
    26
    14
    82
    47
    Torino
    31
    76
    21
    10
    40
    Venezia
    70
    65
    62
    44
    61
    Nazionale
    16
    57
    90
    52
    19
    Estrazione Simbolotto
    Firenze
    26
    39
    27
    16
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto