Listato metodo TRIDUPLEX (richiesta flora)

[lottopassion]

Codice: Seleziona tutto

Sub main()
Dim triade(3)
Dim ruote(10)
Dim poste(5)
Dim numeri(5)
Dim nn1(2)
Dim nn2(2)
Dim terz(4,3)
Dim est,es,es2,r1,e1,r2,e2,c1,c2,n1,n2,e3,tt,dc1,dc2,cd1,cd2
Scrivi "Metodo TRIDUPLEX di Fabrizio Arrigoni in arte FABARRI"
est=CLng(InputBox ("Quante estrazioni vuoi esaminare"))
For es= EstrazioneFin -est To EstrazioneFin
For r1=1 To 9
For e1=1 To 5
n1=Estratto(es,r1,e1)
For es2= es To es-6 step-1
For r2=r1+1 To 10
For e2= 1 To 5
n2=Estratto(es2,r2,e2)
If n1=n2 Then
c1=0:c2=0
For e3= 1 To 5
If e3=e1+1 Or e3=e1-1 Then
c1=c1+1
nn1(c1)=Estratto(es,r1,e3)
End If
If e3=e2+1 Or e3=e2-1 Then
c2=c2+1
nn2(c2)=Estratto(es2,r2,e3)
End If
Next
tt=0
For k1=1 To 2
For k2=1 To 2
tt=tt+1
terz(tt,1)=n1
terz(tt,2)=nn1(k1)
terz(tt,3)=nn2(k2)
Next
Next
For k3= 1 To tt
dc1=Decina(terz(k3,2))
dc2=Decina(terz(k3,3))
cd1=Cadenza(terz(k3,2))
cd2=Cadenza(terz(k3,3))
If dc1+dc2=Decina(n1) And cd1+cd2=Cadenza(n1) Then
Erase ruote
ruote(1)=r1
ruote(2)=r2
Erase poste
poste(1)=1
Erase numeri
numeri(1)=n1
ImpostaGiocata 1,numeri,ruote,poste,10,1
Erase poste
poste(2)=1
numeri(2)=terz(k3,2)
numeri(3)=terz(k3,3)
ImpostaGiocata 2,numeri,ruote,poste,10,2
Gioca es


End if
next
End if
next
next
next
next
next
next
ScriviResoconto
End Sub


[DjNomade]

Grande Fabarri!!!!

Grazie!!!!!!!!!

[flora]

Metodo Triduplex o sia la triade incatenata del grande Fabarri
Un cript che feci fare tempo fa