'http://lotto-mery5-e-claufont.forumfree.it/?t=61887338
ColoreTesto 2 :Scrivi String(37,32)&"AMBO DISTANZA 33 BY SALVATORE NICOSIA ",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5),poste1(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
est=InputBox("Quante estrazioni vuoi analizzare?","AMBO DISTANZA 33 BY SALVATORE NICOSIA - ",50)
k=InputBox("Quanti colpi di gioco?","AMBO DISTANZA 33 BY SALVATORE NICOSIA - ",5)
fin=EstrazioneFin
ini=fin-est
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n5=Distanza(n1,n2)
If n5=33 Then
a=Fuori90(90+Minimo(n1,n2)-33) 'ambata
b=90-a 'ambata
c=Abs(a-b)-1
d=Fuori90(Abs(a-b)+1)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo Distanza 33 < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruota(1)=r1:ruote(1)=11:co=0
nu1(1)=a
nu1(2)=b
ImpostaGiocata 1 ,nu1,ruota,posta,k
nu2(1)=a
nu2(2)=c
ImpostaGiocata 2 ,nu2,ruote,poste,k
nu2(1)=a
nu2(2)=d
ImpostaGiocata 3 ,nu2,ruote,poste,k
nu2(1)=b
nu2(2)=c
ImpostaGiocata 4 ,nu2,ruote,poste,k
nu2(1)=b
nu2(2)=d
ImpostaGiocata 5 ,nu2,ruote,poste,k
nu3(1)=a
nu3(2)=b
nu3(3)=c
nu3(4)=d
ImpostaGiocata 6 ,nu3,ruota,poste2,k
Gioca es
End If
'End If
Next:Next:Next
Next':Next:Next':next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32)&"AMBO DISTANZA 33 BY SALVATORE NICOSIA ",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub