CODICE
Sub main()
Dim nu1(2),nu2(6),ruote(2),ruota(1),posta(1),poste(2),post(4)
posta(1)=5:poste(2)=3:post(2)=3:post(3)=3:post(4)=3
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8340) '8213 metodo
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "ambo ripetuto di lino63 (scritp by maxma62)",1
Scrivi String(79,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione(es,1)
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 (p1=p3 And p2=p4) Then 'iso
If a=c And b=d Or a=d And b=c Then
n1=Figura(a):n2=Figura(b)
n3=Fuori90(n1&n2) '1° abb
n4=Decina(a):n5=Cadenza(a)
n6=Decina(b):n7=Cadenza(b)
n8=Abs(n4-n5):n9=Abs(n6-n7)
n10=Fuori90(n8&n9) '2° abb
n11=Fuori90(a+b) '1^ cap
n12=Fuori90(n3+n10) '2° cap
casi=casi+1:Scrivi String(68,"=")&" by maxma62",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)
Scrivi "figura "&format2(a)&" = "&(n1)
Scrivi "figura "&format2(b)&" = "&(n2)
Scrivi "unione = "&(n3)&" / 1° abb"
Scrivi "decina "&format2(a)&" = "&(n4)
Scrivi "cadenza "&format2(a)&" = "&(n5)
Scrivi "differenza = "&(n8)
Scrivi "decina "&format2(b)&" = "&(n6)
Scrivi "cadenza "&format2(b)&" = "&(n7)
Scrivi "differenza = "&(n9)
Scrivi "unione = "&(n10)&" / 2° abb"
Scrivi "somma numeri ambo = "&(n11)&" / 1° cap"
Scrivi "somma numeri abb = "&(n12)&" / 2° cap"
Scrivi String(79,"-")
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
nu1(1)=n11:nu1(2)=n12
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k 'tutte
nu2(1)=n11:nu2(2)=n12
nu2(3)=n3:nu2(4)=n10
co=co+1
ImpostaGiocata co,nu2,ruote,post,k
co=co+1
ImpostaGiocata co,nu2,ruota,post,k 'tutte
Gioca es
End If
'End If 'iso
Next:Next:Next:Next:Next:Next:Next
Scrivi String(68,"=")&" by maxma62",1
ScriviResoconto
Scrivi "ambo ripetuto di lino63 (scritp by maxma62)",1
End Sub
