CODICE
Sub main()
Dim ruote(10),ruota(1)
Dim nu1(2),nu2(2)
Dim posta(2),poste(2),post(5)
Dim pstd(10)
post(2)=1.5:post(3)=1.5:post(4)=1.5:post(5)=1.5
posta(1)=2:poste(2)=3
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8335)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "i gemelli di belgius (script by maxma62)",1
Scrivi String(70,"="),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 12
If r1=11 Then r1=12
For p1=1 To 5
a=Estratto(es,r1,p1)
If Gemello(a) Then
casi=casi+1:Scrivi String(52,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" - "&_
StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&" ] in "&(p1)&"^ pos. "
Scrivi String(56,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:cg=0
If a=22 Then n1=11:n2=19
If a=33 Then n1=12:n2=21
If a=44 Then n1=13:n2=31
If a=55 Then n1=14:n2=41
If a=66 Then n1=15:n2=51
If a=77 Then n1=16:n2=61
If a=88 Then n1=17:n2=71
nu1(1)=n1:nu1(2)=n2
cg=cg+1
ImpostaGiocata cg,nu1,ruote,posta,k,1
'--------------------------------------------
If p1=1 Or p1=3 Or p3=5 Then 'giocata solo pos. 1/3/5
nu1(1)=n1:nu1(2)=n2
pstd(p2+6)=1
cg=cg+1
ImpostaGiocata cg,nu1,ruote,pstd,k,0
Erase pstd
nu1(1)=n1:nu1(2)=n2
pstd(p2+8)=1
cg=cg+1
ImpostaGiocata cg,nu1,ruote,pstd,k,0
Erase pstd
nu1(1)=n1:nu1(2)=n2
pstd(p2+10)=1
cg=cg+1
ImpostaGiocata cg,nu1,ruote,pstd,k,0
Erase pstd
End If
'---------------------------------------------
If p1=2 Or p1=4 Then 'giocata solo pos. 2/4
nu1(1)=n1:nu1(2)=n2
pstd(p2+7)=1
cg=cg+1
ImpostaGiocata cg,nu1,ruote,pstd,k,0
Erase pstd
nu1(1)=n1:nu1(2)=n2
pstd(p2+9)=1
cg=cg+1
ImpostaGiocata cg,nu1,ruote,pstd,k,0
Erase pstd
End If
'---------------------------------------------
cg=cg+1
ImpostaGiocata cg,nu1,ruote,poste,k,0
cg=cg+1
ImpostaGiocata cg,nu1,ruota,poste,k,0 'tutte
Gioca es
End If
Next:Next:Next
Scrivi String(52,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "i gemelli di belgius (script by maxma62)",1
End Sub
