piccola modifica script

[genios]

Mi occorrerebbe modificare questo script nel senso che se nel ciclo delle 9 estrazioni dopo la comparsa della spia in posizione un numero è presente più di una volta venga conteggiato come una sola presenza . Come da foto . Spero di essere stato chiaro .

Ciao Eugenio

'Razionale spia In Posizione
Sub Main()
Dim ru(2) : Dim ru1(10)
Dim n(90,2) : Dim ambi(4005,5) : Dim nn(2)im ambi1(4005,5) : Dim nn1(2)
r = CInt(InputBox("SU CHE RUOTA?",,8))
n1 = CInt(InputBox("QUALE NUMERO?",,48))
p = CInt(InputBox("QUALE POSIZIONE?",,1))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,650))
c = CInt(InputBox("QUANTI COLPI?",,9))
casi = 0
co = 0
fin = 7180
ini = fin - ee
For es = ini To fin
a = Estratto(es,r,p)
If a = n1 Then
casi = casi + 1
ess = es + c
If ess > fin Then ess = fin End If
For x = es + 1 To ess
cc = 0
For pp = 1 To 5
d = Estratto(x,r,pp)
n(d,1) = d
n(d,2) = n(d,2) + 1
cc = 1
Next
Next
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1
nn(1) = x : nn(2) = y : ru(1) = r
ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y
yy = SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,4) = ambi(co,4) + yy
If yy > 0 Then
ambi(co,5) = ambi(co,5) + 1
Else
ambi(co,5) = ambi(co,5)
End If
nn1(1) = x : nn1(2) = y : ru1(1) = 11
ambi1(co,1) = co : ambi1(co,2) = x : ambi1(co,3) = y
xx = SerieFreq(es + 1,ess,nn1,ru1,2)
ambi1(co,4) = ambi1(co,4) + xx
If xx > 0 Then
ambi1(co,5) = ambi1(co,5) + 1
Else
ambi1(co,5) = ambi1(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
Scrivi "NUMERO SPIA " & CInt(n1) & " su " & NomeRuota(r) & " in " & p & "° posizione",1
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi " Frequenti nei " & c & " colpi successivi",1
OrdinaMatrice n,- 1,2
OrdinaMatrice ambi,- 1,5
OrdinaMatrice ambi1,- 1,5
ColoreTesto 1
Scrivi
Scrivi "Num.Ruota | Ambi a Ruota | Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fr | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x = 1 To 10 '******************************************
riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & _
Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5)
Scrivi riga
riga = ""
Next
Scrivi "******************************************************************"
For cc = 1 To 90
n(cc,1) = 0
n(cc,2) = 0
Next
End Sub

 

[claudio8]

All'elementari chiedono al maestro spiegazione:
Maestro, mi dà questo errore, non gira...
perchè ?

 

[genios]

All'elementari chiedono al maestro spiegazione:
Maestro, mi dà questo errore, non gira...
perchè ?

Vedi l'allegato 2271836

Non mi aveva selezionato il tutto mancava un pezzo di script.

 

[claudio8]

Non mi aveva selezionato il tutto mancava un pezzo di script.

Quindi oltre a spiegarti se devi fare correzioni, devo ricostruire lo script....

 

[claudio8]

Quindi oltre a spiegarti se devi fare correzioni, devo ricostruire lo script....

scusa, ho visto ora che lo hai ripostato...
direi che fa esattamente quello che richiedi per gli ambi su ruota e tutte mentre per le ambate non può fare altro che contarle tutte
poiche ciclano le estrazioni e le posizioni, dei vari numeri li può solo conteggaire tutti.

 

[claudio8]

Appena ho tempo te lo sistemo

 

[claudio8]

Era uno script già trito e ritrito da un decennio e te lo riporto

Anticipazione (Spoiler): Frequenti

' script rescript by Cl8 "Estratti Frequenti dopo spia con coperture e rit"
Sub Main()
Dim ru(2)
Dim ru1(10)
Dim n(90,3)
Dim ambi(4005,5)
Dim nn(2)
Dim ambi1(4005,5)
Dim nn1(2)
Dim num(1)
r = CInt(InputBox("Quale ruota esamino?","Numero spia",8))
n1 = CInt(InputBox("Quale numero?","Numero spia",14))
p = CInt(InputBox("In che posizione?","Numeri spia",5))
'ee = CInt(InputBox("Estrazioni da controllare?","Numeri spia",6395))
c = CInt(InputBox("Per quanti colpi?","Numeri spia",9))
casi = 0
co = 0
fin = 7136 'EstrazioneFin
ini = 7126 '3862 'EstrazioneFin - ee
For es = ini To fin
a = Estratto(es,r,p)
If a = n1 Then
casi = casi + 1
ess = es + c
If ess > fin Then ess = fin End If

co = 0
For x = 1 To 90
co = co + 1
num(1) = x
ru(1) = r
y = SerieFreq(es + 1,ess,num,ru,1)
n(co,2) = n(co,2) + y
If y > 0 Then
n(co,3) = n(co,3) + 1
Else
n(co,3) = n(co,3)
End If
n(co,1) = x

Next

co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1
nn(1) = x
nn(2) = y
ru(1) = r
ambi(co,1) = co
ambi(co,2) = x
ambi(co,3) = y
yy = SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,4) = ambi(co,4) + yy ' freq

If yy > 0 Then
ambi(co,5) = ambi(co,5) + 1 ' coperture

Else
ambi(co,5) = ambi(co,5)
End If
nn1(1) = x
nn1(2) = y
ru1(1) = 11
ambi1(co,1) = co
ambi1(co,2) = x
ambi1(co,3) = y
xx = SerieFreq(es + 1,ess,nn1,ru1,2)
ambi1(co,4) = ambi1(co,4) + xx ' freq
If xx > 0 Then
ambi1(co,5) = ambi1(co,5) + 1 ' coperture
Else
ambi1(co,5) = ambi1(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(Fin),1
Scrivi "NUMERO SPIA " & CInt(n1) & " su " & NomeRuota(r) & " in " & p & "° posizione",1
Scrivi "N° casi: " & CInt(casi),1
Scrivi
Scrivi " Frequenti nei " & c & " colpi successivi",1
OrdinaMatrice n,- 1,2
OrdinaMatrice ambi, - 1,4 ' ruota
OrdinaMatrice ambi1,- 1,4 ' tutte
ColoreTesto 1
Scrivi
Scrivi " Num. Ruota | Ambi a Ruot| Ambi a Tutte"
ColoreTesto 2
Scrivi " N° Fre cop rit | Ambo Fr | Ambo Fr"
ColoreTesto 0
For x = 1 To 90
riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " - " & Format2(n(x,3)) & " - " & FormatSpace(RitardoEstratto(n(x,1),fin,r),3) & _
" | " & Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & "..." & Format2(ambi(x,4)) & " | " & _
Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,4)
Scrivi riga
riga = ""
Next
Scrivi "******************************************************************"
End Sub

 

[genios]

Purtroppo il tuo script non fa quello che dico . Nel ciclo delle 9 estrazioni quando trova un numero spiato deve uscire dal for delle 9 estrazioni e conteggiare una sola presenza anche se all' interno del ciclo di 9 estrazioni ci sono piu presenze del numero spiato . Inoltre penso che il rilevamento della spia successiva dovrebbe ricomciare sempre dopo le 9 estrazioni del numero spiato.

ciao

 

[claudio8]

Dopo ricontrollo,
Adesso
Vado a prendere un

 

[claudio8]

Tu hai scritto: "Mi occorrerebbe modificare questo script nel senso che se nel ciclo delle 9 estrazioni dopo la comparsa della spia in posizione un numero è presente più di una volta venga conteggiato come una sola presenza . Come da foto . Spero di essere stato chiaro ."

lo script fa esattamente quello che hai richiesto usa il range che ti ho lasciato nello script e controlla per ogni numero in elenco le freq e le cop. rispetto al tuo screenshot dell'esempio.
Controlla bene 5 numeri x 9 estrazioni sono 45 elementi . ( somma delle freq dei numeri con copertura 1) ho detto tutto.

Purtroppo per la nuova richiesta : "Inoltre penso che il rilevamento della spia successiva dovrebbe ricomciare sempre dopo le 9 estrazioni del numero spiato."
devi trovare un bravo scripter, io ritorno al bar per un bel
Ciao

 

[claudio8]

Eccoti l'output degli estratti, oltre quelli che vedi i restanti hanno 0 freq e 0 cop, contali e vedrai che sono corretti

Ciao....

 

[genios]

Come puoi vedere lo script non fa quello di cui ho bisogno . spia 14 in 5 posizione numero spiato 67 con l' uscita del 14 in 5 posizione nelle successive 9 estrazioni con lo script da te pubblicato conta 3 presenze e in effetti sono 3 . Ma a me serviva la modifica nel senso che anche se nelle 9 estrazioni successive vi sono piu' di una presenza conti sempre una sola presenza .

esempio di put :

Questo out sbagliato

Analisi dal 18.05.2002 al 22.06.2002
NUMERO SPIA 14 su Roma in 5° posizione
N° casi: 1

Frequenti nei 9 colpi successivi

Num. Ruota | Ambi a Ruot| Ambi a Tutte

N° Fre cop rit | Ambo Fr | Ambo Fr
67...03 - 01 - 0 | 31-38...01 | 70-90...3

out esatto

Analisi dal 18.05.2002 al 22.06.2002
NUMERO SPIA 14 su Roma in 5° posizione
N° casi: 1

Frequenti nei 9 colpi successivi

Num. Ruota | Ambi a Ruot| Ambi a Tutte

N° Fre cop rit | Ambo Fr | Ambo Fr
67...01 - 01 - 0 | 31-38...01 | 70-90...3

 

[claudio8]

Come puoi vedere lo script non fa quello di cui ho bisogno . spia 14 in 5 posizione numero spiato 67 con l' uscita del 14 in 5 posizione nelle successive 9 estrazioni con lo script da te pubblicato conta 3 presenze e in effetti sono 3 . Ma a me serviva la modifica nel senso che anche se nelle 9 estrazioni successive vi sono piu' di una presenza conti sempre una sola presenza .

scusa "Genios" ma sotto la scritta cop, a tuo parere cosa leggi?
i punti della tessera del supermercato Coop, o altro.
bisogna scrivere per intero "coperture" per farti capire di cosa stiamo parlando?
Se non sai cosa indicano le colonne N° , "fre", "cop", o "rit" chiedi
Capisco una svista a tarda ora ma al mattino penso tu sia + brillante dopo il caffè...
fatti un'altro e non pensarci troppo
Ciao

 

[genios]

scusa "Genios" ma sotto la scritta cop, a tuo parere cosa leggi?
i punti della tessera del supermercato Coop, o altro.
bisogna scrivere per intero "coperture" per farti capire di cosa stiamo parlando?
Se non sai cosa indicano le colonne N° , "fre", "cop", o "rit" chiedi
Capisco una svista a tarda ora ma al mattino penso tu sia + brillante dopo il caffè...
fatti un'altro e non pensarci troppo
Ciao

Non fare lo spiritoso stai facendo pubblicità occulta io faccio spesa alla conad dovresti mettere un ciclo for sulla variabile ess for ess = 1 to 9 e quando trova una presenza del numero spiato esce da ciclo altrimenti come puoi vedere dalla foto che ti ho postato all' interno delle 9 estrazioni conta 3 presenze del numero 67 .

Ciao Eugenio

 

[claudio8]

Io faccio pubblicità occulta, si, ma tu ti nascondi dietro ad un dito amico caro.. vai pure con i
ciao

 

[genios]

Io faccio pubblicità occulta, si, ma tu ti nascondi dietro ad un dito amico caro.. vai pure con i
ciao

che vuoi dire ? bho

Ma mi sono spiegato o no ?

 

[claudio8]

Non fare lo spiritoso stai facendo pubblicità occulta io faccio spesa alla conad dovresti mettere un ciclo for sulla variabile ess for ess = 1 to 9 e quando trova una presenza del numero spiato esce da ciclo altrimenti come puoi vedere dalla foto che ti ho postato all' interno delle 9 estrazioni conta 3 presenze del numero 67 .

Ciao Eugenio

Guarda che al post 7 https://forum.lottoced.com/threads/piccola-modifica-script.2213411/#post-2584225
c'è una scritta "Anticipazione spoiler Frequenti", cliccaci sopra e vedrai lo script nuovo (buongiorno mondo)
Il tuo consiglio buttalo nel cestino, non ha senso nello script che probabilmente non hai neanche aperto.
ciao

 

[genios]

Hai ragione non avevo notato la script coop scusa .

 

[keeper]

Io faccio pubblicità occulta, si, ma tu ti nascondi dietro ad un dito amico caro.. vai pure con i
ciao

signor Claudio8 le ultimamente prende troppi

 

[claudio8]

signor Claudio8 le ultimamente prende troppi

la cosa "ti" rende nervoso?
Ciao caro, dammi una mano con a qualche idea qui https://forum.lottoced.com/threads/...ertura-per-esito-di-ambo-o-superiori.2213398/ così smetto di caffeinare
Salutoni Keep