script metodo mi/na aiuto

[Roby]

Ciao a tutti è un pò che seguo il forum ,devo fare i complimenti a tutti ,credo (non me ne vogliano gli altri)sia uno se non il miglior sito in circolazione,mi sono deciso a scrivere per chiedere se qualcuno può aiutarmi in uno script:
il 5°estratto di milano più il 1° estratto di napoli,il risultato è l'ambata con il suo vertibile.
A mano mi da discreti risultati.
Mi servirebbe come statistica
Grazie a tutti per l'attenzione.ciao
Marco

 

[Roby]

Ciao e benvenuto,
in quale estrazione mensile vuoi calcolare l'ambata?
su che ruota vuoi giocarla?
quanti colpi?
Ciao

Blackmore

 

[marco6474]

Ciao (intanto grazie)vorrei ricavare la previsione a ogni estrazione mensile,le ruote sono MI e NA ,per quattro colpi
ciao .
Marco

 

[Roby]

Marco non posso aiutarti, c'è un calcolo che non mi torna, mi dà sempre gli stessi numeri, sicuramente dimentico qualcosa,
Aspetta e vedrai che qualcuno te lo farà
Domanda: sei sicuro che 2 ambate su 2 ruote ad ogni estrazione ti fanno essere in attivo?
Ho dato un occhiata veloce e Per me (ripeto per me) è una follia, ma tu sei libero di fare ciò che credi

Blackmore

 

[Thauk]

Ciao, Marco, controlla se va bene.

Sub main()
Dim rt(2),pte(2),pta(2),am(2),ambo(5),nr(5)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",100))
clpe=CInt(InputBox("Quanti colpi di gioco per l'ambata?","Colpi ambata",4))
clpa=CInt(InputBox("Quanti colpi di gioco per l'ambo?","Colpi ambo",12))
n1=CInt(InputBox("1° numero da abbinare?","N1",8))
n2=CInt(InputBox("2° numero da abbinare?","N2",13))
n3=CInt(InputBox("3° numero da abbinare?","N3",20))
n4=CInt(InputBox("4° numero da abbinare?","N4",45))
n5=CInt(InputBox("5° numero da abbinare?","N5",79))
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es

pte(1)=1
pte(2)=1
pta(2)=1
rt(1)=5
rt(2)=6
ng=0

am(1)=Fuori90(Estratto(es,5,5)+Estratto(es,6,1))
am(2)=Vert(am(1))
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clpe

nr(1)=n1
nr(2)=n2
nr(3)=n3
nr(4)=n4
nr(5)=n5

For x=1 To 5
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

For x=1 To 5
ambo(1)=am(2)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

co=co+1
Scrivi String(70,"=")&" Caso n° "&co,1
Scrivi

Gioca es
Next
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[Roby]

Meno male che c'è Thauk

Blackmore

 

[Thauk]

quote:Originally posted by Blackmore

Meno male che c'è Thauk

Blackmore

Più che altro, meno male che in questo periodo ho un po' più di tempo - a orari improbabili - per dare una sbirciata al forum...

Fortuna non omnibus aeque.

 

[marco6474]

Ciao a tutti ,grazie Blackmore ,si così è molto dispendioso ,solo che voglio cercare di abbinargli alcuni numeri x ambo.
Un altrettanto ringraziamento a Thauk ,(la classe non è acqua)proprio come volevo complimenti ,io non saprei nemmeno da dove iniziare,ma sarebbe possibile abbinargli alle ambate 5 numeri x ambo(i più frequenti nelle ultime 50 o 100 estrazioni .
Solo se è possibile ,prometto non chiedo altro.
Ciao Marco

 

[Thauk]

Ciao, Marco, ho modificato lo script precedente aggiungendo alcuni InputBox. Ho impostato i colpi per l'ambata a 4 e quelli per l'ambo a 12. I numeri da abbinare sono 5 (8.13.20.45.79), ma li puoi modificare a tuo piacimento di volta in volta. Quest'ultimi sono/sono stati i più frequenti sulle ruote unite di Milano-Napoli dal 2005 a oggi, ma ciò non significa che continueranno a esserlo in futuro.

Buone vincite.


Fortuna non omnibus aeque.

 

[marco6474]

Ciao Thauk Cosi come l'hai impostato è ottimo , .
Grazie davvero
speriamo di poter condividere qualche piccola vincita.
ciao
Marco