CODICE
Sub main()
Dim ruote(4),ruota(4),nu(1),nu1(3),posta(1),poste(3)
posta(1)=1
poste(2)=1
poste(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",5009) '8309
k=InputBox ("per quanti colpi?","colpi di gioco",20)
ini=ce
fin=EstrazioneFin
Scrivi " Moto rettilineo numeri uguali P.Robbe (script by maxma62)modificato da lones -occhidigiada58",1
Scrivi String(94,"="),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 8
For p1=1 To 5
a=Estratto (es-2,r1,p1)
b=Estratto (es-1,r1,p1)
c=Estratto (es,r1,p1)
If a=b And b=c Then
casi=casi+1:Scrivi String(76,"=")&" script by maxma62",1
Scrivi DataEstrazione(es-2,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es-2,r1)&" ] [ "&_
Format2(a)&" ] in "&(p1)&""
Scrivi DataEstrazione(es-1,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es-1,r1)&" ] [ "&_
Format2(b)&" ] in "&(p1)&""
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(c)&" ] in "&(p1)&""
Scrivi String(83,"-")&" caso n° "&(casi)
Scrivi String(94,"-")
ruote(1)=11-r1:co=0
nu(1)=Fuori90((2*a)+45)
co=co+1
ImpostaGiocata 1,nu,ruote,posta,k,0
nu1(1)=Fuori90((2*a)+45)
nu1(2)=(90-(Fuori90(2*a)))
nu1(3)=DiametraleD (nu1(2))
co=co+1
ImpostaGiocata 2,nu1,ruote,poste,k,0
Gioca es
End If
Next:Next:next
Scrivi String(76,"=")&" script by maxma62",1
ScriviResoconto
Scrivi " Moto rettilineo numeri uguali P.Robbe (script by maxma62) modificato da lones-occhidigiada58",1
End Sub
