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.
Sub main()
'Metodo proposto da Armando59: unire due numeri di estrazioni diverse in un unico ambo
'esempio: ultima mese, prima di bari +59
'prima del mese, prima di bari +39
'script Cinzia27)
Dim n1(2)
Dim ru1(1)
Dim poste(2)
poste(1)=1
poste(2)=1
For es = EstrazioneFin-1000 To EstrazioneFin
If Indicemensile(es+1)=1 Then
r1=1
durata=13
ru1(1)=r1
Scrivi "-----------------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "&SiglaRuota(r1)&" "&StringaEstratti(es,r1)
Scrivi DataEstrazione(es+1)&" "&SiglaRuota(r1)&" "&StringaEstratti(es+1,r1)
'--------------------------------------------------
a1=Fuori90(Estratto(es,r1,1)+59)
a2=Fuori90(Estratto(es+1,r1,1)+39)
n1(1)=a1
n1(2)=a2
ImpostaGiocata 1,n1,ru1,poste,durata,2
Gioca es
End If
Next
ScriviResoconto
End Sub
Salve , per due colpi proviamo a Tutte :Ciao a tutti
volevo chiedere se era possibile rendere piu' performante il gia' ottimo listato
con l'introduzione di una "funzione" che al posto dei fissi 59 e 39 andrebbe
a ricalcolare ogni mese gli adattatori piu' ritardati per la ruota la posizione considerati
ho fatto qualche prova con spaziometria/metodi/statistica adattatori e sembra interessante.
saluti e buon proseguimento
Ciao, Aldinobis. In pratica gli addendi più ritardatari? Non so se sono in grado di farlo.Ciao a tutti
volevo chiedere se era possibile rendere piu' performante il gia' ottimo listato
con l'introduzione di una "funzione" che al posto dei fissi 59 e 39 andrebbe
a ricalcolare ogni mese gli adattatori piu' ritardati per la ruota la posizione considerati
ho fatto qualche prova con spaziometria/metodi/statistica adattatori e sembra interessante.
saluti e buon proseguimento