Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
...claudio8,Aspettiamo lui per una conferma!
==============================================Silop, micro...
siete pazzi da legare. non esiste una funzione in Spaziometria?
se non esiste, dovrei ricostruire a ritroso la tabelle del più ritardatario dei TERMINATORI e contare il numero di estrazioni trascorse?
Ho capito bene?
Se è così ci va uno script nello script-.....
Rispondetemi se avete coraggio
Saluti
|
| SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9 |
| ====================== |
| Ciao Claudio , |
| ====================== |
| AHAHAHHHHh… AHAHAHHHHh ….AHAHAHHHHh |
| Forte Claudio …. Ahhahha ahhhahh … |
| Hai ragione Claudio non esiste una funzione già preconfezionata |
| del calcolo del RR-RP1 Ritardo Relativo alla prima posizione o a tutte le posizioni. |
| Se non ricordo male |
| all'epoca della "costruzione" dei SVP il buon LuigiB |
| per risolvere questo problema (non conosco i termini tecnici) trovo la soluzione di memorizzare i dati |
| delle tabelle in file.txt le ricerche di un primo periodo |
| poi successivamente |
| questi file venivano aggiornati con le poche estrazioni successive |
| tutte le tabelle. |
| ====================== |
| Lo so è un lavoraccio, ma per me lo script che hai fatto |
| e che mi da le risultanze attuali è già uno script OTTIMO, poi vedi tu. |
| ====================== |
| Buona giornata a tutto il forum. |
| ====================== |
|
| A presto |
Silop  |
Esatto questa potrebbe essere la soluzione, da intraprendere e quindi va costruita accuratamente in modo che ci dia il benedetto indicatore RP1/RC.==============================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9 ====================== Ciao Claudio , ====================== AHAHAHHHHh… AHAHAHHHHh ….AHAHAHHHHh Forte Claudio …. Ahhahha ahhhahh … Hai ragione Claudio non esiste una funzione già preconfezionata del calcolo del RR-RP1 Ritardo Relativo alla prima posizione o a tutte le posizioni. Se non ricordo male all'epoca della "costruzione" dei SVP il buon LuigiB per risolvere questo problema (non conosco i termini tecnici) trovo la soluzione di memorizzare i dati delle tabelle in file.txt le ricerche di un primo periodo poi successivamente questi file venivano aggiornati con le poche estrazioni successive tutte le tabelle. ====================== Lo so è un lavoraccio, ma per me lo script che hai fatto e che mi da le risultanze attuali è già uno script OTTIMO, poi vedi tu. ====================== Buona giornata a tutto il forum. ====================== A presto Silop
Option Explicit
Sub Main()
Dim Ru,coRu,co,x,y,z,W,cc,lu,coW,numTer,col,coT,insRP1
Dim lunghetta(12,990)
Dim numLung(12,90)
Dim aruote(2)
ReDim aNum(0)
ReDim aRit(0)
aruote(1) = 11
aruote(2) = 12
Dim esR,ini,fin,p,es,esc,rit,num,RuElab,esAn
Call PiuRitardatari(EstrazioneFin,aruote,aNum,,aRit)
esAn = CInt(InputBox(" Quantità estrazioni in analisi " & Chr(13) & Chr(13) & " Attuale Massimo Ritardo su TT e NZ","ESTRAZIONI In ANALISI",aRit(1)))
esc = InputBox("Quante estrazioni di controllo Isotopia ","ESTRAZIONI di ISOTOPIA",40)
coRu =(Ru - 1)*5
Scrivi " Tabellone Analitico Classico e Tabellone TERMINATORI di Micro - Script by Claudio8 - estrazioni ctrl isotopia " & esc & " max rit. " & aRit(1),1,,3,2,1
Scrivi " Data N°estr Rit ",1,False,6,,1
For Ru = 1 To 11
If Ru = 11 Then Ru = 12
Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico Terminatore",33,False),1,False,6,,1
Next
Scrivi
For W = esAn To 0 Step - 1
If ScriptInterrotto Then Exit For
ini = EstrazioneFin - esc - W
ReDim Term(esc,55)
ReDim TermFin(1,55)
fin = EstrazioneFin - W
Call GeneraAnalitico(EstrazioneFin)
co = 0
For es = ini To fin - 1
co = co + 1
rit = esc - co + 1
For Ru = 1 To 11
coRu =(Ru - 1)*5
If Ru = 11 Then Ru = 12
For p = 1 To 5
For esR = es + 1 To fin
If Estratto(esR,Ru,p) = Estratto(es,Ru,p) Then Term(co,coRu + p) = Estratto(esR,Ru,p)
Next
Next
Next
Next
For z = 1 To coRu + p - 1
For y =(esc) To 1 Step - 1
If Term(y,z) > 0 Then
TermFin(1,z) = Term(y,z)
Exit For
End If
Next
Next
Scrivi DataEstrazione(es) & " [" & es & "] " & FormatSpace(W,3,1) & " | ",1,False,,,1
For Ru = 1 To 11
coRu =(Ru - 1)*5
If Ru = 11 Then Ru = 12
For p = 1 To 5
If W <= aRit(1) Then
num =(TabelloneAnalitico(W,Ru,p))
If num > 0 Then
Scrivi FormatSpace(num,2,True) & " ",,False,,,1
Else
Scrivi "-- ",,False,,,1
End If
Else
Scrivi ".. ",,False,,,1
End If
If p = 5 Then Scrivi "| ",1,False,,,1
Next '
For p = 1 To 5
cc = 0
If W <= aRit(1) Then
For es = fin - 1 To ini Step - 1
If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then
cc = cc + 1
End If
Next
If cc > 0 And Estratto(fin,Ru,p) = TabelloneAnalitico(W,Ru,p) Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,3,,1
lu = lu + 1
lunghetta(Ru,0) = SiglaRuota(Ru)
lunghetta(Ru,lu) = Estratto(fin,Ru,p)
ElseIf cc > 0 Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
Else
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
'Scrivi "..",,False,,,1
End If
If p < 5 Then Scrivi " ",1,False,,,1
If p = 5 Then Scrivi " | ",1,False,,,1
Else
For es = fin - 1 To ini Step - 1
If Estratto(fin,Ru,p) = TermFin(1,coRu + p) Then cc = cc + 1
Next
If cc > 0 Then
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),1,False,,,1
Else
Scrivi FormatSpace((Estratto(fin,Ru,p)),2,True),,False,,6,1
'Scrivi "..",,False,,,1
End If
Scrivi " ",,False
If p = 5 Then Scrivi "| ",,False,,,1
End If
Next
Next
Scrivi
Messaggio " Data estrazione - " & DataEstrazione(EstrazioneFin - W) & " - estr.da analizzare " & W
AvanzamentoElab 0,esAn,W
Next
Messaggio " Scrittura output - estrazione finale " & DataEstrazione(EstrazioneFin) & " - analizzate " & aRit(1)
Scrivi " Data N°estr Rit ",1,False,6,,1
For Ru = 1 To 11
If Ru = 11 Then Ru = 12
Scrivi "|" & FormatSpace(SiglaRuota(Ru) & " Analitico Terminatore",33,False),1,False,6,,1
co = 1
For x = 1 To UBound(lunghetta,2)
If lunghetta(Ru,x) > 0 Then
co = co + 1
numLung(Ru,co) = lunghetta(Ru,x)
numLung(Ru,0) = Ru
End If
Next
Next
Scrivi
Scrivi
Scrivi " Lunghette Terminatori " & String(12," ") & " Estrazioni analizzate : " & FormatSpace(esAn,4,1) & " al " & DataEstrazione(EstrazioneFin) &" Indice " & EstrazioneFin,1,1,3,2,1
For Ru = 1 To 11
AvanzamentoElab 0,11,Ru
If Ru = 11 Then Ru = 12
co = 0
Scrivi FormatSpace(NomeRuota(Ru),12,True) & " : ",1,False,4,,1
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
ColoreTesto 2
Scrivi Format2(numLung(Ru,x)) & " ",1,False,4,,1
Else
Scrivi Format2(numLung(Ru,x)) & " ",1,False,4,,1
End If
End If
ColoreTesto 0
Next
Scrivi String((84 - co*3),".") & Format2(co) & " Numeri",1,,,,1
co = 0
Scrivi FormatSpace("Rit.",12,True) & " : ",1,False,,,1
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
If co = 1 Then numLung(Ru,1) = RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru)
If RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x + 1),EstrazioneFin,Ru) Or RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru) = RitardoEstratto(numLung(Ru,x - 1),EstrazioneFin,Ru)Then
ColoreTesto 2
Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),2,True) & " ",,False,,,1
Else
Scrivi FormatSpace(RitardoEstratto(numLung(Ru,x),EstrazioneFin,Ru),2,True) & " ",,False,,,1
End If
End If
ColoreTesto 0
Next
Scrivi String((84 - co*3),".") & " RC",1,,,,1
co = 0
ReDim numVer(90)
ReDim ruoVer(12)
Dim retClp
Scrivi FormatSpace("clpEsito",12,True) & " : ",1,False,,,1 ' x silop in questa riga, se vuoi modificare clpEsito a tuo piacere, max 12 caratteri compreso spaziature
For x = 2 To UBound(numLung,2)
If numLung(Ru,x) > 0 Then
co = co + 1
numVer(1) = numLung(Ru,x)
ruoVer(1) = Ru
If VerificaEsitoTurbo(numVer,ruoVer,EstrazioneFin + 1,1,(EstrazioniArchivio - EstrazioneFin),,,retClp) = True Then
Scrivi FormatSpace(retClp,2,True) & " ",1,False,,,1
Else
Scrivi "--" & " ",1,False,,,1 ' sostiuito ng con --
End If
End If
Next
Scrivi String((84 - co*3),".") & " Clp di Risortita",1,,,,1
Scrivi ' serve a lasciare una riga vuota tra le ruote
Next
Scrivi " Tempo Trascorso : " & TempoTrascorso,1,,,,1
End Sub|
|
| SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9 |
| ====================== |
| Ciao Claudio , |
| ====================== |
| grazie per lo script. |
| Volevo fare un controllo come anche tu hai indicato alla fine del post |
| ma non riesco a capire cosa vogliono dire tutti questi "ng" nella riga " clpEsito" alla 9846. |
| ====================== |
| Poi se metto un paio di estrazioni indietro, compaiono dei valori al posto di "ng". |
| Quando più vado indietro nel tempo questi valori al posto dei "ng" aumentano. |
| Ho fatto varie indagini a ritroso, ma lo stesso non sono riuscito a capire a cosa si riferiscono. |
| Ho pensato saranno gli esiti dei solo terminatori nella ruota ma lo stesso non mi trovo. |
| ====================== |
| Comunque sarà forse colpa di questo maledetto virus che sta nell'aria che non mi fa capire un tubo eheh ehehe |
| ====================== |
| Se mi potresti fare un esempio pratico di come debbo leggere e controllare questi dati |
| ====================== |
| Buona giornata a tutto il forum. |
| ====================== |
|
|
| A presto |
| Silop |
| Volevo fare un controllo come anche tu hai indicato alla fine del post |
| ma non riesco a capire cosa vogliono dire tutti questi "ng" nella riga " clpEsito" alla 9846. |
| Poi se metto un paio di estrazioni indietro, compaiono dei valori al posto di "ng". si, se si verificano esiti dei terminatori viene il scritto il clp dello specifico Terminatore |
| Quando più vado indietro nel tempo questi valori al posto dei "ng" aumentano. Chiaro se va indietro di 1 estrazione l'esito aumento indicando che il colpo di esito per es. dal 1° passa al 2° . Man mano che vai indietro nell'archivi questi numeri crescono di valore essendo aumentata la distanza da estrazioneFin di SPMT a estrazione di esito che lo script controlla su tullo l'archivio esistente . |
| Ho fatto varie indagini a ritroso, ma lo stesso non sono riuscito a capire a cosa si riferiscono. |
| Ho pensato saranno gli esiti dei solo terminatori nella ruota( esatto) ma lo stesso non mi trovo. Perchè non tiritrovi ho controllato e gli esiti sno giusti. |
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9 ====================== Ciao Claudio , ====================== grazie per lo script. Volevo fare un controllo come anche tu hai indicato alla fine del post ma non riesco a capire cosa vogliono dire tutti questi "ng" nella riga " clpEsito" alla 9846. ====================== Poi se metto un paio di estrazioni indietro, compaiono dei valori al posto di "ng". Quando più vado indietro nel tempo questi valori al posto dei "ng" aumentano.
Ciao Silop, io ho inteso per "ng" i numeri che non sono ancora usciti, forse "non giudicabili"(?)
Se vai alla 9845, quindi a ritroso, trovi tutti i numeri delle lunghette uscite ieri, cioè trovi 1 per il 20 di Bari, il 3 di Genova etc...:
in rosso ci sono, come avevi chiesto i sincronismi.
Ho fatto varie indagini a ritroso, ma lo stesso non sono riuscito a capire a cosa si riferiscono.Ho pensato saranno gli esiti dei solo terminatori nella ruota ma lo stesso non mi trovo. ====================== Comunque sarà forse colpa di questo maledetto virus che sta nell'aria che non mi fa capire un tubo eheh ehehe ====================== Se mi potresti fare un esempio pratico di come debbo leggere e controllare questi dati ====================== Buona giornata a tutto il forum. ====================== A presto Silop
)
|
|
| SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9 |
| ====================== |
| Ciao Claudio , |
| ====================== |
| adesso ho capito |
| non è altro che la distanza (in estrazioni) |
| che intercorre tra la fine dell'indagine a video (barra di SPMT) con la risortita dello stesso (numero) |
| nelle estrazioni future che lo script già conosce ( che tiene in memoria). |
| vedi immagini il numero 28 capolista (come esempio) : |
| ===================== |
|
|
|
| ===================== |
|
| ===================== |
| Comunque, non lo conoscevo questo nuovo indicatore, per questo non riuscivo |
| a capire cosa rappresentasse la riga "clpEsito". |
| Lo potresti cambiare (se vuoi) in "clpAttesi" oppure "risortita" |
| ===================== |
| Buon lavoro. |
| ====================== |
| Buona giornata a tutto il forum. |
| ====================== |
|
|
| A presto |
| Silop |
Salve!
Volevo dare un piccolo NON contributo (il virus ce l'ho da bambino
Non avendo capito praticamente nulla (mente chiusa per fallimento) mi sono divertito a fare alcune prove astruse e ho trovato questo:
Verifica fatta dopo l'estrazione del 03/11
Al 15/9 a Venezia e Torino viene indicato il 34 (tra i numeri azzurri) stai usando uno script datato, prova con quello del post #84 e potrai vedere queste date in consecutivo.
saluti
tu puoi cercarlo nello script e sostituirlo come ti pare ), poi ho sostituito ng con "--" ed inserito una riga vuota tra le ruote per separarle visivamente. 
saluti micro
