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.
SuperEnalotto,le sequenze numeriche,
- Creatore Discussione Zetrix
- Data di inizio
Zetrix
Advanced Premium Member
Ma semplice mi interessa fare un 6 una volta all'annoDai scherzo Zetrix.....
cosa intendi per : se ti interessa cinque numeri di calcolo ti metto lo script,
Alien quanto si elaborano i numeri sulla sestina ci sono tanti modi per elaborare i numeri di calcolo
si possono fare su 2 numeri della sestina,oppure su 3 numeri della sestina, ecc..
il problema e che lo script elabora tanti numeri di calcolo e come fai a scegliere la combinazione dei 6 numeri..
mica puoi giocare 20 o 30 numeri al SuperEnalotto, sai quanto costa il sistema..e non e detto che centri il 6..
il problema sta tutto a scegliere i numeri di calcolo quelli vincenti e si devono combinare nella sestina e qua sta
il problema..
comunque lo script che elabora 5 numeri sulla sestina da pochi numeri di calcolo,
adesso aggiorno le estr del SuperEnalotto e dopo ti farò vedere qualche tabella..
Ultima modifica:
Zetrix
Advanced Premium Member
Alien questa e la sestina vincente di stasera..adesso ti farò vedere le elaborazioni dei numeri sulla sestina
della estr scorsa..
Numeri in gioco : 46
N. [.. .. .. 46 .. ..] [ ] C.1 Estratto 03992 [ 81 - 22/05/2025]
lo script elabora due sistemi di elaborazione la tabella che vedi e elaborata con il segno +
quindi questo e il primo sistema e questi sono tutti i numeri elaborati..
1sistema = 47.86.46.55.15.73.06.64.21.39.75.12.24.66.39
come vedi nel primo sistema a centrato solo il numero 46, troppo poco..
adesso elaboro il secondo sistema con il segno -
e vediamo quanti numeri a centrato nella sestina di stasera..
Ultima modifica:
Zetrix
Advanced Premium Member
Numeri in gioco : 32
N. [32] [.. 32 .. .. .. ..] [ ] C. 1 Estratto 03996 [ 85 - 29/05/2025]
Alien ho fatto le nuove tabelle sia per il lotto che il SuperEnalotto,
il problema per centrare il 6 rimane ancora una mission impossible..
Codice:
----------------003996----------------
I° II° III° IV° V° VI° JO SS
--------------------------------------
27 32 51 67 71 81 35 90
Ultima modifica:
Zetrix
Advanced Premium Member
Ciao Alien , America, mi spiace ma sto seguendo poco il SuperEnalotto,quindi non le ho elaborate le sequenze,
sto scrivendo in un altro forum e sto seguendo il 10elotto..
vi metto questo script che elabora le sequenze al SuperEnalotto..
sto scrivendo in un altro forum e sto seguendo il 10elotto..
vi metto questo script che elabora le sequenze al SuperEnalotto..
Codice:
Sub Main
Dim T,T2,T1,T3,T4,T5,T6,T7
Dim A,B,C,D,E,X,Y,R,V,P1,P2,P3,P4
Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
Dim A2,B2,C2,D2,qq,Xfine
Dim S1,S2,S3,S4,S5,S6,K,TV,EX,N
Dim F(4),Es
Dim Numeri(50),EStrat(10),Anumeri(10)
TV = InputBox("Quante Estrazione vuoi controllare",,0)
EX = EstrazioniArchivioSE - TV
For K = EX To EX
For P1 = 1 To 4
For P2 = P1 + 1 To 5
For P3 = P2 + 1 To 6
For E = 1 To 90
'---------------------------
EStrat(1) = EstrattoSE(K,1)
EStrat(2) = EstrattoSE(K,2)
EStrat(3) = EstrattoSE(K,3)
EStrat(4) = EstrattoSE(K,4)
EStrat(5) = EstrattoSE(K,5)
EStrat(6) = EstrattoSE(K,6)
'------------------------
If ScriptInterrotto Then Exit Sub
'------------------------
A = EStrat(P1)
B = EStrat(P2)
C = EStrat(P3)
'------------------------
F(1) = A
F(2) = B
F(3) = C
F(4) = E
'
OrdinaMatrice F,1
'---------------------------------
qq = qq + 1
Messaggio(Es & " Tcomb.Elab: " & qq & " Trovate " & Xfine & " Su 40 Impostato N = " & E)
'-------------------------------
'-------------------------------
T1 = Array(T1,Format2(F(1))," ",Format2(F(2))," ",Format2(F(3))," ",Format2(F(4)))
Call InitTabella(T1,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(1,RGB(0,0,255),RGB(250,250,250))
Call SetColoreCella(2,RGB(0,0,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(0,0,255),RGB(250,250,250))
Call SetColoreCella(4,RGB(0,0,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(0,0,255),RGB(250,250,250))
Call SetColoreCella(6,RGB(0,0,255),RGB(0,0,0))
Call SetColoreCella(7,RGB(0,0,255),RGB(250,250,250))
Call SetColoreCella(8,RGB(0,0,255),RGB(0,0,0))
Call SetColoreCella(9,RGB(0,0,255),RGB(250,250,250))
Call SetColoreCella(10,RGB(0,0,255),RGB(0,0,0))
Call SetColoreCella(11,RGB(0,0,255),RGB(250,250,250))
'-------------------------------
If E = F(1) Then Call SetColoreCella(1,RGB(255,0,0),RGB(250,250,250))
If E = F(2) Then Call SetColoreCella(3,RGB(255,0,0),RGB(250,250,250))
If E = F(3) Then Call SetColoreCella(5,RGB(255,0,0),RGB(250,250,250))
If E = F(4) Then Call SetColoreCella(7,RGB(255,0,0),RGB(250,250,250))
'
N1 = Fuori90(F(2) - F(1)) : N1 =("+") & N1
N2 = Fuori90(F(3) - F(2)) : N2 =("+") & N2
N3 = Fuori90(F(4) - F(3)) : N3 =("+") & N3
'
'
T2 = Array(T2," ",(N1)," ",(N2)," ",(N3)," ")
Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'-------------------------------
N1 = Fuori90(F(2) - F(1))
N2 = Fuori90(F(3) - F(2))
N3 = Fuori90(F(4) - F(3))
'---------------------------------
If N1 > N2 Then N4 = N1 - N2 : N4 = "-" & N4 End If
If N2 > N1 Then N4 = N2 - N1 : N4 = "+" & N4 End If
If N2 > N3 Then N5 = N2 - N3 : N5 = "-" & N5 End If
If N3 > N2 Then N5 = N3 - N2 : N5 = "+" & N5 End If
'
If N1 = N2 Then N4 = N1 - N2 : N4 = "-" & N4 End If
If N2 = N3 Then N5 = N2 - N3 : N5 = "-" & N5 End If
'
T3 = Array(T3," "," ",(N4)," ",(N5)," "," ")
Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'---------------------------------------------------------------------
'--------------------------------
N4 =(N2 - N1)
N5 =(N3 - N2)
'
If N4 > N5 Then N6 = N4 - N5 : N6 = "-" & N6 End If
If N5 > N4 Then N6 = N5 - N4 : N6 = "+" & N6 End If
'
If N4 = N5 Then N6 = N4 - N5 : N6 = "-" & N6 End If
'
T4 = Array(T4," "," "," ",(N6)," "," "," ")
Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
T5 = Array(T5," "," "," "," "," "," "," ")
Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Raavi")
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'--------------------------------
'--------------------------------
If N6 = 0 Then
'
Call SetTableWidth("25%")
CreaTabella
ScriviEstrazioneSE(K)
Anumeri(1) = E
N = N + 1
Numeri(N) = Format2(E)
'----------------------------
Xfine = Xfine + 1
Scrivi
Call ImpostaGiocataSE(1,Anumeri,K,10,0)
Call GiocaSE(K)
End If
If Xfine = 30 Then Exit For
Next
If Xfine = 30 Then Exit For
Next
If Xfine = 30 Then Exit For
Next
If Xfine = 30 Then Exit For
Next
Next
Scrivi StringaNumeri(Numeri,"."),0,1,0,6,5
Scrivi TempoTrascorso,1
End Sub
Ultima modifica:
Zetrix
Advanced Premium Member
Alien si devono elaborare almeno quattro o cinque script , a due numeri, a tre numeri, a quattro numeri,
e a cinque numeri, e da tutte le elaborazioni fatte si fanno le convergenze e si a il numero che converge di piu sulle sequenze..
lo script che vi ho messo elabora tre numeri + il numero della sequenza..
la migliore cosa sarebbe mettere nel cruciverba 6x6= 36 numeri ricavate dalle elaborazioni sulle sequenze..
ma ho fatto gia alcune prove si incolonna un due o al massimo un tre..
e troppo difficile il SuperEnalotto, a meno che non si fa un cruciverba 9x9= 81 numeri
ma costerebbe troppo..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 17 giugno 2025Bari5069292042Cagliari9018152470Firenze0153242536Genova8949670530Milano1716538756Napoli7828673055Palermo0869058522Roma2876197717Torino7156031509Venezia5782765262Nazionale8349071213Estrazione Simbolotto
Napoli
3033284411
