HTML
Sub main()
Dim nu1(1),nu2(2),nu3(3),ruote(2),ruota(1),posta(1),poste(2),post(3),num(2)
posta(1)=5:poste(2)=3:post(2)=3:post(3)=3
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8260) '7553 metodo
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "ambo ripetuto di p_carta (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 Then
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
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
n1=Fuori90(a+b)'ambata
n2=b 'abb
n3=Fuori90(n2+10) 'abb
nu1(1)=n1
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1)=n1:nu2(2)=n2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k 'tutte
nu2(2)=n3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k 'tutte
nu3(1)=n1:nu3(2)=n2:nu3(3)=n3
co=co+1
ImpostaGiocata co,nu3,ruote,post,k
co=co+1
ImpostaGiocata co,nu3,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 p_carta (scritp by maxma62)",1
End Sub
