Esselotto o chi riesce x script!

[Roby]

Ciaooo
premetto la mia ignoranza in materia...
x Esselotto che come scritto a modificato...o chi e' in grado.
io qualcosa o fatto ma non riesco a far uscire la frequenza del numero che cerco ...(esempio sotto del 90 nelle 3500 estra sulla ruota che segnalo!!!
Ringrazio anticipatamente e Buon Anno!!!

Sub Main()
Scrivi "Spia - migliori ambate sortite + Ritardi(modificato da esselotto)" & Chr(10)
Scrivi "cambiare colpi mancanti***modificato da esselotto per mike58 lottoced)" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)

ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,3500))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,90))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,24))
If cl = "" Then Exit Sub
bb = CInt(InputBox("Colpi gia' fatti !",,10))
If bb = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari,2 Cagliari,ecc.?",,7))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,3))
If am = "" Then Exit Sub
r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
If Posizione(es,r1,nn) > 0 Then
ru1(1) = r2
If SerieFreq(es,es,nn1,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
fr = SerieFreq(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardo(ini,fin,nu,ru,1) 'ricerca ritardo
n(co,3) = n(co,3) + fr
n(co,4) = rt
Next
End If
End If


Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10)
ColoreTesto 1
Scrivi " Estrazioni ricerca = " & ee
Scrivi
ColoreTesto 2
Scrivi " Numero colpi ricerca = " & cl
Scrivi
ColoreTesto 7
Scrivi " colpi gia fatti! = " & bb
Scrivi
ColoreTesto 0
Scrivi" Dal " & DataEstrazione(ini) & "(" & es & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)
Scrivi " N° Presenze Ritardo Ruota di - - - - > " & NomeRuota(r1) & Chr(10)
OrdinaMatrice n,- 1,3
For w = 1 To am
Scrivi" " & Format2(n(w,2)) & " " & FormatSpace(n(w,3),4,1) & String(8," ") & FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50," = ") & Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

 

[imported_n/a]

ciao Angelo63,riguardo la tua richiesta se capisco bene cerchi la frequenza del numero spia?
Puoi inserire due stringe
1-
spfre = EstrattoFrequenza(r1,am,EstrazioneFin-ee,EstrazioneFin)' questo è la frequenza del numero spia

2- scrivi la presenza dell'estratto frequenza

ti allego lo script dove ti ho fatto le correzioni

ciao e buon anno 2011

mike58

Sub Main()
Scrivi "Spia - migliori ambate sortite + Ritardi(modificato da esselotto)" & Chr(10)
Scrivi "cambiare colpi mancanti***modificato da esselotto per mike58 lottoced)" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)

ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,90))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,24))
If cl = "" Then Exit Sub
bb = CInt(InputBox("Colpi gia' fatti !",,10))
If bb = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari,2 Cagliari,ecc.?",,7))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am = "" Then Exit Sub
r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
If Posizione(es,r1,nn) > 0 Then
ru1(1) = r2
If SerieFreq(es,es,nn1,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
fr = SerieFreq(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardo(ini,fin,nu,ru,1) 'ricerca ritardo
spfre = EstrattoFrequenza(r1,am,EstrazioneFin-ee,EstrazioneFin)' questo è la frequenza del numero spia
n(co,3) = n(co,3) + fr
n(co,4) = rt
Next
End If
End If


Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10)
ColoreTesto 1
Scrivi " Estrazioni ricerca = " & ee
Scrivi
ColoreTesto 2
Scrivi " Numero colpi ricerca = " & cl
Scrivi
Scrivi" frequenza n° spia : ---> " & spfre ' qui ho scritto il numero spia
Scrivi""
ColoreTesto 7
Scrivi " colpi gia fatti! = " & bb
Scrivi
ColoreTesto 0
Scrivi" Dal " & DataEstrazione(ini) & "(" & es & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)
Scrivi " N° Presenze Ritardo Ruota di - - - - > " & NomeRuota(r1) & Chr(10)
OrdinaMatrice n,- 1,3
For w = 1 To am
Scrivi" " & Format2(n(w,2)) & " " & FormatSpace(n(w,3),4,1) & String(8," ") & FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50," = ") & Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

colgo l'occcasione ulteriore per ringraziare e fare gli auguri di buon anno 2011 anche ad esselotto autore dello script

mike58

 

[imported_n/a]

Allego anche lo stesso script modificato secondo le mie esigenze
vedi se puoi trarre delle ulteriori indicazioni.

buon anno 2011 a tutti gli utenti del forum
mike58

Sub Main()
'BY ESSELOTTO NUMERI FREQUENTI DOPO SPIA X '
ColoreTesto 2
Scrivi "Spia - migliori ambate sortite + Ritardi(modificato da esselotto)" & Chr(7),1
Scrivi "modificato da esselotto per mike58 lottoced)" & Chr(7),1
ColoreTesto 0
Dim n(90,6),ru(1),ru1(1),nu(1),nn1(1)

ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,100))
If ee = "" Then Exit Sub
nn = CInt(InputBox("Quale numero spia ?",,90))
If nn = "" Then Exit Sub
cl = CInt(InputBox("Quanti colpi ?",,14))
If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari,2 Cagliari,ecc.?",,6))
If r1 = "" Then Exit Sub
am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am = "" Then Exit Sub
r2 = 11
nn1(1) = nn
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
If Posizione(es,r1,nn) > 0 Then
ru1(1) = r2
If SerieFreq(es,es,nn1,ru1,1) = 1 Then
ess = es + cl
If ess > fin Then ess = fin
co = 0
For i = 1 To 90
co = co + 1
n(co,1) = co
n(co,2) = i
nu(1) = i
ru(1) = r1
fr = SerieFreq(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
rt = SerieRitardo(ini,fin,nu,ru,1) 'ricerca ritardo
rs = SerieStorico(fin - ee,fin,nu,ru,1)
fru = SerieFreq(EstrazioneFin - 14,EstrazioneFin,nu,ru,1)
n(co,3) = n(co,3) + fr
n(co,4) = rt
n(co,5) = rs
n(co,6) = fru
ca = EstrazioneFin - es
cnn = EstrattoFrequenza(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
cna = EstrattoRitardo(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
Next

End If
End If


Next
Scrivi "__________________________________________________________________________________"
Scrivi ""
ColoreTesto 1
Scrivi "Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10),2
ColoreTesto 0
Scrivi"Dal " & DataEstrazione(ini) & "(" & es & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)_
& "estrazioni Totali esaminate : " & ee,2

Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: - - - > " & nn,1
Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
ColoreTesto 2
Scrivi DataEstrazione(EstrazioneFin - cna) & " - " & "[" & " " & SiglaRuota(r1) & " - " & StringaEstratti(EstrazioneFin - cna,r1) & "" & "]" & " [" & Format2(nn) & "]" & " ----- n° estraz.trascorse - - - > " & cna,1
ColoreTesto 0
Scrivi "__________________________________________________________________________________"
Scrivi ""
Scrivi " N° Presenze - - Ritardo corrente -- ritardo storico nel ciclo - frequenza su ultime 14 estrazioni - Ruota di --> " & NomeRuota(r1) & Chr(10),1

OrdinaMatrice n,- 1,3
For w = 1 To am
Scrivi " " & Format2(n(w,2)) & " " & FormatSpace(n(w,3),6,1) & String(8," ") & FormatSpace(n(w,4),7,1) & FormatSpace(n(w,5),23,1) & FormatSpace(n(w,6),28,1)

Next
ColoreTesto 0
Scrivi "____________________________________________________________________________________" & Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

 

[angelo 63]

Ciaooo...
grazie Mike perfetto ..
auguroni di un felicissimo 2011 a te
e tutto il forum .

 

[esselotto]

 

[tradersolitario]

ciao
mi servirebbe questo script,
ma dato che non ne sono capace
mi rivolgo qui con la speranza
che si possa fare e che venga esaudito;
vorrei vedere in ordine decrescente
l'elenco dei numeri ritardatari su tutte
le ruote con i relativi ritardi
con la possibilità di poter scegliere io
il periodo dal ..... al.....

ringrazio di vero cuore chi potrà realizzarmelo

ciao

 

[imported_n/a]

Ciao tradersolitario, se vuoi prova questo script creato anche con i vari colori in base ai ritardi.
Può essere un modo diverso per creare tabelle anche di bell'aspetto.

Per definire il tuo range secondo le tue esigenze basta cambiare il range del ritardo estratto seguendo la guida di help.

Ciao Mike58

Sub Main

ReDim aTitoli(3) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi


' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio


' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))




' preimposto i titoli delle colonne
aTitoli(1) = "Numero"
aTitoli(2) = "Ruota "
aTitoli(3) = "Ritardo"

' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)

' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella


For rt = 1 To 12 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota

' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
If aValori(3) > 0 And aValori(3) <= 30 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
Call AddRigaTabella(aValori,Giallo_,"right")

ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(3) > 80 Then
Call AddRigaTabella(aValori,Rosso_,"right")

End If


Next
Next

' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(3)



End Sub

 

[imported_n/a]

Devo comunque annotare che lo script è opera di LuigiB e si trova nel file test di spaziometria.

Io ho già avuto modo di modificare ed utilizzare le nuove funzioni creando un'altro script che cerca invece le frequenze.

Mike58

metto volentieri a disposizione..

Sub Main

ReDim aTitoli(8) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi


' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio


' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo e frequenze dei numeri all'estrazione " & GetInfoEstrazione(idEstr))

rr = InputBox("quale ruota vuoi analizzare",,1)


' preimposto i titoli delle colonne
aTitoli(1) = "NUMERO"
aTitoli(2) = "RUOTA "
aTitoli(3) = "RITARDO"
aTitoli(4) = "FREQUENZA"
aTitoli(5) = "FREQ-ciclo(1-18)"
aTitoli(6) = "FREQ-ciclo(18-36)"
aTitoli(7) = "FREQ-ciclo(36-54)"
aTitoli(8) = "RIT_STORICO-ciclo(1-54)"

' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)

' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella

rt = rr ' ANALIZZO LA RUOTA
'For rt = 1 To 1 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(8) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
aValori(4) = EstrattoFrequenza(rt,k,EstrazioneFin - 150,EstrazioneFin)
aValori(5) = EstrattoFrequenza(rt,k,EstrazioneFin - 18,EstrazioneFin)
aValori(6) = EstrattoFrequenza(rt,k,EstrazioneFin - 36,EstrazioneFin - 18)
aValori(7) = EstrattoFrequenza(rt,k,EstrazioneFin - 54,EstrazioneFin - 36)
aValori(8) = EstrattoStorico(rt,k,EstrazioneFin - 54,EstrazioneFin)
' con questo blocco if coloro le righe che agguiungo in funzione della loro presenza
If aValori(4) > 10 And aValori(4) <= 30 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(4) > 7 And aValori(4) <= 10 Then
Call AddRigaTabella(aValori,Giallo_,"right")

ElseIf aValori(4) > 3 And aValori(4) <= 6 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(4) > 0 And aValori(4) <= 3 Then
Call AddRigaTabella(aValori,Rosso_,"right")

End If


Next
'Next

' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(4)



End Sub

 

[tradersolitario]

ciao Mike58
non è esattamente quello che volevo io
ma si avvicina moltissimo,
io vorrei effettuare la ricerca
sulla ruota "TUTTE"
che numero devo inserire?

grazie

ciao

quote:Originally posted by mike58

Devo comunque annotare che lo script è opera di LuigiB e si trova nel file test di spaziometria.

Io ho già avuto modo di modificare ed utilizzare le nuove funzioni creando un'altro script che cerca invece le frequenze.

Mike58

metto volentieri a disposizione..

Sub Main

ReDim aTitoli(8) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi


' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio


' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo e frequenze dei numeri all'estrazione " & GetInfoEstrazione(idEstr))

rr = InputBox("quale ruota vuoi analizzare",,1)


' preimposto i titoli delle colonne
aTitoli(1) = "NUMERO"
aTitoli(2) = "RUOTA "
aTitoli(3) = "RITARDO"
aTitoli(4) = "FREQUENZA"
aTitoli(5) = "FREQ-ciclo(1-18)"
aTitoli(6) = "FREQ-ciclo(18-36)"
aTitoli(7) = "FREQ-ciclo(36-54)"
aTitoli(8) = "RIT_STORICO-ciclo(1-54)"

' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)

' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella

rt = rr ' ANALIZZO LA RUOTA
'For rt = 1 To 1 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(8) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
aValori(4) = EstrattoFrequenza(rt,k,EstrazioneFin - 150,EstrazioneFin)
aValori(5) = EstrattoFrequenza(rt,k,EstrazioneFin - 18,EstrazioneFin)
aValori(6) = EstrattoFrequenza(rt,k,EstrazioneFin - 36,EstrazioneFin - 18)
aValori(7) = EstrattoFrequenza(rt,k,EstrazioneFin - 54,EstrazioneFin - 36)
aValori(8) = EstrattoStorico(rt,k,EstrazioneFin - 54,EstrazioneFin)
' con questo blocco if coloro le righe che agguiungo in funzione della loro presenza
If aValori(4) > 10 And aValori(4) <= 30 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(4) > 7 And aValori(4) <= 10 Then
Call AddRigaTabella(aValori,Giallo_,"right")

ElseIf aValori(4) > 3 And aValori(4) <= 6 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(4) > 0 And aValori(4) <= 3 Then
Call AddRigaTabella(aValori,Rosso_,"right")

End If


Next
'Next

' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(4)



End Sub

 

[imported_n/a]

per analizzare la ruota tutte basterebbe inserire 11 , mentre per la nazionale 12 però devi anche togliere l'apice a questa stringa e modificare
'For rt = 1 To 12 ' ciclo 12 ruote
' next
ma purtroppo ho visto che non da risultati sulla ruota 11 di tutte appena capisco il perchè ti farò sapere.

ciao mike58

 

[imported_n/a]

scusami trader forse ho capito purtroppo non ho tempo di provare ma sicuramente l'errore sta nel fatto che bisogna cambiare le condizioni IF ossia maggiorarle in quanto le presenze nel range analizzato saranno diverse dalle condizioni su ruota.
quindi bisogna cambiare il minimo ed il massimo, prova a fare qualche prova.

' con questo blocco if coloro le righe che agguiungo in funzione della loro presenza
If aValori(4) > 10 And aValori(4) <= 30 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(4) > 7 And aValori(4) <= 10 Then
Call AddRigaTabella(aValori,Giallo_,"right")

ElseIf aValori(4) > 3 And aValori(4) <= 6 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(4) > 0 And aValori(4) <= 3 Then
Call AddRigaTabella(aValori,Rosso_,"right")

 

[tradersolitario]

ciao mike58
ho provato ma proprio non ci riesco,
potresti scrivermelo tu lo script
e metterlo qui sul forum?

ti ringrazio anticipatamente

ciao

 

[imported_n/a]

Ciao trader,è abbastanza facile cambiare le condizioni basta solo cambiare i valori minimi e massimi secondo le esigenze che si vogliono trovare.
Comunque digita 11(tutte) nell'inputbox cosi da valorizzare la ruota di tutte in ordine per frequenza.
ti allego lo script poi cambia i valori secondo le tue esigenze secondo le indicazioni che ti ho dato sopra.

ciao Mike58


Sub Main

ReDim aTitoli(8) ' titoli tabella
Dim k ' controllo cicli
Dim rt ' ruota
Dim idEstr 'estrazione inizio analisi


' imposto l'estrazione sull'ultima disponibile
idEstr = EstrazioniArchivio


' faccio scorrere un testo che indica da quale estrazione parte l'analisi
Call TestoInBandaPassante("Ritardo e frequenze dei numeri all'estrazione " & GetInfoEstrazione(idEstr))

rr = InputBox("quale ruota vuoi analizzare",,1)


' preimposto i titoli delle colonne
aTitoli(1) = "NUMERO"
aTitoli(2) = "RUOTA "
aTitoli(3) = "RITARDO"
aTitoli(4) = "FREQUENZA"
aTitoli(5) = "FREQ-ciclo(1-18)"
aTitoli(6) = "FREQ-ciclo(18-36)"
aTitoli(7) = "FREQ-ciclo(36-54)"
aTitoli(8) = "RIT_STORICO-ciclo(1-54)"

' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)

' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri
' mano mano aggiungo una nuova riga alla tabella

rt = rr ' ANALIZZO LA RUOTA
'For rt = 1 To 1 ' ciclo ruote
For k = 1 To 90 ' ciclo numeri
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(8) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = NomeRuota(rt) ' nome ruota
aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
aValori(4) = EstrattoFrequenza(rt,k,EstrazioneFin - 150,EstrazioneFin)
aValori(5) = EstrattoFrequenza(rt,k,EstrazioneFin - 18,EstrazioneFin)
aValori(6) = EstrattoFrequenza(rt,k,EstrazioneFin - 36,EstrazioneFin - 18)
aValori(7) = EstrattoFrequenza(rt,k,EstrazioneFin - 54,EstrazioneFin - 36)
aValori(8) = EstrattoStorico(rt,k,EstrazioneFin - 54,EstrazioneFin)
' con questo blocco if coloro le righe che agguiungo in funzione della loro presenza
If aValori(4) > 91 And aValori(4) <= 120 Then
Call AddRigaTabella(aValori,Verde_,"right")
ElseIf aValori(4) > 76 And aValori(4) <= 90 Then
Call AddRigaTabella(aValori,Giallo_,"right")

ElseIf aValori(4) > 66 And aValori(4) <= 75 Then
Call AddRigaTabella(aValori,Magenta_,"right")
ElseIf aValori(4) > 1 And aValori(4) <= 65 Then
Call AddRigaTabella(aValori,Rosso_,"right")

End If


Next
'Next

' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
Call CreaTabella(4)



End Sub

 

[tradersolitario]

ciao mike
mi rivolgo ancora a te perchè vedo che di script
ne capisci è da un po che giri in questo forum e
quando ti leggo vedo che i tuoi interventi sono
sempre misurati e precisi, io vorrei calcolare
la frequenza in questo script in un tempo determinato,
ad esempio
-calcola le frequenze delle ultime 10 estrazioni su tutte
le ruote
oppure
-calcolami le frequenze di tutti i numeri dall'estrazione
numeri 50 all'estrazione 85

per fare questo tipo di ricerca cosa dovrei aggiungere e dove?

ti ringrazio anticipatamente per l'aiuto

ciao

 

[imported_n/a]

Ciao Trader,assolutamente non sono bravo a fare gli script cerco di capirli scopiazzando le istruzzioni, per quanto riguardo il tuo quesito devi modificare il range nell'istruzione estrattofrequenza

aValori(4) = EstrattoFrequenza(rt,k,EstrazioneFin - 150,EstrazioneFin)
aValori(5) = EstrattoFrequenza(rt,k,EstrazioneFin - 18,EstrazioneFin)
aValori(6) = EstrattoFrequenza(rt,k,EstrazioneFin - 36,EstrazioneFin - 18)
aValori(7) = EstrattoFrequenza(rt,k,EstrazioneFin - 54,EstrazioneFin - 36)

esempio: avalori(7) = estrattofrequenza(rt,k,estrazionefin-85,estrazionefin-50)

dove rt = ruota valorizzata in inputbox
k = numero valorizzato nel ciclo for next
range = estrazionefin-85(l'ultima estrazione-85 --- inizio )
estrazionefin-50 ultima estrazione - 50 ---ultima


Spero di essere stato esaudinte.

Ciao Mike58