Novità

aiuto per script complicato

Rubino

Advanced Member >PLATINUM<
Messaggi
1.636
Punti reazione
136
Punti
63
nel senso che faccia l elaborazione senza indice mensile e anche su tutte le ruote

proverò a guardarlo per quanto riguarda l'indice mensile,
per tutte le ruote, lo script deve obbligatoriamente fare il giro da bari a venezia per calcolare i vari indici di incremento delle posizioni e la percentuale di successo.
il giro che già fa mi sembra già a posto.

lo puoi vedere da qua
Richiede il numero di estrazioni da considerare
numes=InputBox("Numero di estrazioni da considerare:",,150)
 
Ultima modifica:

Rubino

Advanced Member >PLATINUM<
Messaggi
1.636
Punti reazione
136
Punti
63
questo script così come fatto è obbligatorio ed indispensabile la condizione dell'indice mensile.
perchè su 12 estrazioni in 150 tot, va a ricerca solo di quelle aventi dell'indice mensile corrispondente ad ogni ciclo.

perchè troverebbe 150 estrazioni tutte valide e non 12 soltanto.
perchè tutto il resto dell'elaborazione si ripercuote su questa condizione obbligatoria.

lo puoi vedere da qua
Richiede il numero di estrazioni da considerare
numes=InputBox("Numero di estrazioni da considerare:",,150)

in altre parole non si può modificare questa impostazione, ma bisognerebbe rifare completamente lo script
una volta stabilite le nuove condizioni di cosa si vuole ottenere.

prova fare qualche ricerca, magari già esiste uno script che fa quello che vuoi, fatto da qualcuno.
per ogni estrazione


se la memoria non mi inganna, questo è un procedimento che usava claudio, alcuni anni fa.
è il suo modo di elaborare i sommativi o adattatori, e di un certo Giorgio o Giulio
dovresti provare a chiedere a loro.
 
Ultima modifica:

ghio

Super Member >PLATINUM<
Messaggi
299
Punti reazione
3
Punti
18
Sub main()
Dim numeri(10)
Dim simp(90),spia(90)
Dim att
'richiede di inserire il numero da esaminare
num=InputBox("Inserisci il numero su cui fare la ricerca",,1)
r=InputBox("Inserisci il numro della ruota su cui fare la ricerca",,1)
ric=InputBox("Inserisci il numero di estrazioni di ricerca anteriori o posteriori",,9)
'Fase di inizializzazione
For i=1 To 10
numeri(i)=0
Next
numeri(1)=num
For i=1 To 10
ImpostaRuota i,False
Next
ImpostaRuota r,True
att=EstrazioneFin
For i=1 To 90
simp(i)=0
spia(i)=0
Next
'inizio ricerca
For i=1 To 100 'il valore "n" dopo il To indica che effettua una ricerca sulle ultime "n" volte che il numero
'su cui fare la ricerca è uscito.
n=Ritardo(att-250,att,numeri,1)
att=att-n
'ricerca i numeri spia
For sp=att-ric To att-1
For j=1 To 5
spia(Estratto(sp,r,j))=spia(Estratto(sp,r,j))+1
Next
Next
'ricerca i numeri simpatici
For si=att+1 To att+ric
For j=1 To 5
simp(Estratto(si,r,j))=simp(Estratto(si,r,j))+1
Next
Next
att=att-1
Next
'scrive i risultati
Scrivi " Ruota N1 N2 Spia Simpatico"
For k=1 To 90
Scrivi FormatSpaceR(NomeRuota(r),8)+FormatSpaceR(CStr(eval(num)),4)+FormatSpaceR(CStr(eval(k)),4)+FormatSpaceR(CStr(eval(spia(k))),5)+FormatSpaceR(CStr(eval(simp(k))),8)
Next
Scrivi "L'output va letto nel seguente modo:"
Scrivi "Ruota è ovvio, è la ruota su cui è stata effettuata la ricerca"
Scrivi "Il numero N1 è il numero su cui è effettuata la ricerca."
Scrivi "N2, spia e simpatico vanno letti così:"
Scrivi " ""Il numero N2 è uscito (valore di""Spia"") volte Prima di N1"
Scrivi " ""ed è uscito (valore di ""Simpatico"") volte dopo N1"
Scrivi " Es. Bari 1 35 48 53 si legge come"
Scrivi "Su Bari il 35 è uscito 48 volte come spia del 1 e 53 volte come simpatico del 1"
'Osservazione: per quanto riguarda il salvataggio, basta che salvi l'output dello script
End Sub

perché mi da errore rubino
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.163
Punti reazione
70
Punti
48
Ciao a Tutti.

La funzione impostaruota non esiste in Spaziometria, almeno negli aiuti non c'è.
 

Alien.

Advanced Premium Member
Messaggi
21.611
Punti reazione
142
Punti
63
è............ALLORA..........c'è un correttore di bozze ?😛😛😛😛
 

Master

Advanced Member
Messaggi
596
Punti reazione
9
Punti
18
Ciao a tuti
corretto per spaziometria

'https://forum.lottoced.com/threads/aiuto-per-script-complicato.2179896/page-18#post-2206240
Sub Main()
Dim numeri(10),ruota(1)
Dim simp(90),spia(90)
Dim att
'richiede di inserire il numero da esaminare
num = InputBox("Inserisci il numero su cui fare la ricerca",,1)
r = InputBox("Inserisci il numro della ruota su cui fare la ricerca",,1)
ric = InputBox("Inserisci il numero di estrazioni di ricerca anteriori e posteriori",,9)
qc = InputBox("Inserisci quanti casi",,100)
'Fase di inizializzazione
ruota(1) = r
'For i = 1 To 10
'numeri(i) = 0
'Next
numeri(1) = num
'For i=1 To 10
'ImpostaRuota i,False
'Next
'ImpostaRuota r,True
att = EstrazioneFin
For
i = 1 To 90
simp(i) = 0
spia(i) = 0
Next
Scrivi
"Ricerca dal " & DataEstrazione(att),1,0,,2
'inizio ricerca
For i = 1 To qc 'il valore "qc" dopo il To indica che effettua una ricerca sulle ultime "n" volte che il numero
'su cui fare la ricerca è uscito.
'n=Ritardo(att-250,att,numeri,1)
n = SerieRitardo(att - 250,att,numeri,ruota,1)
att = att - n
'ricerca i numeri spia (Frequenti)
For sp = att - ric To att - 1
For j = 1 To 5
spia(Estratto(sp,r,j)) = spia(Estratto(sp,r,j)) + 1
Next
Next

'ricerca i numeri simpatici(Frequenti)
For si = att + 1 To att + ric
For j = 1 To 5
simp(Estratto(si,r,j)) = simp(Estratto(si,r,j)) + 1
Next
Next
att
= att - 1
Next
'scrive i risultati
Scrivi " al " & DataEstrazione(att + 1),1,,,2
Scrivi "del N° " & num & " sulla ruota di " & NomeRuota(r) & " in " & i - 1 & " casi trovati",1,,,2
Scrivi
Scrivi
"Ruota N1 N2 Spia Simpatico"
For k = 1 To 90
Scrivi FormatSpace(NomeRuota(r),8) + FormatSpace(CStr(eval(num)),4) + FormatSpace(CStr(eval(k)),4) + FormatSpace(CStr(eval(spia(k))),5) + FormatSpace(CStr(eval(simp(k))),8)
Next
Scrivi
"L'output va letto nel seguente modo:"
Scrivi "Ruota è ovvio, è la ruota su cui è stata effettuata la ricerca"
Scrivi "Il numero N1 è il numero su cui è effettuata la ricerca."
Scrivi "N2, spia e simpatico vanno letti così:"
Scrivi " ""Il numero N2 è uscito (valore di""Spia"") volte Prima di N1"
Scrivi " ""ed è uscito (valore di ""Simpatico"") volte dopo N1"
Scrivi " Es. Bari 1 35 48 53 si legge come"
Scrivi "Su Bari il 35 è uscito 48 volte come spia del 1 e 53 volte come simpatico del 1 "
'Osservazione: per quanto riguarda il salvataggio, basta che salvi l'output dello script
End Sub
 
Ultima modifica:

ghio

Super Member >PLATINUM<
Messaggi
299
Punti reazione
3
Punti
18
otttimo ma manca il valore si riferimento quante volte è uscito il numero che si va a ricercare
 

ghio

Super Member >PLATINUM<
Messaggi
299
Punti reazione
3
Punti
18
non corrisponde esempio mettendo ruota 1 estrazione 1 e numero 1
Ruota N1 N2 Spia Simpatico
Bari 1 1 6 6
Bari 1 2 7 7
Bari 1 3 6 9
Bari 1 4 6 4
Bari 1 5 5 8
vorebbe dire il 2
per una estrazione sarebbe uscito 7 volte prima e 7 volte dopo
non è cosi
l 1 è uscito 7 volte nell ultime 100 estraz
a bari
 

Master

Advanced Member
Messaggi
596
Punti reazione
9
Punti
18
otttimo ma manca il valore si riferimento quante volte è uscito il numero che si va a ricercare
sta scritto nello script che hai postato..100 volte

For i=1 To 100 'il valore "n" dopo il To indica che effettua una ricerca sulle ultime "n" volte che il numero
'su cui fare la ricerca è uscito.

L'ho modificato inserendo la scelta delle volte
riscarica quello sopra
 

Master

Advanced Member
Messaggi
596
Punti reazione
9
Punti
18
non corrisponde esempio mettendo ruota 1 estrazione 1 e numero 1
Ruota N1 N2 Spia Simpatico
Bari 1 1 6 6
Bari 1 2 7 7
Bari 1 3 6 9
Bari 1 4 6 4
Bari 1 5 5 8
vorebbe dire il 2
per una estrazione sarebbe uscito 7 volte prima e 7 volte dopo
non è cosi
l 1 è uscito 7 volte nell ultime 100 estraz
a bari
Significa : nelle 100 volte che il N° 1 è stato estratto
il n° 2 è uscito 7 volte nelle 1 estrazioni precedente e successiva


7 volte prima PRIMA
13.02.2018 9434 Bari 43.50.76.02.22
15.02.2018 9435 Bari 01 55 28 12 88

14.09.2017 9369 Bari 25.89.02.46.09
16.09.2017 9370 Bari 67 58 01 85 37

16.08.2017 9356 Bari 38.57.73.74.02
17.08.2017 9357 Bari 70 01 57 47 19

26.09.2015 9061 Bari 90.73.29.02.24
29.09.2015 9062 Bari 79 21 01 34 09

30.06.2015 9023 Bari 56.90.54.85.02
02.07.2015 9024 Bari 01 25 39 13 31

29.03.2014 8827 Bari 23.02.34.65.12
01.04.2014 8828 Bari 80 01 08 59 89

06.08.2011 8413 Bari 15.58.57.02.61
09.08.2011 8414 Bari 68 06 01 64 78

7 volte DOPO
03.08.2019 9664 Bari 12 61 58 01 71
06.08.2019 9665 Bari 21.77.81.02.71

05.01.2019 9574 Bari 01 30 18 25 23
08.01.2019 9575 Bari 21.04.09.63.02

29.09.2015 9062 Bari 79 21 01 34 09
01.10.2015 9063 Bari 82.72.05.24.02

22.09.2015 9059 Bari 73 15 49 01 75
24.09.2015 9060 Bari 03.66.06.25.02

30.10.2014 8919 Bari 30 47 48 35 01
03.11.2014 8920 Bari 02.38.10.08.81

23.02.2012 8499 Bari 39 33 15 26 01
25.02.2012 8500 Bari 13.02.76.73.53

30.05.2009 8071 Bari 31 62 23 08 01
03.06.2009 8072 Bari 37.04.02.78.60

buona giornata
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 15 febbraio 2020
    Bari
    30
    83
    35
    44
    75
    Cagliari
    23
    88
    76
    57
    72
    Firenze
    22
    69
    27
    04
    83
    Genova
    75
    87
    40
    50
    16
    Milano
    37
    42
    17
    71
    51
    Napoli
    43
    71
    19
    47
    44
    Palermo
    43
    20
    24
    28
    32
    Roma
    68
    74
    81
    50
    09
    Torino
    22
    76
    90
    77
    61
    Venezia
    31
    32
    72
    24
    74
    Nazionale
    80
    74
    01
    39
    77
Alto