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
Dim ambo1(5),ambo2(2),calc(10),ruota1(5),ruota2(5),ruote(6),posta(2),poste(2)
Dim ambata1(2),ambata2(2)
Dim rs,rv,rx,rw,es,rk
Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
Dim r1,r2,r3,r4
Dim n1,n2,n3,n4,n5,n6
'
posta(1) = 1
poste(2) = 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 7
For r2 = r1 + 1 To r2
For r3 = r2 + 1 To r3
For r4 = r3 + 1 To r4
'---------------------------------
For p1 = 1 To 2
For p2 = p1 + 2 To p2
For p3 = p2 - 1 To p3
For p4 = p3 + 2 To p4
For p5 = p3 - 1 To p5
For p6 = p4 - 1 To p6
For p7 = p5 + 1 To p7
For p8 = p6 + 1 To p8
'-------------------------------
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
e = Estratto(es,r3,p5)
f = Estratto(es,r3,p6)
g = Estratto(es,r4,p7)
h = Estratto(es,r4,p8)
'-----------------------------------
'
ruota1(1) = r1
ruota1(2) = r3
ruota2(1) = r2
ruota2(2) = r4
'-------------------
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = r4
ruote(5) = 11
ruote(6) = 12
'--------------------
z = a + b + c + d + e + f + g + h
w = Fuori90(a + b + c + d + e + f + g + h)
'
'--------------------
'
ReDim MatriceCaselleDaEvid(8,1)
'
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
'
MatriceCaselleDaEvid(2,0) = r1
MatriceCaselleDaEvid(2,1) = p2
'
MatriceCaselleDaEvid(3,0) = r2
MatriceCaselleDaEvid(3,1) = p3
'
MatriceCaselleDaEvid(4,0) = r2
MatriceCaselleDaEvid(4,1) = p4
'
MatriceCaselleDaEvid(5,0) = r3
MatriceCaselleDaEvid(5,1) = p5
'
MatriceCaselleDaEvid(6,0) = r3
MatriceCaselleDaEvid(6,1) = p6
'
MatriceCaselleDaEvid(7,0) = r4
MatriceCaselleDaEvid(7,1) = p7
'
MatriceCaselleDaEvid(8,0) = r4
MatriceCaselleDaEvid(8,1) = p8
ReDim MatriceLegami(12,3)
'
MatriceLegami(1,0) = r1
MatriceLegami(1,1) = p1
MatriceLegami(1,2) = r1
MatriceLegami(1,3) = p2
'
MatriceLegami(2,0) = r1
MatriceLegami(2,1) = p1
MatriceLegami(2,2) = r3
MatriceLegami(2,3) = p5
'
MatriceLegami(3,0) = r1
MatriceLegami(3,1) = p2
MatriceLegami(3,2) = r3
MatriceLegami(3,3) = p6
'
MatriceLegami(4,0) = r4
MatriceLegami(4,1) = p7
MatriceLegami(4,2) = r4
MatriceLegami(4,3) = p8
'
MatriceLegami(5,0) = r1
MatriceLegami(5,1) = p1
MatriceLegami(5,2) = r2
MatriceLegami(5,3) = p3
'
MatriceLegami(6,0) = r1
MatriceLegami(6,1) = p2
MatriceLegami(6,2) = r2
MatriceLegami(6,3) = p4
'
MatriceLegami(7,0) = r2
MatriceLegami(7,1) = p3
MatriceLegami(7,2) = r2
MatriceLegami(7,3) = p4
'
MatriceLegami(8,0) = r2
MatriceLegami(8,1) = p4
MatriceLegami(8,2) = r4
MatriceLegami(8,3) = p8
'
MatriceLegami(9,0) = r3
MatriceLegami(9,1) = p5
MatriceLegami(9,2) = r4
MatriceLegami(9,3) = p7
'
MatriceLegami(10,0) = r2
MatriceLegami(10,1) = p3
MatriceLegami(10,2) = r4
MatriceLegami(10,3) = p7
'
MatriceLegami(11,0) = r3
MatriceLegami(11,1) = p5
MatriceLegami(11,2) = r3
MatriceLegami(11,3) = p6
'
MatriceLegami(12,0) = r3
MatriceLegami(12,1) = p6
MatriceLegami(12,2) = r4
MatriceLegami(12,3) = p8
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
Scrivi("" & SiglaRuota(r1) & "___" & Format2(a) & "____" & Format2(b) & " _____"),0,0,1,3,5
Scrivi
Scrivi("" & SiglaRuota(r2) & "_____" & Format2(c) & "____" & Format2(d) & " ___"),0,0,4,7,5
Scrivi
Scrivi("" & SiglaRuota(r3) & "___" & Format2(e) & "____" & Format2(f) & " _____"),0,0,1,3,5
Scrivi
Scrivi("" & SiglaRuota(r4) & "_____" & Format2(g) & "____" & Format2(h) & " ___"),0,0,4,7,5
Scrivi
Scrivi
Scrivi
Scrivi("" & Format2(a) & "+" & Format2(b) & "+" & Format2(c) & "+" & Format2(d) & "+"),0,0,1,3,4
Scrivi("" & Format2(e) & "+" & Format2(f) & "+" & Format2(g) & "+" & Format2(h) & "=" & z & ""),0,0,1,3,4
Scrivi("=" & w & "") & " ",0,0,4,7,4
Scrivi
Scrivi
'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
ImpostaGiocata 1,ambata1,ruota1,posta,k
ImpostaGiocata 2,ambata2,ruota2,posta,k
'Gioca es,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,k
'Gioca es,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
'End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Subquesto script disegna i cubi sulle estr però ho tolto i calcoli del super ambo..
questo e il mio regalo per natale spero vi piaccia lo script e scritto da me..
e si nota la differenza degli altri script scritti dagli altri..
Ultima modifica:
Zetrix
Advanced Premium Member
asn = algoritmo system number
51 . 49 _____10_____ 5 . 4 _____
51 . 59 _____20_____ 5 . 5 _____
51 . 69 _____30_____ 5 . 6 _____
51 . 79 _____40_____ 5 . 7 _____
51 . 89 _____50_____ 5 . 8 _____
51 . 09 _____60_____ 5 . 9 _____
51 . 19 _____70_____ 5 . 1 _____
51 . 29 _____80_____ 5 . 2 _____
51 . 39 _____90_____ 5 . 3 _____
88.49 . 88.79 . 88.19 .
88.59 . 88.89 . 88.29 .
88.69 . 88.09 . 88.39 .
numero = 51 cadenza = 1 format = 70
numero = 51 figura = 6 format = 30
numero = 51 decina = 5 format = 20
[NZ] [88 .. .. 09 ..] C.4 Ambo 02056 [13/12/2022] [88.15.75.09.12]
[RO] [39 .. .. 88 ..] C.3 Ambo 02055 [10/12/2022] [39.75.12.88.83]
Ultima modifica:
Zetrix
Advanced Premium Member
b ------ 2
u ------ 21
o ------ 15
n ------ 14
------------------ 52
n ------ 14
a ------ 1
t ------ 20
a ------ 1
l ------ 12
e ------ 5
------------------ 53
a ------ 1
------------------ 1
t ------ 20
u ------ 21
t ------ 20
t ------ 20
i ------ 9
------------------ 90
Alien sei rimasto ancora con babbo natale adesso ci sono i babbi natale
u ------ 21
o ------ 15
n ------ 14
------------------ 52
n ------ 14
a ------ 1
t ------ 20
a ------ 1
l ------ 12
e ------ 5
------------------ 53
a ------ 1
------------------ 1
t ------ 20
u ------ 21
t ------ 20
t ------ 20
i ------ 9
------------------ 90
Alien sei rimasto ancora con babbo natale adesso ci sono i babbi natale
Zetrix
Advanced Premium Member
Codice:
Sub Main
Dim ambo1(5),ambo2(2),calc(10),ruota1(5),ruota2(5),ruote(6),posta(2),poste(2)
Dim ambata1(2),ambata2(2)
Dim rs,rv,rx,rw,es,rk
Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
Dim r1,r2,r3,r4
Dim n1,n2,n3,n4,n5,n6
Dim anum(10)
posta(1) = 1
poste(2) = 1
'rk = InputBox("Quale numero vuoi controllare?",,0)
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'
For r1 = 1 To 7
For r2 = r1 + 1 To r2
For r3 = r2 + 1 To r3
For r4 = r3 + 1 To r4
'---------------------------------
For p1 = 1 To 2
For p2 = p1 + 2 To p2
For p3 = p2 - 1 To p3
For p4 = p3 + 2 To p4
For p5 = p3 - 1 To p5
For p6 = p4 - 1 To p6
For p7 = p5 + 1 To p7
For p8 = p6 + 1 To p8
'-------------------------------
For rx = rk To rk
'----------------------------
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
e = Estratto(es,r3,p5)
f = Estratto(es,r3,p6)
g = Estratto(es,r4,p7)
h = Estratto(es,r4,p8)
'-----------------------------------
x = Fuori90(b - a + e)
y = Fuori90(d - c + g)
'-----------------------------------
'-----------------------------------
ambata1(1) = x
ambata2(1) = y
'-----------------------------------
ambo1(1) = x
ambo1(2) = y
'------------------------------------
'--------------------------------------
z = a + b + c + d + e + f + g + h
w = Fuori90(a + b + c + d + e + f + g + h)
'
'If rx = x Or rx = y Then
'
ruota1(1) = r1
ruota1(2) = r3
ruota2(1) = r2
ruota2(2) = r4
'-------------------
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = r4
ruote(5) = 11
ruote(6) = 12
'--------------------
calc(1) = a
calc(2) = b
calc(3) = c
calc(4) = d
calc(5) = e
calc(6) = f
calc(7) = g
calc(8) = h
'--------------------
'
ReDim MatriceCaselleDaEvid(8,1)
'
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
'
MatriceCaselleDaEvid(2,0) = r1
MatriceCaselleDaEvid(2,1) = p2
'
MatriceCaselleDaEvid(3,0) = r2
MatriceCaselleDaEvid(3,1) = p3
'
MatriceCaselleDaEvid(4,0) = r2
MatriceCaselleDaEvid(4,1) = p4
'
MatriceCaselleDaEvid(5,0) = r3
MatriceCaselleDaEvid(5,1) = p5
'
MatriceCaselleDaEvid(6,0) = r3
MatriceCaselleDaEvid(6,1) = p6
'
MatriceCaselleDaEvid(7,0) = r4
MatriceCaselleDaEvid(7,1) = p7
'
MatriceCaselleDaEvid(8,0) = r4
MatriceCaselleDaEvid(8,1) = p8
ReDim MatriceLegami(12,3)
'
MatriceLegami(1,0) = r1
MatriceLegami(1,1) = p1
MatriceLegami(1,2) = r1
MatriceLegami(1,3) = p2
'
MatriceLegami(2,0) = r1
MatriceLegami(2,1) = p1
MatriceLegami(2,2) = r3
MatriceLegami(2,3) = p5
'
MatriceLegami(3,0) = r1
MatriceLegami(3,1) = p2
MatriceLegami(3,2) = r3
MatriceLegami(3,3) = p6
'
MatriceLegami(4,0) = r4
MatriceLegami(4,1) = p7
MatriceLegami(4,2) = r4
MatriceLegami(4,3) = p8
'
MatriceLegami(5,0) = r1
MatriceLegami(5,1) = p1
MatriceLegami(5,2) = r2
MatriceLegami(5,3) = p3
'
MatriceLegami(6,0) = r1
MatriceLegami(6,1) = p2
MatriceLegami(6,2) = r2
MatriceLegami(6,3) = p4
'
MatriceLegami(7,0) = r2
MatriceLegami(7,1) = p3
MatriceLegami(7,2) = r2
MatriceLegami(7,3) = p4
'
MatriceLegami(8,0) = r2
MatriceLegami(8,1) = p4
MatriceLegami(8,2) = r4
MatriceLegami(8,3) = p8
'
MatriceLegami(9,0) = r3
MatriceLegami(9,1) = p5
MatriceLegami(9,2) = r4
MatriceLegami(9,3) = p7
'
MatriceLegami(10,0) = r2
MatriceLegami(10,1) = p3
MatriceLegami(10,2) = r4
MatriceLegami(10,3) = p7
'
MatriceLegami(11,0) = r3
MatriceLegami(11,1) = p5
MatriceLegami(11,2) = r3
MatriceLegami(11,3) = p6
'
MatriceLegami(12,0) = r3
MatriceLegami(12,1) = p6
MatriceLegami(12,2) = r4
MatriceLegami(12,3) = p8
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
Scrivi("" & SiglaRuota(r1) & "___" & Format2(a) & "____" & Format2(b) & " _____"),0,0,1,3,5
Scrivi
Scrivi("" & SiglaRuota(r2) & "_____" & Format2(c) & "____" & Format2(d) & " ___"),0,0,4,7,5
Scrivi
Scrivi("" & SiglaRuota(r3) & "___" & Format2(e) & "____" & Format2(x) & " _____"),0,0,1,3,5
Scrivi
Scrivi("" & SiglaRuota(r4) & "_____" & Format2(g) & "____" & Format2(y) & " ___"),0,0,4,7,5
Scrivi
Scrivi
Scrivi
Scrivi("" & Format2(a) & "+" & Format2(b) & "+" & Format2(c) & "+" & Format2(d) & "+"),0,0,1,3,4
Scrivi("" & Format2(e) & "+" & Format2(f) & "+" & Format2(g) & "+" & Format2(h) & "=" & z & ""),0,0,1,3,4
Scrivi("=" & w & "") & " ",0,0,4,7,4
Scrivi
Scrivi
'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
ImpostaGiocata 1,ambata1,ruota1,posta,k
ImpostaGiocata 2,ambata2,ruota2,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,k
Gioca es,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
'End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
'ScriviResoconto
End Subtoon ho messo un calcolo per calcolare le ambate e ambo a tutte
ma non sempre da gli ambi a tutte..
con questi disegni a cubi si possono fare tanti giochi per esempio
si possono sovrapporre i 4 numeri del 2 quadrato al 1 quadrato
e sommarli e si formano 4 numeri e si possono giocare per ambo e terno..
fate delle prove e se trovate una tecnica vincente mi scrivete in questa discussione..
considerate che sono dilettante con gli script qua ci sono molti piu bravi ed esperti
con gli script..
buon natale a tutti
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
Sub Main
Dim ambo1(5),ambo2(2),calc(10),ruota1(5),ruota2(5),ruote(6),posta(2),poste(2)
Dim ambata1(2),ambata2(2)
Dim rs,rv,rx,rw,es,rk
Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
Dim r1,r2,r3,r4
Dim n1,n2,n3,n4,n5,n6
'
posta(1) = 1
poste(2) = 1
'rk = InputBox("Quale numero vuoi controllare?",,0)
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'--------------------
For r1 = 1 To 6
For r2 = r1 + 1 To r2
For r3 = r2 + 2 To r3
For r4 = r3 + 1 To r4
'------------------------
p1 = 1
p2 = 4
p3 = 2
p4 = 5
p5 = 1
p6 = 4
p7 = 2
p8 = 5
'----------------------------------
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
e = Estratto(es,r3,p5)
f = Estratto(es,r3,p6)
g = Estratto(es,r4,p7)
h = Estratto(es,r4,p8)
'-----------------------------------
For rx = rk To rk
'--------------------------------
x = Fuori90(b - a + e)
y = Fuori90(d - c + g)
'-----------------------------------
'-----------------------------------
ambata1(1) = x
ambata2(1) = y
'-----------------------------------
ambo1(1) = x
ambo1(2) = y
'------------------------------------
'--------------------------------------
z = a + b + c + d + e + f + g + h
w = Fuori90(a + b + c + d + e + f + g + h)
'
'If rx = x Or rx = y Then
'
ruota1(1) = r1
ruota1(2) = r3
ruota2(1) = r2
ruota2(2) = r4
'-------------------
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = r4
ruote(5) = 11
ruote(6) = 12
'--------------------
calc(1) = a
calc(2) = b
calc(3) = c
calc(4) = d
calc(5) = e
calc(6) = f
calc(7) = g
calc(8) = h
'--------------------
'
ReDim MatriceCaselleDaEvid(8,1)
'
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
'
MatriceCaselleDaEvid(2,0) = r1
MatriceCaselleDaEvid(2,1) = p2
'
MatriceCaselleDaEvid(3,0) = r2
MatriceCaselleDaEvid(3,1) = p3
'
MatriceCaselleDaEvid(4,0) = r2
MatriceCaselleDaEvid(4,1) = p4
'
MatriceCaselleDaEvid(5,0) = r3
MatriceCaselleDaEvid(5,1) = p5
'
MatriceCaselleDaEvid(6,0) = r3
MatriceCaselleDaEvid(6,1) = p6
'
MatriceCaselleDaEvid(7,0) = r4
MatriceCaselleDaEvid(7,1) = p7
'
MatriceCaselleDaEvid(8,0) = r4
MatriceCaselleDaEvid(8,1) = p8
ReDim MatriceLegami(12,3)
'
MatriceLegami(1,0) = r1
MatriceLegami(1,1) = p1
MatriceLegami(1,2) = r1
MatriceLegami(1,3) = p2
'
MatriceLegami(2,0) = r1
MatriceLegami(2,1) = p1
MatriceLegami(2,2) = r3
MatriceLegami(2,3) = p5
'
MatriceLegami(3,0) = r1
MatriceLegami(3,1) = p2
MatriceLegami(3,2) = r3
MatriceLegami(3,3) = p6
'
MatriceLegami(4,0) = r4
MatriceLegami(4,1) = p7
MatriceLegami(4,2) = r4
MatriceLegami(4,3) = p8
'
MatriceLegami(5,0) = r1
MatriceLegami(5,1) = p1
MatriceLegami(5,2) = r2
MatriceLegami(5,3) = p3
'
MatriceLegami(6,0) = r1
MatriceLegami(6,1) = p2
MatriceLegami(6,2) = r2
MatriceLegami(6,3) = p4
'
MatriceLegami(7,0) = r2
MatriceLegami(7,1) = p3
MatriceLegami(7,2) = r2
MatriceLegami(7,3) = p4
'
MatriceLegami(8,0) = r2
MatriceLegami(8,1) = p4
MatriceLegami(8,2) = r4
MatriceLegami(8,3) = p8
'
MatriceLegami(9,0) = r3
MatriceLegami(9,1) = p5
MatriceLegami(9,2) = r4
MatriceLegami(9,3) = p7
'
MatriceLegami(10,0) = r2
MatriceLegami(10,1) = p3
MatriceLegami(10,2) = r4
MatriceLegami(10,3) = p7
'
MatriceLegami(11,0) = r3
MatriceLegami(11,1) = p5
MatriceLegami(11,2) = r3
MatriceLegami(11,3) = p6
'
MatriceLegami(12,0) = r3
MatriceLegami(12,1) = p6
MatriceLegami(12,2) = r4
MatriceLegami(12,3) = p8
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
Scrivi("" & SiglaRuota(r1) & "___" & Format2(a) & "____" & Format2(b) & " _____"),0,0,1,3,5
Scrivi
Scrivi("" & SiglaRuota(r2) & "_____" & Format2(c) & "____" & Format2(d) & " ___"),0,0,4,7,5
Scrivi
Scrivi("" & SiglaRuota(r3) & "___" & Format2(e) & "____" & Format2(x) & " _____"),0,0,1,3,5
Scrivi
Scrivi("" & SiglaRuota(r4) & "_____" & Format2(g) & "____" & Format2(y) & " ___"),0,0,4,7,5
Scrivi
Scrivi
Scrivi
Scrivi("" & Format2(a) & "+" & Format2(b) & "+" & Format2(c) & "+" & Format2(d) & "+"),0,0,1,3,4
Scrivi("" & Format2(e) & "+" & Format2(f) & "+" & Format2(g) & "+" & Format2(h) & "=" & z & ""),0,0,1,3,4
Scrivi("=" & w & "") & " ",0,0,4,7,4
Scrivi
Scrivi
'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
ImpostaGiocata 1,ambata1,ruota1,posta,k
ImpostaGiocata 2,ambata2,ruota2,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,k
Gioca es,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
'End If
Next
Next
Next
Next
Next
Next
'ScriviResoconto
End Sub
Ultima modifica:
i legend
Premium Member
ciao ti ho riscritto un tuo script
vedi se i dati sono esatti
buon natale a tutti
ecco il tuo sopra questo sotto è il mio modificato
se non funzia fammi sapere
vedi se i dati sono esatti
buon natale a tutti
Codice:
Option Explicit
Sub Main
Dim arrData(10,14)
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12
Dim es,x,k,w
Dim Ini,fin
Dim Ini1,fin1
'
x = InputBox("Quale numero vuoi controllare?",,0)
'
Ini = EstrazioneFin - 18
fin = EstrazioneFin
'
es = EstrazioneFin
'
Ini1 = EstrazioneIni
fin1 = EstrazioneFin
'
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
r6 = 6
r7 = 7
r8 = 8
r9 = 9
r10 = 10
'---------------------------
'
arrData(1,1) = "" & x & Space(2) & " BA "
arrData(2,1) = "" & x & Space(2) & " CA "
arrData(3,1) = "" & x & Space(2) & " FI "
arrData(4,1) = "" & x & Space(2) & " GE "
arrData(5,1) = "" & x & Space(2) & " MI "
arrData(6,1) = "" & x & Space(2) & " NA "
arrData(7,1) = "" & x & Space(2) & " PA "
arrData(8,1) = "" & x & Space(2) & " RO "
arrData(9,1) = "" & x & Space(2) & " TO "
arrData(10,1) = "" & x & Space(2) & " VE "
'
arrData(1,2) = EstrattoFrequenza(r1,x,Ini,fin)
arrData(2,3) = EstrattoFrequenza(r2,x,Ini,fin)
arrData(3,4) = EstrattoFrequenza(r3,x,Ini,fin)
arrData(4,5) = EstrattoFrequenza(r4,x,Ini,fin)
arrData(5,6) = EstrattoFrequenza(r5,x,Ini,fin)
arrData(6,7) = EstrattoFrequenza(r6,x,Ini,fin)
arrData(7,10) = EstrattoFrequenza(r7,x,Ini,fin)
arrData(8,11) = EstrattoFrequenza(r8,x,Ini,fin)
arrData(9,12) = EstrattoFrequenza(r9,x,Ini,fin)
arrData(10,14) = EstrattoFrequenza(r10,x,Ini,fin)
'
For k = 1 To 1
Next
Call Scrivi("Grafico" & k)
Call Grafico(arrData,2,DataEstrazione((es),1) & Space(5) & "" & x & "" & Space(5) & "ultime 18 estrazioni" & Space(5) & "frequenze" & "","titY")
'
Scrivi SiglaRuota(r1) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r1,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r1,x,Ini1,fin1)
Scrivi SiglaRuota(r2) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r2,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r2,x,Ini1,fin1)
Scrivi SiglaRuota(r3) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r3,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r3,x,Ini1,fin1)
Scrivi SiglaRuota(r4) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r4,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r4,x,Ini1,fin1)
Scrivi SiglaRuota(r5) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r5,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r5,x,Ini1,fin1)
Scrivi SiglaRuota(r6) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r6,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r6,x,Ini1,fin1)
Scrivi SiglaRuota(r7) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r7,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r7,x,Ini1,fin1)
Scrivi SiglaRuota(r8) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r8,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r8,x,Ini1,fin1)
Scrivi SiglaRuota(r9) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r9,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r9,x,Ini1,fin1)
Scrivi SiglaRuota(r10) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r10,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r10,x,Ini1,fin1)
'
End Sub
Codice:
Option Explicit
' controllare se i dati sono corretti
' script per zetrix
Sub Main
Dim qE : qE = CInt(InputBox("Quanteestrazioni vuoi esaminare per le presenze?","",18)) - 1
Dim Fin:Fin = EstrazioneFin
Dim Ini:Ini = Fin - qE
Dim r,n,pres,rit,ritMax,sR
Dim aGraf(11,12)
Dim col: Dim Ar:Ar = Array(0,1,2,3,4,5,6,7,8,9,10,12)
For n = 1 To 90
col = RGB(235,238,247)
Scrivi "+-----------------------------+",,,col
Scrivi "| Numero analizzato: " & Format2(n) & " |",,,col
Scrivi "+-----------------------------+",,,col
Scrivi "|Range Pres: " & FormatSpace(Ini,5) & "-" & FormatSpace(Fin,5) & " |",,,col
Scrivi "+---+-----+------+-----+------+",,,col
Scrivi "|RU | Est | Pres | Rit |RitMax|",,,col
Scrivi "+---+-----+------+-----+------+",,,col
For r = 1 To 11
col = RGB(255,255,255)
sR = SiglaRuota(Ar(r))
pres = EstrattoFrequenzaTurbo(Ar(r),n,Ini,Fin): If pres = 0 Then col = RGB(255,230,230)
rit = EstrattoRitardoTurbo(Ar(r),n,,Fin)
ritMax = EstrattoStoricoTurbo(Ar(r),n,,Fin)
Scrivi "|" & sR & " | " & Format2(n) & " | " & FormatSpace(pres,3,1) & " | " & FormatSpace(rit,3,1) & " | " & FormatSpace(ritMax,3,1) & " |",,,col
aGraf(r,1) = Format2(n) & " " & sR
aGraf(r,r + 1) = pres
Next
Scrivi "+-----------------------------+"
Call Grafico(aGraf,2)
Next
End Sub
Alien.
Advanced Premium Member
Ottimo, bel lavorociao ti ho riscritto un tuo script
vedi se i dati sono esatti
buon natale a tutti
ecco il tuo sopra questo sotto è il mio modificatoCodice:Option Explicit Sub Main Dim arrData(10,14) Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12 Dim es,x,k,w Dim Ini,fin Dim Ini1,fin1 ' x = InputBox("Quale numero vuoi controllare?",,0) ' Ini = EstrazioneFin - 18 fin = EstrazioneFin ' es = EstrazioneFin ' Ini1 = EstrazioneIni fin1 = EstrazioneFin ' r1 = 1 r2 = 2 r3 = 3 r4 = 4 r5 = 5 r6 = 6 r7 = 7 r8 = 8 r9 = 9 r10 = 10 '--------------------------- ' arrData(1,1) = "" & x & Space(2) & " BA " arrData(2,1) = "" & x & Space(2) & " CA " arrData(3,1) = "" & x & Space(2) & " FI " arrData(4,1) = "" & x & Space(2) & " GE " arrData(5,1) = "" & x & Space(2) & " MI " arrData(6,1) = "" & x & Space(2) & " NA " arrData(7,1) = "" & x & Space(2) & " PA " arrData(8,1) = "" & x & Space(2) & " RO " arrData(9,1) = "" & x & Space(2) & " TO " arrData(10,1) = "" & x & Space(2) & " VE " ' arrData(1,2) = EstrattoFrequenza(r1,x,Ini,fin) arrData(2,3) = EstrattoFrequenza(r2,x,Ini,fin) arrData(3,4) = EstrattoFrequenza(r3,x,Ini,fin) arrData(4,5) = EstrattoFrequenza(r4,x,Ini,fin) arrData(5,6) = EstrattoFrequenza(r5,x,Ini,fin) arrData(6,7) = EstrattoFrequenza(r6,x,Ini,fin) arrData(7,10) = EstrattoFrequenza(r7,x,Ini,fin) arrData(8,11) = EstrattoFrequenza(r8,x,Ini,fin) arrData(9,12) = EstrattoFrequenza(r9,x,Ini,fin) arrData(10,14) = EstrattoFrequenza(r10,x,Ini,fin) ' For k = 1 To 1 Next Call Scrivi("Grafico" & k) Call Grafico(arrData,2,DataEstrazione((es),1) & Space(5) & "" & x & "" & Space(5) & "ultime 18 estrazioni" & Space(5) & "frequenze" & "","titY") ' Scrivi SiglaRuota(r1) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r1,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r1,x,Ini1,fin1) Scrivi SiglaRuota(r2) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r2,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r2,x,Ini1,fin1) Scrivi SiglaRuota(r3) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r3,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r3,x,Ini1,fin1) Scrivi SiglaRuota(r4) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r4,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r4,x,Ini1,fin1) Scrivi SiglaRuota(r5) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r5,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r5,x,Ini1,fin1) Scrivi SiglaRuota(r6) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r6,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r6,x,Ini1,fin1) Scrivi SiglaRuota(r7) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r7,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r7,x,Ini1,fin1) Scrivi SiglaRuota(r8) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r8,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r8,x,Ini1,fin1) Scrivi SiglaRuota(r9) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r9,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r9,x,Ini1,fin1) Scrivi SiglaRuota(r10) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r10,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r10,x,Ini1,fin1) ' End Sub
se non funzia fammi sapereCodice:Option Explicit ' controllare se i dati sono corretti ' script per zetrix Sub Main Dim qE : qE = CInt(InputBox("Quanteestrazioni vuoi esaminare per le presenze?","",18)) - 1 Dim Fin:Fin = EstrazioneFin Dim Ini:Ini = Fin - qE Dim r,n,pres,rit,ritMax,sR Dim aGraf(11,12) Dim col: Dim Ar:Ar = Array(0,1,2,3,4,5,6,7,8,9,10,12) For n = 1 To 90 col = RGB(235,238,247) Scrivi "+-----------------------------+",,,col Scrivi "| Numero analizzato: " & Format2(n) & " |",,,col Scrivi "+-----------------------------+",,,col Scrivi "|Range Pres: " & FormatSpace(Ini,5) & "-" & FormatSpace(Fin,5) & " |",,,col Scrivi "+---+-----+------+-----+------+",,,col Scrivi "|RU | Est | Pres | Rit |RitMax|",,,col Scrivi "+---+-----+------+-----+------+",,,col For r = 1 To 11 col = RGB(255,255,255) sR = SiglaRuota(Ar(r)) pres = EstrattoFrequenzaTurbo(Ar(r),n,Ini,Fin): If pres = 0 Then col = RGB(255,230,230) rit = EstrattoRitardoTurbo(Ar(r),n,,Fin) ritMax = EstrattoStoricoTurbo(Ar(r),n,,Fin) Scrivi "|" & sR & " | " & Format2(n) & " | " & FormatSpace(pres,3,1) & " | " & FormatSpace(rit,3,1) & " | " & FormatSpace(ritMax,3,1) & " |",,,col aGraf(r,1) = Format2(n) & " " & sR aGraf(r,r + 1) = pres Next Scrivi "+-----------------------------+" Call Grafico(aGraf,2) Next End Sub
Zetrix
Advanced Premium Member
Alien ma come e possibile che ancora non riusciamo a vincere questo super ambo
mi sembra che qua non abbiamo tanta fortuna..o che si mettono a gufare..
vediamo se a fine anno riusciamo a fare il botto con il super ambo..
questo superambo e al 100x100 e non si scherza..
Ultima modifica:
Zetrix
Advanced Premium Member
Ciao Alien auguri anche a te non credo come dice te e che il banco lo marca stretto il 59
sa benissimo che se esce il 59 a milano deve pagare tanti soldi ma quanti ne a guadagnati sul 59
di milano..
se uno avrebbe giocato il 59 dopo le 100 estr di sicuro si sarà pure stancato di giocare il 59 a milano..
comunque questi centenari mah ho qualche dubbio perche con le venus non dovremmo avere
questi centenari cosi elevati comunque noi il super ambo non lo molliamo per nessun motivo..
quello che mi chiedo e come faranno a marcare stretto un numero nelle venus..
con la tecnologia di adesso lo possono fare..
sa benissimo che se esce il 59 a milano deve pagare tanti soldi ma quanti ne a guadagnati sul 59
di milano..
se uno avrebbe giocato il 59 dopo le 100 estr di sicuro si sarà pure stancato di giocare il 59 a milano..
comunque questi centenari mah ho qualche dubbio perche con le venus non dovremmo avere
questi centenari cosi elevati comunque noi il super ambo non lo molliamo per nessun motivo..
quello che mi chiedo e come faranno a marcare stretto un numero nelle venus..
con la tecnologia di adesso lo possono fare..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 28 giugno 2025Bari4176540417Cagliari3452845455Firenze2160895103Genova3640460373Milano3280016812Napoli6334228510Palermo2185641565Roma4825424750Torino5125142028Venezia8248735329Nazionale4655103244Estrazione Simbolotto
Napoli
2501414538
