CODICE
Sub main()
Dim nu1(2),nu2(6),num1(2),num2(2),num3(2),ruote(2),ruota(1),posta(1),poste(2),post(5)
posta(1)=5:poste(2)=3:post(2)=3:post(3)=3:post(4)=3:post(5)=3
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200) '7093 metodo
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "si gioca se lo stesso ambo è su 2 ruote di p_robbe (scritp by maxma62)",1
Scrivi String(85,"="),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 2
p2=p1+3
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
If Posizione(es,r1,a)=1 Then n1=Estratto(es,r1,5):n2=Estratto(es,r2,5)
If Posizione(es,r1,a)=2 Then n1=Estratto(es,r1,1):n2=Estratto(es,r2,1)
num1(1)=a:num1(2)=b
OrdinaMatrice num1
If Posizione(es,r1,a)=1 Then n3=Estratto(es,r1,2):n4=Estratto(es,r1,3):n5=Estratto(es,r2,2):n6=Estratto(es,r2,3)
If Posizione(es,r1,a)=2 Then n3=Estratto(es,r1,3):n4=Estratto(es,r1,4):n5=Estratto(es,r2,3):n6=Estratto(es,r2,4)
num2(1)=n3:num2(2)=n4
OrdinaMatrice num2
num3(1)=n5:num3(2)=n6
OrdinaMatrice num3
n7=Diametrale(num2(2))
n8=Diametrale(num3(2))
n9=Fuori90(n7+10)'abb
n10=Abs(n7-10)'abb
n11=Fuori90(n8+10)'abb
n12=Abs(n8-10)'abb
no1=Fuori90(num1(2)+n1) 'ambata 1
no2=Fuori90(num1(2)+n2) 'ambata 2
casi=casi+1:Scrivi String(74,"=")&" by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos. [ "&format2(n1)&" ] num. estr."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&_
" ] [ "&format2(c)&"."&format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos. [ "&format2(n2)&" ] num. estr."
Scrivi String(74,"-")&" caso n° " & casi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
nu1(1)=no1:nu1(2)=no2
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)=no1:nu2(2)=no2:nu2(3)=n9
nu2(4)=n10:nu2(5)=n11:nu2(6)=n12
co=co+1
ImpostaGiocata co,nu2,ruote,post,k
Gioca es
End If
End If 'iso
Next:
Next:
Next:Next:Next:Next
Scrivi String(74,"=")&" by maxma62",1
ScriviResoconto
Scrivi "si gioca se lo stesso ambo è su 2 ruote di p_robbe (scritp by maxma62)",1
End Sub
