Novità

ciao claudio8..posso approfittare?

Marcorun

Advanced Member >GOLD<
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.

Advanced Premium Member
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

Premium Member
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.....
 
Ultima modifica:

Marcorun

Advanced Member >GOLD<
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

Premium Member
Marcorun;n2147570 ha scritto:
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

Advanced Member >GOLD<
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

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

claudio8

Premium Member
Marcorun;n2147582 ha scritto:
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

Advanced Member >GOLD<
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

Premium Member
Marcorun;n2147585 ha scritto:
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

Premium Member
Marcorun;n2147600 ha scritto:
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

Premium Member
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.

Advanced Premium Member
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....
 
Ultima modifica:

i legend

Premium Member
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 ;)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto