Aiuto per Script

[salvo14]

Buongiorno, gentilmente mi potete aiutare con il seguente Script che mi sta facendo impazzire?
Lo Script deve calcolare la previsione all'ultima estrazione mensile. Grazie

Sub Main() ColoreTesto 2
Scrivi

Scrivi
ColoreTesto 0
Dim ruote(2)
Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5)
poste(2) = 1
klp = 7
If IsUltimaDelMese(es) Then

ruote(1) = 9
ruote(2) = 10


ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"°")
ColoreTesto 0
t1(1) = Fuori90(Estratto(es,3,3) + 20)
ImpostaGiocata 1,t1,ruote,poste,klp
t2(1) = Fuori90(Estratto(es,3,3) + 20)
t2(2) = 1
ImpostaGiocata 2,t2,ruote,poste,klp
t3(1) = Fuori90(Estratto(es,3,3) + 20)
t3(2) = 12
ImpostaGiocata 3,t3,ruote,poste,klp
t4(1) = Fuori90(Estratto(es,3,3) + 20)
t4(2) = 18
ImpostaGiocata 4,t4,ruote,poste,klp
t5(1) = Fuori90(Estratto(es,3,3) + 20)
t5(2) = 22
ImpostaGiocata 5,t5,ruote,poste,klp
t6(1) = Fuori90(Estratto(es,3,3) + 20)
t6(2) = 35
ImpostaGiocata 6,t6,ruote,poste,klp
t7(1) = Fuori90(Estratto(es,3,3) + 20)
t7(2) = 46
ImpostaGiocata 7,t7,ruote,poste,klp
Gioca es,1
End If
Scrivi
ScriviResoconto
End Sub

 

[toon]

Ho aggiunto quante estrazioni analizzare, guarda se Ti va bene:

Anticipazione (Spoiler)

Sub Main() ColoreTesto 2
Scrivi
Scrivi
ColoreTesto 0
Dim ruote(2)
Dim t1(5): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim t7(3): Dim poste(5)
poste(2) = 1
y = InputBox("Quante estrazioni di ricerca?",,200)
klp = 7
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
ruote(1) = 9
ruote(2) = 10
'---
ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 7:Scrivi String(100,"°")
ColoreTesto 0
t1(1) = Fuori90(Estratto(es,3,3) + 20)
ImpostaGiocata 1,t1,ruote,poste,klp
t2(1) = Fuori90(Estratto(es,3,3) + 20)
t2(2) = 1
ImpostaGiocata 2,t2,ruote,poste,klp
t3(1) = Fuori90(Estratto(es,3,3) + 20)
t3(2) = 12
ImpostaGiocata 3,t3,ruote,poste,klp
t4(1) = Fuori90(Estratto(es,3,3) + 20)
t4(2) = 18
ImpostaGiocata 4,t4,ruote,poste,klp
t5(1) = Fuori90(Estratto(es,3,3) + 20)
t5(2) = 22
ImpostaGiocata 5,t5,ruote,poste,klp
t6(1) = Fuori90(Estratto(es,3,3) + 20)
t6(2) = 35
ImpostaGiocata 6,t6,ruote,poste,klp
t7(1) = Fuori90(Estratto(es,3,3) + 20)
t7(2) = 46
ImpostaGiocata 7,t7,ruote,poste,klp
Gioca es,1
End If
Next
Scrivi
ScriviResoconto
End Sub

 

[salvo14]

Grazie, sei stato bravissimo funziona a meraviglia. Grazie ancora stavo impazzendo, la verità e che nella vita uno dovrebbe sapere fare e capire tutto!! ma purtroppo non è così almeno per me.

 

[toon]

Se sapessimo e capissimo tutto saremmo degli dei...
Anzi probabilmente meglio...