Novità

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

Mike58

Mike58

Advanced Member >PLATINUM PLUS<
LuigiB ha scritto:
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...
Clicca per espandere...
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.
 
L

LuigiB

Guest
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

i legend

Premium Member
ciao un piccolo esempio di ritardo sincrono di livello.
Codice: 
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 :)
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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
Codice: 
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
 
B

beppuzz

Junior Member
Mike58 ha scritto:
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
Codice: 
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
Clicca per espandere...
scusate raga,mi aiutate ad aggiornare l'archivio?? graziee
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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

www.mediafire.com

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
 
B

beppuzz

Junior Member
Mike58 ha scritto:
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

www.mediafire.com

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
Clicca per espandere...
grazie ancora Mike
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Per quanto riguarda il minimo e massimo Vettore, segnalato ... si può estrapolare il relativo valore con
OrdinaVettore

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

Mike58

Advanced Member >PLATINUM PLUS<
Test StatEstratto con posizioni per tipologia di RitardoCorr - Ritardomax - Freq - Incr

Codice: 
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
 
L

LuigiB

Guest
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

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

Mike58

Advanced Member >PLATINUM PLUS<
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

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

Mike58

Advanced Member >PLATINUM PLUS<
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....
 
L

LuigiB

Guest
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..
 
L

LuigiB

Guest
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
 
L

LuigiB

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


Codice: 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto