Sub Main()
Scrivi " Ad ogni estrazione sommare i primi estratti di bari milano venezia + il Vertibile * di fata65 *",1
Scrivi
Dim n(2),ruota(3),posta(1)
posta(1) = 1
ruota(1) = 1
ruota(2) = 5
ruota(3) = 10
k = 9
ini = EstrazioneIni + 8478
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab ini,fin,es
a = Estratto(es,1,1)
b = Estratto(es,5,1)
c = Estratto(es,10,1)
n(1) = Fuori90(a + b + c)
n(2) = Vert(n(1))
co = co + 1
Scrivi String(70,"°") & " Caso n°" & co,1
ColoreTesto 2
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " 1°Estratto " & a,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(5) & " " & StringaEstratti(es,5) & " 1°Estratto " & b,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10) & " 1°Estratto " & c,1
Scrivi "Somma dei 1° Numeri Estratti " & Format2(n(1)) & " - Vertibile " & Format2(n(2)),1
co = co + 1
ColoreTesto 0
Scrivi String(70,"°")
ImpostaGiocata 1,n,ruota,posta,k,1
Gioca es,True,,1
Next
ScriviResoconto
End Sub
sostituire i primi estratti con i quinti chi mi aiuta grazieeeeeeeeeeeeeeeeeeeeeeee
Scrivi " Ad ogni estrazione sommare i primi estratti di bari milano venezia + il Vertibile * di fata65 *",1
Scrivi
Dim n(2),ruota(3),posta(1)
posta(1) = 1
ruota(1) = 1
ruota(2) = 5
ruota(3) = 10
k = 9
ini = EstrazioneIni + 8478
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab ini,fin,es
a = Estratto(es,1,1)
b = Estratto(es,5,1)
c = Estratto(es,10,1)
n(1) = Fuori90(a + b + c)
n(2) = Vert(n(1))
co = co + 1
Scrivi String(70,"°") & " Caso n°" & co,1
ColoreTesto 2
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " 1°Estratto " & a,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(5) & " " & StringaEstratti(es,5) & " 1°Estratto " & b,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(10) & " " & StringaEstratti(es,10) & " 1°Estratto " & c,1
Scrivi "Somma dei 1° Numeri Estratti " & Format2(n(1)) & " - Vertibile " & Format2(n(2)),1
co = co + 1
ColoreTesto 0
Scrivi String(70,"°")
ImpostaGiocata 1,n,ruota,posta,k,1
Gioca es,True,,1
Next
ScriviResoconto
End Sub
sostituire i primi estratti con i quinti chi mi aiuta grazieeeeeeeeeeeeeeeeeeeeeeee