NUOVO AMBIENTE SCRIPT AREA TECNICA

[i legend]

Fortissimo anche luigi nella versione "comic"!

Si ma il colsplay è quello del cattivo Vega non quella del super genio dottor P.🤣🤣🤣🤣🤣

 

[i legend]

ciao ho provato ad utilizzare Elenco ritardi

mi salta un estrazione ma non può dipendere dall archivio perchè c'è vero?

manca la funzione Anno? ( non la trovo ma mi sembra che l avevamo scritta)

 

[Xeroxs]

Buongiorno a Tutti.

e Buon 8 Marzo a Tutte le Donne del Forum.

Vorrei segnalare un anomalia, l'archivio viene aggiornato ma nell'esecuzione e nella schermata di avvio si ferma comunque al e marzo, succede anche a Voi. Ho Verificato il file ed effettivamente lo aggiorna a quella di ieri, ma se poi lanci un test scrive e si ferma a quella del 2.

Ho usato ultimo aggiornamento e versione programma 262.

Grazie

 

[LuigiB]

ciao ho provato ad utilizzare Elenco ritardi

mi salta un estrazione ma non può dipendere dall archivio perchè c'è vero?

manca la funzione Anno? ( non la trovo ma mi sembra che l avevamo scritta)
ecco lo script

Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
' NON MODIFICARE IL NOME DI QUESTA SUB
Dim k As Long
Dim aRet() As STRUCT_ELENCO_RITARDI
Call ElencoRitardi("1,2",1,EstrazioneFin,1,aRet,1)
For k = UBound(aRet) To 1 Step - 1
    If Month(aRet(k).idEstrazione) = 3 Then Scrivi aRet(k).idEstrazione & " |  " & _
    DataEstrazione(aRet(k).idEstrazione) & " | " & StringaEstratti(aRet(k).idEstrazione,1)
    If CLng(Right(DataEstrazione(aRet(k).idEstrazione),2)) = 2 Then Exit For
Next
Scrivi "estrazione non rilevata"
Scrivi DataEstrazione(10051) & "|" & StringaEstratti(10051,1)
End Sub

che vul dire che ti perde uan estrazione ?

 

[lotto_tom75]

Buongiorno a Tutti.

e Buon 8 Marzo a Tutte le Donne del Forum.

Vorrei segnalare un anomalia, l'archivio viene aggiornato ma nell'esecuzione e nella schermata di avvio si ferma comunque al e marzo, succede anche a Voi. Ho Verificato il file ed effettivamente lo aggiorna a quella di ieri, ma se poi lanci un test scrive e si ferma a quella del 2.

Ho usato ultimo aggiornamento e versione programma 262.

Grazie

Ciao a tutti, io ho notato la stessa cosa con la versione 261. L'Archivio lotto si aggiorna ma non passa in automatico a visualizzare l'ultima e si ferma alla penultima estrazione anche se si chiude e si riavvia il programma. Solo mettendo a mano il numero dell'ultima estrazione in archivio questa verrà ricaricata ad ogni avvio del programma.

 

[i legend]

che vul dire che ti perde uan estrazione ?

L ho lanciata, e non rileva l ultimo caso
.ho segnato anche l estrazione che salta.

 

[LuigiB]

L ho lanciata, e non rileva l ultimo caso
.ho segnato anche l estrazione che salta.

l'ultimo caso non è un ritardo perche è in corso ..

 

[LuigiB]

elencouscite nell'ultimo elemento t da il ritardo corrente

 

[i legend]

Luigi salta l estrazione di sortita di un numero.
Dopo faccio la verifica con spaziometria 👍ti posto l anomalia
sicuramente sto utilizzando male io la sub

 

[LuigiB]

per il problema dell'ultima estrazione va inserita un'istruzione nel form script al pulsante aggiorna estrazioni

 

[i legend]

ciao potete controllare se i risultati a voi coincidono ?
script per twb

Public Sub MyScriptRoutine()

    ' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
    ' NON MODIFICARE IL NOME DI QUESTA SUB
    
       Dim k As Long, nTro As Long
  
  
   '''''''''''''''''''''''''''''''''''''''
    Dim aRetU() As STRUCT_ELENCO_USCITE
   Call ElencoUscite("0,1,2", 1, EstrazioneFin, 1, aRetU, 1)
  
    For k = UBound(aRetU) To 1 Step -1
         If Month(DataEstrazione(aRetU(k).idEstrazione)) = 3 Then
         nTro = nTro + 1
          Scrivi nTro & " | " & aRetU(k).idEstrazione & " |  " & _   
         DataEstrazione(aRetU(k).idEstrazione) & " | " & StringaEstratti(aRetU(k).idEstrazione, 1)
       '  If CLng(Right(DataEstrazione(aRet(k).idEstrazione), 2)) = 2 Then Exit For
    End If
    Next
  
  
End Sub

per spaziometria

Option Explicit
Sub Main
    Dim i,ntro
    Dim aE:aE = Array(0,1,2)
    Dim aR(1):aR(1) = 1
    ReDim aRit(0),aId(0)
    Call ElencoRitardiTurbo(aE,aR,1,1,EstrazioneFin,aRit,aId)
    For i = UBound(aId) To 1 Step - 1
        If Mese(aId(i)) = 3 Then
            ntro = ntro + 1
            Scrivi ntro & "  | " & GetInfoEstrazione(aId(i)) & "|" & StringaEstratti(aId(i),aR(1))
        End If
    Next
End Sub

ho 16 differenze

 

[salvo50]

Ciao

Anche io

-------------

Ho la 264

 

[LuigiB]

cioè tu vuoi ottenere il mese dall'id estrazione che non è una data con la funzione month ?

Month(aRet(k).idEstrazione)

 

[i legend]

Grazie Salvo.
Ho utilizzato anche elenco uscite.
Stesso risultato.
Cmq l estrazione 10051 nell archivio twb è presente l uno ma non lo rileva.

 

[i legend]

Adesso ricontrollo.graziw luigi.

 

[i legend]

Grazie Luigi, più che Vega ti vedo come occhio di falco 🤣🤣🤣🤣🤣

 

[i legend]

Salvo grazie. Mille.
Puoi cancellare la parte riportata così non si lasciano script non funzionanti correttamente. Grazie.

 

[Xeroxs]

Anche Io ho le stesse Vostre differenze.

 

[i legend]

ciao Xerox questo è lo script

di esempio- le differenze non sono da inputare all archivio ,
come scrivo sempre , l errore è dietro l angolo non siamo programmatori, ma tester

se non ho fatto errori
trova l elenco dei ritardi e dei concorsi
e filtra il mese voluto.

Public Sub MyScriptRoutine()

    ' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
    ' NON MODIFICARE IL NOME DI QUESTA SUB
  
       Dim k As Long, nTro As Long
 
 
   '''''''''''''''''''''''''''''''''''''''
    Dim aRetU() As STRUCT_ELENCO_USCITE
   Call ElencoUscite("0,1,2", 1, EstrazioneFin, 1, aRetU, 1)
 
    For k = UBound(aRetU) To 1 Step -1
         If Month(DataEstrazione(aRetU(k).idEstrazione)) = 3 Then
         nTro = nTro + 1
          Scrivi nTro & " | " & aRetU(k).idEstrazione & " |  " & _ 
         DataEstrazione(aRetU(k).idEstrazione) & " | " & StringaEstratti(aRetU(k).idEstrazione, 1)
       '  If CLng(Right(DataEstrazione(aRet(k).idEstrazione), 2)) = 2 Then Exit For
    End If
    Next
 
 
End Sub

 

[Xeroxs]

per il problema dell'ultima estrazione va inserita un'istruzione nel form script al pulsante aggiorna estrazioni


Vedi l'allegato 2255049

Grazie LuigiB, Corretto e Funzionante