Aiuto per un listato interessante

[francoaltura]

Un Saluto tutti i partecipanti del Forum.

Qualche tempo fa mi è capitato di scaricare da internet un file zip con diversi listati per Spaziometria e L8+ tra questi uno col nome " Metodo SuperEnalotto by Danilo "che purtroppo si blocca alla riga: r(1) = EstrattoSuper(n + 1,1) Io ne so poco di listati, script, per cui cerco il gentile l'aiuto di qualcuno che possa risolvere
l'errore presente nel listato sopra citato che ora posto qui sotto. GRAZIE!!!
(Indirizzo per scaricare l'archivio del Superenalotto agiornato: https://www.silop.it/archivi/lottoItalia/BaseDatiSuperEna.Dat)

Dim numeri(45)
Dim q
q = 45

Sub Main()
Dim r(7)
Dim r1(7)
Dim r2(7)
Dim r3(7)
Dim r4(7)
Dim r5(7)
Dim r6(7)
Dim r7(7)
Dim r8(7)
Dim es(7)
Dim qg(10)

m = "SuperEnalotto"
ri = InputBox("Scrivi quì sotto il numero di estrazioni da controllare.",m,"01/01/2000")
a0 = 0
b0 = 0
c0 = 0
d0 = 0

For n = PrimaSuccessiva(ri) To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
numeri(1) = 1
numeri(2) = 2
numeri(3) = 3
numeri(4) = 6
numeri(5) = 17
numeri(6) = 32
numeri(7) = 56
numeri(8) = 65
numeri(9) = 76
numeri(10) = 83
OrdinaMatrice numeri,- 1
'--------------------------------------
EliminaRipetuti numeri
'==========================
r(1) = EstrattoSuper(n + 1,1)
r(2) = EstrattoSuper(n + 1,2)
r(3) = EstrattoSuper(n + 1,3)
r(4) = EstrattoSuper(n + 1,4)
r(5) = EstrattoSuper(n + 1,5)
r(6) = EstrattoSuper(n + 1,6)
'==========================
r1(1) = EstrattoSuper(n + 2,1)
r1(2) = EstrattoSuper(n + 2,2)
r1(3) = EstrattoSuper(n + 2,3)
r1(4) = EstrattoSuper(n + 2,4)
r1(5) = EstrattoSuper(n + 2,5)
r1(6) = EstrattoSuper(n + 2,6)
'==========================
r2(1) = EstrattoSuper(n + 3,1)
r2(2) = EstrattoSuper(n + 3,2)
r2(3) = EstrattoSuper(n + 3,3)
r2(4) = EstrattoSuper(n + 3,4)
r2(5) = EstrattoSuper(n + 3,5)
r2(6) = EstrattoSuper(n + 3,6)
'==========================
r3(1) = EstrattoSuper(n + 4,1)
r3(2) = EstrattoSuper(n + 4,2)
r3(3) = EstrattoSuper(n + 4,3)
r3(4) = EstrattoSuper(n + 4,4)
r3(5) = EstrattoSuper(n + 4,5)
r3(6) = EstrattoSuper(n + 4,6)
'==========================
r4(1) = EstrattoSuper(n + 5,1)
r4(2) = EstrattoSuper(n + 5,2)
r4(3) = EstrattoSuper(n + 5,3)
r4(4) = EstrattoSuper(n + 5,4)
r4(5) = EstrattoSuper(n + 5,5)
r4(6) = EstrattoSuper(n + 5,6)
'==========================
r5(1) = EstrattoSuper(n + 6,1)
r5(2) = EstrattoSuper(n + 6,2)
r5(3) = EstrattoSuper(n + 6,3)
r5(4) = EstrattoSuper(n + 6,4)
r5(5) = EstrattoSuper(n + 6,5)
r5(6) = EstrattoSuper(n + 6,6)
'==========================
r6(1) = EstrattoSuper(n + 7,1)
r6(2) = EstrattoSuper(n + 7,2)
r6(3) = EstrattoSuper(n + 7,3)
r6(4) = EstrattoSuper(n + 7,4)
r6(5) = EstrattoSuper(n + 7,5)
r6(6) = EstrattoSuper(n + 7,6)
'==========================
r7(1) = EstrattoSuper(n + 8,1)
r7(2) = EstrattoSuper(n + 8,2)
r7(3) = EstrattoSuper(n + 8,3)
r7(4) = EstrattoSuper(n + 8,4)
r7(5) = EstrattoSuper(n + 8,5)
r7(6) = EstrattoSuper(n + 8,6)
'==========================
r8(1) = EstrattoSuper(n + 9,1)
r8(2) = EstrattoSuper(n + 9,2)
r8(3) = EstrattoSuper(n + 9,3)
r8(4) = EstrattoSuper(n + 9,4)
r8(5) = EstrattoSuper(n + 9,5)
r8(6) = EstrattoSuper(n + 9,6)
'==========================
es(1) = EstrattoSuper(n,1)
es(2) = EstrattoSuper(n,2)
es(3) = EstrattoSuper(n,3)
es(4) = EstrattoSuper(n,4)
es(5) = EstrattoSuper(n,5)
es(6) = EstrattoSuper(n,6)
'==========================

qg(1) = quantigiusti
qg(2) = quantigiusti1
qg(3) = quantigiusti2
qg(4) = quantigiusti3
qg(5) = quantigiusti4
qg(6) = quantigiusti5
qg(7) = quantigiusti6
qg(8) = quantigiusti7
qg(9) = quantigiusti8
Messaggio " Punteggio realizzato: " & DataEstrazione & " Punteggio realizzato: " & CStr(quantigiusti)
If IndiceMensile(n + 1) = 1 Then
If MassimoV(r8) <> 0 Then
If MassimoV(qg) > 2 Then
ColoreTesto 2
Scrivi "Numero fisso: " & numeri(1) & " " & StringaNumeri(numeri),1
ColoreTesto 0
Scrivi "Data Estrazione: " & DataEstrazione & " Massimo realizzato: " & MassimoV(qg),1
Else
ColoreTesto 1
Scrivi "Data Estrazione: " & DataEstrazione & " Nessuna vincita: ",1
ColoreTesto 0
End If
Else
ColoreTesto 2
Scrivi "Numero fisso: " & numeri(1) & " " & StringaNumeri(numeri),1
ColoreTesto 0
Scrivi "Data Estrazione: " & DataEstrazione & " Massimo realizzato: ",1
Scrivi
Scrivi "I Numeri Estratti:" & StringaNumeri(r) & " Punteggio realizzato: " & CStr(quantigiusti) & " " & DataEstrazione(n + 1)
Scrivi "I Numeri Estratti:" & StringaNumeri(r1) & " Punteggio realizzato: " & CStr(quantigiusti1) & " " & DataEstrazione(n + 2)
Scrivi "I Numeri Estratti:" & StringaNumeri(r2) & " Punteggio realizzato: " & CStr(quantigiusti2) & " " & DataEstrazione(n + 3)
Scrivi "I Numeri Estratti:" & StringaNumeri(r3) & " Punteggio realizzato: " & CStr(quantigiusti3) & " " & DataEstrazione(n + 4)
Scrivi "I Numeri Estratti:" & StringaNumeri(r4) & " Punteggio realizzato: " & CStr(quantigiusti4) & " " & DataEstrazione(n + 5)
Scrivi "I Numeri Estratti:" & StringaNumeri(r5) & " Punteggio realizzato: " & CStr(quantigiusti5) & " " & DataEstrazione(n + 6)
Scrivi "I Numeri Estratti:" & StringaNumeri(r6) & " Punteggio realizzato: " & CStr(quantigiusti6) & " " & DataEstrazione(n + 7)
Scrivi "I Numeri Estratti:" & StringaNumeri(r7) & " Punteggio realizzato: " & CStr(quantigiusti7) & " " & DataEstrazione(n + 8)
Scrivi "I Numeri Estratti:" & StringaNumeri(r8) & " Punteggio realizzato: " & CStr(quantigiusti8) & " " & DataEstrazione(n + 9)
End If
Scrivi "===================================================="
End If
If MassimoV(qg) > 2 And MassimoV(r8) <> 0 Then c0 = c0 + 1 'casi positivi
End If
If MassimoV(qg) = 6 And MassimoV(r8) <> 0 Then a0 = a0 + 1 End If 'casi negativi
If IndiceMensile(n + 1) = 2 And MassimoV(r8) <> 0 Then b0 = b0 + 1 End If 'casi giocabili
If MassimoV(qg) > 5 Then d0 = d0 + 1 End If
Next
ColoreTesto 2
Scrivi " Estrazione di riferimento: Prima del Mese.",1
ColoreTesto 1
Scrivi "Casi Giocabili: " & b0,1
Scrivi "Casi positivi: " & c0,1
Scrivi "Casi negativi: " & b0 - c0,1'
ColoreTesto 2
End Sub

' Funzione di controllo su 8 uscite
Dim qg(10)
Function quantigiusti
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 1,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti = giusti
End Function

Function quantigiusti1
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 2,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti1 = giusti
End Function

Function quantigiusti2
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 3,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti2 = giusti
End Function

Function quantigiusti3
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 4,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti3 = giusti
End Function

Function quantigiusti4
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 5,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti4 = giusti
End Function

Function quantigiusti5
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 6,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti5 = giusti
End Function

Function quantigiusti6
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 7,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
'Next
Next
quantigiusti6 = giusti
End Function

Function quantigiusti7
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 8,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti7 = giusti
End Function

Function quantigiusti8
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSuper(n + 9,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti8 = giusti
End Function

 

[Marcorun]

Ciao.....così non va in errore,ma non so se funziona per?

Dim numeri(45)
Dim q
q = 45

Sub Main()
Dim r(7)
Dim r1(7)
Dim r2(7)
Dim r3(7)
Dim r4(7)
Dim r5(7)
Dim r6(7)
Dim r7(7)
Dim r8(7)
Dim es(7)
Dim qg(10)

m = "SuperEnalotto"
ri = InputBox("Scrivi quì sotto il numero di estrazioni da controllare.",m,"01/01/2000")
a0 = 0
b0 = 0
c0 = 0
d0 = 0

For n = PrimaSuccessiva(ri) To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
numeri(1) = 1
numeri(2) = 2
numeri(3) = 3
numeri(4) = 6
numeri(5) = 17
numeri(6) = 32
numeri(7) = 56
numeri(8) = 65
numeri(9) = 76
numeri(10) = 83
OrdinaMatrice numeri,- 1
'--------------------------------------
EliminaRipetuti numeri
'==========================
r(1) = EstrattoSE(n + 1,1)
r(2) = EstrattoSE(n + 1,2)
r(3) = EstrattoSE(n + 1,3)
r(4) = EstrattoSE(n + 1,4)
r(5) = EstrattoSE(n + 1,5)
r(6) = EstrattoSE(n + 1,6)
'==========================
r1(1) = EstrattoSE(n + 2,1)
r1(2) = EstrattoSE(n + 2,2)
r1(3) = EstrattoSE(n + 2,3)
r1(4) = EstrattoSE(n + 2,4)
r1(5) = EstrattoSE(n + 2,5)
r1(6) = EstrattoSE(n + 2,6)
'==========================
r2(1) = EstrattoSE(n + 3,1)
r2(2) = EstrattoSE(n + 3,2)
r2(3) = EstrattoSE(n + 3,3)
r2(4) = EstrattoSE(n + 3,4)
r2(5) = EstrattoSE(n + 3,5)
r2(6) = EstrattoSE(n + 3,6)
'==========================
r3(1) = EstrattoSE(n + 4,1)
r3(2) = EstrattoSE(n + 4,2)
r3(3) = EstrattoSE(n + 4,3)
r3(4) = EstrattoSE(n + 4,4)
r3(5) = EstrattoSE(n + 4,5)
r3(6) = EstrattoSE(n + 4,6)
'==========================
r4(1) = EstrattoSE(n + 5,1)
r4(2) = EstrattoSE(n + 5,2)
r4(3) = EstrattoSE(n + 5,3)
r4(4) = EstrattoSE(n + 5,4)
r4(5) = EstrattoSE(n + 5,5)
r4(6) = EstrattoSE(n + 5,6)
'==========================
r5(1) = EstrattoSE(n + 6,1)
r5(2) = EstrattoSE(n + 6,2)
r5(3) = EstrattoSE(n + 6,3)
r5(4) = EstrattoSE(n + 6,4)
r5(5) = EstrattoSE(n + 6,5)
r5(6) = EstrattoSE(n + 6,6)
'==========================
r6(1) = EstrattoSE(n + 7,1)
r6(2) = EstrattoSE(n + 7,2)
r6(3) = EstrattoSE(n + 7,3)
r6(4) = EstrattoSE(n + 7,4)
r6(5) = EstrattoSE(n + 7,5)
r6(6) = EstrattoSE(n + 7,6)
'==========================
r7(1) = EstrattoSE(n + 8,1)
r7(2) = EstrattoSE(n + 8,2)
r7(3) = EstrattoSE(n + 8,3)
r7(4) = EstrattoSE(n + 8,4)
r7(5) = EstrattoSE(n + 8,5)
r7(6) = EstrattoSE(n + 8,6)
'==========================
r8(1) = EstrattoSE(n + 9,1)
r8(2) = EstrattoSE(n + 9,2)
r8(3) = EstrattoSE(n + 9,3)
r8(4) = EstrattoSE(n + 9,4)
r8(5) = EstrattoSE(n + 9,5)
r8(6) = EstrattoSE(n + 9,6)
'==========================
es(1) = EstrattoSE(n,1)
es(2) = EstrattoSE(n,2)
es(3) = EstrattoSE(n,3)
es(4) = EstrattoSE(n,4)
es(5) = EstrattoSE(n,5)
es(6) = EstrattoSE(n,6)
'==========================

qg(1) = quantigiusti(n)
qg(2) = quantigiusti1(n)
qg(3) = quantigiusti2(n)
qg(4) = quantigiusti3(n)
qg(5) = quantigiusti4(n)
qg(6) = quantigiusti5(n)
qg(7) = quantigiusti6(n)
qg(8) = quantigiusti7(n)
qg(9) = quantigiusti8(n)
Messaggio " Punteggio realizzato: " & DataEstrazione(n) & " Punteggio realizzato: " & CStr(quantigiusti(n))
If IndiceMensile(n + 1) = 1 Then
If MassimoV(r8) <> 0 Then
If MassimoV(qg) > 2 Then
ColoreTesto 2
Scrivi "Numero fisso: " & numeri(1) & " " & StringaNumeri(numeri),1
ColoreTesto 0
Scrivi "Data Estrazione: " & DataEstrazione(n) & " Massimo realizzato: " & MassimoV(qg),1
Else
ColoreTesto 1
Scrivi "Data Estrazione: " & DataEstrazione(n) & " Nessuna vincita: ",1
ColoreTesto 0
End If
Else
ColoreTesto 2
Scrivi "Numero fisso: " & numeri(1) & " " & StringaNumeri(numeri),1
ColoreTesto 0
Scrivi "Data Estrazione: " & DataEstrazione(n) & " Massimo realizzato: ",1
Scrivi
Scrivi "I Numeri Estratti:" & StringaNumeri(r) & " Punteggio realizzato: " & CStr(quantigiusti(n)) & " " & DataEstrazione(n + 1)
Scrivi "I Numeri Estratti:" & StringaNumeri(r1) & " Punteggio realizzato: " & CStr(quantigiusti1(n)) & " " & DataEstrazione(n + 2)
Scrivi "I Numeri Estratti:" & StringaNumeri(r2) & " Punteggio realizzato: " & CStr(quantigiusti2(n)) & " " & DataEstrazione(n + 3)
Scrivi "I Numeri Estratti:" & StringaNumeri(r3) & " Punteggio realizzato: " & CStr(quantigiusti3(n)) & " " & DataEstrazione(n + 4)
Scrivi "I Numeri Estratti:" & StringaNumeri(r4) & " Punteggio realizzato: " & CStr(quantigiusti4(n)) & " " & DataEstrazione(n + 5)
Scrivi "I Numeri Estratti:" & StringaNumeri(r5) & " Punteggio realizzato: " & CStr(quantigiusti5(n)) & " " & DataEstrazione(n + 6)
Scrivi "I Numeri Estratti:" & StringaNumeri(r6) & " Punteggio realizzato: " & CStr(quantigiusti6(n)) & " " & DataEstrazione(n + 7)
Scrivi "I Numeri Estratti:" & StringaNumeri(r7) & " Punteggio realizzato: " & CStr(quantigiusti7(n)) & " " & DataEstrazione(n + 8)
Scrivi "I Numeri Estratti:" & StringaNumeri(r8) & " Punteggio realizzato: " & CStr(quantigiusti8(n)) & " " & DataEstrazione(n + 9)
End If
Scrivi "===================================================="
End If
If MassimoV(qg) > 2 And MassimoV(r8) <> 0 Then c0 = c0 + 1 'casi positivi
End If
If MassimoV(qg) = 6 And MassimoV(r8) <> 0 Then a0 = a0 + 1 End If 'casi negativi
If IndiceMensile(n + 1) = 2 And MassimoV(r8) <> 0 Then b0 = b0 + 1 End If 'casi giocabili
If MassimoV(qg) > 5 Then d0 = d0 + 1 End If
Next
ColoreTesto 2
Scrivi " Estrazione di riferimento: Prima del Mese.",1
ColoreTesto 1
Scrivi "Casi Giocabili: " & b0,1
Scrivi "Casi positivi: " & c0,1
Scrivi "Casi negativi: " & b0 - c0,1'
ColoreTesto 2
End Sub

' Funzione di controllo su 8 uscite
Dim qg(10)
Function quantigiusti(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 1,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti = giusti
End Function

Function quantigiusti1(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 2,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti1 = giusti
End Function

Function quantigiusti2(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 3,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti2 = giusti
End Function

Function quantigiusti3(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 4,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti3 = giusti
End Function

Function quantigiusti4(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 5,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti4 = giusti
End Function

Function quantigiusti5(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 6,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti5 = giusti
End Function

Function quantigiusti6(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 7,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
'Next
Next
quantigiusti6 = giusti
End Function

Function quantigiusti7(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 8,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti7 = giusti
End Function

Function quantigiusti8(n)
Dim giusti,s,es,fin
For i = 1 To 6
s = EstrattoSE(n + 9,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
End If
Next
Next
quantigiusti8 = giusti
End Function

 

[francoaltura]

GRAZIEEEEE!!! funziona benissimo. Ora posso studiare gli esiti del listato grazie al tuo aiuto.

 

[Alien.]

GRAZIEEEEE!!! funziona benissimo. Ora posso studiare gli esiti del listato grazie al tuo aiuto.

funziona benissimo ? non da nessun risultato , quindi controlli a mano ?