Novità

Proviamo a Testare le funzioni script di spazio Light e chiedere delucidazioni sulle difficoltà riscontrate

Ilegend se fosse possibile :
Creare se possibile uno script che faccia ciò:

Input

Scegliere la ruota

Scegliere la decina naturale

Scegliere 2 posizioni estrazionali tra :

posizioni 1-2

posizioni 1-3

posizioni 1-4

posizioni 1-5

posizioni 2-3

posizioni 2-4

posizioni 2-5

posizioni 3-4

posizioni 3-5

posizioni 4-5



trovare il ritardo attuale per la sorte di ambata della decina naturale scelta nella posizione A

trovare il ritardo attuale per la sorte di ambata della decina naturale scelta nella posizione B

trovare il ritardo max di A

trovare il ritardo max di B

trovare il ritardo max di A+B



nella tabella di OUT

Scrivere il ritardo nella posizione A

Scrivere il ritardo nella posizione B

Scrivere somma ritardi A+B

Scrivere ritardo max A

Scrivere ritardo max B

Scrivere ritardo max A+B



Ciao Eugenio
 
Ciao Luigi, come hai potuto vedere mi sto anche divertendo a smanettare con i codici vbnet.
Con i doverosi Ringraziamenti per quello che metti a nostra disposizione (ahimè ancora pochini gli utilizzatori e sviluppatori).

Ti volevo chiedere se potevi aggiungere qualche codice presenti in vbscript e mancanti in vbnet.
I seguenti codici sono una manna dal cielo per statistiche complesse

StatEstratti
Abbinamenti
AddNumeriToGruppoStatistico(aNumeriA,Ruota)
StatisticaGruppoFormazioni

Grazie come sempre per l'attenzione.
 
Buona serata a tutti, non riesco x configurare i parametri TLS/SSL per aggiornare le estrazioni. (Impossibile creare un canale sicuro)
Da televideo non posso in quanto sono rimasto al 18/01/2022.Qualcuno può dare un mano per l'archivio? o aiutare a configurare i paramentr? razie
 
Per chi ha problemi circa l'aggiornamento.
Con lo script di spaziometria si è in grado di aggiornare l'archivio in csv di spaziolight.
Basta eseguire da spaziometria lo script e mettere il percorso di scrittura archivio.
Codice:
Option Explicit
Sub Main
   Dim nEstrInizio,nEstrFine
   Dim DataIni,DataFin
   Dim sFile
   Dim sChrSep
   Dim sDirDest
 
   MsgBox "Sostituisci nello script la directory dove verrà creato il file csv" & vbCrLf & "Poi elimina questo messaggio",vbInformation
   sDirDest = "C:\Users\Mike58\Desktop\SpazioLight\Archivio\" '<========== modificare questa riga con il percorso della cartella archivio sul vostro pc
  ' sDirDest = GetDirectoryAppData
 
   If DirectoryEsistente(sDirDest) Then
       sChrSep = ";"
       sFile = AddSlash(sDirDest) & "Lotto.csv"
       If EliminaFile(sFile) Then
       nEstrInizio = 1
       nEstrFine = EstrazioniArchivio
       Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
       End If
   Else
      MsgBox "Directory non trovata" & vbCrLf & sDirDest
   End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   Dim k,f,idEstr
   Dim sRecord
   Dim nProgr
   Dim sDataCorr
   Dim r,e
 
 
   For k = nEstrInizio To nEstrFine
      Call Messaggio("Estrazione : " & k)
      idEstr = k
      ReDim aNum(0)
      If GetEstrazioneCompleta(idEstr,aNum) Then
         nProgr = nProgr + 1
         sDataCorr = Replace(DataEstrazione(idEstr),".","/")
         sRecord = FormatSpace(nProgr,9,True) & sChrSep
         sRecord = sRecord & FormatSpace(IndiceAnnuale(idEstr),3,True) & sChrSep
         sRecord = sRecord & sDataCorr & sChrSep
       
         For r = 1 To 11
            For e = 1 To 5
               sRecord = sRecord & Format2(aNum(r,e)) & sChrSep
            Next
         Next
         sRecord = RimuoviLastChr(sRecord,sChrSep)
         Call ScriviFile(sFile,sRecord,False,True)
      Else
         Exit For
      End If
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
   Next
   Call CloseFileHandle(sFile)
  ' Call LanciaFile(sFile)
  Scrivi "Esportato file " & sFile
  MsgBox "Fine",vbInformation
End Sub

Function AddSlash(s)
   If Right(s,1) <> "\" Then
      AddSlash = s & "\"
   Else
      AddSlash = s
   End If
End Function
questa è la riga per il precorso
sDirDest = "C:\Users\Mike58\Desktop\SpazioLight\Archivio\"
 
esempio abbinamenti , è diversa da spaziometria va usata una struttura

Codice:
Class Script
    Sub Main
    'inserire qui il proprio codice...
        Dim aRetAbb () As STRUCT_ABBINAMENTO
        Dim NumSpia As Integer = 1 
    
        Call Abbinamenti (NumSpia ,aRetAbb,1,EstrazioniArchivio , 1 )

        For k As Integer = 1 To 90 
            Scrivi ( aRetAbb(k).numero & " quantita " & aRetAbb(k).quantita  )
        Next 
   
    End Sub
End Class

esempio statEstrattti , è diversa da spaziometria va usata una struttura

Codice:
Class Script
    Sub Main
    'inserire qui il proprio codice...
        Dim aRet () As STRUCT_VALORI_STAT_ESTRATTO
        Dim aRetOrd () As STRUCT_VALORI_STAT_ESTRATTO

        aRet =  StatEstratti (1 , EstrazioniArchivio ,1,,aRetOrd,"Ritardo",-1) 
 
        For k As Integer = 1 To 90 
            Scrivi ("Numero " &  aRet(k).numero & " Ritardo " & aRet(k).Ritardo  & " RitardoMax " & aRet(k).Ritardomax &  " IncrementoRitMax " & aRet(k).IncrementoRitMax & " Frequenza " & aRet(k).frequenza & " Presenze " & aRet(k).Presenze & " EstrSam " & aRet(k).EstrazioniEsa)
        Next


        Scrivi ( "Array ordinato")

        For k As Integer = 1 To 90 
            Scrivi ("Numero " &  aRetOrd(k).numero & " Ritardo " & aRetOrd(k).Ritardo  & " RitardoMax " & aRetOrd(k).Ritardomax &  " IncrementoRitMax " & aRetOrd(k).IncrementoRitMax & " Frequenza " & aRetOrd(k).frequenza & " Presenze " & aRetOrd(k).Presenze & " EstrSam " & aRetOrd(k).EstrazioniEsa)
        Next

    End Sub
End Class


esempio di statistica gruppi formazione , già c'era si fa cosi

Codice:
Class Script
    Sub Main
        Dim cLung As ClsLunghette
        Dim aRuote() As Integer, Sorte As Integer, Inizio As Integer, Fine As Integer
        If ScegliRange ( Inizio , Fine ) Then
            If ScegliRuote (aRuote ) Then
                Sorte = ScegliSorte
                If Sorte > 0 Then
                    cLung = New ClsLunghette
                    cLung.Init(aRuote,Sorte,Inizio,Fine , GetClsArchivio)
                    cLung.AddNumeri ("1.2.3.4")
                    ' oppure
                    Dim aN() As Integer =   {0 ,4 , 5 ,6}
                    cLung.AddNumeri (aN)
                    cLung.CalcolaStatistica
                    Scrivi ( Replace(cLung.GetStringaLunghette, vbCrLf , "<br>")) '  per mettere le righe una sotto l'altra ci vule il tag <BR>
                    Scrivi ()
                    Scrivi ("Ritardo          : " & cLung.ritardo )
                    Scrivi ("RitardoMax       : " & cLung.ritardoMax )
                    Scrivi ("IncrementoRitMax : " & cLung.IncrementoRitMax )
                    Scrivi ("Frequenza        : " & cLung.Frequenza )
                    Scrivi ("Presenze         : " & cLung.Presenze )
                    Scrivi ("EstrEsam         : " & cLung.EstrazioniEsaminate )
                End If
            End If
        End If
    End Sub
End Class
 
wow , bene Luigi, Grazie.
Capito al volo i primi 2, mentre per la statistica_gruppo devo prestare più attenzione, ma comunque credo di aver capito.
Infatti volevo domandarti circa il Codice ClsLunghette, ma ora ho capito l'utilizzo.

(y)👏👏
 
clslunghette è un contenitore al quale aggiungi le lunghette
poi lanci o la statistica o il ritardo.
 
ok fatto, cosi restituisce il numero delle presenze o uscite.
ma se io volessi (come lo avevo capito) scrivere l'elenco come faccio ?
ci ho provato ma in mancanza della spiegazione codice non ci sono arrivato.

Mi fai un qualche esempio.
Grazie
 
niente l'array è del tipo struct_uscita quindi vai nella documentazione a vedere quali sono i suoi membri.
fai un ciclo da 1 a nUscite e leggi le proprieta di ogni elemento dell'array

questa funzione è piu veloce di serieelencouscite da gli stessi dati tranne i numeri usciti e le posizioni di uscita
 
Ci stavo riflettendo e sono arrivato alla conclusione è una sorte di statistica sugli elenchi uscite

STRUCT_USCITA​




Public Structure STRUCT_USCITA
Dim IdEstrazione As Integer
Dim IdRuota As Integer
Dim Ritardo As Integer
Dim RitardoMax As Integer
Dim IncrementoRitMax As Integer
Dim Frequenza As Integer
Dim Presenze As Integer
Dim EstrazioniEsa As Integer
End Structure

Codice:
Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim aUscite () As Struct_uscita
        Dim nUscite As Integer
        Dim aNumeri () As Integer = {0,1,2,3,4,5,6}
        Dim Ruota As Integer = 1
        nUscite = ElencoUscite( aNumeri , Ruota , 2,EstrazioniArchivio-30,EstrazioniArchivio, aUscite )
        For k As Integer = 0 To aUscite.getupperbound(0)
            Scrivi (aUscite(k).iDEstrazione & vbTab &  aUscite(k).frequenza & vbTab & aUscite(k).ritardo  & vbTab & aUscite(k).ritardomax )
        Next
        Scrivi (nUscite)
    End Sub
End Class
 
penso di aver compreso l'utilizzo e la raccolta dati.
Super veloce

Codice:
Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim aUscite () As Struct_uscita
        Dim nUscite As Integer
        Dim aNumeri () As Integer = {0,21,75,15,48}
        Dim Ruota ,kk ,sorte As Integer
        sorte = 3
Scrivi (StringaNumeri(aNumeri) & " - Sorte : " &  NomeSorte (sorte,False) ,1)
        For Ruota = 1 To 11
            nUscite = ElencoUscite( aNumeri , Ruota , sorte ,1,EstrazioniArchivio, aUscite )
            For k As Integer = 0 To aUscite.getupperbound(0)
                If aUscite(k).presenze > 0 Then kk = kk + 1
                Dim es As Integer = aUscite(k).iDEstrazione
                Scrivi (NomeRuota(Ruota)& k & vbTab & aUscite(k).iDEstrazione & vbTab &  aUscite(k).frequenza & vbTab & aUscite(k).ritardo  & vbTab & aUscite(k).ritardomax & vbTab & StringaEstratti(es,Ruota) )
            Next
            Scrivi ()
        Next
        Scrivi (kk)
    End Sub
End Class

21.75.15.48 - Sorte : Terno
Ba0 2614 0 2440 0 75.48.79.21.27
Ba1 5679 1 3064 2440 40.58.15.21.48
Ba2 6385 2 705 3064 14.48.15.21.20
Ba3 8178 3 1792 3064 15.75.32.60.48
Ba4 9145 4 966 3064 15.48.22.21.01
Ba5 0 0 0 0
 
a me era servita per un test che stavo facendo , il ritardo massimo minimo di una combinazione su piu ruote , lo script ta nella cartella deglli script.
 
si !!! ho visto quello script, proprio perchè quella richiesta è stato uno spreco di energia senza nessuna interazione da parte del richiedente e nessuna soddisfazione, ed in più prendi anche dell'imbecille che non capisci la loro logica da parte dei soliti perditempo.
Lasciamo stare ma ricordiamola per monito futuro.
 
Luigi, senti.
Ho molti script in vbscript che fanno uso del codice EstrattoFrequenza e SerieFreq.
Ho chiaro il motivo per il quale questi codici sono stati omessi o non codificati in spazioLight, ma sono qui a chiederti se potresti inserirli.
Magari con Nome EstrattoPresente e SeriePresenza.
Lo so che potrei usare serieStat e statEsratto ma perche se voglio analizzare la presenza devo occupare memoria anche con gli altri dati statistici ?
Poi un codice utile era anche PosNumeroRit la posizione del ritardo o Estratto che allacicava il tipo di archivio (questo per allacciare gli archivi L1,L2 etc
Vedi tu ...ad ogni modo io mi diverto e mi diverto di più con le novità.

Ciao
 
ciao Mike , con il nuovo aggiornamento ci sono le funzioni che hai chiesto , tranne il discorso che prevede di leggere i numeri di un altro archivio.
Ho invece inserito queste due funzioni da usare in combinazione

ImpostaArchivio (GetPercorsoArchivio (1)) 'in questo caso tutte le funzioni lotto opereranno sull'archivio L1



ImpostaArchivio (GetPercorsoArchivio ()) ' cosi si imposta l'archviio normale
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
Indietro
Alto