Metodo x SuperEnalotto

stupl · 19 Febbraio 2017

Strano che lo stesso programma su due Pc funzionano così diversamente, ti direi di riprovare a disinstallare tutto, ti ri-elenco i due percorsi in cui spaziometria si posiziona e che devi cancellare dopo la disinstallazione:

C:\Programmi\Spaziometria\

C:\Users\utente\AppData\Roaming\SpazioMetria <---- Questa è una cartella nascosta la puoi visualizzare solo se dai il consenso tramite le Opzioni cartelle del Windows oppure la puoi visualizzare cliccando sulla cartella sotto la scritta 'Base Dati' in spaziometria, quindi dovresti accedere ad esse prima di disinstallarlo. ATTENZIONE all'interno di questa cartella nascosta c'è anche la cartella 'Script' quindi prima di eliminarla conservati la cartella Script altrimenti li perdi tutti, ammenochè non hai già fatto un backup.

giluge · 17 Giugno 2017

ciao, dopo che ho installato spazioetria e archivio ecc non mi funziona piu' lo script, anche lanciandolo ex novo
per curiosita'
l'ambata ed in numeri posti in gioco quali sono?
io avevo il 46
ora 87
ma , ripeto, mi da tutti negativi i concorsi
come mai?
che io abbia l'archivio errato?

giluge · 21 Giugno 2017

salve, chiedo scusa
qualcuno mi puo' rispondere?
avevo ed ho questo script ma non mi va piu', sapete per quale motivo?
forse e' dovuto all'archivio che ultimamente mi da una riga si ed una no
grazie in anticipo

giluge · 21 Giugno 2017

magia;n2043510 ha scritto:

Buongiorno ,
Le postiamo il listato richiesto .

Codice:

Option Explicit
'Metodo x SuperEnalotto di stupl
'http://forum.lottoced.com/forum/lottoced/area-download/2043341-metodo-x-superenalotto#post2043368
Sub Main
Dim ID
ID = CInt(InputBox("inserire indice mensile ","ID MESE",11))
Dim casi
casi = 00
Dim Ini,fin,es
Ini = DataEstrToIdEstr(24,10,2015)
fin = EstrazioneFin
For es = Ini To fin
If ScriptInterrotto Then Exit For
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
If IndiceMensile(es) = ID Then ' SI ELABORA ALLA 11^ ESTRAZIONE MENSILE
casi = casi + 01
Call Scrivi(String(125,"=") & " Caso n° " & Format2(casi),01)
Call Scrivi()
ReDim n1(01),nn(12),n10(01),nn0(12)
' CALCOLO CAPOGIOCO: 1° ESTRATTO DI NA - 3° ESTRATTO DI TO - 5° ESTRATTO DI VE
Dim NA01,TO03,VE05
NA01 = Estratto(es,NA_,01) : TO03 = Estratto(es,TO_,03) : VE05 = Estratto(es,VE_,05)
n1(01) = Fuori90((90 +((90 + NA01) - TO03)) - VE05)' CON PROCEDURA DA METODO
n10(01) = Fuori90(NA01 - TO03 - VE05)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 1: 4° Estratto DI BA x 40 + 68 - 2° Estratto DI MI x 2° Estratto DI GE
Dim BA04,MI02,GE02
BA04 = Estratto(es,BA_,04) : MI02 = Estratto(es,MI_,02) : GE02 = Estratto(es,GE_,02)
nn(01) = Fuori90((((90 +((BA04 * 40)) + 68)) - MI02) * GE02)' CON PROCEDURA DA METODO
nn0(01) = Fuori90((BA04 * 40) + 68 -(MI02 * GE02))' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 2: 1° Estratto DI CA + 2° Estratto DI RO - 1° Estratto DI To
Dim CA01,RO02,TO01
CA01 = Estratto(es,CA_,01) : RO02 = Estratto(es,RO_,02) : TO01 = Estratto(es,TO_,01)
nn(02) = Fuori90((90 +(CA01 + RO02)) - TO01)' CON PROCEDURA DA METODO
nn0(02) = Fuori90((CA01 + RO02) - TO01)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 3: 5° Estratto DI FI + 5° Estratto DI RO + 54
Dim FI05,RO05
FI05 = Estratto(es,FI_,05) : RO05 = Estratto(es,RO_,05)
nn(03) = Fuori90((FI05 + RO05) + 54)' CON PROCEDURA DA METODO
nn0(03) = Fuori90(FI05 + RO05 + 54)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 4: 2° Estratto DI GE + 5° Estratto DI To - 2° Estratto DI To
Dim TO05,TO02
TO05 = Estratto(es,TO_,05) : TO02 = Estratto(es,TO_,02)
nn(04) = Fuori90((90 +(GE02 + TO05)) - TO02)' CON PROCEDURA DA METODO
nn0(04) = Fuori90((GE02 + TO05) - TO02)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 5: 1° Estratto DI MI x 2° Estratto DI RO + 4° Estratto DI NA
Dim MI01,NA04
MI01 = Estratto(es,MI_,01) : NA04 = Estratto(es,NA_,04)
nn(05) = Fuori90((MI01 * RO02) + NA04)' CON PROCEDURA DA METODO
nn0(05) = Fuori90((MI01 * RO02) + NA04)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 6: 1° Estratto DI NA - 5° Estratto DI FI + 50
nn(06) = Fuori90(((90 + NA01) - FI05) + 50)' CON PROCEDURA DA METODO
nn0(06) = Fuori90(NA01 - FI05 + 50)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 7: 3° Estratto DI PA - 4° Estratto DI NA x 7
Dim PA03
PA03 = Estratto(es,PA_,03)
nn(07) = Fuori90((90 +(90 + PA03) - NA04) * 07)' CON PROCEDURA DA METODO
nn0(07) = Fuori90(PA03 -(NA04 * 07))' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 8: 3° Estratto DI RO - 4° Estratto DI BA - 18
Dim RO03
RO03 = Estratto(es,RO_,03)
nn(08) = Fuori90(90 +((90 + RO03) - BA04) - 18)' CON PROCEDURA DA METODO
nn0(08) = Fuori90(RO03 - BA04 - 18)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 9: 1° Estratto DI BA + 2° Estratto DI FI - 3° Estratto DI MI
Dim BA01,FI02,MI03
BA01 = Estratto(es,BA_,01) : FI02 = Estratto(es,FI_,02) : MI03 = Estratto(es,MI_,03)
nn(09) = Fuori90((90 +(BA01 + FI02)) - MI03)' CON PROCEDURA DA METODO
nn0(09) = Fuori90((BA01 + FI02) - MI03)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 10: 4° Estratto DI CA + 1° Estratto DI MI x 5° Estratto DI GE
Dim CA04,GE05
CA04 = Estratto(es,CA_,04) : GE05 = Estratto(es,GE_,05)
nn(10) = Fuori90((CA04 + MI01) * GE05)' CON PROCEDURA DA METODO
nn0(10) = Fuori90(CA04 +(MI01 * GE05))' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 11: 5° Estratto DI FI x 2° Estratto DI To + 4° Estratto DI PA
Dim PA04
PA04 = Estratto(es,PA_,04)
nn(11) = Fuori90((FI05 * TO02) + PA04)' CON PROCEDURA DA METODO
nn0(11) = Fuori90((FI05 * TO02) + PA04)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 12: 4° Estratto DI GE - 5° Estratto DI BA - 3° Estratto DI CA
Dim GE04,BA05,CA03
GE04 = Estratto(es,GE_,04) : BA05 = Estratto(es,BA_,05) : CA03 = Estratto(es,CA_,03)
nn(12) = Fuori90((90 +((90 + GE04) - BA05)) - CA03)' CON PROCEDURA DA METODO
nn0(12) = Fuori90(GE04 - BA05 - CA03)' CON REGOLE MATEMATICHE
'
'---------------------------------------------------------------------------------------------------------------------------------
'Call OrdinaMatriceTurbo(nn,01)
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
Call Scrivi()
Dim rip,x,y
rip = 00
If NumeriRipetuti(nn) Then
If NumeriRipetuti(nn) Then Call Scrivi(" NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI " & " - " & _
StringaNumeri(nn,,True),01,01,04)
rip = 01
While NumeriRipetuti(nn)
For x = 01 To 11
For y = x + 01 To 12
If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 01)
Next
Next
Wend
End If
If rip = 01 Then Call Scrivi(" SONO PRESENTI NUMERI RIPETUTI,I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA ",01,01,03)
Call Scrivi()
Call Scrivi()
Call Scrivi(" Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & _
IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
Call Scrivi(" CON PROCEDURA DA METODO ")
Call Scrivi(" CAPOGIOCO: " & Format2(n1(01)),01,01,06)
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
Dim ESSE
ESSE =(es - 6659)
nn(00) = n1(01)
Dim xlp,xColpi
xColpi = 13
Dim EVP01,EVP02,EVP03,EVP04,EVP05,EVP06
EVP01 = 00:EVP02 = 00:EVP03 = 00:EVP04 = 00:EVP05 = 00:EVP06 = 00
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
For xlp = 01 To xColpi
If VerificaEsitoSE(nn,ESSE + xlp,AMBATA_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
Dim EV01,EV02,EV03,EV04,EV05,EV06
If RetEsito = "Ambo" Then EV01 = EV01 + 01:EVP01 = EVP01 + 01
If RetEsito = "Terno" Then EV02 = EV02 + 01:EVP02 = EVP02 + 01
If RetEsito = "Quaterna" Then EV03 = EV03 + 01:EVP03 = EVP03 + 01
If RetEsito = "Cinquina" Then EV04 = EV04 + 01:EVP04 = EVP04 + 01
If RetEsito = "5+1" Then EV05 = EV05 + 01:EVP05 = EVP05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01:EVP06 = EVP06 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
ElseIf RetEsito = "" And RetColpi < 01 Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
Else
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
Call Scrivi()
Call Scrivi(" Totale Ambi......." & EVP01 & " ",True,False,04,02,02)
Call Scrivi(" Totale Terni......" & EVP02 & " ",True,False,04,02,02)
Call Scrivi(" Totale Quaterne..." & EVP03 & " ",True,False,07,00,02)
Call Scrivi(" Totale Cinquine..." & EVP04 & " ",True,False,06,00,02)
Call Scrivi(" Totale 5+1........" & EVP05 & " ",True,False,07,00,02)
Call Scrivi(" Totale Sestine...." & EVP06 & " ",True,True,06,00,02)
Call Scrivi()
'---------------------------------------------------------------------------------------------------------------------------------
'Call OrdinaMatriceTurbo(nn0,01)
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
Call Scrivi()
Dim rip0,x0,y0
rip0 = 00
If NumeriRipetuti(nn0) Then
If NumeriRipetuti(nn0) Then Call Scrivi(" NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI " & " - " & _
StringaNumeri(nn0,,True),01,01,04)
rip0 = 01
While NumeriRipetuti(nn0)
For x0 = 01 To 11
For y0 = x0 + 01 To 12
If nn0(x0) = nn0(y0) Then nn0(y0) = Fuori90(nn0(y0) + 01)
Next
Next
Wend
End If
If rip0 = 01 Then Call Scrivi(" SONO PRESENTI NUMERI RIPETUTI,I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA ",01,01,03)
Call Scrivi()
Call Scrivi()
Call Scrivi(" Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & _
IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
Call Scrivi(" CON REGOLE MATEMATICHE ")
Call Scrivi(" CAPOGIOCO: " & Format2(n10(01)),01,01,06)
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn0,,True),01,01,06)
nn0(00) = n10(01)
Dim EVP010,EVP020,EVP030,EVP040,EVP050,EVP060
EVP010 = 00:EVP020 = 00:EVP030 = 00:EVP040 = 00:EVP050 = 00:EVP060 = 00
Dim RetEsito0,RetColpi0,RetEstratti0,RetIdEstr0
For xlp = 01 To xColpi
If VerificaEsitoSE(nn0,ESSE + xlp,AMBATA_,01,RetEsito0,RetColpi0,RetEstratti0,RetIdEstr0) = True Then
Dim EV010,EV020,EV030,EV040,EV050,EV060
If RetEsito0 = "Ambo" Then EV010 = EV010 + 01:EVP010 = EVP010 + 01
If RetEsito0 = "Terno" Then EV020 = EV020 + 01:EVP020 = EVP020 + 01
If RetEsito0 = "Quaterna" Then EV030 = EV030 + 01:EVP030 = EVP030 + 01
If RetEsito0 = "Cinquina" Then EV040 = EV040 + 01:EVP040 = EVP040 + 01
If RetEsito0 = "5+1" Then EV050 = EV050 + 01:EVP050 = EVP050 + 01
If RetEsito0 = "Sestina" Then EV060 = EV060 + 01:EVP060 = EVP060 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n10(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito0,08,- 01) & " " & RetEstratti0)
ElseIf RetEsito0 = "" And RetColpi0 < 01 Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
Else
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n10(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
Call Scrivi()
Call Scrivi(" Totale Ambi......." & EVP010 & " ",True,False,04,02,02)
Call Scrivi(" Totale Terni......" & EVP020 & " ",True,False,04,02,02)
Call Scrivi(" Totale Quaterne..." & EVP030 & " ",True,False,07,00,02)
Call Scrivi(" Totale Cinquine..." & EVP040 & " ",True,False,06,00,02)
Call Scrivi(" Totale 5+1........" & EVP050 & " ",True,False,07,00,02)
Call Scrivi(" Totale Sestine...." & EVP060 & " ",True,True,06,00,02)
Call Scrivi()
End If
Next
Call Scrivi(String(125,"-"))
Call Scrivi()
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO CON PROCEDURA DA METODO")
Call Scrivi()
Call Scrivi("DUE : " & FormattaStringa(EV01,"00"))
Call Scrivi("TRE : " & FormattaStringa(EV02,"00"))
Call Scrivi("QUATTRO : " & FormattaStringa(EV03,"00"))
Call Scrivi("CINQUE : " & FormattaStringa(EV04,"00"))
Call Scrivi("5 + 1 : " & FormattaStringa(EV05,"00"))
Call Scrivi("SEI : " & FormattaStringa(EV06,"00"))
'-----------------------------------------------------------------
Call Scrivi(String(125,"-"))
Call Scrivi()
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO CON REGOLE MATEMATICHE")
Call Scrivi()
Call Scrivi("DUE : " & FormattaStringa(EV010,"00"))
Call Scrivi("TRE : " & FormattaStringa(EV020,"00"))
Call Scrivi("QUATTRO : " & FormattaStringa(EV030,"00"))
Call Scrivi("CINQUE : " & FormattaStringa(EV040,"00"))
Call Scrivi("5 + 1 : " & FormattaStringa(EV050,"00"))
Call Scrivi("SEI : " & FormattaStringa(EV060,"00"))
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

ciao scusami
come mai non mi funziona questo script?
premetto che andava
grazie

Alien. · 21 Giugno 2017

TI da zero perchè sono 2 mesi che non prende più nulla ha fatto solo due 2 , mi conferma che se poi si gioca non esce più nulla perchè ,,,per magia non li fanno uscire...

giluge · 21 Giugno 2017

Alien.;n2068192 ha scritto:
TI da zero perchè sono 2 mesi che non prende più nulla ha fatto solo due 2 , mi conferma che se poi si gioca non esce più nulla perchè ,,,per magia non li fanno uscire...

scusa alien
grazie per aver risposto
da proprio zero in tutto e sempre
prima dava le previsioni ecc
ed anche i punteggi, ora esce solo appunto zero

adispo2000 · 22 Giugno 2017

Ciao ragazzi, come posso utilizzare questo script per il prossimi concorsi.....devo cambiare qualche comando nello script....?

Alien. · 23 Giugno 2017

questo succede perchè l'archivio del super è corrotto non funziona.

giluge · 29 Giugno 2017

magia;n2068456 ha scritto:
Buonanotte,
Salutando tutti gli intervenuti .
Per chi ha problemi , con l' archivio .
Lo si puo' scaricare da :

Archivio SuperEnalotto

Controllare Sempre .
salvo errori ed omissis.

ciao
mi sono accorto che e' saltata una estrazione, si puo' rimediare?
grazie mille
p.s.
25 maggio o 27 maggio

adispo2000 · 29 Giugno 2017

scusate qual'e' la prossima combinazione da giocare?
L'ultima mi da' queta e poi?
Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla 11^ del 25.05.2017 : CON REGOLE MATEMATICHE CAPOGIOCO: 46 NUMERI GIRANTI: 78.16.32.03.15.46.69.87.84.30.63.73 1° colpo 03.06.2017 Ambata = 46 ..... 02.22.36.77.83.90.47.64 --- negativo 2° colpo 06.06.2017 Ambata = 46 ..... 07.12.26.46.56.70.13.18 --- Estratto .. .. .. 46 .. .. 3° colpo 08.06.2017 Ambata = 46 ..... 11.28.32.48.54.59.73.19 --- Estratto .. .. 32 .. .. .. 4° colpo 10.06.2017 Ambata = 46 ..... 19.54.56.57.67.69.21.79 --- Estratto .. .. .. .. .. 69 5° colpo 13.06.2017 Ambata = 46 ..... 41.50.69.71.77.81.26.49 --- Estratto .. .. 69 .. .. .. 6° colpo 15.06.2017 Ambata = 46 ..... 06.24.28.32.78.83.13.66 --- Ambo .. .. .. 32 78 .. 7° colpo 17.06.2017 Ambata = 46 ..... 45.48.71.75.80.83.40.17 --- negativo 8° colpo 20.06.2017 Ambata = 46 ..... 38.46.54.76.82.86.17.12 --- Estratto .. 46 .. .. .. .. 9° colpo 22.06.2017 Ambata = 46 ..... 09.18.24.42.59.71.69.04 --- negativo Totale Ambi.......1 Totale Terni......0 Totale Quaterne...0 Totale Cinquine...0 Totale 5+1........0 Totale Sestine....0

Alien. · 2 Luglio 2017

O [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 315, colspan: 9"]Sabato 24 Giugno 2017[/TD]
[TD="width: 35"] [/TD]
[TD="width: 35"] [/TD]
[TD="width: 35"] [/TD]
[TD="width: 35"] [/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD]4[/TD]
[TD]5[/TD]
[TD]6[/TD]
[TD]7[/TD]
[TD]8[/TD]
[TD]9[/TD]
[TD]10[/TD]
[TD]11[/TD]
[TD]12[/TD]
[TD]13[/TD]
[/TR]
[TR]
[TD]35[/TD]
[TD]14[/TD]
[TD]18[/TD]
[TD]23[/TD]
[TD]27[/TD]
[TD]32[/TD]
[TD]38[/TD]
[TD]39[/TD]
[TD]43[/TD]
[TD]49[/TD]
[TD]49[/TD]
[TD]66[/TD]
[TD]89[/TD]
[/TR]
[/TABLE]
SONO ESATTI ?

Alien. · 8 Luglio 2017

Ciao.in che senso abbiamo corretto l'archivio? cosa devo fare? grazie.

stupl · 23 Giugno 2024

Salve a tutti, chiedo agli scripter di verificare questo listato:

Option Explicit
'Metodo x SuperEnalotto di stupl
'http://forum.lottoced.com/forum/lottoced/area-download/2043341-metodo-x-superenalotto#post2043368
Sub Main
Dim ID
ID = CInt(InputBox("Inserire indice mensile ","ID MESE",11))
Dim casi
casi = 00
Dim Ini,fin,es
Ini = EstrazioneFin - 100
fin = EstrazioneFin
For es = Ini To fin
If ScriptInterrotto Then Exit For
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
If IndiceMensile(es) = ID Then ' SI ELABORA ALLA 11^ ESTRAZIONE MENSILE
casi = casi + 01
Call Scrivi(String(125,"=") & " Caso n° " & Format2(casi),01)
Call Scrivi()
ReDim n1(01),nn(12),n10(01),nn0(12)
' CALCOLO CAPOGIOCO: 1° ESTRATTO DI NA - 3° ESTRATTO DI TO - 5° ESTRATTO DI VE
Dim NA01,TO03,VE05
NA01 = Estratto(es,NA_,01) : TO03 = Estratto(es,TO_,03) : VE05 = Estratto(es,VE_,05)
n1(01) = Fuori90((90 +((90 + NA01) - TO03)) - VE05)' CON PROCEDURA DA METODO
n10(01) = Fuori90(NA01 - TO03 - VE05)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 1: 4° Estratto DI BA x 40 + 68 - 2° Estratto DI MI x 2° Estratto DI GE
Dim BA04,MI02,GE02
BA04 = Estratto(es,BA_,04) : MI02 = Estratto(es,MI_,02) : GE02 = Estratto(es,GE_,02)
nn(01) = Fuori90((((90 +((BA04 * 40)) + 68)) - MI02) * GE02)' CON PROCEDURA DA METODO
nn0(01) = Fuori90((BA04 * 40) + 68 -(MI02 * GE02))' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 2: 1° Estratto DI CA + 2° Estratto DI RO - 1° Estratto DI To
Dim CA01,RO02,TO01
CA01 = Estratto(es,CA_,01) : RO02 = Estratto(es,RO_,02) : TO01 = Estratto(es,TO_,01)
nn(02) = Fuori90((90 +(CA01 + RO02)) - TO01)' CON PROCEDURA DA METODO
nn0(02) = Fuori90((CA01 + RO02) - TO01)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 3: 5° Estratto DI FI + 5° Estratto DI RO + 54
Dim FI05,RO05
FI05 = Estratto(es,FI_,05) : RO05 = Estratto(es,RO_,05)
nn(03) = Fuori90((FI05 + RO05) + 54)' CON PROCEDURA DA METODO
nn0(03) = Fuori90(FI05 + RO05 + 54)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 4: 2° Estratto DI GE + 5° Estratto DI To - 2° Estratto DI To
Dim TO05,TO02
TO05 = Estratto(es,TO_,05) : TO02 = Estratto(es,TO_,02)
nn(04) = Fuori90((90 +(GE02 + TO05)) - TO02)' CON PROCEDURA DA METODO
nn0(04) = Fuori90((GE02 + TO05) - TO02)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 5: 1° Estratto DI MI x 2° Estratto DI RO + 4° Estratto DI NA
Dim MI01,NA04
MI01 = Estratto(es,MI_,01) : NA04 = Estratto(es,NA_,04)
nn(05) = Fuori90((MI01 * RO02) + NA04)' CON PROCEDURA DA METODO
nn0(05) = Fuori90((MI01 * RO02) + NA04)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 6: 1° Estratto DI NA - 5° Estratto DI FI + 50
nn(06) = Fuori90(((90 + NA01) - FI05) + 50)' CON PROCEDURA DA METODO
nn0(06) = Fuori90(NA01 - FI05 + 50)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 7: 3° Estratto DI PA - 4° Estratto DI NA x 7
Dim PA03
PA03 = Estratto(es,PA_,03)
nn(07) = Fuori90((90 +(90 + PA03) - NA04) * 07)' CON PROCEDURA DA METODO
nn0(07) = Fuori90(PA03 -(NA04 * 07))' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 8: 3° Estratto DI RO - 4° Estratto DI BA - 18
Dim RO03
RO03 = Estratto(es,RO_,03)
nn(08) = Fuori90(90 +((90 + RO03) - BA04) - 18)' CON PROCEDURA DA METODO
nn0(08) = Fuori90(RO03 - BA04 - 18)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 9: 1° Estratto DI BA + 2° Estratto DI FI - 3° Estratto DI MI
Dim BA01,FI02,MI03
BA01 = Estratto(es,BA_,01) : FI02 = Estratto(es,FI_,02) : MI03 = Estratto(es,MI_,03)
nn(09) = Fuori90((90 +(BA01 + FI02)) - MI03)' CON PROCEDURA DA METODO
nn0(09) = Fuori90((BA01 + FI02) - MI03)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 10: 4° Estratto DI CA + 1° Estratto DI MI x 5° Estratto DI GE
Dim CA04,GE05
CA04 = Estratto(es,CA_,04) : GE05 = Estratto(es,GE_,05)
nn(10) = Fuori90((CA04 + MI01) * GE05)' CON PROCEDURA DA METODO
nn0(10) = Fuori90(CA04 +(MI01 * GE05))' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 11: 5° Estratto DI FI x 2° Estratto DI To + 4° Estratto DI PA
Dim PA04
PA04 = Estratto(es,PA_,04)
nn(11) = Fuori90((FI05 * TO02) + PA04)' CON PROCEDURA DA METODO
nn0(11) = Fuori90((FI05 * TO02) + PA04)' CON REGOLE MATEMATICHE
'
' ABBINAMENTO 12: 4° Estratto DI GE - 5° Estratto DI BA - 3° Estratto DI CA
Dim GE04,BA05,CA03
GE04 = Estratto(es,GE_,04) : BA05 = Estratto(es,BA_,05) : CA03 = Estratto(es,CA_,03)
nn(12) = Fuori90((90 +((90 + GE04) - BA05)) - CA03)' CON PROCEDURA DA METODO
nn0(12) = Fuori90(GE04 - BA05 - CA03)' CON REGOLE MATEMATICHE
'
'---------------------------------------------------------------------------------------------------------------------------------
'Call OrdinaMatriceTurbo(nn,01)
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
Call Scrivi()
Dim rip,x,y
rip = 00
If NumeriRipetuti(nn) Then
If NumeriRipetuti(nn) Then Call Scrivi(" NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI " & " - " & _
StringaNumeri(nn,,True),01,01,04)
rip = 01
While NumeriRipetuti(nn)
For x = 01 To 11
For y = x + 01 To 12
If nn(x) = nn Then nn = Fuori90(nn + 01)
Next
Next
Wend
End If
If rip = 01 Then Call Scrivi(" SONO PRESENTI NUMERI RIPETUTI,I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA ",01,01,03)
Call Scrivi()
Call Scrivi()
Call Scrivi(" Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & _
IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
Call Scrivi(" CON PROCEDURA DA METODO ")
Call Scrivi(" CAPOGIOCO: " & Format2(n1(01)),01,01,06)
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn,,True),01,01,06)
Dim ESSE
ESSE =(es - 6659)
nn(00) = n1(01)
Dim xlp,xColpi
xColpi = 13
Dim EVP01,EVP02,EVP03,EVP04,EVP05,EVP06
EVP01 = 00:EVP02 = 00:EVP03 = 00:EVP04 = 00:EVP05 = 00:EVP06 = 00
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
For xlp = 01 To xColpi
If VerificaEsitoSE(nn,ESSE + xlp,AMBATA_,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
Dim EV01,EV02,EV03,EV04,EV05,EV06
If RetEsito = "Ambo" Then EV01 = EV01 + 01:EVP01 = EVP01 + 01
If RetEsito = "Terno" Then EV02 = EV02 + 01:EVP02 = EVP02 + 01
If RetEsito = "Quaterna" Then EV03 = EV03 + 01:EVP03 = EVP03 + 01
If RetEsito = "Cinquina" Then EV04 = EV04 + 01:EVP04 = EVP04 + 01
If RetEsito = "5+1" Then EV05 = EV05 + 01:EVP05 = EVP05 + 01
If RetEsito = "Sestina" Then EV06 = EV06 + 01:EVP06 = EVP06 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
ElseIf RetEsito = "" And RetColpi < 01 Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
Else
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n1(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
Call Scrivi()
Call Scrivi(" Totale Ambi......." & EVP01 & " ",True,False,04,02,02)
Call Scrivi(" Totale Terni......" & EVP02 & " ",True,False,04,02,02)
Call Scrivi(" Totale Quaterne..." & EVP03 & " ",True,False,07,00,02)
Call Scrivi(" Totale Cinquine..." & EVP04 & " ",True,False,06,00,02)
Call Scrivi(" Totale 5+1........" & EVP05 & " ",True,False,07,00,02)
Call Scrivi(" Totale Sestine...." & EVP06 & " ",True,True,06,00,02)
Call Scrivi()
'---------------------------------------------------------------------------------------------------------------------------------
Call OrdinaMatriceTurbo(nn0,01)
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
Call Scrivi()
Dim rip0,x0,y0
rip0 = 00
If NumeriRipetuti(nn0) Then
If NumeriRipetuti(nn0) Then Call Scrivi(" NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI " & " - " & _
StringaNumeri(nn0,,True),01,01,04)
rip0 = 01
While NumeriRipetuti(nn0)
For x0 = 01 To 11
For y0 = x0 + 01 To 12
If nn0(x0) = nn0(y0) Then nn0(y0) = Fuori90(nn0(y0) + 01)
Next
Next
Wend
End If
If rip0 = 01 Then Call Scrivi(" SONO PRESENTI NUMERI RIPETUTI,I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA ",01,01,03)
Call Scrivi()
Call Scrivi()
Call Scrivi(" Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & _
IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",01,01,04)
Call Scrivi(" CON REGOLE MATEMATICHE ")
Call Scrivi(" CAPOGIOCO: " & Format2(n10(01)),01,01,06)
Call Scrivi(" NUMERI GIRANTI: " & StringaNumeri(nn0,,True),01,01,06)
nn0(00) = n10(01)
Dim EVP010,EVP020,EVP030,EVP040,EVP050,EVP060
EVP010 = 00:EVP020 = 00:EVP030 = 00:EVP040 = 00:EVP050 = 00:EVP060 = 00
Dim RetEsito0,RetColpi0,RetEstratti0,RetIdEstr0
For xlp = 01 To xColpi
If VerificaEsitoSE(nn0,ESSE + xlp,AMBATA_,01,RetEsito0,RetColpi0,RetEstratti0,RetIdEstr0) = True Then
Dim EV010,EV020,EV030,EV040,EV050,EV060
If RetEsito0 = "Ambo" Then EV010 = EV010 + 01:EVP010 = EVP010 + 01
If RetEsito0 = "Terno" Then EV020 = EV020 + 01:EVP020 = EVP020 + 01
If RetEsito0 = "Quaterna" Then EV030 = EV030 + 01:EVP030 = EVP030 + 01
If RetEsito0 = "Cinquina" Then EV040 = EV040 + 01:EVP040 = EVP040 + 01
If RetEsito0 = "5+1" Then EV050 = EV050 + 01:EVP050 = EVP050 + 01
If RetEsito0 = "Sestina" Then EV060 = EV060 + 01:EVP060 = EVP060 + 01
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n10(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & FormatSpace(RetEsito0,08,- 01) & " " & RetEstratti0)
ElseIf RetEsito0 = "" And RetColpi0 < 01 Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° colpo ",01)
Else
Call Scrivi(FormatSpace(xlp,02,- 01) & "° colpo " & DataEstrazioneSE(ESSE + xlp) & " Ambata = " & Format2(n10(01)) & _
" ..... " & StringaEstrattiSE(ESSE + xlp) & " --- " & "negativo ")
End If
If es + xlp > fin Then Exit For
Next
Call Scrivi()
Call Scrivi(" Totale Ambi......." & EVP010 & " ",True,False,04,02,02)
Call Scrivi(" Totale Terni......" & EVP020 & " ",True,False,04,02,02)
Call Scrivi(" Totale Quaterne..." & EVP030 & " ",True,False,07,00,02)
Call Scrivi(" Totale Cinquine..." & EVP040 & " ",True,False,06,00,02)
Call Scrivi(" Totale 5+1........" & EVP050 & " ",True,False,07,00,02)
Call Scrivi(" Totale Sestine...." & EVP060 & " ",True,True,06,00,02)
Call Scrivi()
End If
Next
Call Scrivi(String(125,"-"))
Call Scrivi()
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO CON PROCEDURA DA METODO")
Call Scrivi()
Call Scrivi("DUE : " & FormattaStringa(EV01,"00"))
Call Scrivi("TRE : " & FormattaStringa(EV02,"00"))
Call Scrivi("QUATTRO : " & FormattaStringa(EV03,"00"))
Call Scrivi("CINQUE : " & FormattaStringa(EV04,"00"))
Call Scrivi("5 + 1 : " & FormattaStringa(EV05,"00"))
Call Scrivi("SEI : " & FormattaStringa(EV06,"00"))
'-----------------------------------------------------------------
Call Scrivi(String(125,"-"))
Call Scrivi()
Call Scrivi("RIEPILOGO ESITI COMPLESSIVO CON REGOLE MATEMATICHE")
Call Scrivi()
Call Scrivi("DUE : " & FormattaStringa(EV010,"00"))
Call Scrivi("TRE : " & FormattaStringa(EV020,"00"))
Call Scrivi("QUATTRO : " & FormattaStringa(EV030,"00"))
Call Scrivi("CINQUE : " & FormattaStringa(EV040,"00"))
Call Scrivi("5 + 1 : " & FormattaStringa(EV050,"00"))
Call Scrivi("SEI : " & FormattaStringa(EV060,"00"))
End Sub

E' da un po che non lo usavo ora non capisco perchè non rilascia le procedure di calcolo del metodo in questione, forse è stato cambiato qualcosa in spaziometria con gli ultimi aggiornamenti?
Dopo il lancio mi appare così:

Bepy78 · 23 Giugno 2024

stupl ha scritto:
Salve a tutti, chiedo agli scripter di verificare questo listato:

E' da un po che non lo usavo ora non capisco perchè non rilascia le procedure di calcolo del metodo in questione, forse è stato cambiato qualcosa in spaziometria con gli ultimi aggiornamenti?
Dopo il lancio mi appare così:
Vedi l'allegato 2285866

Buona sera Stupl,
volevo chiedere,ma questo metodo funziona ancora?

salvo50 · 23 Giugno 2024

Ciao a Tutti
A me funziona,
ho la release 1.6.54
Questo è il mio output

Bepy78 · 24 Giugno 2024

salvo50 ha scritto:
Ciao a Tutti
A me funziona,
ho la release 1.6.54
Questo è il mio output

Vedi l'allegato 2285899

Buongiorno Salvo,ma questi sono numeri in corso per giocarli?
Lo chiedo perché ho visto la data 19/01/2024

salvo50 · 24 Giugno 2024

Ciao

Io per far vedere l'output ho preso la prima schermata, lo script è impostato a 100 estrazioni, poi c'è anche l'indice mensile e la prima schermata è finita a gennaio, secondo me per giocare bisogna prendere l'ultima schermata che è questa

Poi in tutte le previsioni non c'è nessuna vincita, non so se è un errore dello script od effettivamente non c'è stata nessuna vincita, e non ho voglia di andare a controllare

stupl · 24 Giugno 2024

Ho risolto, colpa la barra inferiore in cui era impostato l'archivio lotto dal 1871al 1917 e non al 2024
grazie

stupl · 24 Giugno 2024

Bepy78 ha scritto:
Buona sera Stupl,
volevo chiedere,ma questo metodo funziona ancora?

nelle ultime 100 estrazioni ha dato solo un 4, ma tempo fa dava anche 6, 5 e 5+

Bepy78 · 24 Giugno 2024

stupl ha scritto:
nelle ultime 100 estrazioni ha dato solo un 4, ma tempo fa dava anche 6, 5 e 5+

Si infatti ieri dopo il tuo messaggio,ho aperto il tread ed ho letto un po,ed ho visto che prima dava risultati sbalorditivi,ma passando addirittura a quattro estrazioni settimanali,avranno cambiato gli algoritmi..sti strunz.
Comunque se ti capita qualche aggiornamento,facci un fischio che noi picchiamo forte.
Grazie mille stupl
Buona serata
Bepy

Metodo x SuperEnalotto

Super member

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Allegati

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super member

Super member

Advanced Member >PLATINUM<