ciao claudio8..posso approfittare?

[Marcorun]

posso approfittare della tua gentilezza e della tua bravura?
sarà mai possibile trasformare lo script inserendo i numeri più frequenti su tot estrazioni,invece delle somme numeri?




Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
g = InputBox("Su quale ruota, ",,1)
ruote(1) = g
For n = EstrazioneFin - 100 To EstrazioneFin


numeri1(1) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 1))
numeri1(2) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 2))
numeri1(3) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 3))
numeri1(4) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 4))
numeri1(5) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 5))
numeri1(6) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 6))
numeri1(7) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 7))
numeri1(8) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 8))
numeri1(9) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 9))
numeri1(10) = Fuori90((Estratto(n,g,1) + 1) +(Estratto(n,g,5) + 10))


EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,9,2

Call Scrivi("--------------------------------------------------------------------------------------",1,1,2,4,3)

Gioca n

Next
ScriviResoconto
End Sub

 

[Alien.]

Bello script ma si gioca ad ogni estrazione,bisognerebbe vedere quale ID è più frequente.E vedere quante vincite ci sono in tutti i 13 colpi

 

[claudio8]

Tutto è possibile, Marcorun, anche imparare a scrivere script.

L'ultima volta ti ho dato le indicazioni ed anche fatto lo script, adesso proviamo a preparare insime il processo che deve fare lo script e poi proveremo a scrivere ( trasformare in script) ciò che vogliamo fargli fare.

Comincia Tu a scrivere il processo che a tuo parere deve fare lo script per ottenere quanto serve.

E' semplicissimo, devi solo concepire la sequenza operativa che tu faresti con carta e penna.

ciao...

Ps: Alien, sei invitato.....

 

[Marcorun]

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota, ",,1)
For n = EstrazioneFin - 100 To EstrazioneFin


numeri1(1) = EstrattoFrequenza 1(ruote,n)
numeri1(2) = EstrattoFrequenza 2(ruote,n)
numeri1(3) = EstrattoFrequenza 3(ruote,n)
numeri1(4) = EstrattoFrequenza 4(ruote,n)
numeri1(5) = EstrattoFrequenza 5(ruote,n)
numeri1(6) = EstrattoFrequenza 6(ruote,n)
numeri1(7) = EstrattoFrequenza 7(ruote,n)
numeri1(8) = EstrattoFrequenza 8(ruote,n)
numeri1(9) = EstrattoFrequenza 9(ruote,n)
numeri1(10) = EstrattoFrequenza 10(ruote,n)


EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,9,2

Call Scrivi("--------------------------------------------------------------------------------------",1,1,2,4,3)

Gioca n

Next
ScriviResoconto
End Sub





ECCOLO.......ma è SUPER ovvio che non funziona..!..........sob..sob...:-(

 

[claudio8]

Sub Main()
......
.....
End Sub

ECCOLO.......ma è SUPER ovvio che non funziona..!..........sob..sob...:-(

Marco, non ti ho chiesto di modificare lo script, ti ho chiesto cosa faresti con carta e penna per arrivare all'obbiettivo che ti sei posto..
ciao

 

[Marcorun]

vorrei mettere in gioco su 1 ruota i primi 10 numeri piu frequenti (lunghetta 10)su tot.estrazioni delle stessa ruota....x.estratto ed ambo...x
tot.colpi.............non so se intendi questo....x me è un po difficile

 

[Marcorun]

credo che possa bastare la giusta modifica a questo comando...
numeri1(1) = EstrattoFrequenza 1(ruote,n)

 

[claudio8]

vorrei mettere in gioco su 1 ruota i primi 10 numeri piu frequenti (lunghetta 10) su tot.estrazioni delle stessa ruota....x.estratto ed ambo...x
tot.colpi.............non so se intendi questo....x me è un po difficile

Si intendo questo, ma con l'approfondimento delle singole attività che servono per calcolare quanto desideri.

Ti ho evidenziai in rosso "primi 10 numeri piu frequenti bene", vuol dire che devi fare a priori una operazione dicontrollo frequenza di tutti i 90 numeri.... giusto? quindi:
per i numeri da 1 a 90, .. for x= 1 to 90
controllare la frequenza ... freq = seriefreq(inizio ,.... , ) vedi help
next

Torniamo al processo da farsi su carta prima dello script.
Per rarrivare al tuo obbietivo sicuramente ipotizzi un percorso che fai a livello mentale, ma che non traduci in script, sia perchè non segui una logica procedurale e sia perchè non usi le funzioni giuste che servono per ottenere quanto ti serve dal programma.

ciao

 

[Marcorun]

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota, ",,1)
For n = EstrazioneFin - 100 To EstrazioneFin
For x= 1 To 90
freq = SerieFreq(9533,9573,x,ruote,2)

prima parte...ci sono?mmmmmm..:-\

 

[claudio8]

credo che possa bastare la giusta modifica a questo comando...
numeri1(1) = EstrattoFrequenza 1(ruote,n)

non andare a tentativi, ci siamo passti tutti da questo percorso di
non è cambiando la singola funzione che risolvi il problema, che se non hai ancora ben chiaro, è che vuoi affrettare i tempi di un percorso obbligatorio...
non occorrono anni x gli script basilari, basta seguire semplici regole di processo.

 

[i legend]

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
ruote(1) = InputBox("Su quale ruota, ",,1)
For n = EstrazioneFin - 100 To EstrazioneFin
For x= 1 To 90
freq = SerieFreq(9533,9573,x,ruote,2)

prima parte...ci sono?mmmmmm..:-\

Ciao a tutti
nell esempio riportato vengono ciclatd le ultime 101 estrazioni
poi vengono ciclisti tutti i 90 numeri
ma il valore frequenza si riferisce solo al periodo 9533, 9573 .

Claudio ha ragione quando dice che per gli script basilari è sufficiente seguire poche regole basilari.

1 step scrivere cosa si vuole ottenere
2 capire la sequenza logica che devo dare allo script.
3 se quello che mi serve è complesso lo divido in più parti .
4 cominciò a scrivere il listato.
personalmente utilizzo sempre option ecplicit ,
lo script è più leggibile , e , si trova subito gli errori se ve ne sono.
fondamentale per me è capire come utilizzare le funzio i che Luigi ha scritto .
praticamente i listati si scrivono da soli.
Luigi ci ha proprio viziati
poi se non si riesce ,ma si vuole imparare basta chiedere, fa sempre piacere aiutare.
ci siamo passati tutti.
un trucco per imparare è leggere gli script che trovi nel forum, ce ne sono di davvero belli ed eleganti .
Ciao
chiedo scusa per gli errori ma il cell scrive per i fatti suoi.

 

[i legend]

Vorrei aggiungere ancora consiglio .
il nome che si assegnano alle variabili .
se ciclo le estrazioni alla variabile do il nome idestr al numero il nome num oppure n .
solitamente alle variabili numeriche metto il suffisso n
esempio nSorte , n classe rappresentano un numero
per i vettori o le matrici utilizzo il suffisso a
esempio aRuote() , aNum , aRip()
È più facile capirsi e far capire agli altri.
ovviamente non sono linee guida ma solo dei suggerimenti che a me aiutano .
sarebbe giusto anche commentare quello che si scrive . Dopo un Po se la routine è complessa si sia già di non raccapezzarsi.

Ciao.

 

[Alien.]

Ciao l legend,io avrei un'altra idea,con uno script puoi prevedere quando uscirà un numero su una ruota e tutte"è se fosse facile" saresti a sciare hahahaha oppure detto numero con quali esce più spesso con gli altri numeri,su ruota e poi su tutte dato che con 5 numeri riesci a prendere il terno.Certo che dovrei imparare a farli,ci proverò.grazie.

A suo tempo imparari il BASIC poi me lo sono dimenticato....

 

[Alien.]

Scusa Marcorun dici che è per il super lo script ?

 

[i legend]

Ciao Alien, vuoi mettere a soddisfazione di farti uno script tutto tuo ?

L o script restituisce dei numeri, l difficoltà sta nel fare le scrematura.
l
ognuno s iluppa i suoi metodi.
in sezione statistica molti oltre ad inserire le previsioni spiegano anche il procedimento
altri vedi Nikor fanno delle ricerche statistiche che a noi comuni mortali sono di difficile realizzazione .
Altri studi per la mole di calcolo impossibili.
Non è un solo uno script che fa la differenza
Ciao
buona notte a tutti

 

[Marcorun]

OK ...OK... messaggio ricevuto.....grazie a tutti...............sob ....sob...:-(