Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
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.
Option Explicit
Sub Main
'Gioca Vetrice Piramide su Ruote Diamtrali
'Script By Joe V.2.0 del 02/04/2024
Dim Ini,Fin,Es,R,P,Y,K
Dim Nu(1),Ru(2),Po(1) : Po(1) = 1
Ini = 10000 : Fin = 10413
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
K = K + 1 : Scrivi String(120,"=") & FormatSpace(K,4,True),True
'Scrivi DataEstrazione(Es,,,"/") & " ",1,1
For R = BA_ To VE_
Ru(1) = R : Ru(2) = RuotaDiametrale(R)
'Scrivi SiglaRuota(R) & Space(1),1,0
Nu(1) = Pir(Es,R)
'Scrivi Nu(1),1,,,1
ImpostaGiocata R,Nu,Ru,Po,1
Next
Gioca Es,True
Next
ScriviResoconto
End Sub
Function Pir(Es,R)
Dim P,Y
ReDim E(5)
For P = 1 To 5
E(P) = Estratto(Es,R,P)
'Scrivi Format2(E(P)) & Space(1),0,0
Next
For Y = 4 To 1 Step - 1
For P = 1 To Y
E(P) = Fuori90(E(P) + E(P + 1))
Next
Next
Pir = E(1)
End Function
Ho volutamente messo un " pollice " in su, perché condivido in pieno " il rimprovero " che ha scritto Cinzia27.Tornando invece alle tabelle, Zetrix è stato gentilissimo nel cercare di insegnarle.
Mi dispiace, Joe, di questa tua uscita.
non dovrei rispondere ma ti rispondo alle considerazioni che ai fatto
per prima cosa non sta scritto da nessuna parte che uno deve giocare 20 ambate
quelli erano solo dei pronostici non so se se mi sono spiegato..
avevo dato un suggerimento a Cinzia che conveniva giocare anche sulla diametrale..
ma tutte queste considerazioni che ai fatto non so a che fine vogliono dire qualcosa..
seconda considerazione non so di quale meriti scrivi io non voglio avere nessun merito ne da te e ne dagli altri
avevo scritto a Cinzia a come si scrivono i numeri in tabella ne piu e ne meno quindi di quale meriti scrivi
terza considerazione i messaggi che ho cancellati sono affari miei e non tuoi..
ma mi sembra che la discussione era chiusa e leggo che si continua a scrivere in questa discussione
allora devo dire a giuseppa di mettere il lucchetto se si continua a scrivere in questa discussione..
se li vuoi te i meriti della tabella ai avuto i tuoi like..ma a me non mi interessano i like mi basta che uno o una ti dice grazie..
x Cinzia, mi spiace che si deve arrivare a scrivere queste cose , non volevo cancellare i messaggi,
ma come ho scritto quanto ci si espone troppo nel forum specie in questo forum prima o dopo qualcuno deve dire la sua e non aggiungo altro..
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)
'
T1 = Array(T1," "," "," "," "," "," "," "," "," ")
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)
'------------------------------------------------
SR = SiglaRuota(R1)
T2 = Array(T2,SR," "," "," ",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
Per il resto ... No, non ti sei spiegato.
Cosa è un pronostico seguito dal risultato al colpo successivo?
Specie, se si considera che è fatto *** DOPO *** ad Estrazione già avvenuta.
A me fa sembrare il fatto, più una presa per i fondelli che di un pronostico.
Ma è il mio punto di vista personale.
Ringrazio BlackLotto che vede critiche dove non ci sono ed accolgo volentieri la sua
reprimenda che è molto utile per confermare, il pulpito da cui arriva.
Vedi l'allegato 2281477
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.
Vedi l'allegato 2281522
Vedi l'allegato 2281603
Vedi l'allegato 2281604
58+16=74
ambata 50
queste sono le mie tabelle..e posso scrivere qualsiasi numeri in tabella..