Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
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)
 
Ultima modifica:
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 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
Codice:
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 ?
 
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.
 
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
 
per il problema dell'ultima estrazione va inserita un'istruzione nel form script al pulsante aggiorna estrazioni


1678282716274.png
 
ciao potete controllare se i risultati a voi coincidono ?
script per twb
Codice:
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

Codice:
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
 
Ultima modifica:
cioè tu vuoi ottenere il mese dall'id estrazione che non è una data con la funzione month ?

Month(aRet(k).idEstrazione)
 
Grazie Salvo.
Ho utilizzato anche elenco uscite.
Stesso risultato.
Cmq l estrazione 10051 nell archivio twb è presente l uno ma non lo rileva.
 
Salvo grazie. Mille.
Puoi cancellare la parte riportata così non si lasciano script non funzionanti correttamente. Grazie.
 
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.

Codice:
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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
Indietro
Alto