CODICE
Sub main()
Dim nu(5),nn(5),nf(9),nfg(9)
Dim ru(2),ruota(1),n(2),n1(2),posta(1),post(1),pos(1),poste(2)
Dim posta1(6),posta2(7),posta3(8),posta4(9),posta5(10)
poste(2)=2
posta(1)=1:posta1(6)=5:posta2(7)=5:posta3(8)=5:posta4(9)=5:posta5(10)=5
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8204)
k=InputBox ("per quanti colpi?","colpi di gioco",7)
ini=ce
fin=EstrazioneFin
Scrivi "quelli delle triple si ripetono di morenish mod 2_occhi (script by maxma62)",1
Scrivi String(83,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-re)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 9
For i=1 To 9
nf(i)=0
Next
For p1=1 To 5
a=Estratto(es,r1,p1): nf(Figura(a))=nf(Figura(a))+1 : nu(p1)=Figura(a)
Next
OrdinaMatrice nf,-1
If nf(1)<2 Then
'For r2=r1+1 To 10
r2=r1+1 'ruote consec
For i=1 To 9
nfg(i)=0
Next
For p2=1 To 5
b=Estratto(es,r2,p2): nfg(Figura(b))=nfg(Figura(b))+1 : nn(p2)=Figura(b)
Next
OrdinaMatrice nfg,-1
If nfg(1)<2 Then
For p1=1 To 5
a=Estratto(es,r1,p1)
For p2=1 To 5
b=Estratto(es,r2,p2)
'If Distanza(Figura(a),Figura(b))=3 And p1=p2 Then 'fig rad iso
If Distanza(Figura(a),Figura(b))=3 Then 'fig rad
casi=casi+1: Scrivi String(72,"=")&" by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r1)&" - "&_
StringaEstratti(es,r1)&" ] [ "&Format2(a)&" ] fig. "&figura(a)&" in "&(p1)&"^ pos. ("&_
StringaNumeri(nu)&")"
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r2)&" - "&_
StringaEstratti(es,r2)&" ] [ "&Format2(b)&" ] fig. "&figura(b)&" in "&(p2)&"^ pos. ("&_
StringaNumeri(nn)&")"
Scrivi String(70,"-")&" caso n° "&(casi)
ru(1)=r1:ru(2)=r2:ruota(1)=11:cg=0
If p1=1 Then post(x)=posta1
If p1=2 Then post(x)=posta2
If p1=3 Then post(x)=posta3
If p1=4 Then post(x)=posta4
If p1=5 Then post(x)=posta5
If p2=1 Then pos(x)=posta1
If p2=2 Then pos(x)=posta2
If p2=3 Then pos(x)=posta3
If p2=4 Then pos(x)=posta4
If p2=5 Then pos(x)=posta5
If p1<>p2 Then
n1(1)=a:n1(2)=b
cg=cg+1
ImpostaGiocata cg,n1,ru,posta,k
cg=cg+1
ImpostaGiocata cg,n1,ru,post(x),k
cg=cg+1
ImpostaGiocata cg,n1,ru,pos(x),k
cg=cg+1
ImpostaGiocata cg,n1,ru,poste,k
cg=cg+1
ImpostaGiocata cg,n1,ruota,poste,k
End If
Gioca es
If p1=p2 Then
n1(1)=a:n1(2)=b
cg=cg+1
ImpostaGiocata cg,n1,ru,posta,k
cg=cg+1
ImpostaGiocata cg,n1,ru,post(x),k
cg=cg+1
ImpostaGiocata cg,n1,ru,poste,k
End If
Gioca es
End If
Next : Next
End If
'Next 'ruote consec
End If
Next : Next
ScriviResoconto
End Sub
