Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

ciao claudio8..posso approfittare?

Marcorun

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

Advanced Member >PLATINUM PLUS<
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
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

Advanced Member >PLATINUM PLUS<
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
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
credo che possa bastare la giusta modifica a questo comando...
numeri1(1) = EstrattoFrequenza 1(ruote,n)
 

claudio8

Advanced Member >PLATINUM PLUS<
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
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41

Ultimi Messaggi

Alto