metodo andromeda richiesta rossonero

[lottopassion]

Codice: Seleziona tutto

Sub main()
Dim ruote(10)
Dim poste(10)
Dim numeri(10)
Dim casi
casi=CLng(InputBox ("Quante estrazioni vuoi analizzare? "))
For es= EstrazioneFin -casi To EstrazioneFin
For r1= 1 To 11
If r1=11 Then r1=12
For e1=1 To 4
e2=e1+1
n1=Estratto (es,r1,e1)
n2=Estratto(es,r1,e2)
If Distanza (n1,n2)=30 Then
n3=(n1+n2)/2
If Cadenza(n3) <> Cadenza(n1) Then n3=Fuori90(n3+45)
For r2=1 To 11
If Estratto (es,r2,e1)=n3 Or Estratto(es,r2,e2)=n3 Then
Erase poste
poste(1)=1
Erase numeri
If Estratto (es,r2,e1)=n3 Then
poste(5+e2)=1
numeri(1)=Fuori90(Estratto(es,r1,e1)+45)
numeri(2)=numeri(1)-Estratto(es,r2,e2)
If numeri(2)<1 Then numeri(2)=numeri(2)+90
End If
If Estratto (es,r2,e2)=n3 Then
poste(5+e1)=1
poste(1)=1
numeri(1)=Fuori90(Estratto(es,r1,e2)+45)
numeri(2)=numeri(1)-Estratto(es,r2,e1)
If numeri(2)<1 Then numeri(2)=numeri(2)+90
End If
Erase ruote
ruote(1)=r2
ImpostaGiocata 1,numeri,ruote,poste,15
Gioca es
End If

Next

End If

Next
Next
Next
ScriviResoconto


End Sub



[DjNomade]

Grazie lottopassion
pero' credo manchi un pezzo


For r2=1 To 11
If r2=11 Then r2=12 <----- questo

o sbaglio??

Ciauz

[lottopassion]

la ruota 11 è tutte invece io voglio testare la nazionale che per lo script è la 12.
saluti .

[rossonero]

CIAO A TUTTI, ringrazio per il listato sempre pronto a soddisfare le richieste. GRAZIE DI CUORE.
Approfitto dell'occasione per sapere perché collegandomi a Lottopasion.it mi da errore, quale è il nuovo indirizzo del sito.
Complimenti, ciao a presto

[lottopassion]

Non essere impaziente rossonero lo comunichero quando verrà il momento attualmente l indirizzo é www.lottopassion.net
saluti