puntoevirgola
Member
@
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Ora si comincia a capire......quote:Originally posted by puntoevirgola
Questo è come faccio io:
creo l' archivio della ruota che mi interessa con il seguente script:
Codice:Sub Main() Dim n(5) Dim nn(5) r = 1 ini = EstrazioneFin - 300 For es = ini To EstrazioneFin a1 = Estratto(es,r,1) a2 = Estratto(es,r,2) a3 = Estratto(es,r,3) a4 = Estratto(es,r,4) a5 = Estratto(es,r,5) Scrivi DataEstrazione(es) & "|",0,0 For p = 1 To 5 a = Estratto(es - 1,r,p) n(1) = Fuori90(90 + a1 - a) n(2) = Fuori90(90 + a2 - a) n(3) = Fuori90(90 + a3 - a) n(4) = Fuori90(90 + a4 - a) n(5) = Fuori90(90 + a5 - a) Scrivi StringaNumeri(n) & "|",0,0 Next For p = 1 To 5 a = Estratto(es - 1,r,p) g = Estratto(EstrazioneFin,r,p) nn(1) = Fuori90(90 + a1 - a + g) nn(2) = Fuori90(90 + a2 - a + g) nn(3) = Fuori90(90 + a3 - a + g) nn(4) = Fuori90(90 + a4 - a + g) nn(5) = Fuori90(90 + a5 - a + g) Scrivi StringaNumeri(nn) & "|",0,0 Next Scrivi "00.00.00.00.00|",0,1 Next End Sub
Istallato l' archivio della ruota scelta
nelle prime 5 ruote ho i 25 adattatori prodotti
dalle cinque posizioni con l'estrazione precedente
posizione 1 bari
posizione 2 cagliari
posizione 3 firenze
....
.....
Da napoli a venezia ho gli adattatori CONVERTITI all' ultima estrazione
Tabellone analitico degli adattatori della ruota di Bari
Uploaded with ImageShack.us