|
| 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 a TUTTI , |
| ====================== |
| per prima cosa voglio ringraziare il bravo Claudio per lo script che ha sviluppato e la successiva evoluzione. |
| Premetto che conosco e ho collaborato nel 2018 , su altro forum, al progetto del bravo micro. |
| Nello spirito di collaborazione credo di aver capito cosa vuole intendere |
| il bravo micro ( che saluto) con la frase : |
| Adesso vai a ritroso estrazione dopo estrazione e compila un tabellone analitico di soli numeri azzurri. |
| Queste immagini cercheranno di aiutare a capire l'enigmatica frase: |
| Dopo aver lanciato l'ultimo script di Claudio, devi prendere la riga al RITARDO ZERO andando a ritroso NEL TEMPO. |
| ===================== |
|
|
| ===================== |
|
| ===================== |
| … ho tolto il tabellone classico che al momento non interessa…. |
| … quando si completerà il tabellone dei TERMINATORI (o ripetitori secondo silop) |
| … si affiancherà vicino ai due tabelloni già sviluppati con lo script di Claudio… |
| ===================== |
|
|
|
| ===================== |
|
| ===================== |
|
| ===================== |
|
| ===================== |
|
| ===================== |
|
| ===================== |
| Spero che queste immagini possono aiutare l'utente Andreandrea |
| a continuare lo sviluppo delle tabelle in excel. |
| Comunque aspettiamo micro per confermare la mia interpretazione/spiegazione della sua frase. |
| Buona notte 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 , |
| ====================== |
| a questa domanda è meglio che risponde direttamente micro. |
| ====================== |
| Buona domenica 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 a TUTTI , |
| ====================== |
| continuando il discorso di prima… ecco quello che intendevo. |
| ===================== |
| … quando si completerà il tabellone dei TERMINATORI (o ripetitori secondo silop) |
| … si affiancherà vicino ai due tabelloni già sviluppati con lo script di Claudio… |
| ===================== |
|
|
|
|
|
| ===================== |
| Questa è la situazione attuale della sola ruota di BARI, |
| da ampliare per TUTTE le altre ruote, come ha consigliato l'ideatore micro. |
| ===================== |
| Buona giornata a tutto il forum. |
| ====================== |
|
|
| A presto |
| Silop |
17/10/2020 |
Option Explicit
Sub Main()
Dim Ru,coRu,co,x,y,z,W,cc,lu,coW,numTer
Dim lunghetta(12,990)
Dim esR,ini,fin,p,es,esc,rit,num,RuElab,esAn
esAn = 30 '869 ' InputBox("Quantità estrazioni in analisi","ESTRAZIONI IN ANALISI",869) ' 300 max rit tab-SPMT
esc = 40 ' InputBox("Quante estrazioni di controllo Isotopia ","ESTRAZIONI di ISOTOPIA",40)
coRu =(Ru - 1)*5
Scrivi " Tabellone Analitico Classico e Tabellone Numeri TERMINATORI di Micro - Script by Claudio8 - estrazioni ctrl isotopia " & esc,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
Messaggio NomeRuota(Ru) & " " & DataEstrazione(es)
AvanzamentoElab 0,esAn,W
For p = 1 To 5
If W <= 300 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 <= 300 Then
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 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(0,lu) = lu
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 "..",,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 "..",,False,,,1
End If
Scrivi " ",,False
If p = 5 Then Scrivi "| ",,False,,,1
End If
Next
Next
Scrivi
Next
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
Scrivi
Scrivi " Lunghette Terminatori " & String(54," ") & " Tempo Trascorso : " & TempoTrascorso,1,1,,,1
For Ru = 1 To 11
If Ru = 11 Then Ru = 12
co = 0
Scrivi FormatSpace(NomeRuota(Ru),10,True) & " : ",1,False,4,,1
For x = 1 To UBound(lunghetta,2)
If lunghetta(Ru,x) > 0 Then
co = co + 1
Scrivi FormatSpace(lunghetta(Ru,x),2,True) & " ",1,False,4,,1
End If
Next
Scrivi String((84 - co*3),".") & Format2(co) & " Numeri",1,,,,1
Next
End Sub
