Novità

Per luigib---->urgente

rob.

rob.

Advanced Member >GOLD<
CIAO LUIGI,SCUSAMI MA DA QUANDO E' CAMBIATO IL FORUM, NON RIESCO A FAR FUNZIONARE LO SCRIPT CHE MI HAI FATTO,PER CORTESIA ME LO PUOI RIPOSTARE??-L'ALTRA VOLTA PURTROPPO PER NEGLIGENZA NON LO SALVAI SUL MIO DESKTOP E ORA FACENDO IL "COPIA E INCOLLA" DEL CODICE SUL NUOVO FORUM NON MI FUNZIONA PIU'!!- CLICCA SUL LINK PER VEDERE IL POST DOVE C'E' IL CODICE!!-CI TENGO TANTISSIMO...GRAZIE MILLE

http://forum.lottoced.com/showthrea...-CHE-POTREBBE-APRIRE-NUOVI-ORIZZONTI!!!/page3
 
Vedi se per caso è questo, e se funziona.



Codice: 
Option Explicit
Dim aEstrRit()
Dim aColori()
Dim nLenRiga
Dim nIdPrimaEstr
Sub Main
    Dim Inizio,Fine
    Dim r,k,e,i
    Dim RitDelRit,FreqDelRit
    Dim sRiga
    Dim nCol
    Dim aR(1)
    Dim aN(1)
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    ReDim aEstrRit(EstrazioniArchivio,12,5)
    Call InitAlimentaTabella
    ReDim FreqDelRit(12,250)
    Call Messaggio("Calcolo tabella ritardi")
    nIdPrimaEstr = Inizio - 200
    nIdPrimaEstr = CInt(InputBox("Inserire la prima estrazione dalla quale conteggiare i ritardi (per default è 200 estrazioni indietro rispetto all'inizio range in analisi)","Prima estrazione",nIdPrimaEstr))
    If nIdPrimaEstr & lt; = 0 Then nIdPrimaEstr = 1
    For k = nIdPrimaEstr To Inizio - 1
        For r = 1 To 12
            If r & lt; & gt; 11 Then
                aR(1) = r
                For e = 1 To 5
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    If aEstrRit(k,r,e) & gt; 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                Next
            End If
        Next
        Call AvanzamentoElab(nIdPrimaEstr,Inizio - 1,k)
        If ScriptInterrotto Then Exit Sub
    Next
    Call Messaggio("Analisi range in corso...")
    For k = Inizio To Fine
        ReDim aRigaNumeri(57)
        ReDim aRigaRitardi(57)
        ReDim aRigaRitardiDei(57)
        ReDim aRigaFrequenzaDei(57)
        aRigaNumeri(1) = DataEstrazione(k)
        aRigaNumeri(2) = k
        aRigaRitardi(1) = "Rit"
        aRigaRitardiDei(1) = "RitDeiRit"
        aRigaFrequenzaDei(1) = "FrqRit"
        nCol = 2
        For r = 1 To 12
            If r & lt; & gt; 11 Then
                aR(1) = r
                For e = 1 To 5
                    nCol = nCol + 1
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    RitDelRit = GetRitardoDelRitardo(aEstrRit(k,r,e),k - 1,r)
                    If aEstrRit(k,r,e) & gt; 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                    aRigaNumeri(nCol) = aN(1)
                    aRigaRitardi(nCol) = aEstrRit(k,r,e)
                    aRigaRitardiDei(nCol) = RitDelRit
                    aRigaFrequenzaDei(nCol) = FreqDelRit(r,aEstrRit(k,r,e))
                Next
            End If
        Next
        Call Scriviriga(aRigaNumeri,DataEstrazione(k),k)
        Call Scriviriga(aRigaRitardi,"Ritardi","")
        Call Scriviriga(aRigaRitardiDei,"RitDeiRit","")
        Call Scriviriga(aRigaFrequenzaDei,"FreqDeiRit","")
        sRiga = String(nLenRiga,"-")
        Call Scrivi(sRiga)
        Call AvanzamentoElab(Inizio,Fine,k)
        If ScriptInterrotto Then Exit For
    Next
End Sub
Sub InitAlimentaTabella()
    Dim sRiga
    Dim r
    nLenRiga = 11 + 5 +(29*11) +(11*3) + 1
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
    sRiga = "|" & FormatSpace("Data",10) & "|"
    sRiga = sRiga & FormatSpace("Id",4) & "|"
    For r = 1 To 12
        If r & lt; & gt; 11 Then
            sRiga = sRiga & " " & FormatSpace(NomeRuota(r),28) & "|*|"
        End If
    Next
    Call Scrivi(sRiga)
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
End Sub
Sub Scriviriga(aRiga,sData,Id)
    Dim sRiga
    Dim r,e,nCol
    sRiga = "|" & FormatSpace(sData,10) & "|"
    sRiga = sRiga & FormatSpace(Id,4,True) & "|"
    nCol = 2
    For r = 1 To 12
        If r & lt; & gt; 11 Then
            For e = 1 To 5
                nCol = nCol + 1
                sRiga = sRiga & FormatSpace(aRiga(nCol),5,True) & "|"
            Next
            sRiga = sRiga & "*|"
        End If
    Next
    Call Scrivi(sRiga)
End Sub
Function GetRitardoDelRitardo(RitDaEsaminare,IdEstr,ruota)
    Dim k,e,b
    Dim RitDelRit
    RitDelRit = 0
    b = False
    For k = IdEstr To nIdPrimaEstr Step - 1
        For e = 1 To 5
            If aEstrRit(k,ruota,e) = RitDaEsaminare Then
                b = True
                Exit For
            End If
        Next
        If b Then Exit For
        RitDelRit = RitDelRit + 1
    Next
    GetRitardoDelRitardo = RitDelRit
End Function
 
CIAO BAFFO,PURTROPPO MI DA ERRORE!!!-IO NON SO SE FACCIO BENE (EVENTUALMENTE CORREGGIMI SE SBAGLIO) PRIMA DI INCOLLARE LO SCRIPT CANCELLO-----> Option Explicit---Sub Main----End Sub FACCIO BENE O NO???


33wxele.jpg
 
rob, sono questi maledetti codici & lt; & gt che equivalgono al <> (MAGGIORE E MINORE) che nei copia&Incolla si sputtanano ... :(
 
Ultima modifica:
vedi adesso...

vedi adesso...

Option Explicit
Dim aEstrRit()
Dim aColori()
Dim nLenRiga
Dim nIdPrimaEstr
Sub Main
Dim Inizio,Fine
Dim r,k,e,i
Dim RitDelRit,FreqDelRit

Dim sRiga
Dim nCol
Dim aR(1)
Dim aN(1)
Inizio = EstrazioneIni
Fine = EstrazioneFin
ReDim aEstrRit(EstrazioniArchivio,12,5)
Call InitAlimentaTabella

ReDim FreqDelRit(12,250)
Call Messaggio("Calcolo tabella ritardi")
nIdPrimaEstr = Inizio - 200
nIdPrimaEstr = CInt(InputBox("Inserire la prima estrazione dalla quale conteggiare i ritardi (per default è 200 estrazioni indietro rispetto all'inizio range in analisi)","Prima estrazione",nIdPrimaEstr))

If nIdPrimaEstr <= 0 Then nIdPrimaEstr = 1

For k = nIdPrimaEstr To Inizio - 1
For r = 1 To 12
If r <> 11 Then
aR(1) = r
For e = 1 To 5
aN(1) = Estratto(k,r,e)
aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
Next
End If
Next
Call AvanzamentoElab(nIdPrimaEstr,Inizio - 1,k)
If ScriptInterrotto Then Exit Sub
Next
Call Messaggio("Analisi range in corso...")
For k = Inizio To Fine
ReDim aRigaNumeri(57)
ReDim aRigaRitardi(57)
ReDim aRigaRitardiDei(57)
ReDim aRigaFrequenzaDei(57)
aRigaNumeri(1) = DataEstrazione(k)
aRigaNumeri(2) = k
aRigaRitardi(1) = "Rit"
aRigaRitardiDei(1) = "RitDeiRit"
aRigaFrequenzaDei(1) = "FrqRit"
nCol = 2
For r = 1 To 12
If r <> 11 Then
aR(1) = r
For e = 1 To 5
nCol = nCol + 1
aN(1) = Estratto(k,r,e)
aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
RitDelRit = GetRitardoDelRitardo(aEstrRit(k,r,e),k - 1,r)
If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
aRigaNumeri(nCol) = aN(1)
aRigaRitardi(nCol) = aEstrRit(k,r,e)
aRigaRitardiDei(nCol) = RitDelRit
aRigaFrequenzaDei(nCol) = FreqDelRit(r,aEstrRit(k,r,e))
Next
End If
Next
Call Scriviriga(aRigaNumeri,DataEstrazione(k),k)
Call Scriviriga(aRigaRitardi,"Ritardi","")
Call Scriviriga(aRigaRitardiDei,"RitDeiRit","")
Call Scriviriga(aRigaFrequenzaDei,"FreqDeiRit","")
sRiga = String(nLenRiga,"-")
Call Scrivi(sRiga)


Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next

End Sub
Sub InitAlimentaTabella()
Dim sRiga
Dim r
nLenRiga = 11 + 5 +(29*11) +(11*3) + 1
sRiga = String(nLenRiga,"-")
Call Scrivi(sRiga)
sRiga = "|" & FormatSpace("Data",10) & "|"
sRiga = sRiga & FormatSpace("Id",4) & "|"
For r = 1 To 12
If r <> 11 Then
sRiga = sRiga & " " & FormatSpace(NomeRuota(r),28) & "|*|"
End If
Next
Call Scrivi(sRiga)
sRiga = String(nLenRiga,"-")
Call Scrivi(sRiga)
End Sub
Sub Scriviriga(aRiga,sData,Id)
Dim sRiga
Dim r,e,nCol


sRiga = "|" & FormatSpace(sData,10) & "|"
sRiga = sRiga & FormatSpace(Id,4,True) & "|"
nCol = 2
For r = 1 To 12
If r <> 11 Then
For e = 1 To 5
nCol = nCol + 1
sRiga = sRiga & FormatSpace(aRiga(nCol),5,True) & "|"
Next
sRiga = sRiga & "*|"
End If
Next
Call Scrivi(sRiga)

End Sub
Function GetRitardoDelRitardo(RitDaEsaminare,IdEstr,ruota)
Dim k,e,b
Dim RitDelRit
RitDelRit = 0
b = False
For k = IdEstr To nIdPrimaEstr Step - 1
For e = 1 To 5
If aEstrRit(k,ruota,e) = RitDaEsaminare Then
b = True
Exit For
End If

Next

If b Then Exit For
RitDelRit = RitDelRit + 1
Next
GetRitardoDelRitardo = RitDelRit
End Function
 
Codice: 
Option Explicit
Dim aEstrRit()
Dim aColori()
Dim nLenRiga
Dim nIdPrimaEstr

Sub Main
    Dim Inizio,Fine
    Dim r,k,e,i
    Dim RitDelRit,FreqDelRit
    
    Dim sRiga
    Dim nCol
    Dim aR(1)
    Dim aN(1)
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    ReDim aEstrRit(EstrazioniArchivio,12,5)
    Call InitAlimentaTabella
    
    ReDim FreqDelRit(12,250)
    Call Messaggio("Calcolo tabella ritardi")
    nIdPrimaEstr = Inizio - 200
    nIdPrimaEstr = CInt(InputBox("Inserire la prima estrazione dalla quale conteggiare i ritardi (per default è 200 estrazioni indietro rispetto all'inizio range in analisi)","Prima estrazione",nIdPrimaEstr))
    
    If nIdPrimaEstr <= 0 Then nIdPrimaEstr = 1
    
    For k = nIdPrimaEstr To Inizio - 1
        For r = 1 To 12
            If r <> 11 Then
                aR(1) = r
                For e = 1 To 5
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                Next
            End If
        Next
        Call AvanzamentoElab(nIdPrimaEstr,Inizio - 1,k)
        If ScriptInterrotto Then Exit Sub
    Next
    Call Messaggio("Analisi range in corso...")
    For k = Inizio To Fine
        ReDim aRigaNumeri(57)
        ReDim aRigaRitardi(57)
        ReDim aRigaRitardiDei(57)
        ReDim aRigaFrequenzaDei(57)
        aRigaNumeri(1) = DataEstrazione(k)
        aRigaNumeri(2) = k
        aRigaRitardi(1) = "Rit"
        aRigaRitardiDei(1) = "RitDeiRit"
        aRigaFrequenzaDei(1) = "FrqRit"
        nCol = 2
        For r = 1 To 12
            If r <> 11 Then
                aR(1) = r
                For e = 1 To 5
                    nCol = nCol + 1
                    aN(1) = Estratto(k,r,e)
                    aEstrRit(k,r,e) = RitardoCombinazione(aR,aN,1,k - 1)
                    RitDelRit = GetRitardoDelRitardo(aEstrRit(k,r,e),k - 1,r)
                    If aEstrRit(k,r,e) > 250 Then aEstrRit(k,r,e) = 250
                    FreqDelRit(r,aEstrRit(k,r,e)) = FreqDelRit(r,aEstrRit(k,r,e)) + 1
                    aRigaNumeri(nCol) = aN(1)
                    aRigaRitardi(nCol) = aEstrRit(k,r,e)
                    aRigaRitardiDei(nCol) = RitDelRit
                    aRigaFrequenzaDei(nCol) = FreqDelRit(r,aEstrRit(k,r,e))
                Next
            End If
        Next
        Call Scriviriga(aRigaNumeri,DataEstrazione(k),k)
        Call Scriviriga(aRigaRitardi,"Ritardi","")
        Call Scriviriga(aRigaRitardiDei,"RitDeiRit","")
        Call Scriviriga(aRigaFrequenzaDei,"FreqDeiRit","")
        sRiga = String(nLenRiga,"-")
        Call Scrivi(sRiga)
    
        
        Call AvanzamentoElab(Inizio,Fine,k)
        If ScriptInterrotto Then Exit For
    Next
    
End Sub
Sub InitAlimentaTabella()
    Dim sRiga
    Dim r
    nLenRiga = 11 + 5 +(29*11) +(11*3) + 1
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
    sRiga = "|" & FormatSpace("Data",10) & "|"
    sRiga = sRiga & FormatSpace("Id",4) & "|"
    For r = 1 To 12
        If r <> 11 Then
            sRiga = sRiga & " " & FormatSpace(NomeRuota(r),28) & "|*|"
        End If
    Next
    Call Scrivi(sRiga)
    sRiga = String(nLenRiga,"-")
    Call Scrivi(sRiga)
End Sub
Sub Scriviriga(aRiga,sData,Id)
    Dim sRiga
    Dim r,e,nCol
    
    
    sRiga = "|" & FormatSpace(sData,10) & "|"
    sRiga = sRiga & FormatSpace(Id,4,True) & "|"
    nCol = 2
    For r = 1 To 12
        If r <> 11 Then
            For e = 1 To 5
                nCol = nCol + 1
                sRiga = sRiga & FormatSpace(aRiga(nCol),5,True) & "|"
            Next
            sRiga = sRiga & "*|"
        End If
    Next
    Call Scrivi(sRiga)
    
End Sub

Function GetRitardoDelRitardo(RitDaEsaminare,IdEstr,ruota)
    Dim k,e,b
    Dim RitDelRit
    RitDelRit = 0
    b = False
    For k = IdEstr To nIdPrimaEstr Step - 1
        For e = 1 To 5
            If aEstrRit(k,ruota,e) = RitDaEsaminare Then
                b = True
                Exit For
            End If
            
        Next
        
        If b Then Exit For
        RitDelRit = RitDelRit + 1
    Next
    GetRitardoDelRitardo = RitDelRit
End Function
 
Grazie gennaro e mazuma funzionano entrambi!!!-pero' sono un po' lenti,quello di luigib era molto veloce,non ricordo pero' se nel calcolo c'era anche la ruota "nazionale"

grazie ancora rob
 
...noi ti abbiamo aiutato... tu ora ci aiuti a capire come sfruttare l'analisi di questo script? ehhehehe ;)
 
Ciao,volentieri ma anche x me e' l'inizio di una nuova avventura!!-sto' facendo delle prove e mi e' capitato x diverse volte di scegliere (con i miei criteri di valutazione) 2 numeri in una ruota e con mio stupore sono usciti in ambo secco e mi e' capitato 3-4 volte!!!!-se continuiamo a sentirci in questa discussione a breve esporro' il mio criterio per valutare e scegliere i numeri che potrebbero uscite in futuro!!-a presto rob
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto