BaffoBlù
Advanced Member >PLATINUM<
Buona serata a tutti/e
Sono esperto di molte cose ma Non sono una cima con gli script, ma riesco a capirli abbastanza da cannibalizzare pezzi da vari script.
Ne ho una marea, copiati o scaricati durante gli anni, moltissimi ancora non li ho nemmeno aperti per vedere cosa fanno.
Solo ultimamente (pensione) ho un po di tempo in più
Faccio parte della vecchia guardia che fa ancora alcune cose con excel perchè vuole vedere i numeri sotto gli occhi
Attualmente costruisco dei piccoli script frankestein che si agitano in mezzo ai numeri perché Vorrei velocizzare le mie ricerche
Incuriosito dalla richiesta di un utente che si avvicinava al mio tipo di ricerca (a cui ho fatto un mezzo script, diciamo)
Ne ho assemblato uno un pò bizzarro ma non riesco a modificarlo ulteriormente.
Vado al dunque : Nonostante in altri script di diversa fattura mi riesce benissimo, qui non riesco a ciclare le 5 posizioni partendo dall'input iniziale.
Non lo so mi sfugge qualcosa che ho sicuramente sotto il naso, forse è colpa di come è strutturato lo script, non saprei.
Così come è adesso mi restituisce un output con 10 righe (10 ruote).
risultati inerenti alla spia in prima posizione sulla ruota scelta in inputbox (bari).
Vorrei che mi restituisse un output con 5 formazioni (inerenti alla posizione dei 5 numeri della ruota) da 10 righe ciascuna (una per ruota).
In modo di avere risultati dalle 5 posizioni in una volta sola. (sono 50 righe di output).
Poi il ciclo per tutte le 10 ruote ( la nazionale la escludo). (così invece sono 500 righe di output, 50 per ruota)
Tutto partendo dal primo input del primo estratto di bari e il resto in automatico
mica non ci ho provato, ma mi è venuta una schifezza strana.
Sono sicuro che vi state a fare una grassa risata, perchè so che molti di voi ci mettereste un lampo per fare sta modifica.
A me non riesce, e penso che sia colpa della struttura intrinseca dello script, ho questo feeling.
cercando sempre di trovare una soluzione per aggirare gli ostacoli stavo pensando a un multi script che mi restituisce tutti gli output
Fattibilissimo, che cosa lunga però...
Importante! : Questo script usa "SerieFreq". Ma io NON voglio la Frequenza, A me Interessa la PRESENZA!
Non trovo tra le funzioni "SeriePres", come caspita si fa a contare solo le presenze univoche Senza ripetuti?
se un tal numero si è ripetuto 2 o più volte in un singolo ciclo di ricerca, ( in questo caso il ciclo è di 9 estrazioni) ne deve rimanere solo uno, gli altri ripetuti vanno scartati
Via così per ogni singolo ciclo
"SerieFreq" non tiene conto di quante volte un numero si è ripetuto in un ciclo di ricerca, appunto perchè cerca e trova la frequenza totale
Ripeto, a me Interessa la PRESENZA!
Farlo in excel è tutta un altra storia ma comunque lunga.
Tutti i risultati degli output, da qualsiasi prima e ultima estrazione (1500 righe in totale)
Sono tanti dati da elaborare, e solo l'inizio della ricerca.
In seguito tutti questi dati li devo masticare e flitrare a modo mio, di solito questo immane lavoraccio di filtraggio e accuratezze di varia fattura
porta spesso a vincite (anche multiple, come ambate e ambi a ruota, ma anche di terni, meno frequenti ma ci sono) nei 9 colpi successivi,
ma di solito la sortita è a colpo o nei primi 3.
Se poi si vuole fare i pignoli e aspettare delle convergenze particolari che spesso si vengono a creare in modo naturale, se ne approfittiamo la vincita è pressochè garantita.
A che serve tenersi le idee se poi non le condividi, ecco io vorrei farlo prima di schiattare.
Grazie a chiunque mi viene in soccorso
questo è lo script
Sono esperto di molte cose ma Non sono una cima con gli script, ma riesco a capirli abbastanza da cannibalizzare pezzi da vari script.
Ne ho una marea, copiati o scaricati durante gli anni, moltissimi ancora non li ho nemmeno aperti per vedere cosa fanno.
Solo ultimamente (pensione) ho un po di tempo in più
Faccio parte della vecchia guardia che fa ancora alcune cose con excel perchè vuole vedere i numeri sotto gli occhi
Attualmente costruisco dei piccoli script frankestein che si agitano in mezzo ai numeri perché Vorrei velocizzare le mie ricerche
Incuriosito dalla richiesta di un utente che si avvicinava al mio tipo di ricerca (a cui ho fatto un mezzo script, diciamo)
Ne ho assemblato uno un pò bizzarro ma non riesco a modificarlo ulteriormente.
Vado al dunque : Nonostante in altri script di diversa fattura mi riesce benissimo, qui non riesco a ciclare le 5 posizioni partendo dall'input iniziale.
Non lo so mi sfugge qualcosa che ho sicuramente sotto il naso, forse è colpa di come è strutturato lo script, non saprei.
Così come è adesso mi restituisce un output con 10 righe (10 ruote).
risultati inerenti alla spia in prima posizione sulla ruota scelta in inputbox (bari).
Vorrei che mi restituisse un output con 5 formazioni (inerenti alla posizione dei 5 numeri della ruota) da 10 righe ciascuna (una per ruota).
In modo di avere risultati dalle 5 posizioni in una volta sola. (sono 50 righe di output).
Poi il ciclo per tutte le 10 ruote ( la nazionale la escludo). (così invece sono 500 righe di output, 50 per ruota)
Tutto partendo dal primo input del primo estratto di bari e il resto in automatico
mica non ci ho provato, ma mi è venuta una schifezza strana.
Sono sicuro che vi state a fare una grassa risata, perchè so che molti di voi ci mettereste un lampo per fare sta modifica.
A me non riesce, e penso che sia colpa della struttura intrinseca dello script, ho questo feeling.
cercando sempre di trovare una soluzione per aggirare gli ostacoli stavo pensando a un multi script che mi restituisce tutti gli output
Fattibilissimo, che cosa lunga però...
Importante! : Questo script usa "SerieFreq". Ma io NON voglio la Frequenza, A me Interessa la PRESENZA!
Non trovo tra le funzioni "SeriePres", come caspita si fa a contare solo le presenze univoche Senza ripetuti?
se un tal numero si è ripetuto 2 o più volte in un singolo ciclo di ricerca, ( in questo caso il ciclo è di 9 estrazioni) ne deve rimanere solo uno, gli altri ripetuti vanno scartati
Via così per ogni singolo ciclo
"SerieFreq" non tiene conto di quante volte un numero si è ripetuto in un ciclo di ricerca, appunto perchè cerca e trova la frequenza totale
Ripeto, a me Interessa la PRESENZA!
Farlo in excel è tutta un altra storia ma comunque lunga.
Tutti i risultati degli output, da qualsiasi prima e ultima estrazione (1500 righe in totale)
Sono tanti dati da elaborare, e solo l'inizio della ricerca.
In seguito tutti questi dati li devo masticare e flitrare a modo mio, di solito questo immane lavoraccio di filtraggio e accuratezze di varia fattura
porta spesso a vincite (anche multiple, come ambate e ambi a ruota, ma anche di terni, meno frequenti ma ci sono) nei 9 colpi successivi,
ma di solito la sortita è a colpo o nei primi 3.
Se poi si vuole fare i pignoli e aspettare delle convergenze particolari che spesso si vengono a creare in modo naturale, se ne approfittiamo la vincita è pressochè garantita.
A che serve tenersi le idee se poi non le condividi, ecco io vorrei farlo prima di schiattare.
Grazie a chiunque mi viene in soccorso
questo è lo script
Codice:
Option Explicit
Sub Main()
Dim ru(1)
Dim nu1(90,3),nn1(2),nu2(90,3),nn2(2),nu3(90,3),nn3(2),nu4(90,3),nn4(2),nu5(90,3),nn5(2)
Dim nu6(90,3),nn6(2),nu7(90,3),nn7(2),nu8(90,3),nn8(2),nu9(90,3),nn9(2),nu10(90,3),nn10(2)
Dim r,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10
Dim ww,tmp,fin,Ini,es,a,casi,ess,co,xx,k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,wx,p1,sp
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
r6 = 6
r7 = 7
r8 = 8
r9 = 9
r10 = 10
r = InputBox(" Ruota della spia ?"," Immetti N° Ruota",1)
sp = CInt(InputBox(" Quale spia ? "," Immetti N°spia","1"))
p1 = InputBox(" Posizione della spia?"," Immetti Posizione",1)
ww = InputBox("Quante estrazioni in un ciclo vuoi esaminare?"," Ciclo da ?",9)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI ?",10344)
fin = EstrazioneFin
Ini = EstrazioneFin - tmp
For es = Ini To fin
' scegli se vuoi qualsiasi estrazione, la prima o l'ultima - adesso è impostato per qualsiasi estrazione
'If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
Messaggio "Ricerca Spia " & " Data " & DataEstrazione(es)
a = Estratto(es,r,p1)
If a = sp Then
casi = casi + 1
ess = es + ww
If ess > fin Then ess = fin End If
co = 0
For xx = 1 To 90
co = co + 1
nu1(co,1) = co
nu1(co,2) = xx
nn1(1) = xx
ru(1) = r1
k1 = SerieFreq(es + 1,ess,nn1,ru,1)
If k1 > 1 Then k1 = 1
nu1(co,3) = nu1(co,3) + k1
Next
co = 0
For xx = 1 To 90
co = co + 1
nu2(co,1) = co
nu2(co,2) = xx
nn2(1) = xx
ru(1) = r2
k2 = SerieFreq(es + 1,ess,nn2,ru,1)
If k2 > 1 Then k2 = 1
nu2(co,3) = nu2(co,3) + k2
Next
co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co
nu3(co,2) = xx
nn3(1) = xx
ru(1) = r3
k3 = SerieFreq(es + 1,ess,nn3,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
Next
co = 0
For xx = 1 To 90
co = co + 1
nu4(co,1) = co
nu4(co,2) = xx
nn4(1) = xx
ru(1) = r4
k4 = SerieFreq(es + 1,ess,nn4,ru,1)
If k4 > 1 Then k4 = 1
nu4(co,3) = nu4(co,3) + k4
Next
co = 0
For xx = 1 To 90
co = co + 1
nu5(co,1) = co
nu5(co,2) = xx
nn5(1) = xx
ru(1) = r5
k5 = SerieFreq(es + 1,ess,nn5,ru,1)
If k5 > 1 Then k5 = 1
nu5(co,3) = nu5(co,3) + k5
Next
co = 0
For xx = 1 To 90
co = co + 1
nu6(co,1) = co
nu6(co,2) = xx
nn6(1) = xx
ru(1) = r6
k6 = SerieFreq(es + 1,ess,nn6,ru,1)
If k6 > 1 Then k6 = 1
nu6(co,3) = nu6(co,3) + k6
Next
co = 0
For xx = 1 To 90
co = co + 1
nu7(co,1) = co
nu7(co,2) = xx
nn7(1) = xx
ru(1) = r7
k7 = SerieFreq(es + 1,ess,nn7,ru,1)
If k7 > 1 Then k7 = 1
nu7(co,3) = nu7(co,3) + k7
Next
co = 0
For xx = 1 To 90
co = co + 1
nu8(co,1) = co
nu8(co,2) = xx
nn8(1) = xx
ru(1) = r8
k8 = SerieFreq(es + 1,ess,nn8,ru,1)
If k8 > 1 Then k8 = 1
nu8(co,3) = nu8(co,3) + k8
Next
co = 0
For xx = 1 To 90
co = co + 1
nu9(co,1) = co
nu9(co,2) = xx
nn9(1) = xx
ru(1) = r9
k9 = SerieFreq(es + 1,ess,nn9,ru,1)
If k9 > 1 Then k9 = 1
nu9(co,3) = nu9(co,3) + k9
Next
co = 0
For xx = 1 To 90
co = co + 1
nu10(co,1) = co
nu10(co,2) = xx
nn10(1) = xx
ru(1) = r10
k10 = SerieFreq(es + 1,ess,nn10,ru,1)
If k10 > 1 Then k10 = 1
nu10(co,3) = nu10(co,3) + k10
Next
End If
End If
Next
OrdinaMatrice nu1,- 1,3
OrdinaMatrice nu2,- 1,3
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3
OrdinaMatrice nu5,- 1,3
OrdinaMatrice nu6,- 1,3
OrdinaMatrice nu7,- 1,3
OrdinaMatrice nu8,- 1,3
OrdinaMatrice nu9,- 1,3
OrdinaMatrice nu10,- 1,3
ColoreTesto 0
Scrivi "Ba"
For wx = 1 To 20
Scrivi Format2(nu1(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu1(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Ca"
For wx = 1 To 20
Scrivi Format2(nu2(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu2(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Fi"
For wx = 1 To 20
Scrivi Format2(nu3(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu3(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Ge"
For wx = 1 To 20
Scrivi Format2(nu4(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu4(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Mi"
For wx = 1 To 20
Scrivi Format2(nu5(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu5(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Na"
For wx = 1 To 20
Scrivi Format2(nu6(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu6(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Pa"
For wx = 1 To 20
Scrivi Format2(nu7(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu7(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Ro"
For wx = 1 To 20
Scrivi Format2(nu8(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu8(wx,3)) & ".",,0
Next
Scrivi
Scrivi "To"
For wx = 1 To 20
Scrivi Format2(nu9(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu9(wx,3)) & ".",,0
Next
Scrivi
Scrivi "Ve"
For wx = 1 To 20
Scrivi Format2(nu10(wx,2)) & ".",1,0,4,,2
Next
Scrivi
For wx = 1 To 20
Scrivi Format2(nu10(wx,3)) & ".",,0
Next
Scrivi
Scrivi
End Sub
