Aiuto per elaborare un script

[Roby]

ho trovato sul forum una raccolta di metodi di lottosenior ed in particolare mi ha colpito questo metodo
METODO -1
Prendiamo un'estrazione,
sottraiamo 1 ad ogni estratto
ricaviamo i vertibili.</u>
ho iniziato a fare una statistica a mano ruota per ruota ed estrazione dopo estrazione ma è troppo lunga e laboriosa
per favore qualcuno mi può aiutare ad elaborare uno script, in modo da analizzare e ridurre le ruote ecc.ecc.?
grazie

leosmania

 

[Thauk]

ciao, leosmania
se ho ben capito, si mette in gioco la cinquina dei vertibili...
controlla e fammi sapere se va bene.

Sub main()
Dim rt(1),pt(2),n(5),nr(5)

estr=InputBox("Quante estrazioni controllo?","Estrazioni",10)
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio(es)

For r=1 To 12
If r<>11 Then
n(1)=Fuori90(Estratto(es,r,1)+89)
n(2)=Fuori90(Estratto(es,r,2)+89)
n(3)=Fuori90(Estratto(es,r,3)+89)
n(4)=Fuori90(Estratto(es,r,4)+89)
n(5)=Fuori90(Estratto(es,r,5)+89)

rt(1)=r
pt(2)=1
k=12

nr(1)=Vert(n(1))
nr(2)=Vert(n(2))
nr(3)=Vert(n(3))
nr(4)=Vert(n(4))
nr(5)=Vert(n(5))
ImpostaGiocata 1,nr,rt,pt,k

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&"	Ruota: "& NomeRuota(r),1
Scrivi Space(12)&"Cinquina base		< "& StringaEstratti(es,r)&" >"
Scrivi Space(12)&"Cinquina dopo il -1	< "& StringaNumeri(n)&" >"
Scrivi Space(12)&"Cinquina vertibili	< "& StringaNumeri(nr)&" >",1
Scrivi Space(12)&String(58,"="),1
Scrivi

Gioca es
End If
Next
Next
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[leosmania]

Grazie sempre gentilissimo Thauk.

leosmania

 

[leosmania]

Grazie di nuovo Thauk, ho verificato mandato indietro di dieci anni la statistica, naturalmente si spende di più di quanto si vince. Essendo un neofita sono riuscito solo a fare il calcolo per dieci anni ma per 6 colpi, sono riuscito solo a cambiare in numero di estrazioni in gioco della previsione, mi chiedo volendola restringere per le ruote di FI,MI,Na cosa devo cambiare?
Grazie in anticipo.

leosmania

 

[Thauk]

ciao, ho modificato lo script inserendo 2 Inputbox così puoi scegliere anche la ruota e i colpi di gioco.

Sub main()
Dim rt(1),pt(2),n(5),nr(5)

estr=InputBox("Quante estrazioni controllo?","Estrazioni",100)
ruo=InputBox("Ruota di ricerca?","Ruota",1)
clp=InputBox("Quanti colpi di gioco?","Colpi",6)
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio(es)

r=ruo
n(1)=Fuori90(Estratto(es,r,1)+89)
n(2)=Fuori90(Estratto(es,r,2)+89)
n(3)=Fuori90(Estratto(es,r,3)+89)
n(4)=Fuori90(Estratto(es,r,4)+89)
n(5)=Fuori90(Estratto(es,r,5)+89)

rt(1)=r
pt(2)=1
k=clp

nr(1)=Vert(n(1))
nr(2)=Vert(n(2))
nr(3)=Vert(n(3))
nr(4)=Vert(n(4))
nr(5)=Vert(n(5))
ImpostaGiocata 1,nr,rt,pt,k

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&"	Ruota: "& NomeRuota(r),1
Scrivi Space(12)&"Cinquina base		< "& StringaEstratti(es,r)&" >"
Scrivi Space(12)&"Cinquina dopo il -1	< "& StringaNumeri(n)&" >"
Scrivi Space(12)&"Cinquina vertibili	< "& StringaNumeri(nr)&" >",1
Scrivi Space(12)&String(58,"="),1
Scrivi

Gioca es
Next
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.