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ì 05 giugno 2025
    Bari
    51
    33
    47
    36
    70
    Cagliari
    87
    26
    89
    38
    03
    Firenze
    37
    79
    02
    31
    23
    Genova
    71
    88
    43
    72
    73
    Milano
    47
    16
    71
    30
    10
    Napoli
    32
    76
    41
    29
    25
    Palermo
    24
    33
    65
    13
    62
    Roma
    53
    10
    40
    59
    72
    Torino
    85
    22
    87
    84
    60
    Venezia
    08
    71
    25
    80
    70
    Nazionale
    67
    48
    86
    62
    13
    Estrazione Simbolotto
    Napoli
    07
    25
    06
    28
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto