Novità

SpazioLight.net

il programam è appena nato e qualche cosa da sistemare c'è sempre anche negl iscript per esempio ho vito che ordinamatrice nellaversioen attuale non funziona. io ho corretto poi doman imetteremo la nuova versione.
 
Ciao a tutti
ho provato lo script di mike per inserirlo in tabella ed ordinarlo ma non riesco, dove sbaglio?
lo script è un test e non funzia :(
Mike scritto cosi almeno su spaziometria è molto piu veloce su spazio net non so se ci sia differenza in realtà
Codice: 
Class Script
' Come si ordina la tabella?
Sub Main
    Dim a,b,k As Integer
    Dim ru(2) As Integer
    Dim nu(2) As Integer
    Dim ini As Integer = 1
    Dim M As Integer
    Dim fine As Integer = EstrazioniArchivio
    Dim nSorte As Integer = 2
    Dim Ritardo ,RitardoMax,IncrRitMax, Frequenza As Integer
    Dim aTit() As String ={"  ID   ","    Ambo    ","      Rit      ","        RitMax        ","   Sca    ","    Pres    "}
    InitTabella(aTit)
    Dim Mat() As String
    ReDim Mat(aTit.GetUpperbound(0))
    For n1 As Integer = 1 To 89
        For n2 As Integer = n1 + 1 To 90
            k +=1
            For r1 As Integer = 1 To 10
                a = AmboRitardo(n1,n2,r1,fine)
                If a>=400 Then
                    For R2 As Integer = r1+1 To 11
                        b = AmboRitardo(n1,n2,R2,fine)
                        If a = b  Then
                            M+=1
                            ru(1) = r1 : ru(2) = R2
                            nu(1) = n1 : nu(2) = n2
                            Call SerieStat(nu,ru,nsorte,Ritardo,RitardoMax,Frequenza,,IncrRitMax,ini,fine)
                            Mat(0)=M
                            Mat(1) = StringaNumeri(nu)
                            Mat(2) = FormatSpace(Ritardo,5,1)
                            Mat(3) = FormatSpace(RitardoMax,5,1)
                            Mat(4) = IncrRitMax
                            Mat(5) = Frequenza
                            Call AddRigaTabella(Mat)
                        End If
                    Next
                End If
            Next
            Call AvanzamentoElab(1 ,4005 ,k)
        Next
    Next
    CreaTabella()
End Sub
End Class
ciao a tutti
buona notte :)
 
Certo Luigi i test servono prorio per questo,
se vediamo che qualcosa non va lo segnaliamo, al momento testo il tutto, per le richieste assurde mi riservo del tempo :ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO:
 
i legend ha scritto:
Ciao a tutti
ho provato lo script di mike per inserirlo in tabella ed ordinarlo ma non riesco, dove sbaglio?
lo script è un test e non funzia :(
Mike scritto cosi almeno su spaziometria è molto piu veloce su spazio net non so se ci sia differenza in realtà
Codice: 
Class Script
' Come si ordina la tabella?
Sub Main
    Dim a,b,k As Integer
    Dim ru(2) As Integer
    Dim nu(2) As Integer
    Dim ini As Integer = 1
    Dim M As Integer
    Dim fine As Integer = EstrazioniArchivio
    Dim nSorte As Integer = 2
    Dim Ritardo ,RitardoMax,IncrRitMax, Frequenza As Integer
    Dim aTit() As String ={"  ID   ","    Ambo    ","      Rit      ","        RitMax        ","   Sca    ","    Pres    "}
    InitTabella(aTit)
    Dim Mat() As String
    ReDim Mat(aTit.GetUpperbound(0))
    For n1 As Integer = 1 To 89
        For n2 As Integer = n1 + 1 To 90
            k +=1
            For r1 As Integer = 1 To 10
                a = AmboRitardo(n1,n2,r1,fine)
                If a>=400 Then
                    For R2 As Integer = r1+1 To 11
                        b = AmboRitardo(n1,n2,R2,fine)
                        If a = b  Then
                            M+=1
                            ru(1) = r1 : ru(2) = R2
                            nu(1) = n1 : nu(2) = n2
                            Call SerieStat(nu,ru,nsorte,Ritardo,RitardoMax,Frequenza,,IncrRitMax,ini,fine)
                            Mat(0)=M
                            Mat(1) = StringaNumeri(nu)
                            Mat(2) = FormatSpace(Ritardo,5,1)
                            Mat(3) = FormatSpace(RitardoMax,5,1)
                            Mat(4) = IncrRitMax
                            Mat(5) = Frequenza
                            Call AddRigaTabella(Mat)
                        End If
                    Next
                End If
            Next
            Call AvanzamentoElab(1 ,4005 ,k)
        Next
    Next
    CreaTabella()
End Sub
End Class
ciao a tutti
buona notte :)
Clicca per espandere...
La cosa straordinaria che ha implementato LuigiB è che puoi farlo direttamente in runtime... tradotto...clicca sul titolo della colonna che vuoi ordinare nell'output e vedrai la magiaa :)
 
anticipazioni :
Il vbnet è un linguaggi oad oggetti anche se noi ai nostri script abbiamo dato un'impostazione simile alal vecchi spaziometria nonsignifica che non possiamo sfruttare la potenza del linguaggio , nella prossima versione sara possibile questo script

vedete che si fa riferimento ad un oggetto esposto dalle funzionalita di script , basta istanziarlo , inizializzarlo e richiedergli o la statistica o il ritardo tramite le rispettive funzioni CalcolaStatistica e CalcolaRitardo , io qui ho usato CalcolaStatistica



Codice: 
Class Script
    Sub Main
    'inserire qui il proprio codice...
        Dim ItmLung As ClsLunghetta 
        Dim Coll As Collection = New Collection
        Dim aN(1) As Integer
        
         
        For r As Integer = 1 To 11
            Messaggio ( "Analisi su " & NomeRuota (r) )
            For n As Integer = 1 To 90 
                aN(1) = n 
                ItmLung = New ClsLunghetta
                If ItmLung.Init( aN ,r ,1,1 ,EstrazioniArchivio, GetClsArchivio) Then 
                    ItmLung.CalcolaStatistica
                    Call AddItemCollection ( Coll , ItmLung , "")
                End If 


            Next 
            
            AvanzamentoElab (1 , 11, r)
        Next

        OrdinaItemCollection (coll ,"Ritardo",-1)

        For Each itmlung In coll 
                Scrivi ( FormatSpace ( itmlung.StringaNumeri  , 5) & " Rit : " & FormatSpace( itmLung.Ritardo ,5 )  & " RitMax : " &  FormatSpace (itmLung.RitardoMax,5)  & " IncrRitMax : " &  FormatSpace (itmLung.IncrementoRitMax,5)  & " Freq : " &  FormatSpace (itmLung.Frequenza,5) & " Pres : " &  FormatSpace (itmLung.Presenze,5)  & " EstrEsam : " &  FormatSpace (itmLung.EstrazioniEsaminate,5)  ) 

        Next 
    End Sub
End Class
 
questo è un esempio di ordinamatrice , sempre appena Edoardo posta la nuova versione

Codice: 
Class Script
    Sub Main

            Dim aMatrice ( ,) As Object ' cosi olendo posso scrivere sia testo che numeri  , ma posso usare anche altri tipi specifici volendo 
            ReDim aMatrice (10 ,2)
            Dim aVoci () As String = {"Pere", "Mele" , "Arancie" ,"Mandarini" }


            For k As Integer = 1 To 10
                aMatrice(k , 0)  = aVoci ( numerocasuale (0 ,3 ))
                For e As Integer = 1 To 2 
                    aMatrice(k , e) = NumeroCasuale(1 , 90)

                Next 
            Next

            ScriviMatrice ( aMatrice , "Non ordinata" )

            ' vogliamo ordinalre la matrice decrescente per le colonne 1 e 2
            Dim aColPerOrdinamento (1) As Integer 
            aColPerOrdinamento ( 0) = 1
            aColPerOrdinamento ( 1) = 2
            
            Dim aVerso (1) As Integer ' verso decrescente per tutte e due le colonne 
            aVerso(0) = -1
            aVerso (1) = -1

            Call OrdinaMatrice( aMatrice ,aColPerOrdinamento ,aVerso ,1) ' siccome alimentiamo la matrice a partire da 1 anche l'ordinamento parte da 1 
 

            ScriviMatrice ( aMatrice , "ordinata  verso decrescente per tutte e due le colonne 1 e 2 " )
            
            Scrivi ("come si vede avendo iniziato a valorizzare la matrice dall'indice 1 , l'elemento 0 e' nothing")
    End Sub
    
    Sub ScriviMatrice (aMat (,) As Object   , sTesto As String )
        
        Dim sRiga As String  


        Scrivi ( stesto )

        ' qui ci siamo sbagliati e non ci ricordiamo che la matrice è valorizzzata da 1 in poi , il ciclo qui parte da 0 vedere cosa succede

        For k As Integer  = 0 To aMat.Getupperbound(0)

            sRiga = ""

 

            For e As Integer =0 To amat.getupperbound(1)
                If isnothing (amat (k,e)) Then
                    sriga = sriga & FormatSpace ("Nothing"  , 10 ,True ) & " |"
                Else
                    sriga = sriga & FormatSpace ( amat (k,e).tostring  , 10 ,True ) & " |"
                End If 

            Next 
            Scrivi (sRiga )
        Next
    End Sub 
End Class
 
lo script di Mike potrebbe essere scritto cosi sempre con la nuova versione appena facciamo l'aggiornamento

Codice: 
Class Script
Sub Main
    Dim a,b  As Integer
    Dim ru(2) As Integer
    Dim nu(2) As Integer
    Dim Mat(4005,5) As Integer
    Dim ini As Integer = 1
    Dim fin As Integer = EstrazioniArchivio - 1
    Dim fine As Integer = EstrazioniArchivio
    Dim nSorte As Integer = 2
    Dim Ritardo,RitardoMax,IncrRitMax,Frequenza As Integer
    Dim esito() As String
    Dim coll As Collection = New Collection
    Dim itm As ClsLunghetta
    For r1 As Integer = 1 To 10
        For r2 As Integer = r1 + 1 To 11
            For n1 As Integer = 1 To 89
                For n2 As Integer = n1 + 1 To 89
                    a = AmboRitardo(n1,n2,r1,fin)
                    b = AmboRitardo(n1,n2,r2,fin)
                    If a = b And a > 400 Then
                        itm = New ClsLunghetta
                        'k +=1
                        ru(1) = r1 : ru(2) = r2
                        nu(1) = n1 : nu(2) = n2
                        itm.Init( nu ,ru,nsorte,ini ,fine,GetClsArchivio )
                        itm.CalcolaStatistica
                        AddItemCollection  ( coll , itm   )
                    End If
                Next
            Next
        Next
        Call AvanzamentoElab(1 ,10 ,r1)
    Next
    Call OrdinaItemCollection (coll ,"Ritardo" ,-1)
    For Each itm   In coll
        Scrivi (itm.StringaNumeri & " - " & FormatSpace (itm.Ritardo , 5 ) & " - " & FormatSpace (itm.RitardoMax , 5 ) & " - " & FormatSpace (itm.Frequenza , 5 ) )
    Next
    Scrivi ( FormattaSecondi ( SecondiTrascorsi ))
End Sub
End Class

da me la fa in 8 secondi

1639999678281.png
 
Aggiornamento 1.0.10

Cambiamenti:

-Varie implementazioni ed aggiustamenti SpazioLightScript
- Inserita funzionalità "Ambi isocroni" in sezione statistica

www.mediafire.com

SpazioLight 1.0.10

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
 
Ciao edo e ciao luigi, il mio precedente post al riguardo sembra vi sia passato inosservato (ringrazio a proposito l'amico Serse che ha provato a darmi una soluzione purtroppo non risolutiva per il momento).

Vi riporto pertanto un nuovo screen shot più dettagliato al riguardo..

In modo da capire se c'è un sistema o meno per evitare che, ogni volta che installo questo vostro super programma, Norton si accanisca contro di esso e prima mi metta in quarantena questi tre elementi sotto indicati ed evidenziati in rosso e poi me li rimuova del tutto... Sarebbe bello anche capire da cosa possa dipendere questa ossessione del mio antivirus riguardo queste due dll e l'exe. Grazie per l'attenzione mitici. Credo che il problema lo abbiano tutti i possessori di questo antivirus particolarmente puntiglioso pignolo e forse eccessivamente attento nel cercare falle sw. 👋🙂


dacosapuodipendere.jpg
 
Ciao Lotto-tom75,

Purtroppo alcuni Antivirus, quando scarichi alcuni programmi hanno un livello di sicurezza esagerato, fin troppo esagerato e bloccano questi file fino ad eleminarli come è giusto che sia. Io ho rinunciato a questi tipi di Antivirus in quanto devi configurarli bene altrimenti continuano a bloccare cose che non sono pericolose.
Ovvio che il programma in oggetto non è malevolo, quindi devi dire a Norton che è legittimo per Te scaricarlo ed installarlo.
 
Xeroxs ha scritto:
Ciao Lotto-tom75,

Purtroppo alcuni Antivirus, quando scarichi alcuni programmi hanno un livello di sicurezza esagerato, fin troppo esagerato e bloccano questi file fino ad eleminarli come è giusto che sia. Io ho rinunciato a questi tipi di Antivirus in quanto devi configurarli bene altrimenti continuano a bloccare cose che non sono pericolose.
Ovvio che il programma in oggetto non è malevolo, quindi devi dire a Norton che è legittimo per Te scaricarlo ed installarlo.
Clicca per espandere...

Quindi metterlo nelle eccezioni permanenti? 🙄 Già fatto.. ma il problema si ripresenta ovviamente per ogni nuova versione del programma... 🥴 Quindi, se fosse possibile, vorrei evitare di recuperarlo ogni volta dalla quarantena e di metterlo nelle eccezioni... Chiedevo ai due bravissimi programmatori se sapevano da cosa potesse dipendere e come potervi eventualmente rimediare in fase di strutturazione del programma appunto... Ma a giudicare dalla concisa risposta del Maestro credo proprio non si possa... 😵 Grazie comunque a tutti gli intervenuti... Ciao e buon proseguo di lavoro 👋🙂
 
Non Credo che dipenda dal programma è proprio Norton...


Non so se hai fatto in questo modo un mio amico ha eseguito il tutto così.

ESCLUSIONE DELLA FIRMA DA TUTTE LE SCANSIONI​

  1. Avviare Norton.
    Se viene visualizzata la finestra My Norton accanto a Sicurezza del dispositivo, fare clic su Apri.
  2. Fare clic su Impostazioni.
  3. Nella finestra Impostazioni, fare clic su Antivirus.
  4. Nella scheda Scansioni e rischi, accanto a Firme da escludere da tutte le rilevazioni, fare clic su Configura.
  5. Nella finestra Esclusioni firme, fare clic su Aggiungi.
  6. Nella finestra Rischi per la sicurezza in Elenco dei rischi per la sicurezza, selezionare la firma che si desidera escludere dalla scansione.
  7. Per ulteriori informazioni sulla firma selezionata, fare clic su Dettagli rischio. Se si desidera escluderla comunque, fare clic su Aggiungi.
  8. Fare clic su Applica, quindi su OK.
  9. Fare clic su Chiudi.
 
Ciao
Nel ringraziarvi del lavoro fin qui fatto
volevo segnalare che l'ultima versione 1.0.10
non aggiorna le estrazioni .
dbr58
 
Ciao Si Ho notato anche Io, Ma per me è il sito da dove si aggiorna il programma. Ho testato e verificato ma credo che sia per questo, anche perchè non credo che abbia usato una versione precedente... infatti non aggiornavano anche le altre versioni che prima erano ok... bisogna aspettare un pochetto... credo.
 
  • Like
Reazioni: dbr
mha secondo me dall'agenzia dei monopoli hanno visto che stiamo facendo un superprogramma e ci hanno boicottato.
a me risulta che abbiano cambiato ..non si riescono piu a leggere i numeri ..
 
LuigiB ha scritto:
mha secondo me dall'agenzia dei monopoli hanno visto che stiamo facendo un superprogramma e ci hanno boicottato.
a me risulta che abbiano cambiato ..non si riescono piu a leggere i numeri ..
Clicca per espandere...
=============================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.9
======================
Ciao Luigi ,
======================
in un mio post precedente avevo consigliato
di fare una opzione alternativa di aggiornamento dell'archivio del lotto
alla pagina 786 del Televideo RAI, che al 99% è sempre presente tra le ore 20:30 / 21:00 dopo ogni estrazioni.
======================
Da quella pagina aggiorno l'archivio di Spaziometria Basedati.dat con un vecchio script del bravo Mike58
che poi metto a disposizioni di tutti con la tua vecchissima utility del 2017.
======================
Comunque l'aggiornamento dell'archivio alla 10018 al programma di Edoardo "SpazioLight" vers. 1.0.9
ha aggiornato senza problemi.
======================
Buon lunedì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 ottobre 2025
    Bari
    53
    07
    12
    77
    21
    Cagliari
    17
    74
    24
    69
    44
    Firenze
    08
    47
    25
    83
    33
    Genova
    02
    68
    29
    43
    67
    Milano
    84
    90
    75
    45
    72
    Napoli
    49
    06
    09
    12
    20
    Palermo
    13
    65
    34
    86
    07
    Roma
    15
    02
    10
    13
    83
    Torino
    59
    67
    80
    35
    26
    Venezia
    73
    04
    06
    74
    27
    Nazionale
    62
    79
    38
    36
    48
    Estrazione Simbolotto
    07
    01
    28
    12
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto