ciao dj ho costruito questo script che calcola all'ultima del mese
oggi aggiornando L8 mi spunta la previsione con la data sbagliata
daresti uno sguardo?
Sub main()
Dim ruote(10)
Dim ruot(1)
Dim numeri1(2)
Dim numeri2(2)
Dim numeri3(2)
Dim numeri4(6)
Dim poste(5)
Dim posta(5)
Dim post(5)
'poste(1)=1
poste(2)=1
posta(2)=1
post(2)=1
post(3)=0.5
ruote(1)=3
ruote(2)=12
ruot(1)=11
ini=10779
For n=ini To EstrazioneFin
If IndiceMensile(n+1)=1 Then
Scrivi String(58,"-")
ColoreTesto 2
'Scrivi DataEstrazione(n,1)&" [ "&SiglaRuota(1)&" - "&stringaestratti(n,1)&" ]"
numeri1(1)=Fuori90(Estratto(n,3,3)+51)
numeri1(2)=Fuori90(Estratto(n,4,3)+10)
ImpostaGiocata 1,numeri1,ruote,poste,16,0
ImpostaGiocata 2,numeri1,ruot,posta,16,0
numeri2(1)=Fuori90(Estratto(n,3,4)+77)
numeri2(2)=Fuori90(Estratto(n,5,2)+76)
ImpostaGiocata 3,numeri2,ruote,poste,16,0
ImpostaGiocata 4,numeri2,ruot,posta,16,0
numeri3(1)=Fuori90(Estratto(n,4,4)+35)
numeri3(2)=Fuori90(Estratto(n,8,2)+15)
ImpostaGiocata 5,numeri3,ruote,poste,16,0
ImpostaGiocata 6,numeri3,ruot,posta,16,0
numeri4(1)=Fuori90(Estratto(n,3,3)+51)
numeri4(2)=Fuori90(Estratto(n,4,3)+10)
numeri4(3)=Fuori90(Estratto(n,3,4)+77)
numeri4(4)=Fuori90(Estratto(n,5,2)+76)
numeri4(5)=Fuori90(Estratto(n,4,4)+35)
numeri4(6)=Fuori90(Estratto(n,8,2)+15)
ImpostaGiocata 7,numeri4,ruote,post,16,0
ImpostaGiocata 8,numeri4,ruot,post,16,0
Gioca n
End If
Next
ScriviResoconto
End Sub
la nuova previsione deve avvenire all'ultima del mese , perchè me la fa ora? guarda
mar 29.09.2026 [10935]
G 1: A 28.18 Fi Nz 11/16
A 18.28 su Nz 7° colpo [10942/10.10.2026]
in corso (11° su 16)
G 2: A 28.18 Tu 11/16
in corso (11° su 16)
G 3: A 01.49 Fi Nz 11/16
in corso (11° su 16)
G 4: A 01.49 Tu 11/16
in corso (11° su 16)
G 5: A 54.10 Fi Nz 11/16
in corso (11° su 16)
G 6: A 54.10 Tu 11/16
in corso (11° su 16)
G 7: AT 28.18.01.49.54.10 Fi Nz 11/16
A 18.01.28 su Nz 7° colpo [10942/10.10.2026]
T 18.01.28 su Nz 7° colpo [10942/10.10.2026]
in corso (11° su 16)
G 8: AT 28.18.01.49.54.10 Tu 11/16
A 10.18 su Tu (Pa) 6° colpo [10941/09.10.2026]
A 28.01 su Tu (To) 10° colpo [10945/16.10.2026]
in corso (11° su 16)
----------------------------------------------------------
sab 17.10.2026 [10946]
G 1: A 34.80 Fi Nz 0/16
n.i. (16 colpi)
G 2: A 34.80 Tu 0/16
n.i. (16 colpi)
G 3: A 40.35 Fi Nz 0/16
n.i. (16 colpi)
G 4: A 40.35 Tu 0/16
n.i. (16 colpi)
G 5: A 36.89 Fi Nz 0/16
n.i. (16 colpi)
G 6: A 36.89 Tu 0/16
n.i. (16 colpi)
G 7: AT 34.80.40.35.36.89 Fi Nz 0/16
n.i. (16 colpi)
G 8: AT 34.80.40.35.36.89 Tu 0/16
n.i. (16 colpi)
mi spieghi cosa sbaglio? grazie
