Novità

sistemare una tabella

Zetrix

Zetrix

Banned
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..
 
Zetrix

Zetrix

Banned
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:
Zetrix

Zetrix

Banned
Cinzia disegnare una tabella e facilissimo il piu difficile e inserire i numeri di calcolo..
 
Ultima modifica:
Zetrix

Zetrix

Banned
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:
C

Cinzia27

Premium Member
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 ?
 
joe

joe

Advanced Member >PLATINUM PLUS<
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


:)
 
Zetrix

Zetrix

Banned
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:
joe

joe

Advanced Member >PLATINUM PLUS<
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 ...

:)
 
joe

joe

Advanced Member >PLATINUM PLUS<
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:
C

Cinzia27

Premium Member
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
    venerdì 24 maggio 2024
    Bari
    84
    05
    39
    04
    18
    Cagliari
    13
    86
    72
    71
    32
    Firenze
    28
    76
    34
    11
    44
    Genova
    26
    89
    29
    61
    71
    Milano
    88
    12
    13
    56
    61
    Napoli
    68
    47
    87
    25
    81
    Palermo
    64
    13
    74
    28
    18
    Roma
    05
    82
    28
    87
    73
    Torino
    46
    02
    17
    27
    67
    Venezia
    07
    58
    23
    06
    19
    Nazionale
    69
    81
    01
    79
    26
    Estrazione Simbolotto
    Milano
    06
    01
    42
    17
    05
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto