Sub main()
Dim nu1(2),nu2(2),nu3(2),nu4(6),ruote(2)
Dim nu(6),uguali(2)
Dim posta(1),poste(2),post(5)
Dim num(2)
posta(1)=5:poste(2)=2:post(2)=3:post(3)=1.4:post(4)=0.5:post(5)=0.1
dis=CInt(InputBox("qual'è la distanza? ","distanza",36))
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",10)
k=CInt(InputBox("per quante estrazioni deve durare il gioco?","durata gioco",14))
scrivi"ambi distanza "&format2(dis)&" di pesciolina (list by maxma62)",1
ini=EstrazioneFin -rs 
fin=EstrazioneFin
For es =ini To fin:Messaggio "elab. estr.["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
d1=Distanza(a,b)
For r2=r1+1 To 10
For p3=1 To 4 
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
d2=Distanza(c,d)
If d1=d2 And d2=dis Then
nu(1)=Fuori90(a+b):nu(2)=Fuori90(c+d) 'somma orr
nu(3)=Fuori90(a+c):nu(4)=Fuori90(b+d) 'somma ver
nu(5)=Fuori90(a+d):nu(6)=Fuori90(b+c) 'somma dia
For i= 1 To 6
Next
For i= 1 To 5
For y=i+1 To 6
If nu(i)=nu(y) Then
uguali(1)=i : uguali(2)=y : ug=nu(i)
End If         
Next:Next
casi=casi+1:Scrivi String(80,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos. dist. "&(d1)
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos. dist. "&(d2)
Scrivi String(68,"-")&" caso n° " & casi
ruote(1)=r1:ruote(2)=r2:co=0
nu1(1)=ug:nu1(2)=Vert(ug):co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k,2
nu2(1)=ug:nu2(2)=a:co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,2
nu2(2)=b:co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,2
nu2(2)=c:co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,2
nu2(2)=d:co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,2
nu3(1)=Vert(ug):nu3(2)=a:co=co+1
ImpostaGiocata co,nu3,ruote,poste,k,2
nu3(2)=b:co=co+1
ImpostaGiocata co,nu3,ruote,poste,k,2
nu3(2)=c:co=co+1
ImpostaGiocata co,nu3,ruote,poste,k,2
nu3(2)=d:co=co+1
ImpostaGiocata co,nu3,ruote,poste,k,2
nu4(1)=ug:nu4(2)=Vert(ug)
nu4(3)=a:nu4(4)=b:nu4(5)=c:nu4(6)=d:co=co+1
ImpostaGiocata co,nu4,ruote,post,k
Gioca es 
End If
Next:Next:Next:Next:Next:Next:Next
ScriviResoconto
scrivi"ambi distanza "&format2(dis)&" di pesciolina (list by maxma62)",1
End Sub

citazione:

---

Inviato in origine da pico2005

Hai ragione Pesciolina basta non interrompere il conteggio al primo esito favorevole:

ImpostaGiocata 1,numeri,ruote,poste,9,1

questa istruzione la devi mettere così:

ImpostaGiocata 1,numeri,ruote,poste,9

senza l'uno finale

ok?

---

Per Pico...ok fatto

Altre domandine per Pico
1)come faccio per fare uscire negli esiti anche le ambate? qui vedo che mi da solo gli ambi e terni
2) vorrei che mi calcolasse 12 estrazioni e non 9
3) ho notato che alcune previsioni non le indica...per caso hai impostato solo gli ambi isotopi?

Eheheh ho finito....per ora....