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.
10elotto
- Creatore Discussione Zetrix
- Data di inizio
Zetrix
Advanced Premium Member
Codice:
Sub Main
'SetColorSezione(vbBlack)
'EndColorSezione
Dim Nu(5),Ru(1),num1(5),dec(5),fig(5),gem(5),dia(5),num2(5),num3(5),num4(5),num5(5)
Dim amba1(5),amba2(5),amba3(5),amba4(5),amba5(5),amba6(5),amba7(5)
Dim amba8(5),amba9(5),amba10(5),ambo16(5),ambo17(5),ambo18(5),ambo19(5),ambo20(5)
Dim ambo21(5),ambo22(5),ambo23(5),ambo24(5),ambo25(5),ambo26(5),ambo27(5),ambo28(5)
Dim ambo29(5),ambo30(5)
Dim b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20
Dim b21,b22,b23,b24,b25,b26,b27,b28,b29,b30
Dim T,V,ES,x,rw,rx,rb
Dim A,B,C,D,E,F,G,H,i,L,z,k
rw = InputBox("Quale figura vuoi controllare?",,0)
rb = InputBox("Quale cadenza vuoi controllare?",,0)
rx = InputBox("Quale numero spia vuoi controllare?",,0)
x = InputBox("Quante estrazioni vuoi controllare?",,0)
For ES = EstrazioneFin - x To EstrazioneFin
AvanzamentoElab EstrazioneFin - x,EstrazioneFin,ES
'Scrivi GetInfoEstrazione(ES),1,,,1,3
T = Array(T,"" & DataEstrazione(ES) & "","1","2","3","4","5"," ","1","2","3","4","5"," ","1","2","3","4","5"," ")
Call InitTabella(T,RGB(100,150,100),,2,5)
For r = 1 To 11
If r = 11 Then r = 12
For i = rw To rw
For k = rb To rb
For z = rx To rx
A = Estratto(ES,r,1)
B = Estratto(ES,r,2)
C = Estratto(ES,r,3)
D = Estratto(ES,r,4)
E = Estratto(ES,r,5)
'----------------------------
b1 = Figura(A)'---B-A
b2 = Figura(B)'---C-A
b3 = Figura(C)'---D-A
b4 = Figura(D)'---E-A
b5 = Figura(E)'---C-B
'-------------------------------
b6 = Cadenza(A)'---D-B
b7 = Cadenza(B)'---E-B
b8 = Cadenza(C)'---D-C
b9 = Cadenza(D)'---E-C
b10 = Cadenza(E)'---E-D
'----------------------------
num1(1) = A
num2(1) = B
num3(1) = C
num4(1) = D
num5(1) = E
'----------------------------------------------------------------------
amba1(1) = b1 '----figura
amba2(1) = b2
amba3(1) = b3
amba4(1) = b4
amba5(1) = b5 '----figura
'---------------------------------
amba6(1) = b6 '---cadenza
amba7(1) = b7
amba8(1) = b8
amba9(1) = b9
amba10(1) = b10 '---cadenza
'---------------------------------
Ru(1) = r
'Next
V = Array(V,NomeRuota(r),StringaNumeri(num1),StringaNumeri(num2),StringaNumeri(num3),StringaNumeri(num4),StringaNumeri(num5),StringaNumeri(ambo18),StringaNumeri(amba1),StringaNumeri(amba2),StringaNumeri(amba3),StringaNumeri(amba4),StringaNumeri(amba5),StringaNumeri(ambo19),StringaNumeri(amba6),StringaNumeri(amba7),StringaNumeri(amba8),StringaNumeri(amba9),StringaNumeri(amba10),StringaNumeri(ambo28))
Call AddRigaTabella(V)
Call SetColoreCella(1,RGB(220,209,50),0) '--------1
Call SetColoreCella(2,RGB(0,0,128),5) '--2
Call SetColoreCella(3,RGB(0,0,128),5) '--3
Call SetColoreCella(4,RGB(0,0,128),5) '--4
Call SetColoreCella(5,RGB(0,0,128),5) '--5
Call SetColoreCella(6,RGB(0,0,128),5) '--6
Call SetColoreCella(7,RGB(220,209,50),5)'---------7
Call SetColoreCella(8,RGB(0,0,128),5) '--8
Call SetColoreCella(9,RGB(0,0,128),5) '--9
Call SetColoreCella(10,RGB(0,0,128),5)'--10
Call SetColoreCella(11,RGB(0,0,128),5) '--11
Call SetColoreCella(12,RGB(0,0,128),5) '--12
Call SetColoreCella(13,RGB(220,209,50),5)'--------13
Call SetColoreCella(14,RGB(0,0,128),5)'--14
Call SetColoreCella(15,RGB(0,0,128),5)'--15
Call SetColoreCella(16,RGB(0,0,128),5)'--16
Call SetColoreCella(17,RGB(0,0,128),5)'--17
Call SetColoreCella(18,RGB(0,0,128),5)'--18
Call SetColoreCella(19,RGB(220,209,50),5)'--------19
If A And b1 = i Then Call SetColoreCella((2),2,5) '---A-2
If B And b2 = i Then Call SetColoreCella((3),2,5) '---B-3
If C And b3 = i Then Call SetColoreCella((4),2,5) '---C-4
If D And b4 = i Then Call SetColoreCella((5),2,5) '---D-5
If E And b5 = i Then Call SetColoreCella((6),2,5) '---E-6
If amba1(1)And b1 = i Then Call SetColoreCella((8),2,5)
If amba2(1)And b2 = i Then Call SetColoreCella((9),2,5)
If amba3(1)And b3 = i Then Call SetColoreCella((10),2,5)
If amba4(1)And b4 = i Then Call SetColoreCella((11),2,5)
If amba5(1)And b5 = i Then Call SetColoreCella((12),2,5)
'-------------------------------------------------------------------
If A And b6 = k Then Call SetColoreCella((2),2,5) '---A-2
If B And b7 = k Then Call SetColoreCella((3),2,5) '---B-3
If C And b8 = k Then Call SetColoreCella((4),2,5) '---C-4
If D And b9 = k Then Call SetColoreCella((5),2,5) '---D-5
If E And b10 = k Then Call SetColoreCella((6),2,5) '---E-6
If amba6(1)And b6 = k Then Call SetColoreCella((14),2,5)
If amba7(1)And b7 = k Then Call SetColoreCella((15),2,5)
If amba8(1)And b8 = k Then Call SetColoreCella((16),2,5)
If amba9(1)And b9 = k Then Call SetColoreCella((17),2,5)
If amba10(1)And b10 = k Then Call SetColoreCella((18),2,5)
If num1(1) And A = z Then Call SetColoreCella(2,RGB(220,209,50),1)
If num2(1) And B = z Then Call SetColoreCella(3,RGB(220,209,50),1)
If num3(1) And C = z Then Call SetColoreCella(4,RGB(220,209,50),1)
If num4(1) And D = z Then Call SetColoreCella(5,RGB(220,209,50),1)
If num5(1) And E = z Then Call SetColoreCella(6,RGB(220,209,50),1)
Next
Next
Next
Next
Call SetTableWidth("50%")
CreaTabella
Next
End Subtoon ho questo script che e piu completo perche calcola sia le figure
che le cadenze e calcola anche i numeri spia ma questi sono studi miei..
vedi se va bene se no si puo fare una modifica allo script..
questo script lo puoi adattare per diverse esigenze di studio..
Ultima modifica:
Zetrix
Advanced Premium Member
grazie toon lo script mi sa che la scritto mike58 ,ho fatto solo delle modifiche e lo adattato
per diversi studi esempio sulle dinamiche dei numeri estratti e grazie a questo script
si possono evidenziare qualsiase figure in tabella..esempio le decine..le cadenze..le controfigure..ecc..ecc..
buonanotte
per diversi studi esempio sulle dinamiche dei numeri estratti e grazie a questo script
si possono evidenziare qualsiase figure in tabella..esempio le decine..le cadenze..le controfigure..ecc..ecc..
buonanotte
))
Zetrix
Advanced Premium Member
allora vediamo un esempio di gioco quale e l'algoritmo che calcola il 75 ?
vi farò vedere come si calcolano gli algoritmi con spaziometria possiamo calcolare
qualsiasi condizione di gioco..
allora per calcolare il numero di algoritmo che calcola il 75 dobbiamo fare questo calcolo
intanto scriviamo la x come algoritmo che vogliamo calcolare
1 + x + 43 = 75
1 + 31 + 43 = 75
avete visto come e facile il numero di chiusura e il 59 che e data dal numero inverso del 31
90-31=59
[NA] [59 .. .. .. ..] C. 1 Estratto 02068 [10/01/2023] [59.38.25.31.28]
il 59 a risposto a napoli ma però non a calcolato il numero escluso 90
se calcoliamo i numeretti a 9 ci da proprio il 09 (99-90=09)
Numeri in gioco 59.09 su NA VE TT NZ per Ambo
adesso se calcoliamo la ruota in comune di NA E VE e proprio la ruota di milano
infatti NA la gemella e MI
e VE la diametrale e MI
e vero anche che puo calcolare anche BA la ruota in comune
NA e la diametrale di BA
VE e la gemella di BA..
secondo me vedendo il disegno a NA E VE il 59 09 puo fare a VE o MI oppure a RO..
che chiude il quadrato con la x ma possiamo anche rischiare solo a MI con 59 09
il 59 a milano rit da 170 estr e sono tantissime..
ma il 90 calcola anche il numero 1 con il numero a 91 (91-90=01)
dobbiamo stare attenti a questi ambi che giocano con il 59
1 ambo 59 09
2 ambo 59 01
e questi ambi li possiamo rischiare solo a milano..
che ne dite oppure avete altre convergenze con questi ambi sulle altre ruote..
di questi prospetti che calcola il 59 ce ne sono tanti e difficile scegliere solo una ruota di gioco
ma vediamo un altro disegno a BA E MI che calcola il 59
Ultima modifica:
Zetrix
Advanced Premium Member
allora vediamo questo disegno a BA E MI
calcoliamo l'algoritmo x che calcola il numero 11
58 + x + 12 = 11
58 + 31 + 12 = 101 fuori90 = 11
Numeri in gioco 59 su BA MI per Estratto
il numero escluso ma si scrive numero spia e il numero 8 se calcoliamo i numeretti a 9
ci da il 9 perche davanti all'8 ci dovete mettere il 9 e quindi diventa 98
quindi 99-98=01
e qui gioca ancora il 59 01 a BA MI E TT
Numeri in gioco 59.01 su BA MI TT NZ per Ambo
Zetrix
Advanced Premium Member
Codice:
Sub Main
'SetColorSezione(vbBlack)
'EndColorSezione
Dim Nu(5),Ru(1),ambo1(5),dec(5),fig(5),gem(5),dia(5),ambo2(5),ambo3(5),ambo4(5),ambo5(5)
Dim ambo6(5),ambo7(5),ambo8(5),ambo9(5),ambo10(5),ambo11(5),ambo12(5)
Dim ambo13(5),ambo14(5),ambo15(5),ambo16(5),ambo17(5),ambo18(5),ambo19(5),ambo20(5)
Dim ambo21(5),ambo22(5),ambo23(5),ambo24(5),ambo25(5),ambo26(5),ambo27(5),ambo28(5)
Dim ambo29(5),ambo30(5)
Dim b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20
Dim b21,b22,b23,b24,b25,b26,b27,b28,b29,b30
Dim T,V,ES,x,rw,rx,rv
Dim A,B,C,D,E,F,G,H,i,L,z,q,r
rw = InputBox("Quale numero vuoi controllare?",,0)
rx = InputBox("Quale numero spia vuoi controllare?",,0)
rv = InputBox("Quale numero vuoi evidenziare?",,0)
x = InputBox("Quante estrazioni vuoi controllare?",,0)
For ES = EstrazioneFin - x To EstrazioneFin
AvanzamentoElab EstrazioneFin - x,EstrazioneFin,ES
'Scrivi GetInfoEstrazione(ES),1,,,1,3
T = Array(T,"" & DataEstrazione(ES) & "","1","2","3","4","5"," 9 ","1","2","3","4","5"," 10 ","1","2","3","4","5"," 11 ","1","2","3","4","5")
Call InitTabella(T,RGB(100,150,100),,2,5)
For r = 1 To 11
If r = 11 Then r = 12
For i = rw To rw
For z = rx To rx
For q = rv To rv
A = Estratto(ES,r,1)
B = Estratto(ES,r,2)
C = Estratto(ES,r,3)
D = Estratto(ES,r,4)
E = Estratto(ES,r,5)
'--------------------------------
b1 = Fuori90(99 - A)
b2 = Fuori90(99 - B)
b3 = Fuori90(99 - C)
b4 = Fuori90(99 - D)
b5 = Fuori90(99 - E)
'----------------------------
b6 = Fuori90(110 - A)
b7 = Fuori90(110 - B)
b8 = Fuori90(110 - C)
b9 = Fuori90(110 - D)
b10 = Fuori90(110 - E)
'----------------------------
b11 = Fuori90(121 - A)
b12 = Fuori90(121 - B)
b13 = Fuori90(121 - C)
b14 = Fuori90(121 - D)
b15 = Fuori90(121 - E)
'-------------------------------
'----------------------------
ambo1(1) = Format2(A)
ambo2(1) = Format2(B)
ambo3(1) = Format2(C)
ambo4(1) = Format2(D)
ambo5(1) = Format2(E)
'----------------------------------------------------------------------
ambo6(1) = Format2(b1)
ambo7(1) = Format2(b2)
ambo8(1) = Format2(b3)
ambo9(1) = Format2(b4)
ambo10(1) = Format2(b5)
'--------------------------------
ambo11(1) = Format2(b6)
ambo12(1) = Format2(b7)
ambo13(1) = Format2(b8)
ambo14(1) = Format2(b9)
ambo15(1) = Format2(b10)
'--------------------------------
ambo16(1) = Format2(b11)
ambo17(1) = Format2(b12)
ambo18(1) = Format2(b13)
ambo19(1) = Format2(b14)
ambo20(1) = Format2(b15)
'-----------------------------------
Ru(1) = r
'
V = Array(V,NomeRuota(r),StringaNumeri(ambo1),StringaNumeri(ambo2),StringaNumeri(ambo3),StringaNumeri(ambo4),StringaNumeri(ambo5),"",StringaNumeri(ambo6),StringaNumeri(ambo7),StringaNumeri(ambo8),StringaNumeri(ambo9),StringaNumeri(ambo10),"",StringaNumeri(ambo11),StringaNumeri(ambo12),StringaNumeri(ambo13),StringaNumeri(ambo14),StringaNumeri(ambo15),"",StringaNumeri(ambo16),StringaNumeri(ambo17),StringaNumeri(ambo18),StringaNumeri(ambo19),StringaNumeri(ambo20))
Call AddRigaTabella(V)
Call SetColoreCella(1,RGB(220,209,50),0)
Call SetColoreCella(2,RGB(0,0,128),5)
Call SetColoreCella(3,RGB(0,0,128),5)
Call SetColoreCella(4,RGB(0,0,128),5)
Call SetColoreCella(5,RGB(0,0,128),5)
Call SetColoreCella(6,RGB(0,0,128),5)
Call SetColoreCella(7,RGB(220,209,50),5)
Call SetColoreCella(8,RGB(0,0,128),5)
Call SetColoreCella(9,RGB(0,0,128),5)
Call SetColoreCella(10,RGB(0,0,128),5)
Call SetColoreCella(11,RGB(0,0,128),5)
Call SetColoreCella(12,RGB(0,0,128),5)
Call SetColoreCella(13,RGB(220,209,50),5)
Call SetColoreCella(14,RGB(0,0,128),5)
Call SetColoreCella(15,RGB(0,0,128),5)
Call SetColoreCella(16,RGB(0,0,128),5)
Call SetColoreCella(17,RGB(0,0,128),5)
Call SetColoreCella(18,RGB(0,0,128),5)
Call SetColoreCella(19,RGB(220,209,50),5)
Call SetColoreCella(20,RGB(0,0,128),5)
Call SetColoreCella(21,RGB(0,0,128),5)
Call SetColoreCella(22,RGB(0,0,128),5)
Call SetColoreCella(23,RGB(0,0,128),5)
Call SetColoreCella(24,RGB(0,0,128),5)
Call SetColoreCella(25,RGB(0,0,128),5)
Call SetColoreCella(26,RGB(0,0,128),5)
Call SetColoreCella(27,RGB(0,0,128),5)
Call SetColoreCella(28,RGB(0,0,128),5)
Call SetColoreCella(29,RGB(220,209,50),5)'-----------
If A And b1 = i Then Call SetColoreCella((2),2,5)
If B And b2 = i Then Call SetColoreCella((3),2,5)
If C And b3 = i Then Call SetColoreCella((4),2,5)
If D And b4 = i Then Call SetColoreCella((5),2,5)
If E And b5 = i Then Call SetColoreCella((6),2,5)
If A And b6 = i Then Call SetColoreCella((2),2,5)
If B And b7 = i Then Call SetColoreCella((3),2,5)
If C And b8 = i Then Call SetColoreCella((4),2,5)
If D And b9 = i Then Call SetColoreCella((5),2,5)
If E And b10 = i Then Call SetColoreCella((6),2,5)
If A And b11 = i Then Call SetColoreCella((2),2,5)
If B And b12 = i Then Call SetColoreCella((3),2,5)
If C And b13 = i Then Call SetColoreCella((4),2,5)
If D And b14 = i Then Call SetColoreCella((5),2,5)
If E And b15 = i Then Call SetColoreCella((6),2,5)
'
If ambo6(1) And b1 = i Then Call SetColoreCella((8),2,5)
If ambo7(1) And b2 = i Then Call SetColoreCella((9),2,5)
If ambo8(1) And b3 = i Then Call SetColoreCella((10),2,5)
If ambo9(1) And b4 = i Then Call SetColoreCella((11),2,5)
If ambo10(1)And b5 = i Then Call SetColoreCella((12),2,5)
'
If ambo11(1)And b6 = i Then Call SetColoreCella((14),2,5)
If ambo12(1)And b7 = i Then Call SetColoreCella((15),2,5)
If ambo13(1)And b8 = i Then Call SetColoreCella((16),2,5)
If ambo14(1)And b9 = i Then Call SetColoreCella((17),2,5)
If ambo15(1)And b10 = i Then Call SetColoreCella((18),2,5)
'
If ambo16(1)And b11 = i Then Call SetColoreCella((20),2,5)
If ambo17(1)And b12 = i Then Call SetColoreCella((21),2,5)
If ambo18(1)And b13 = i Then Call SetColoreCella((22),2,5)
If ambo19(1)And b14 = i Then Call SetColoreCella((23),2,5)
If ambo20(1)And b15 = i Then Call SetColoreCella((24),2,5)
'
If ambo1(1) And A = z Then Call SetColoreCella(2,RGB(220,209,50),1)
If ambo2(1) And B = z Then Call SetColoreCella(3,RGB(220,209,50),1)
If ambo3(1) And C = z Then Call SetColoreCella(4,RGB(220,209,50),1)
If ambo4(1) And D = z Then Call SetColoreCella(5,RGB(220,209,50),1)
If ambo5(1)And E = z Then Call SetColoreCella(6,RGB(220,209,50),1)
If ambo1(1) And A = q Then Call SetColoreCella(2,RGB(255,0,255),5)
If ambo2(1) And B = q Then Call SetColoreCella(3,RGB(255,0,255),5)
If ambo3(1) And C = q Then Call SetColoreCella(4,RGB(255,0,255),5)
If ambo4(1) And D = q Then Call SetColoreCella(5,RGB(255,0,255),5)
If ambo5(1)And E = q Then Call SetColoreCella(6,RGB(255,0,255),5)
'
If ambo6(1) And b1 = z Then Call SetColoreCella(8,RGB(220,209,50),1)
If ambo7(1) And b2 = z Then Call SetColoreCella(9,RGB(220,209,50),1)
If ambo8(1) And b3 = z Then Call SetColoreCella(10,RGB(220,209,50),1)
If ambo9(1) And b4 = z Then Call SetColoreCella(11,RGB(220,209,50),1)
If ambo10(1)And b5 = z Then Call SetColoreCella(12,RGB(220,209,50),1)
'
If ambo11(1)And b6 = z Then Call SetColoreCella(14,RGB(220,209,50),1)
If ambo12(1)And b7 = z Then Call SetColoreCella(15,RGB(220,209,50),1)
If ambo13(1)And b8 = z Then Call SetColoreCella(16,RGB(220,209,50),1)
If ambo14(1)And b9 = z Then Call SetColoreCella(17,RGB(220,209,50),1)
If ambo15(1)And b10 = z Then Call SetColoreCella(18,RGB(220,209,50),1)
'
If ambo16(1)And b11 = z Then Call SetColoreCella(20,RGB(220,209,50),1)
If ambo17(1)And b12 = z Then Call SetColoreCella(21,RGB(220,209,50),1)
If ambo18(1)And b13 = z Then Call SetColoreCella(22,RGB(220,209,50),1)
If ambo19(1)And b14 = z Then Call SetColoreCella(23,RGB(220,209,50),1)
If ambo20(1)And b15 = z Then Call SetColoreCella(24,RGB(220,209,50),1)
'
Next
Next
Next
Next
Call SetTableWidth("70%")
CreaTabella
Next
End Subtoon ho fatto un altra tabella che calcola i numeretti a 9 i numeretti a 10 e i numeretti a 11
lo colorata anche la tabella spero che ti piaccia la tabella..
digita il numero 59 e la tabella ti evidenzia tutti i numeri calcolati con il numero 59
il numero da evidenziare e il numero spia puoi anche non scrivere niente
serve solo se vuoi evidenziare i numeri che ti interessano se no non scrivere niente ok
Alien.
Advanced Premium Member
Ciao mi da errore PERCORSO ERRATO.
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 17 ottobre 2025Bari4365365254Cagliari6389228545Firenze5917668878Genova7567427877Milano1221876631Napoli3875616876Palermo4290203371Roma5713808479Torino5954844826Venezia7705142820Nazionale0504104368Estrazione Simbolotto
4238162534