Ecco per pesciolina.
Con questo listato puoi scegliere da dove partire con il controllo delle estrazioni e per quanto giocare cambiando il numero nell'inputbox. Se poi ti interessa, togliendo l'apice, puoi scegliere se vuoi anche le estrazioni con ambi non isotopi. Se vuoi anche la giocata su tutte togli l'apice nell'ultima giocata.
Sub main()
Dim nu1(1),nu2(2),nu3(4),ruote(2),ruota(1)
Dim n1(3),n2(3),posta(1),poste(2),post(4)
Dim num(2)
scrivi"ambo isotopo di pesciolina (list by maxma62)",1
posta(1)=5:poste(2)=2:post(2)=2:post(3)=0.8:post(4)=0.2
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",105)
k=CInt(InputBox("per quante estrazioni deve durare il gioco?","durata gioco",14))
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es =ini To fin:Messaggio "elab. estr.["&(es)&"] del " & DataEstrazione (es)
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If p3=p1 And p4=p2 Then 'isotopo <<< togliere per tutte le pos. anche end if alla fine
If a=c And b=d Or a=d And b=c Then
cn=0
For xx=1 To 5
u=Estratto (es,r1,xx)
If u<>a And u<>b Then
cn=cn+1
n1(cn)=u
End If
Next
cn=0
For xx=1 To 5
u=Estratto (es,r2,xx)
If u<>c And u<>d Then
cn=cn+1
n2(cn)=u
End If
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."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(68,"-")&" caso n° " & casi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
amb=Fuori90((a+b)*2) 'ambata
ab1=Fuori90(n1(1)+n2(1)):ab2=Fuori90(n1(2)+n2(2)):ab3=Fuori90(n1(3)+n2(3))
nu1(1)=amb
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1)=amb:nu2(2)=ab1:co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,2
nu2(2)=ab2:co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,2
nu2(2)=ab3:co=co+1
ImpostaGiocata co,nu2,ruote,poste,k,2
nu3(1)=amb:nu3(2)=ab1:nu3(3)=ab2:nu3(4)=ab3:co=co+1
ImpostaGiocata co,nu3,ruote,post,k
'co=co+1 '<<< giocata su tutte
'ImpostaGiocata co,nu3,ruota,post,k '<<< giocata su tutte
Gioca es
End If
End If 'isotopo <<< togliere per tutte le pos.
Next:Next:Next:Next:Next:Next:Next
ScriviResoconto
scrivi:ColoreTesto 1:scrivi"ambo isotopo di pesciolina (list by maxma62)",1
End Sub
bye,bye
X MAXMA62
Spedito - 08 ottobre 2008 : 15:53:10
