VARIAZIONE PER SCRIPT

Alien. · 21 Febbraio 2016

Ciao, si potrebbe mettere anche quanti punteggi hanno fatto ogni singola proposta di gioco ed i numeri usciti?Grazie.

Sub Main
Scrivi " in giro per il web c'è il superenalotto(2) di Keeper ",1' - http://forum.lottoced.com/f12/giro-per-il-web-c%E8-il-superenalotto-110736/index2.html -
Dim n1(01),nn(12)
fin = EstrazioneFin
ini = EstrazioneIni + 8633
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 5 Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
n1(01) = Fuori90(((90 + Estratto(es,FI_,1)) - Estratto(es,CA_,2)) + 8)' CALCOLO CAPOGIOCO: 1° ESTRATTO DI FI - 2° ESTRATTO DI CA + 8
nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,RO_,5))) - Estratto(es,RO_,3))' ABBINAMENTO 01: 2° ESTRATTO DI BA + 5° ESTRATTO DI RO - 3° ESTRATTO DI RO
nn(02) = Fuori90((90 +(Estratto(es,CA_,4) + Estratto(es,NA_,4))) - Estratto(es,PA_,5))' ABBINAMENTO 02: 4° ESTRATTO DI CA + 4° ESTRATTO DI NA - 5° ESTRATTO DI PA
nn(03) = Fuori90((Estratto(es,FI_,3) + Estratto(es,RO_,3)) + 53)' ABBINAMENTO 03: 3° Estratto DI FI + 3° Estratto DI RO + 53
nn(04) = Fuori90((Estratto(es,GE_,1) + Estratto(es,GE_,3)) - Estratto(es,BA_,4))' ABBINAMENTO 04: 1° ESTRATTO DI GE + 3° ESTRATTO DI GE - 4° ESTRATTO DI BA
nn(05) = Fuori90((Estratto(es,MI_,1) + Estratto(es,MI_,2)) - Estratto(es,BA_,1))' ABBINAMENTO 05: 1° ESTRATTO DI MI + 2° ESTRATTO DI MI - 1° ESTRATTO DI BA
nn(06) = Fuori90(((90 + Estratto(es,NA_,5)) - Estratto(es,GE_,2)) - Estratto(es,PA_,1))' ABBINAMENTO 06: 5° Estratto DI NA - 2° Estratto DI GE - 1° Estratto DI PA
nn(07) = Fuori90(((Estratto(es,PA_,4) + Estratto(es,CA_,5))) + Estratto(es,RO_,2))' ABBINAMENTO 07: 4° ESTRATTO DI PA + 5° ESTRATTO DI CA + 2° ESTRATTO DI RO
nn(08) = Fuori90(((90 +(Estratto(es,RO_,5)) - Estratto(es,FI_,1))) + 49)' ABBINAMENTO 08: 5° Estratto DI RO - 1° Estratto DI FI + 49
nn(09) = Fuori90((90 +(Estratto(es,TO_,1)) - Estratto(es,NA_,4)) - Estratto(es,NA_,5))' ABBINAMENTO 09: 1° ESTRATTO DI TO - 4° ESTRATTO DI NA - 5° ESTRATTO DI NA
nn(10) = Fuori90((90 +(Estratto(es,VE_,2) + Estratto(es,VE_,3) - Estratto(es,FI_,4) - Estratto(es,NZ_,2))) * Estratto(es,NZ_,1))' ABBINAMENTO 10: 2° ESTRATTO DI VE + 3° ESTRATTO DI VE - 4° ESTRATTO DI FI - 2° ESTRATTO DI NAZ X 1° ESTRATTO DI NAZ
nn(11) = Fuori90((Estratto(es,BA_,1) + Estratto(es,PA_,4)) - Estratto(es,GE_,5))' ABBINAMENTO 11: 1° Estratto DI BA + 4° Estratto DI PA - 5° Estratto DI GE
nn(12) = Fuori90(((90 + Estratto(es,CA_,5)) - Estratto(es,PA_,1)) * Estratto(es,VE_,4))' ABBINAMENTO 12: 5° ESTRATTO DI CA - 1° ESTRATTO DI PA X 4° ESTRATTO DI VE
OrdinaMatrice nn,1
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
rip = 0
If NumeriRipetuti(nn) Then
If NumeriRipetuti(nn) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & Format2(nn(01)) & " . " & Format2(nn(02)) _
& " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . " & Format2(nn(07)) & " . " & _
Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,4
rip = 1
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 = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3
Scrivi
Scrivi
Scrivi " Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",1,1,4
Scrivi
Scrivi " CAPOGIOCO : " & Format2(n1(01)),1,1,6
Scrivi " NUMERI GIRANTI : " & Format2(nn(01)) & " . " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06))_
& " . " & Format2(nn(07)) & " . " & Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,6
End If
Next
End Sub

Alien. · 23 Febbraio 2016

claudio8 · 24 Febbraio 2016

Su dai Alien comincia a smanettare autonomamente, ne hai visti già tanti di script

giorgioantonio · 24 Febbraio 2016

Ciao Alien, ho dato una controllata/verifica al programma (non allo script) e pare che il capogioco non conviene tenerlo presente
e come numero capogioco e come numero da mettere in gioco con gli altri.
Tu cosa ne pensi?
L'analisi non è stata approfondita?
Ciao

Alien. · 25 Febbraio 2016

claudio8;n1960813 ha scritto:
Su dai Alien comincia a smanettare autonomamente, ne hai visti già tanti di script

è hai ragione...qualche tempo fà imparai da solo a fare il basic....poi ho smesso e me ne sono dimenticato.......adesso con questo non è mlto diverso ma mi mancano le basi è un po di tempo........se mi puoi fare da maestro...............hai detto bene visti tanti...ma solo visti.....

Alien. · 25 Febbraio 2016

giorgioantonio;n1960823 ha scritto:
Ciao Alien, ho dato una controllata/verifica al programma (non allo script) e pare che il capogioco non conviene tenerlo presente
e come numero capogioco e come numero da mettere in gioco con gli altri.
Tu cosa ne pensi?
L'analisi non è stata approfondita?
Ciao

no ,non ho approfondito per approfondire e fare una statistica avrei bisogno dello script aggiornato............................

Come ti trovo?

giorgioantonio · 26 Febbraio 2016

Ciao Alien, pare che hai bucato per la richiesta dei punti da controllare .... Ciao

Alien. · 26 Febbraio 2016

giorgioantonio;n1961129 ha scritto:
Ciao Alien, pare che hai bucato per la richiesta dei punti da controllare .... Ciao

e si vero oggi nelle auto non mettono più la ruota di scorta ma una schiuma ed un compressore.Speriamo di trovare un gommaio o un carroattrezzi altrimenti si resta a piedi.Ma c'è sempre una buona Stella.
nell'attesa andiamo in....sella

giorgioantonio · 27 Febbraio 2016

Si Alien facciamola PEDALARE....
Però se lo metti a posto (lo script) fammi sapere, sarei quasi interessato.
Intanto guardo questa se e quando arriverà al traguardo.
Ciao

Alien. · 28 Febbraio 2016

è si si vede che da qua non passa l'Oscar degli script

claudio8 · 28 Febbraio 2016

Le cose sono tutte da rifare..... cambiare i calcoli di ricerca altrimenti "avrete sempre la gomma a terra" ... + che un 3 non lo recuperate.....

Codice:

Sub Main
    Scrivi " in giro per il web c'è il superenalotto(2) di Keeper ",1' - http://forum.lottoced.com/f12/giro-p...36/index2.html -
    Dim n1(01),nn(12),esSE
    fin = EstrazioneFin
    ini = EstrazioneIni + 8633
    For es = Ini To fin
        If ScriptInterrotto Then Exit For
        Messaggio es
        AvanzamentoElab Ini,fin,es
        If IndiceMensile(es) = 5 Then
            casi = casi + 1
            Scrivi String(75,"=") & " caso n° " &(casi),1
            n1(01) = Fuori90(((90 + Estratto(es,FI_,1)) - Estratto(es,CA_,2)) + 8)' CALCOLO CAPOGIOCO: 1° ESTRATTO DI FI - 2° ESTRATTO DI CA + 8
            nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,RO_,5))) - Estratto(es,RO_,3))' ABBINAMENTO 01: 2° ESTRATTO DI BA + 5° ESTRATTO DI RO - 3° ESTRATTO DI RO
            nn(02) = Fuori90((90 +(Estratto(es,CA_,4) + Estratto(es,NA_,4))) - Estratto(es,PA_,5))' ABBINAMENTO 02: 4° ESTRATTO DI CA + 4° ESTRATTO DI NA - 5° ESTRATTO DI PA
            nn(03) = Fuori90((Estratto(es,FI_,3) + Estratto(es,RO_,3)) + 53)' ABBINAMENTO 03: 3° Estratto DI FI + 3° Estratto DI RO + 53
            nn(04) = Fuori90((Estratto(es,GE_,1) + Estratto(es,GE_,3)) - Estratto(es,BA_,4))' ABBINAMENTO 04: 1° ESTRATTO DI GE + 3° ESTRATTO DI GE - 4° ESTRATTO DI BA
            nn(05) = Fuori90((Estratto(es,MI_,1) + Estratto(es,MI_,2)) - Estratto(es,BA_,1))' ABBINAMENTO 05: 1° ESTRATTO DI MI + 2° ESTRATTO DI MI - 1° ESTRATTO DI BA
            nn(06) = Fuori90(((90 + Estratto(es,NA_,5)) - Estratto(es,GE_,2)) - Estratto(es,PA_,1))' ABBINAMENTO 06: 5° Estratto DI NA - 2° Estratto DI GE - 1° Estratto DI PA
            nn(07) = Fuori90(((Estratto(es,PA_,4) + Estratto(es,CA_,5))) + Estratto(es,RO_,2))' ABBINAMENTO 07: 4° ESTRATTO DI PA + 5° ESTRATTO DI CA + 2° ESTRATTO DI RO
            nn(08) = Fuori90(((90 +(Estratto(es,RO_,5)) - Estratto(es,FI_,1))) + 49)' ABBINAMENTO 08: 5° Estratto DI RO - 1° Estratto DI FI + 49
            nn(09) = Fuori90((90 +(Estratto(es,TO_,1)) - Estratto(es,NA_,4)) - Estratto(es,NA_,5))' ABBINAMENTO 09: 1° ESTRATTO DI TO - 4° ESTRATTO DI NA - 5° ESTRATTO DI NA
            nn(10) = Fuori90((90 +(Estratto(es,VE_,2) + Estratto(es,VE_,3) - Estratto(es,FI_,4) - Estratto(es,NZ_,2))) * Estratto(es,NZ_,1))' ABBINAMENTO 10: 2° ESTRATTO DI VE + 3° ESTRATTO DI VE - 4° ESTRATTO DI FI - 2° ESTRATTO DI NAZ X 1° ESTRATTO DI NAZ
            nn(11) = Fuori90((Estratto(es,BA_,1) + Estratto(es,PA_,4)) - Estratto(es,GE_,5))' ABBINAMENTO 11: 1° Estratto DI BA + 4° Estratto DI PA - 5° Estratto DI GE
            nn(12) = Fuori90(((90 + Estratto(es,CA_,5)) - Estratto(es,PA_,1)) * Estratto(es,VE_,4))' ABBINAMENTO 12: 5° ESTRATTO DI CA - 1° ESTRATTO DI PA X 4° ESTRATTO DI VE
            OrdinaMatrice nn,1
            Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
            rip = 0
            If NumeriRipetuti(nn) Then
                If NumeriRipetuti(nn) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & Format2(nn(01)) & " . " & Format2(nn(02))& _
                " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . " & Format2(nn(07)) & " . " & _
                Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,4
                rip = 1
                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 = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3
            Scrivi
            Scrivi
            Scrivi " Numeri da giocare al Superenalotto per 13 colpi dall' estrazione successiva alla " & IndiceMensile(es) & "^ del " & DataEstrazione(es) & " : ",1,1,4
            Scrivi
            Scrivi " CAPOGIOCO : " & Format2(n1(01)),1,1,6
            Scrivi " NUMERI GIRANTI : " & Format2(nn(01)) & " . " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06))_
            & " . " & Format2(nn(07)) & " . " & Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)),1,1,6
            
            esSE =(es - 6659)
            nn(00) = n1(01)
            For x = 1 To 13
                If ScriptInterrotto Then Exit For
                If VerificaEsitoSE(nn,esSE + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then
                    Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
                Else
                    Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneSE(esSE + x) & " Ambta = " & n1(01) & " ..... " & StringaEstrattiSE(esSE + x) & " --- " & "negativo "
                End If
            Next
        End If
    Next
End Sub

Saluti tutti

giorgioantonio · 28 Febbraio 2016

Salve Claudio8,

dico forse ma i numeri che da l'elaborato,
con riferimento all'11.02.2016 e da giocare
dalla estrazione successiva, cioè dal 13.02.2016
sono:capogioco=29;
poi i 12 numeri: 05-10-11-40-42-43-44-60-63-74-77-83.
Ti vorrei far notare che:
il 13.02.2016 è uscito il 74;
il 16.02.2016 sono usciti il 10 e 40
il 18.02.2016 negativo;
il 20.02.2016 è uscito il capogioco 29;
il 23.02.2016 è uscito il 74;
il 25 e 27 negativi.
Di perse se, dico se, il controllo fatto sull'ultimo elaborato è errato penso che
anche in precedenza si dovrebbe incorrere nella stessa situazione.
Ti chiedo cortesemente potresti rivedere il controllo dei numeri usciti?
Diversamente se sono in errore mi scuso

Grazie

Alien. · 28 Febbraio 2016

ottimo controllo giorgio................non capisco perchè all'inizio ci sono sestine cinquine poi nulla......claudio puoi ricontrollare....perchè non sono 6 caramelle...........grazie.Mica dovrò controllare tutto su spaziometria?
Forse claudio s'è" fregato" la gomma di scorta hahahahahahha

claudio8 · 29 Febbraio 2016

giorgioantonio;n1961433 ha scritto:
Salve Claudio8,

dico forse ma i numeri che da l'elaborato,
con riferimento all'11.02.2016 e da giocare
dalla estrazione successiva, cioè dal 13.02.2016
sono:capogioco=29;
poi i 12 numeri: 05-10-11-40-42-43-44-60-63-74-77-83.
Ti vorrei far notare che:
il 13.02.2016 è uscito il 74;
il 16.02.2016 sono usciti il 10 e 40
il 18.02.2016 negativo;
il 20.02.2016 è uscito il capogioco 29;
il 23.02.2016 è uscito il 74;
il 25 e 27 negativi.
Di perse se, dico se, il controllo fatto sull'ultimo elaborato è errato penso che
anche in precedenza si dovrebbe incorrere nella stessa situazione.
Ti chiedo cortesemente potresti rivedere il controllo dei numeri usciti?
Diversamente se sono in errore mi scuso

Grazie

Non ho capito se lo script dà esiti errati o meno, sii più chiaro.

Ho fatto il controllo, per me è tutto ok, se ci sono errori fatemi sapere, io non ne vedo.
Eccovi lo screenshot dell'output e delle estrazioni ultime.

x la sestina vincente della prossima estrazione non posso aiutarvi, dovete farcela da soli, altrimenti dovrei dividere il montepremi.........

Ciao

claudio8 · 29 Febbraio 2016

Alien.;n1961463 ha scritto:
ottimo controllo giorgio................non capisco perchè all'inizio ci sono sestine cinquine poi nulla......claudio puoi ricontrollare....perchè non sono 6 caramelle...........grazie.Mica dovrò controllare tutto su spaziometria?
Forse claudio s'è" fregato" la gomma di scorta hahahahahahha

Tranquillo Alien, ho solo trattenuto la "mora".....

vengio · 29 Febbraio 2016

Penso sia un problema di archivio che falsa la sincronizzazione delle estrazioni fra lotto e superenalotto. Io ho risolto modificando questa stringa da esSE=(es - 6659) a esSE=(es - 6685).

giorgioantonio · 29 Febbraio 2016

Salve Claudio8,

Non saprei dirti da cosa dipende perchè
con l'estrazione citata scrive:
"estrazione fuori dal range.
la prima estrazione per il gioco
parte dal
1)13.02.2016
2)16.02.2016
3)18.02.2016
4)20.02.2016
5)23.02.2016
6)25.02.2016
7)27.02.2016
e a seguire le altre che sono ancora
in corso fino alla 13^.
E stando all'analisi fatta da me
dovremmo avere quei risultati citati
nel post precedente.
Per notare meglio ciò che non coincide
con l'elaborato dovremmo tornare indietro
alla estrazione dell'11.06.2015.
VEDERE LA PRIMA RIGA
Al 1 colpo del 13.06.2016 ambata 54
segue l'estrazione i quali numeri non
coincidono con l'estrazione reale,
e cioè
19.80.36.38.35.45-j17-s05
mentre la reale è, sempre del 13.06.2016,
01.05.06.39.41.70-j10-s27

Naturalmente non mi dilungo perchè le altre estrazioni
si trovano nella stessa situazione.

Spero di essere stato più chiaro.

Mi permetto l'osservazione che forse il
controllo parte da estrazioni precedenti
a quella reale.

Ciao

giorgioantonio · 29 Febbraio 2016

Caro Alien, peparati a chiedere scusa a Claudio8, chi ha forato siamo noi.
Ma tu l'archivio l'hai aggiornato?
Fallo adesso che il programma funziona bene,

Scusa Claudio8 nei miei pensieri c'era la convinzione che con l'aggiornamento del lotto si
aggiornassero tutti gli archivi contemporaneamente.
ti sono debitore di qualchè caffè.
Vengio pare che anche tu devi fare lo stesso: aggiorna l'archivio e non cambiare
nessun numero in nessuna riga.
Saluti a tutti

Ciao

vengio · 29 Febbraio 2016

In effetti ho tagliato e riscaricato l'archivio del super e adesso è ok.

claudio8 · 29 Febbraio 2016

vengio;n1961544 ha scritto:
Penso sia un problema di archivio che falsa la sincronizzazione delle estrazioni fra lotto e superenalotto. Io ho risolto modificando questa stringa da esSE=(es - 6659) a esSE=(es - 6685).

Accetto volentieri le scuse ( Alien aspetto il puo "paga pegno".)... e sappiate che per la geniale genesi della "sincronizzazione delle estrazioni", non sembra, ma ci ho dovuto perdere un po di tempo.....

Anni orsono, se no ricordo male per un sistemone "a società" usavamo le fisse di Bubu ( fi2°-24) nel giro di 3/4 estrazioni si andava a segno.
Buona sestina

VARIAZIONE PER SCRIPT

Advanced Premium Member

Advanced Premium Member

Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Premium Member

Super Member >PLATINUM<

Advanced Premium Member

Premium Member

Premium Member

Super Member >GOLD<

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >GOLD<

Premium Member