Novità

Richiesta modifica script...

miki55

miki55

Advanced Member >PLATINUM PLUS<
CHIEDO AGLI AMICI DEL "CED" SE FOSSE POSSIBILE MODIFICARE QUESTO SCRIPT....
...da Spaziometria per passarlo su L8.
Grazie anticipate a chi mi fa questa cortesia...



Option Explicit

Sub Main()
' Lo script scandaglia l'archivio per rilevare la presenza di un estratto Isocrono su coppia di ruote in estrazioni continue
' Se tale condizione è rilevata lo script calcola il ritardo raggiunto dall'estratto su entrambe le ruote, il Ritardo Minimo, il Ritardo di Livello, ovvero il ritardo dell'Ambata Residua
' E' possibile impostare un Ritardo Minimo di ricerca (RitMinRic) per restringere i casi in gioco.

Dim rr1(1),rr2(1),rit1(1),rit2(1),Num(1),Min,RitMinRic
Dim Ini,Fin,LivArch
Dim es,rt,a,b,a1,b1,r1,r2,p1,p2,CasoATT,CasoParzATT

Ini = 9700'EstrazioneFin - 1000
Fin = EstrazioneFin

RitMinRic = 18

For LivArch = 0 To 0
For es = Ini To Fin - 1

If ScriptInterrotto Then Exit For
Messaggio(es & " - L" & LivArch)
AvanzamentoElab Ini,Fin,es

For r1 = 1 To 10
For r2 = r1 + 1 To 12 ' se metti apice ed elimini ciclo For (incluso il next a fine listato) togli da qui sotto, solo casi su ruote contigue
'r2= r1 + 1
If r2 = 11 Then r2 = 12

For p1 = 1 To 5
For p2 = 1 To 5

a = Estratto(es,r1,p1,LivArch)
b = Estratto(es + 1,r2,p2,LivArch)

a1 = Estratto(es + 1,r1,p1,LivArch)
b1 = Estratto(es,r2,p2,LivArch)

If a = b Then

Num(1) = a
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1,,,LivArch)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1,,,LivArch)

If es < Fin - 1 Then

If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT+1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

Else
If a1 = b1 Then

Num(1) = a1
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1,,,LivArch)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1,,,LivArch)

If es < Fin - 1 Then


If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)

rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT +1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

End If
End If
Next
Next
Next
Next ' da togliere per ruote contigue
Next
Next
Scrivi "Casi attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoATT
Scrivi "Casi parziali attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoParzATT

Scrivi TempoTrascorso
End Sub
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Miki55, non avendo + L8 non potrei capire quale riga e quale codice vanno in conflitto.
dovresti o dirci lo riga in errore per capire il possibile codice in errore.
Sicuramente l'ultimo codice non esiste in L8.
Scrivi TempoTrascorso, basta remmarlo.
Sicuramente qualcun'altro possiede L8 e può tranquillamente aiutarti, oppure se metti gli errori si può vedere,
Secondo me le discordanze sono poche e fattibili.

Ciao
 
C

claudio8

Premium Member
In l8 mancano sia diverse funzioni che la possibilità di inserire dei parametri specifici anche in funzioni presenti su entrambi i software.
Ance io non ho l8 ed oltre a suggerirti di usare Spaziometria non saprei come aiutarti
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Ho visto... l'errore potrebbe essere sul codice seriePrima che magari non legge tutto il codice con tutti i parametri fino a LivArch.
togli il tipo di gioco tanto il tipo di gioco è di default = zero
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1)
sembra solo questo il codice incriminato.
prova fammi sapere.

Ciao
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
claudio8 ha scritto:
In l8 mancano sia diverse funzioni che la possibilità di inserire dei parametri specifici anche in funzioni presenti su entrambi i software.
Ance io non ho l8 ed oltre a suggerirti di usare Spaziometria non saprei come aiutarti
Clicca per espandere...
Claudio... Miki55 aveva dei problemi ultimi ad installare spaziometria che non è riuscito a risolvere almeno facendo riferimento agli ultimi suoi post.. su questo argomento.
scusa era solo per dare valenza al tuo consiglio.
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Lo stesso motivo di errore deve essere StringaEstratti(es,r1) senza le virgole e senza archivi (LivArch)
sia con r1 che con r2 oppure il FormattaStringa

pian pian si arriva, peccato che ci possiede l8 non interviene.
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Purtroppo in questo ultimo caso non posso aiutarti.
Sembra mancare il componente di quel modulo, se vai su google con ricerca errore
Componente ActiveX 429 ci sono soluzione tra cui molte farlocche, vedi se leggendo trovi qualcosa di utile.
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Miki, installa questo programmino e fallo girare sembra ok per risolvere il problema errore 429 activeX.
app.mediafire.com

MediaFire

File sharing and storage made simple
app.mediafire.com app.mediafire.com
 
joe

joe

Advanced Member >PLATINUM PLUS<
Buona giornata a tutte/i.

Questo script contiene decine di cose da cambiare.

Mi è impossibile in questo momento perché non ho L8 su questo Pc.

Correggere "a naso" è poco utile.

Se poi girerà senza errori, sarà ancora abbastanza impegnativo controllare che produca gli stessi risultati.

Se non ci saranno altri ... la prossima settimana vedrò cosa riesco a fare.

Per Spaziometria, come ho scritto, e come si vede dalle immagini inviate è istallato e si avvia.

Poi si generano errori perché non ci sono i file o le cartelle o perché non ci si può accedere,

o perché i file e routine non sono registrati correttamente.

Quando si installa Spaziometria crea un file "Esito Installazione.log" consiglio di cercarlo e verificare,

voce per voce se c'è qualcosa di "non fatto" o concluso correttamente.

Domande: All'avvio di spaziometria si arriva aIla finestra principale del programma ?

Se si. In basso ci sono le estrazioni ed i limiti dell'archivio ?


:)
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Miki, lascia stare il programmino poi dopo la scansione ti chiede la registrazione e attivazione.

Joe, se si arriva prima con i suggerimenti a naso bene , altrimenti vedi quando ne hai la possibilità.

Ciao
 
joe

joe

Advanced Member >PLATINUM PLUS<
Ciao Mike.

Secondo me non sono compatibili:

If ScriptInterrotto Then Exit For

LivArch ... perciò

Estratto(es,r1,p1,LivArch)

SeriePrima(es + 2,EstrazioneFin,Num,rr1,1,,,LivArch) e simili

StringaEstratti(es,r1,,,LivArch) e simili

FormattaStringa(es,"0000") (ma non sono sicuro / ora sono > 10000)

:)
 
R

Ramco

Member
Codice: 
Option Explicit
'VERSIONE PULITA x LOTTODESK
Sub Main()
' Lo script scandaglia l'archivio per rilevare la presenza di un estratto Isocrono su coppia di ruote in estrazioni continue
' Se tale condizione è rilevata lo script calcola il ritardo raggiunto dall'estratto su entrambe le ruote, il Ritardo Minimo, il Ritardo di Livello, ovvero il ritardo dell'Ambata Residua
' E' possibile impostare un Ritardo Minimo di ricerca (RitMinRic) per restringere i casi in gioco.

Dim rr1(1),rr2(1),rit1(1),rit2(1),Num(1),Min,RitMinRic
Dim Ini,Fin,LivArch
Dim es,rt,a,b,a1,b1,r1,r2,p1,p2,CasoATT,CasoParzATT

Ini = 9700'EstrazioneFin - 1000
Fin = EstrazioneFin

RitMinRic = 18

For LivArch = 0 To 0
For es = Ini To Fin - 1

Messaggio(es & " - L" & LivArch)
AvanzamentoElab Ini,Fin,es

For r1 = 1 To 10
For r2 = r1 + 1 To 12 ' se metti apice ed elimini ciclo For (incluso il next a fine listato) togli da qui sotto, solo casi su ruote contigue
'r2= r1 + 1
If r2 = 11 Then r2 = 12

For p1 = 1 To 5
For p2 = 1 To 5

a = Estratto(es,r1,p1,LivArch)
b = Estratto(es + 1,r2,p2,LivArch)

a1 = Estratto(es + 1,r1,p1,LivArch)
b1 = Estratto(es,r2,p2,LivArch)

If a = b Then

Num(1) = a
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es+2,EstrazioneFin,Num,rr1,1)
rit2(1) = SeriePrima(es+2,EstrazioneFin,Num,rr2,1)

If es < Fin - 1 Then

If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT+1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

Else
If a1 = b1 Then

Num(1) = a1
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1)

If es < Fin - 1 Then


If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)

rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT +1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

End If
End If
Next
Next
Next
Next ' da togliere per ruote contigue
Next
Next
Scrivi "Casi attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoATT
Scrivi "Casi parziali attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoParzATT

End Sub

Così è pulito e funzionante per LOTTODESK....
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Miki, in passato anche qualcun altro ha avuto gli stessi messaggi di errori,
prova a leggere questa discussione Qui
 
miki55

miki55

Advanced Member >PLATINUM PLUS<
Ho provato anche così, ma niente da fare...
Mike volevo chiederti se inoltri gli script anche sul software V7
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto