Script biambo

[solare]

ok grazie

 

[Cinzia27]

.

 

[edesimone]

Buonasera Cinzia27 lanciando lo script su spaziometria mi esce questa schermata, è regolare?

 

[Cinzia27]

Esce sempre quella schermata se i risultati si susseguono non rapidamente.

 

[joe]

E' l'interfaccia prevista dal programma per permettere una via d'uscita dall'elaborazione qualora lo script non arrivi al suo termine in un tempo ragionevole.

È un classico watch dog informatico. Un cane da guardia che ci avvisa che il tempo di elaborazione ... è lungo.

Se sappiamo che è giusto che sia così, possiamo ignorare il suo "abbaiare" altrimenti si può fermare l'elaborazione senza cestinare e perdere tutto il lavoro.

Ovvero ci permette di correggere gli errori che generano tempi spropositati.

È anche previsto ogni quanto tempo il "giro di guardia" debba essere effettuato.

In spaziometria lo si stabilisce attraverso la finestrella in basso a sinistra scegliendo questo tempo.

NON è necessario scegliere di proseguire nello svolgimento del programma, oppure chiudere questa finestra. Lo script continua come se nulla fosse, purché non lo si fermi.

 

[rubino2]

io ottengo questo dall'integrale Tutte + Nazionale
io ho l'archivio fermo a 2 estrazioni fa, quindi rc attualmente + piu alto di 2
per esempio con cap. 4 , circa 10 minuti


4.46 : 6.89 Rc. 1 / 49
4.51 : 6.89 Rc. 1 / 49
4.51 : 22.30 Rc. 37 / 46
4.51 : 22.47 Rc. 4 / 49
4.51 : 41.58 Rc. 30 / 50
4.51 : 85.88 Rc. 32 / 50
4.59 : 53.68 Rc. 9 / 50
4.61 : 6.89 Rc. 1 / 46
4.61 : 12.39 Rc. 5 / 50
Totale Biambi Rintracciati 9


qualcuno ha qualche corrispondenza?

tolto lo script contiene un errore!

 

[Gam]

Gam, mi sembrava di averlo visto anche qui. Bravo!
Io ti ho fatto una gentile richiesta che riassumo, il tuo script è il più veloce ma occorre aggiungere la Nz, cioè l'analisi va fatta come se tutte anziché 10 sia composta da 11 ruote, inoltre occorre escludere se già non l'hai fatto gli storici in corso >=50.
Grazie

Ciao Cinzia,

di seguito lo script per SpazioMetria con qualche modifica che spero rispecchi le tue richieste.
Ribadisco che se ci mettiamo in gruppo e ci dividiamo i range di ricerca (facilmente fattibile tramite i parametri "i" e "j") possiamo velocizzare il tutto,

Anticipazione (Spoiler): Script Ricerca ritardi Storici di Biambi su TUTTE+NZ con output su TXT

Option Explicit
Dim FileOut
Sub Main
'-------------------------------------
'Scritto da GAM il 17.04.2023 x Cinzia
'BIAMBI a TUTTE + NZ - v. 1.0
'-------------------------------------

Dim R,R_NZ,Ambo1(2),Ambo2(2)
Dim MatriceAmbi(4005,2)
Dim rAtt,rSto,Pre,Frm
Dim LivArch,Riga,SFile
Dim x,y,q,i,j,eIni,eFin,n,RitMin

eIni = 7440'EstrazioneIni
eFin = EstrazioneFin

RitMin = 50 ' Ritardo Minimo
R = TT_
R_NZ = 12

SFile = GetDirectoryTemp & "Ricerca_di_Biambi_su_TT_e_NZ_" & "_da_" & EstrazioneIni & "_a_" & EstrazioneFin & "_L" & LivArch & ".txt"

Call EliminaFile(SFile) ' cancella eventualmente il file se gia esiste

For x = 1 To 89
For y = x + 1 To 90
q = q + 1
MatriceAmbi(q,1) = x
MatriceAmbi(q,2) = y
Next
Next
' ScriviMatrice (MatriceAmbi)
For i = 1 To 4004
If ScriptInterrotto Then
Call ScriviFile(SFile,TempoTrascorso)
Call CloseFileHandle(SFile) ' chiudo l'handle al file
Call LanciaFile(SFile) ' lancio il file si aprira notepad
Scrivi TempoTrascorso
Scrivi i
Scrivi j
Scrivi n
Exit Sub
End If

Ambo1(1) = MatriceAmbi(i,1)
Ambo1(2) = MatriceAmbi(i,2)
For j = i + 1 To 4005
If ScriptInterrotto Then
Call ScriviFile(SFile,TempoTrascorso)
Call CloseFileHandle(SFile) ' chiudo l'handle al file
Call LanciaFile(SFile) ' lancio il file si aprira notepad
Scrivi TempoTrascorso
Scrivi i
Scrivi j
Scrivi n
Exit Sub
End If

Ambo2(1) = MatriceAmbi(j,1)
Ambo2(2) = MatriceAmbi(j,2)
n = n + 1

Riga = FormattaStringa(n,"0000000") & " Ambo " & StringaNumeri(Ambo1,,1) & " " & StringaNumeri(Ambo2,,1)',,0

'Messaggio(i & " " & j & " -> " & n & " Ambi")
AvanzamentoElab 1,8018018,n

Call AddNumeriToGruppoStatistico(Ambo1,R)
Call AddNumeriToGruppoStatistico(Ambo2,R)
Call AddNumeriToGruppoStatistico(Ambo1,R_NZ)
Call AddNumeriToGruppoStatistico(Ambo2,R_NZ)

Call StatisticaGruppoFormazioni(2,rAtt,rSto,Pre,Frm,eIni,eFin,LivArch)

If rSto < RitMin Then

Riga = Riga & " RitATT " & FormattaStringa(rAtt,"000") & " RitSTO " & FormattaStringa(rSto,"000") & " Pre " & Pre
Call ScriviFile (SFile,Riga)
End If
Next
Next
Call ScriviFile(SFile,TempoTrascorso)
Call CloseFileHandle(SFile) ' chiudo l'handle al file
Call LanciaFile(SFile) ' lancio il file si aprira notepad

Scrivi
Scrivi TempoTrascorso
Scrivi i
Scrivi j
Scrivi n

End Sub

Interrompendo in qualunque momento, lo script restituisce fin dove è arrivata la ricerca.
Così facendo può essere effettuata in più momenti.

Saluti

 

[Cinzia27]

Ciao a tutti.
Altra nottata di lavoro per il pc che mi ha permesso di arrivare al biambo 7.48;38.61 .


DEFINITIVI INIZIALI

1.5;51.81 Sto: 45 At: 3
1.9;6.89 Sto: 47 At: 3
1.22;31.52 Sto: 47 At: 37
1.22;45.74 Sto: 49 At: 28
1.22;47.55 Sto: 49 At: 37
1.22;64.74 Sto: 49 At: 20
2.8;8.42 Sto: 48 At: 43
3.69;31.67 Sto: 45 At: 38
4.46;6.89 Sto: 49 At: 3
4.51;6.89 Sto: 49 At: 3
4.51;22.30 Sto: 46 At: 1
4.51;22.47 Sto: 49 At: 6
4.61;6.89 Sto: 46 At: 3
6.17;8.61 Sto: 47 At: 9
6.30;63.80 Sto: 48 At: 15
6.57;26.30 Sto: 49 At: 8
6.77;10.13 Sto: 48 At: 27
6.84;54.65 Sto: 49 At: 0
6.89;15.34 Sto: 49 At: 3
6.89;27.66 Sto: 49 At: 3
6.89;33.36 Sto: 48 At: 3
6.89;36.74 Sto: 49 At: 3
6.89;40.82 Sto: 48 At: 3
7.48;38.61 Sto: 48 At: 2

 

[Cinzia27]

io ottengo questo dall'integrale Tutte + Nazionale
io ho l'archivio fermo a 2 estrazioni fa, quindi rc attualmente + piu alto di 2
per esempio con cap. 4 , circa 10 minuti


4.46 : 6.89 Rc. 1 / 49
4.51 : 6.89 Rc. 1 / 49
4.51 : 22.30 Rc. 37 / 46
4.51 : 22.47 Rc. 4 / 49
4.51 : 41.58 Rc. 30 / 50
4.51 : 85.88 Rc. 32 / 50
4.59 : 53.68 Rc. 9 / 50
4.61 : 6.89 Rc. 1 / 46
4.61 : 12.39 Rc. 5 / 50
Totale Biambi Rintracciati 9


qualcuno ha qualche corrispondenza?

tolto lo script contiene un errore!

Ciao, Rubino. Ho controllato i tuoi risultati e sono giusti.
Soltanto una cosa: gli storici da considerare sono fino a 49.

 

[Cinzia27]

Ciao, Gam.
Io andrei avanti dalla 7.48;38.61 Sto: 48 At: 2
Puoi inserire il messaggio per visualizzare la riga attualmente di scorrimento? Quella che vedi nel messaggio 86 di Edisimone.
Grazie

 

[Cinzia27]

Per Solare: ho tolto il mio script poiché lo devo rivedere.
Tanto adesso abbiamo quello di Gam.

 

[Gam]

Ok, allora io inizio a far girare lo script impostando il seguente ciclo for (vedasi riga nello script)

For i = 520 To 1002

Parto quindi dal seguente Biambo
07.08 - 07.09

l'altro ciclo rimane come scritto:

For j = i + 1 To 4005

Se qualcuno vuole intervenire aiutandoci nella ricerca, segnali l'intervallo che intende fare, così gestiamo al meglio le risorse.
Saluti

 

[i legend]

Ho rivisto la mia routine.
Per eludere possibili errori , ho scritto delle funzioni che lo rallenteranno non di poco, purtroppo.
Lancio ora e lo lascio lavorare.
Spero di restare nelle 4 ore. Quindi per le 18 30.
Se finisce prima meglio.
Cinzia per arrivare a quei risultati hai impiegato 12 ore?
il mio pc si fonderebbe.
Quando finisco
Confronto i risultati con gli altri che avete postato.
Se va bene provo a riportarlo in twb e fare l exe. Magari crasha solo in fase di debugging.
A dopo.

 

[Gam]

Ok, non saprei a cosa ti riferisci visto che non ho capito che script usi per la ricerca.
Di sicuro il mio richiede ben più di qualche ora.

 

[i legend]

Appena finisce posto i risultati.
Spero termini nelle 4 ore , ma con le ultime modifiche potrebbe metterci di più.
Se i risultati coincidono posto anche lo script , sono curioso di vedere come gira su un PC più nuovo del mio.

 

[rubino2]

x ILegend

il mio in TB (exe) va in crash per la memoria.

il mio impiega circa 7/800 minuti piu' o meno in totale, per questo ho preferito parzializzarlo per cap, 10 minuti circa per cap o 360000 biambi analizzati

 

[Cinzia27]

Ok, allora io inizio a far girare lo script impostando il seguente ciclo for (vedasi riga nello script)

For i = 520 To 1002

Parto quindi dal seguente Biambo
07.08 - 07.09

l'altro ciclo rimane come scritto:

For j = i + 1 To 4005

Se qualcuno vuole intervenire aiutandoci nella ricerca, segnali l'intervallo che intende fare, così gestiamo al meglio le risorse.
Saluti

Ciao, Gam fino a dove arrivi che riparto da lì.
Col 7 mi sa che ce n'è solo 1,
dopo ci dovrebbe essere 8.18;48.67 Sto: 49 At: 9

 

[Cinzia27]

Ho rivisto la mia routine.
Per eludere possibili errori , ho scritto delle funzioni che lo rallenteranno non di poco, purtroppo.
Lancio ora e lo lascio lavorare.
Spero di restare nelle 4 ore. Quindi per le 18 30.
Se finisce prima meglio.
Cinzia per arrivare a quei risultati hai impiegato 12 ore?
il mio pc si fonderebbe.
Quando finisco
Confronto i risultati con gli altri che avete postato.
Se va bene provo a riportarlo in twb e fare l exe. Magari crasha solo in fase di debugging.
A dopo.

Quello che ho usato l'ho fatto girare su un altro programma, su Spaziometria non funziona.
Ma adesso abbiamo lo script di Gam, basta che dichiari da quale a quale biambo vuol farlo girare e poi li uniamo, Gam sta facendo girare il
biambo che inizia con 7

 

[Cinzia27]

Nell'attesa sempre con lo script di Gam sto facendo dal biambo 30.31-30.32

 

[i legend]

Appena finisce vi posto il mio script che gira su spaziometria.
Poi magari si può provare a parzializzare anche il mio
In 4 si potrebbe anche fare veloce .
L importante è che i tusultati coincidano.
Ora non posso utilizzare il PC che sta lavorando.
Penso che le 18.30 dovrebbe finire.