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

[Mike58]

unico consiglio che do è che dal momento che le tabelle ora sonosempre ordinabili conviene sempre mettere una colonna con un valore progressivo in modo che si possa ritornare all'ordnamento iniziale.

altra cosa anche se funziona lo stesso

Vedi l'allegato 2228464

la ruota o è un integer o è un array di integer. Non serve dichiararlo object ,se uno vule usare una ruota sola scrive dim Ruota as integer , se vuole usare piu ruote usa un array sempre integer...

Ciao Luigi, intanto mi fanno piacere i complimenti.
Sai !! non avendo più problemi di lavoro , il nuovo progetto di SpazioLight ed il vbNet sono da stimolo per tenere la mente allenata.
e comunque mi diverto anche...

P.s. Per la Ruota l'help dice di dichiararla object e poi in input box senza il Cint scriveva sempre 1 anche digitanto altro parametro.
comunque sperimento le idee che mi vengono.

Un saluto a tutti per i Like.

 

[LuigiB]

no object è un tipo di base che puo contenere qualsiasi tipo , percio alal fine funge lo stesso , usa la regola che ho detto sopra.

 

[i legend]

ciao un piccolo esempio di ritardo sincrono di livello.

Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim nLiv As Integer
        Dim R As Integer=1
        For  n As Integer =1 To 90
            Scrivi ( Format2(n) & "=" & RitSincronoDiLivello(n,R,EstrazioniArchivio,nLiv) & " " & nLiv)
        Next
        Scrivi ( FormattaSecondi(SecondiTrascorsi) )
    End Sub
End Class

Chiedo ,sarebbe possibile inserire nei parametri il ritardo (tanto va calcolato), e la stringa dei numeri sincroni(--.--,32,22,--), sono raccolte che non impegnano la funzione,
grazie per il vostro lavoro.
complimenti Mike

 

[i legend]

mike c' e 'la funzione scegliruota , perche utilizzare un input box?

 

[Mike58]

Ciao Luigi Una anomalia.
Volendo fare uno script per ritardi di posizione e da questo volendo scrivere minimo e massimo vettore
MinimoV - esiste
MassimoV - non eiste nei codici in spazioLight
Il problema che scrive il MassimoV e non scrive il MinimoV
Ti posto 2 schermate uno in spaziometria e l'altro in spazioLight.


script

Class Script
    Sub main
        Dim Ini As Integer = 7440 'EstrazioniArchivio  - 1000
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V()  As String
        Dim n , r , p , a , b , min , max As Integer
        Dim aPos()  As Boolean
        Dim pos () As Integer
        Dim maxx As Integer  = 100000000
        T = { "Num","P1","P2","P3","P4","P5","Min","Max" }
        Call InitTabella(T)
        For n = 1 To 90
            r = 6
            For p = 1 To 5
                ReDim aPos(5)
                aPos(p) = True
                a = EstrattoRitardo(n,r,fin,aPos)
                ReDim Preserve pos(p)
                pos(p) = a
                min = MinimoV(pos,maxx)
                max = MassimoV (pos)
            Next
            b = EstrattoRitardo(n,r,fin)
            V = { n,pos(1),pos(2),pos(3),pos(4),pos(5),min,max }
            Call AddRigaTabella(V)
        Next
        Call CreaTabella()
    End Sub
End Class

Mi aiuti a capire se faccio io errore di costruzione.
Grazie

 

[beppuzz]

Ciao Luigi Una anomalia.
Volendo fare uno script per ritardi di posizione e da questo volendo scrivere minimo e massimo vettore
MinimoV - esiste
MassimoV - non eiste nei codici in spazioLight
Il problema che scrive il MassimoV e non scrive il MinimoV
Ti posto 2 schermate uno in spaziometria e l'altro in spazioLight.


script

Class Script
    Sub main
        Dim Ini As Integer = 7440 'EstrazioniArchivio  - 1000
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V()  As String
        Dim n , r , p , a , b , min , max As Integer
        Dim aPos()  As Boolean
        Dim pos () As Integer
        Dim maxx As Integer  = 100000000
        T = { "Num","P1","P2","P3","P4","P5","Min","Max" }
        Call InitTabella(T)
        For n = 1 To 90
            r = 6
            For p = 1 To 5
                ReDim aPos(5)
                aPos(p) = True
                a = EstrattoRitardo(n,r,fin,aPos)
                ReDim Preserve pos(p)
                pos(p) = a
                min = MinimoV(pos,maxx)
                max = MassimoV (pos)
            Next
            b = EstrattoRitardo(n,r,fin)
            V = { n,pos(1),pos(2),pos(3),pos(4),pos(5),min,max }
            Call AddRigaTabella(V)
        Next
        Call CreaTabella()
    End Sub
End Class

Mi aiuti a capire se faccio io errore di costruzione.
Grazie

scusate raga,mi aiutate ad aggiornare l'archivio?? graziee

 

[Mike58]

Archivio > Aggiorna Estrazioni > Da Lottomatica

 

[beppuzz]

Archivio > Aggiorna Estrazioni > Da Lottomatica

Grazie Mike,mi esce scritto richiesta annullata

 

[Mike58]

No !!! a me non succede e le estrazioni si aggiornano tranquillamente.
Non saprei se Legge Luigi magari ti da qualche dritta in più.
Nel caso ti passo l'archivi in csv aggiornato
sostituiscilo al tuo nella cartella Archivio

Lotto

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[i legend]

Forse dipende dal sistema operativo. Stesso problema.

 

[Mike58]

Io uso Edge con windows 10 - nessun problema

 

[beppuzz]

No !!! a me non succede e le estrazioni si aggiornano tranquillamente.
Non saprei se Legge Luigi magari ti da qualche dritta in più.
Nel caso ti passo l'archivi in csv aggiornato
sostituiscilo al tuo nella cartella Archivio

Lotto

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

grazie ancora Mike

 

[Mike58]

Per quanto riguarda il minimo e massimo Vettore, segnalato ... si può estrapolare il relativo valore con
OrdinaVettore

Class Script
    Sub Main
        Dim Nu(5) As Integer
        Nu(1) = 10 : Nu(2) = 20 : Nu(3) = 5 : Nu(4) = 9 : Nu(5) = 80
        Scrivi (StringaNumeri(Nu),1)
Scrivi ("Ordine Crescente----------")
        OrdinaVettore (Nu,1,5,1)
        Scrivi (StringaNumeri(Nu) )
        Scrivi ("Min... " & Nu(1))
        Scrivi ("Max... " & Nu(5))
        OrdinaVettore(Nu,1,5,-1)
        Scrivi ("Ordine Decrescente-------")
        Scrivi (StringaNumeri(Nu))
        Scrivi ("Min... " & Nu(5))
        Scrivi ("Max... " & Nu(1))
    End Sub
End Class

10.20.5.9.80
Ordine Crescente----------
5.9.10.20.80
Min... 5
Max... 80
Ordine Decrescente-------
80.20.10.9.5
Min... 5
Max... 80

 

[Mike58]

Test StatEstratto con posizioni per tipologia di RitardoCorr - Ritardomax - Freq - Incr

Class Script
    Sub main
        Dim Ini As Integer = 1'EstrazioniArchivio  - 200
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V()  As String
        Dim n , r , p , a , b , rit , ritmax , fre , pre , incr , min , max As Integer
        Dim aPos()   As Boolean
        Dim pos () , OrdPos () , nFreq () , nSto () , nIncr()  As Integer
       r = CInt(InputBox("Ruota","Mike58",1))
        Scrivi ("Estrazioni inizio.... " & GetInfoEstrazione (Ini))
        Scrivi ("Estrazioni Fine...... " & GetInfoEstrazione (fin))
        Scrivi ("Ruota analizzata..... " & NomeRuota(r,False))
        Scrivi (Space(95) & "Script By Mike58" ,1)
        T = { " Numero ","RP1","RP2","RP3","RP4","RP5","Min","Max","-","Fr1","Fr2","Fr3","Fr4","fr5","-","ST1","ST2","ST3","ST4","ST5" ,"-","Incr1","Incr2","Incr3","Incr4","Incr5" }
        Call InitTabella(T,ColoreVerde ,,,ColoreBianco )
        For n = 1 To 90
            For p = 1 To 5
                ReDim aPos(5)
                aPos(p) = True
                'a = EstrattoRitardo(n,r,fin,aPos)
                Call StatEstratto (n,r,rit,ritmax,fre,pre,incr,Ini,fin, aPos )
                ReDim Preserve pos(p)
                pos(p) = rit
                ReDim Preserve OrdPos(p)
                OrdPos (p) = rit
                ReDim Preserve nFreq (p)
                nFreq(p) = fre
                ReDim Preserve nSto (p)
                nSto(p) = ritmax
                ReDim Preserve nIncr(p)
                nIncr(p) = incr
            Next
            OrdinaVettore (OrdPos,1,5,1)
            min = OrdPos(1)
            max = OrdPos(5)
            b = EstrattoRitardo(n,r,fin)
            V = { n,pos(1),pos(2),pos(3),pos(4),pos(5),min,max ,"-",nFreq(1),nFreq(2),nFreq(3) ,nFreq(4), nFreq(5),"-",nSto(1), nSto(2),nSto(3),nSto(4),nSto(5),"-",nIncr(1),nIncr(2),nIncr(3),nIncr(4),nIncr(5)   }
            Call AddRigaTabella(V)
        Next
        Call CreaTabella()
        Scrivi (Space (80) & "Tempo di Elaborazione : " & FormattaSecondi (SecondiTrascorsi))
    End Sub
End Class

 

[LuigiB]

il motivo per cui MinimoV dava sempre 0 è che in vbnet i vettori partono sempre dall'indice 0 , e ahime la funzione controllava tutti gli indici dell'array compreso lo 0 che siccome era 0 era anche il minimo valore.

Con la nuova versione 1.0.29 non capita , provare i lseguente script

Class Script
    Sub Main
    'inserire qui il proprio codice...
    
        Dim aN() As Integer 
        ReDim aN(10)
        
        For k As Integer = 1 To 10
            aN( k) = NumeroCasuale (1 , 90 )
            Scrivi ( aN(K) )
        Next

        Scrivi 
        Scrivi

        Scrivi ( MinimoV(aN ) )
        Scrivi ( MassimoV(aN) )

        Scrivi 
        Scrivi


        Scrivi ( MinimoV(aN  ,,1) )
        Scrivi ( MassimoV(aN ,,1 ) )

    End Sub
End Class

 

[Mike58]

I Migliori Ritardi di posizione in base all'incremento max.
P.s. non mi dite che siete stufi !!! ora che i tempi di elaborazione sono molto ridotti in confronto al vbscript

Class Script
    Sub main
        Dim Ini As Integer = 1'EstrazioniArchivio  - 200
        Dim fin As Integer = EstrazioniArchivio
        Dim T() , V() ,vV()  As String
        Dim n , r , p , a , b , rit , ritmax , fre , pre , incr , min , max ,kk , k As Integer
        Dim aPos()   As Boolean
        Dim pos () , OrdPos () , nFreq () , nSto () , nIncr() , sIncr  As Integer
        'r = CInt(InputBox("Ruota","Mike58",1))
        'Scrivi ("Estrazioni inizio.... " & GetInfoEstrazione (Ini))
        'Scrivi ("Estrazioni Fine...... " & GetInfoEstrazione (fin))
        'Scrivi ("Ruota analizzata..... " & NomeRuota(r,False))
        'Scrivi (Space(95) & "Script By Mike58" ,1)
        T = { " Numero ","RP1","RP2","RP3","RP4","RP5","Min","Max","-","Fr1","Fr2","Fr3","Fr4","fr5","-","ST1","ST2","ST3","ST4","ST5" ,"-","Incr1","Incr2","Incr3","Incr4","Incr5" ,"IncrMax","Ruota", "Contatore"}
        Call InitTabella(T,ColoreVerde ,,,ColoreBianco )
        For r = 1 To 10
            For n = 1 To 90
                For p = 1 To 5
                    ReDim aPos(5)
                    aPos(p) = True
                    'a = EstrattoRitardo(n,r,fin,aPos)
                    Call StatEstratto (n,r,rit,ritmax,fre,pre,incr,Ini,fin, aPos )
                    ReDim Preserve pos(p)
                    pos(p) = rit
                    ReDim Preserve OrdPos(p)
                    OrdPos (p) = rit
                    ReDim Preserve nFreq (p)
                    nFreq(p) = fre
                    ReDim Preserve nSto (p)
                    nSto(p) = ritmax
                    ReDim Preserve nIncr(p)
                    nIncr(p) = incr
                    If nIncr(p) <> 0 Then sIncr = nIncr(p)
                Next
                OrdinaVettore (OrdPos,1,5,1)
                min = OrdPos(1)
                max = OrdPos(5)
                b = EstrattoRitardo(n,r,fin)
                If sIncr > 0 Then
                    kk +=1
                    k +=1
                    Call Messaggio ("Incrementi su Ritardi di Posizione "  & Space(10) & NomeRuota(r,False) & Space(10) & "Script By Mike58 " & Space(10) & FormattaSecondi(SecondiTrascorsi))
                    Call AvanzamentoElab (r,n,kk)
                    V = { n,pos(1),pos(2),pos(3),pos(4),pos(5),min,max ,"-",nFreq(1),nFreq(2),nFreq(3) ,nFreq(4), nFreq(5),"-",nSto(1), nSto(2),nSto(3),nSto(4),nSto(5),"-",nIncr(1),nIncr(2),nIncr(3),nIncr(4),nIncr(5),sIncr,NomeRuota(r),kk & " - " & k  }
                    Call AddRigaTabella(V)
                    Call SetColoreCellaRighe((9-1),ColoreVerde)
                    Call SetColoreCellaRighe((15-1),ColoreVerde)
                    Call SetColoreCellaRighe((21-1),ColoreVerde)
                    Call SetColoreCellaRighe((1-1),ColoreVerde,ColoreBianco )
                    Call SetColoreCellaRighe((27-1),ColoreVerde,ColoreBianco )
                End If
                sIncr = 0
            Next
            vV  = { "--","","","","","","","" ,"-","","","" ,"", "","-","", "","","","","-","","","","","","--",NomeRuota(r) ,kk & " - " & k }
            Call AddRigaTabella(vV ,ColoreVerde,,,ColoreBianco  )
            k = 0
        Next
        Call CreaTabella()
        Scrivi (Space (80) & "Tempo di Elaborazione : " & FormattaSecondi (SecondiTrascorsi))
    End Sub
End Class

 

[Mike58]

Da tanto tempo che vorrei elaborare uno script performante per la Raccolta dei Terni Vergini su Ruota Tutte.
Ma ahimè il procedimento standard dei 3 cicli for o anche con InitSviluppoIntegrale i tempi di elaborazione sono molto alti.
Bisognerebbe cercare un algoritmo performante o metterlo come finestra nel programma.
elenco..........
40 - 43.54.75
41 - 44.57.70
42 - 50.58.69
43 - 62.78.90
Tempo > 00:20:33
non metto lo script....

 

[LuigiB]

scusa tu usi la seerieStat o la SerieRitardo ?
Con la seconda è molto piu veloce un terno mai uscito è un terno che ha un ritardo >0 e una frequenza uscite o come cazzosi chiama uguale a 0 ...
hai provato ? o meglio ancora visto che la frequenza non la da serie ritardo . basta vedere i ritardi che sono ugauli al numero estrazioni contenute nel range..

 

[LuigiB]

ti sconsigli vivamente di fare i 3 cicli for che non se possono vede ... a parte che ai fini della velocità non serve a nulla

 

[LuigiB]

fallo piu bell oma col mio sistema ci vogliono 39 secondi ..

Class Script
    Sub Main
        Dim Inizio As Integer =1 
        Dim Fine As Integer = EstrazioniArchivio
        Dim Classe As Integer = 3 
        Dim Sorte As Integer = 3 
        Dim aRuote() As Integer
        Dim nMaxRitPos = Fine - (Inizio -1)
        Dim aN(90) As Integer 
        Dim aCol (Classe ) As Integer
        Dim nIntegrali As Integer 
        Dim nSviluppate As Integer

        If ScegliRuote (aRuote) Then 
            For k As Integer = 1 To 90 
                aN(k) = k
            Next
            
            nIntegrali = InitSviluppoIntegrale (aN , Classe )
            Do While GetCombSviluppo (aCol)
                If SerieRitardo ( aCol ,aRuote ,Sorte,Fine ) = nMaxRitPos Then 
                    Scrivi ( StringaNumeri ( aCol ))
                End If 
                    
                nSviluppate +  =1 
                If nSviluppate Mod 1000 =0 Then 
                    AvanzamentoElab ( 1 , nIntegrali , nSviluppate )
                    If ScriptInterrotto Then Exit Do 
                End If 
            Loop

            Scrivi ( FormattaSecondi ( SecondiTrascorsi ))

        End If 
    End Sub
End Class