Ragazzi vi posto un metodo soprattutto di ambata di mia creazione grazie allo script fatto da DjNomade e genlotto
'x Rabberto
'http://forum.lottoced.com/topic.asp?TOPIC_ID=136702
'Genlotto 28/08/2011
Sub main()
Dim ruota(2),posta(1),poste(3)
Dim nu(1),nu1(4)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",500))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0
fin=EstrazioneFin
ini=fin-ee
'--------------------------------
For es=ini To fin
Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ by Genlotto ]"
For r1=1 To 10
For r2=r1+1 to 11
If r2=11 Then r2=12
For p1=1 To 4
2=p1+1
'For p2=p1+1 To 5
a=Estratto(es,r1,p1) :b=Estratto(es,r1,p2) :so1=Fuori90(a+b)
c=Estratto(es,r2,p1) :d=Estratto(es,r2,p2) :so2=Fuori90(c+d)
dc1=Distanza(a,b) :dm1=Abs(a-b) :dc2=Distanza(c,d) :dm2=Abs(c-d)
vr1=Fuori90(dc1+dc2) :vr2=Abs(dm1-dm2)
am=Fuori90(so1+so2)
If Distanza(so1,so2)=30 And dc1=dm1 And dc2=dm2 And (am=vr1 Or am=vr2) Then
ab1=Fuori90(vr1+vr2) :ab2=Fuori90(ab1+30) :ab3=Fuori90(ab1+60)
casi=casi+1:Scrivi String(72,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] [ "&Format2(a)&"."&Format2(b)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_
" ] [ "&Format2(c)&"."&Format2(d)&" in "&(p1)&"/"&p2&" ^ pos. ] So "&so2
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm1)&"/"&Format2(dc1)&" su "&SiglaRuota(r1)
Scrivi "Distanza Matematica/Ciclometrica "&Format2(dm2)&"/"&Format2(dc2)&" su "&SiglaRuota(r2)
Scrivi Space(20)&"Verifica +|- "&Format2(vr1)&"|"&Format2(vr2)&" >["&ab1&"]"
Scrivi "Ambata "&Format2(am)&" abb. "&ab1&"."&ab2&"."&ab3
Scrivi String(61,"-")&" caso n° "&(casi)
ruota(1)=r1 :ruota(2)=r2
posta(1)=1
oste(2)=1
oste(3)=1
nu(1)=am
ImpostaGiocata 1,nu,ruota,posta,k,1
nu1(1)=am :nu1(2)=ab1
nu1(3)=ab2 :nu1(4)=ab3
ImpostaGiocata 2,nu1,ruota,poste,k
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
State attenti a controllare se l'ambata sulle due ruote non abbia un ritardo di 20 - 30 estrazioni , altrimenti non va giocata , ciao .