dov'è l'errore

[giorgio1960]

Sub main()
Dim nmr(90), ru(2), ambo(), poste(2)
poste(1)=1
poste(2)=1

fin=EstrazioneFin
ini=8150

For es=fin To ini step -1
Messaggio es
co=co+1
If co=4 Then

For r=1 To 10
Erase nmr

For ex=es To es+4
riga=""
For x=0 To 1
r1=r+x
If r1>10 Then r1=r1-10
riga=riga & SiglaRuota(r1) &" "
ru(x+1)=r1
For p=1 To 5
nmr(Estratto(ex,r1,p))=nmr(Estratto(ex,r1,p))+1
Next : Next : Next

cc=0
For x=1 To 90
If nmr(x)>2 Then
cc=cc+1
Redim preserve ambo(cc)
ambo(cc)=x
End If
Next
If cc>0 Then
If UBound(ambo)=2 Then
Scrivi "Periodo dal "& es &" al "& es+9 &" "& riga &" "& StringaNumeri (ambo),1

ImpostaGiocata 1,ambo,ru,poste,6,2
Gioca es
Scrivi
End If
End If : Next
co=0
End If : Next
ScriviResoconto
End Sub


ringrazio anticipatamente a chi vorrà rispondermi

 

[Roby]

Buongiorno,
Qui il listato corretto.
Questi gli errori , cosi possono esseri uitli per il futuro

>   va sostituita con   >    (Maggiore)

<   va sostituita con   <    (Minore)

Controllare sempre, salvo errori ed omissis.

Sub Main()
    Dim nmr(90),ru(02),ambo(),poste(02)
    poste(01) = 1
    poste(02) = 1
    fin = EstrazioneFin
    ini = 8150
    For es = fin To ini Step - 01
        Messaggio es
        AvanzamentoElab fin,Ini,es
        co = co + 01
        If co = 04 Then
            For r = 01 To 10
                Erase nmr
                For ex = es To es + 04
                    riga = ""
                    For x = 0 To 01
                        r1 = r + x
                        If r1 > 10 Then r1 = r1 - 10
                        riga = riga & SiglaRuota(r1) & " "
                        ru(x + 1) = r1
                        For p = 01 To 05
                            nmr(Estratto(ex,r1,p)) = nmr(Estratto(ex,r1,p)) + 01
                        Next
                    Next
                Next
                cc = 00
                For x = 01 To 90
                    If nmr(x) > 02 Then
                        cc = cc + 01
                        ReDim Preserve ambo(cc)
                        ambo(cc) = x
                    End If
                Next
                If cc > 00 Then
                    If UBound(ambo) = 2 Then
                        Scrivi "Periodo dal " & Format2(es) & " al " & Format2(es + 09) & " " & riga & " " & StringaNumeri(ambo),1
                        ImpostaGiocata 1,ambo,ru,poste,6,2
                        Gioca es,True,,2
                        Scrivi
                    End If
                End If
            Next
            co = 00
        End If
    Next
    ScriviResoconto
End Sub

 

[avio]

Ciao

If r1>10 Then r1=r1-10 ----- if r1>10 then r1=r1-10

Non ricordo > se è > o <

 

[giorgio1960]

grazie amici per l'attenzione prestata
un abbraccio
Giorgio

 

[pippopippo]

saluti
si può avere contezza e spiegazione dello script?
cosa trova?
e cosa prevede?
grazie

 

[giorgio1960]

ciao pippopippo, per statistiche e quant'altro a volte mi capita di utilizzare degli script, questo in oggetto l'ho trovato in rete e a quanto pare fornisce una statistica a dir poco impressionante sulla previsione di uscita di alcuni numeri ma di preciso non saprei dirti, purtroppo di programmazione non ci capisco nulla, per cui a volte rimango in impasse di fronte ad alcuni listati a cui non so dare una spiegazione logica. Colgo l'occasione per chiedere, se possibile, modificarlo in modo da fargli prevedere i numeri dall'ultima estrazione per le nove successive.
Anticipatamente ringrazio
Giorgio

 

[pippopippo]

ciao pippopippo, per statistiche e quant'altro a volte mi capita di utilizzare degli script, questo in oggetto l'ho trovato in rete e a quanto pare fornisce una statistica a dir poco impressionante sulla previsione di uscita di alcuni numeri ma di preciso non saprei dirti, purtroppo di programmazione non ci capisco nulla, per cui a volte rimango in impasse di fronte ad alcuni listati a cui non so dare una spiegazione logica. Colgo l'occasione per chiedere, se possibile, modificarlo in modo da fargli prevedere i numeri dall'ultima estrazione per le nove successive.
Anticipatamente ringrazio
Giorgio

grazie giorgio
della veloce risposta
cercavo di capire non tanto come funziona lo script, ma come fà a dare previsioni che si sono già verificate?
ho capito che cerca gli elementi in un ciclo, ma credo non preveda nulla se non le combinazioni già uscite.
chi mi aiuta a capire?

 

[pippopippo]

ho ridotto i colpi a 5 visto le due ambate su due ruote

Periodo dal 8965 al 8974 NA PA 4.68
Estrazione generatrice del pronostico 08965 [ 20 - 14/02/2015]
G 0001 Numeri in gioco : 04.68 su NA PA per Estratto,Ambo
N. [04.68 ] [NA] [.. .. .. .. ..] C. 1 08966 [ 21 - 17/02/2015]
N. [04.68 ] [PA] [.. .. .. .. ..] C. 1 08966 [ 21 - 17/02/2015]
V N. [04.68 ] [NA] [04 .. .. .. ..] C. 2 Estratto 08967 [ 22 - 19/02/2015] [04.12.01.16.73]
V N. [04.68 ] [PA] [.. 68 .. .. ..] C. 2 Estratto 08967 [ 22 - 19/02/2015] [28.68.43.17.25]
V N. [04.68 ] [NA] [04 .. .. .. ..] C. 3 Estratto 08968 [ 23 - 21/02/2015] [04.39.02.34.53]
V N. [04.68 ] [PA] [.. .. 68 .. ..] C. 3 Estratto 08968 [ 23 - 21/02/2015] [81.01.68.44.69]
N. [04.68 ] [NA] [.. .. .. .. ..] C. 4 08969 [ 24 - 24/02/2015]
N. [04.68 ] [PA] [.. .. .. .. ..] C. 4 08969 [ 24 - 24/02/2015]
N. [04.68 ] [NA] [.. .. .. .. ..] C. 5 08970 [ 25 - 26/02/2015]
N. [04.68 ] [PA] [.. .. .. .. ..] C. 5 08970 [ 25 - 26/02/2015]



ma si deve ancora continuare a gioca sino alla fine del "Periodo dal 8965 al 8974 NA PA" visto che siamo alla estrazione 8971

e la prossima dalla 8976 dar' sicuramente i numeri già usciti?

 

[avio]

pippopippo ...guarda che uno script da 1 aprile anche se lo hanno messo il 1 marzo

 

[pippopippo]

pippopippo ...guarda che uno script da 1 aprile anche se lo hanno messo il 1 marzo

bhe prova di quà e prova di là.....
ci sono cascato...

 

[giorgio1960]

siamo in due allora ad esserci cascati

 

[pippopippo]

forse c'è anche il terzo

 

[giorgio1960]

mi dispiace pippo, a saperlo non l'avrei postato, vabbè

 

[pippopippo]

avevo i miei dubbi ma mi hai confuso con la statistica
comunque è stato anche divertente
saluti a giorgio e chi ha corretto lo script