Ho scritto questo script che calcola 5 ambate ognuna delle quali è una somma di due estratti di una particolare estrazione, tuttavia lo script non funziona probabilmente per i troppi cicli For.
Chiedo se qualcuno conosce un modo alternativo di scrivere lo script o aggiustare qualcosa che ho sbagliato e renderlo funzionale, grazie.
Chiedo se qualcuno conosce un modo alternativo di scrivere lo script o aggiustare qualcosa che ho sbagliato e renderlo funzionale, grazie.
Codice:
Sub Main
Dim aNum(10),r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10
Dim idEstr
Dim Inizio
Dim Fine
Dim nDaFare
Dim nFatte
Dim Poste(10)
Dim idGiocata
Dim n
Dim ruote(12)
r6 = ScegliRuota
r7 = ScegliRuota
r8 = ScegliRuota
r9 = ScegliRuota
r10 = ScegliRuota
Inizio = EstrazioneIni
Fine = EstrazioneFin
Call Impostaruote(ruote)
Call ImpostaPoste(Poste)
nDaFare = Fine -(Inizio - 1)
For p1 = 1 To 5
For p2 = 1 To 5
For p3 = 1 To 5
For p4 = 1 To 5
For p5 = 1 To 5
For p6 = 1 To 5
For p7 = 1 To 5
For p8 = 1 To 5
For p9 = 1 To 5
For p10 = 1 To 5
For r1 = 1 To 12
If r1 <> 11 Then
For r2 = 1 To 12
If r2 <> 11 Then
For r3 = 1 To 12
If r3 <> 11 Then
For r4 = 1 To 12
If r4 <> 11 Then
For r5 = 1 To 12
If r5 <> 11 Then
For idEstr = Inizio To Fine
If IndiceMensile(idEstr) = 5 Then
n = False
aNum(1) = Estratto(idEstr,r1,p1)
aNum(2) = Estratto(idEstr,r2,p2)
aNum(3) = Estratto(idEstr,r3,p3)
aNum(4) = Estratto(idEstr,r4,p4)
aNum(5) = Estratto(idEstr,r5,p5)
aNum(6) = Estratto(idEstr,r6,p6)
aNum(7) = Estratto(idEstr,r7,p7)
aNum(8) = Estratto(idEstr,r8,p8)
aNum(9) = Estratto(idEstr,r9,p9)
aNum(10) = Estratto(idEstr,r10,p10)
ReDim Ambata(5)
Ambata(1) = Fuori90(aNum(1) + aNum(2))
Ambata(2) = Fuori90(aNum(3) + aNum(4))
Ambata(3) = Fuori90(aNum(5) + aNum(6))
Ambata(4) = Fuori90(aNum(7) + aNum(8))
Ambata(5) = Fuori90(aNum(9) + aNum(10))
idGiocata = 0
idGiocata = idGiocata + 1
Call VerificaEsito(Ambata,ruote,idEstr + 1,5,2)
If VerificaEsito(Ambata,ruote,idEstr + 1,5,2) = True Then
Scrivi(p1 & NomeRuota(r1) & " + " & p2 & NomeRuota(r2))
Scrivi(p3 & NomeRuota(r3) & " + " & p4 & NomeRuota(r4))
Scrivi(p5 & NomeRuota(r5) & " + " & p6 & NomeRuota(r6))
Scrivi(p7 & NomeRuota(r7) & " + " & p8 & NomeRuota(r8))
Scrivi(p9 & NomeRuota(r9) & " + " & p10 & NomeRuota(r10))
Call ImpostaGiocata(idGiocata,Ambata,ruote,Poste,2)
Call Gioca(idEstr,True,,2,,True)
Else
n = True
End If
End If
If n = True Then
Exit For
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
nFatte = nFatte + 1
Call AvanzamentoElab(0,nDaFare,nFatte)
Call Messaggio("Estrazioni elaborate : " & nFatte)
If ScriptInterrotto Then
Exit For
End If
Next
End Sub
Sub ImpostaPoste(vetP)
vetP(5) = 1
End Sub
Sub Impostaruote(r)
r(1) = 1
r(2) = 2
r(3) = 3
r(4) = 4
r(5) = 5
r(6) = 6
r(7) = 7
r(8) = 8
r(9) = 9
r(10) = 10
r(12) = 12
End Sub
