Junior Member
- Group
- Member
- Posts
- 8
- Reputation
- 0
- Status
- Offline
|
|
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 chiedo il gentile aiuto di qualcuno che se ne intende per risolvere l'errore presente nel listato sopra citato che allego qui sotto:
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(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 = 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(n)
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(n)
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(n)
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(n)
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(n)
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(n)
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(n)
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(n)
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
GRAZIE!!!
|
|
.
.
