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
 
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
 
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:
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...:-(
 
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
 
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
 
credo che possa bastare la giusta modifica a questo comando...
numeri1(1) = EstrattoFrequenza 1(ruote,n)
 
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
 
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..:-\
 
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.
 
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.
 
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.
 
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:
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ì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto