SpazioLight.net

[LuigiB]

nuovo aggiornamento.

InstallazioneUtente_v_1_0_26

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

corrette le segnalazioni di legend e agginte diverse funzioni per gli script

Mese(idEstr As Integer) As Integer
MeseFT(idEstr As Integer) As Integer
Giorno(idEstr As Integer) As Integer
GiornoFT(idEstr As Integer) As Integer
Anno(idEstr As Integer) As Integer
AnnoFT(idEstr As Integer) As Integer
ScegliRange(ByRef nInizio As Integer, ByRef nFine As Integer, Optional ByRef nEstrTotRange As Integer = 0) As Boolean
ScegliRangeFT(ByRef nInizio As Integer, ByRef nFine As Integer, Optional ByRef nEstrTotRange As Integer = 0) As Boolean
IsPari(N As Integer) As Boolean
IsDispari(N As Integer) As Boolean
IsPrimo(N As Integer) As Boolean
SommaEstratti(idEstr As Integer, Ruota As Integer) As Integer
Distanza(a As Integer, b As Integer, Optional Limite As Integer = 90) As Integer
RuotaGemella(Ruota As Integer) As Integer
NumeriRipetutiRilevatiE(IdEstrazione As Integer, VetRitornoN() As Integer, Optional VetRitornoQ() As Integer = Nothing, Optional IncludiNaz As Boolean = True) As Integer
NumeriRipetutiRilevatiV(VetNumeri() As Integer, ByRef VetRitornoN() As Integer, Optional ByRef VetRitornoQ() As Integer = Nothing) As Integer
StringaEstratti(IdEstrazione As Integer, Ruota As Integer, Optional Separatore As String = ".") As String
StringaEstrattiFT(IdEstrazione As Integer, Optional Separatore As String = ".") As String

 

[Xeroxs]

Buongiorno a Tutti,

Ho Scaricato Nuova Versione, Aggiornamento eseguito.

Volevo dire che ho riscontrato piccole Anomalie di cui riporto le mie Osservazioni:

- Spazio

Ho creato un Piccolo Script Test Per Lo spazio che creo con " " ma con la nuova Versione in alcuni casi non lo Attiva
Riporto il mio Script

Class Script
    Sub Main
    Dim ini , fin , es  As Integer   
    Dim r As Integer
    'ini = EstrazioniArchivio - 50
    ini = EstrazioniArchivio
    fin = EstrazioniArchivio
    r = 9 
    ' Spunto Preso da Script Di I-Legend   
    Scrivi (NomeRuota(r)& " ",1,0) ' Lo Spazio è inserito ma non lo utilizza
    Dim aEstr(5) As Integer
    Call GetNumeriRuota(fin,r,aEstr)
    Scrivi (StringaNumeri(aEstr))
    Scrivi
    '
    Scrivi ("Ruota di Gioco ----------------> ",1,0)
    Scrivi (NomeRuota(r,False),1,,,ColoreRosso ) 
    Scrivi
    Scrivi ("Ultima Estrazione" & DataEstrazione(fin)) ' Non ho inserito Spazi
    Scrivi
    Scrivi ("Ultima Estrazione ----> " & DataEstrazione(fin)) ' Ho Inserito lo Spazio
    Scrivi
    Scrivi("Note:")
    Scrivi("Ho riscontrato queste anomalie con la Versione precedente Lo spazio quando utilizzo NomeRuota non lo Utilizza")   
    
 
    'inserire qui il proprio codice...
    End Sub
End Class

Ovvero Quando si Utilizza NomeRuota Lo Spazio non si Attiva mentre in altri casi si

Sotto Riporto l'esito dello stesso Script con la Versione Precedente




Come si Vede è Tutto Corretto

- Tabelle

Volendo Aprire uno script che mi ha Fatto Mike58 con le due Versione ho riscontrato questa differenza nello stampare i dati creati

Versione precedente



Versione Ultima



Certo Nulla di Sbagliato ma volevo capirne il Motivo

Il Mio è solo un Intento a voler segnalare quelle cose che riscontro come Anomalie, senza Voler apparire come Critica Negativa, Cerco di portare come sempre osservazioni che ritengo Costruttive per la realizzazione del Nuovo Progetto.

Ringrazio Come Sempre.

 

[LuigiB]

fai benissimo a fare le varie segnalazioni

 

[LuigiB]

scaricate questo file scompattatelo nella cartella del programma , deve sostituire quello che c'è gia , o meglio cancellate prima quello che c'è già e poi mettete questo

GiochiLib

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

dovrebeb risolvere i ldiscorso del layout e degli spazi.

 

[solare]

Ciao Luigi, sostituito il file, funziona alla grande.
Complimenti e grazie x tutto

 

[Xeroxs]

Grazie, LuigiB,
Scaricato e Funzionante.

 

[LuigiB]

nuovo aggiornamento

InstallazioneUtente_v_1_0_27

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

inserite 3 funziioni che mancavano negli script

GetPercorsoFormazioni() As String
GetPercorsoPreselezioni() As String
GetPercorsoTemp() As String


un nuovo script tanto per dimostrazioni varie

Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim cLung As ClsLunghette
        Dim nTrovati As Integer
        Dim aRuote() As Integer, Sorte As Integer, Inizio As Integer, Fine As Integer
        Dim aFile () As String 

        Dim aT() As String  = {"Formazione" , "Ritardo"}
        Call InitTabella ( aT )
        

        If ScegliRange ( Inizio , Fine ) Then
            If ScegliRuote (aRuote ) Then
                Sorte = ScegliSorte
                If Sorte > 0 Then
                    nTrovati = GetFileElencoInDir ( GetPercorsoFormazioni ,aFile ,"*.csv")
                    If nTrovati >0 Then
                        For k As Integer =0 To nTrovati -1
                            cLung = New ClsLunghette
                            cLung.Init(aRuote,Sorte,Inizio,Fine , GetClsArchivio)
                            cLung.AddNumeriFromFile ( aFile(k))
                            cLung.CalcolaRitardo
                           
                            aT(0) = GetFileNomeSenzaEst ( aFile(k) )
                            aT(1) = cLung.Ritardo 
                            AddRigaTabella (aT  )
                            AvanzamentoElab (0,nTrovati,k)
                            If ScriptInterrotto Then Exit For 
                        Next
                        
                        Call CreaTabella

                    End If
                End If
            End If
        End If
    End Sub
End Class

 

[genios]

Se dimentichi di mettere la Ruota non si riesce più ad uscire da SpazioLight .

 

[silop2005]

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.27

======================

Ciao Edoardo/Luigi ,

======================

vi allego delle immagine dove evidenzio due piccole modifiche

da effettuare, se possibile, al bellissimo programma:

=====================

=====================

=====================

Vi ringrazio e buona continuazione, bravi.

======================

Buon martedì a tutto il forum.

======================

A presto

Silop

 

[LuigiB]

ciao Silop , nel prossimo aggiornamento sarà cosi

 

[lotto_tom75]

Buongiorno a tutti, sto iniziando a provare a fare i primi passi con questa nuova ferrari di edo e luigi per quanto riguarda gli script...

Eseguendo quello di esempio alla sezione 16 #308 mi viene fuori qualcosa di questo tipo (ho cercato di aggiungervi solo il numero di ruote relativo all'ambo mostrato).

10.11 22.68 - 1245 - 876 - 43
10.11 05.72 - 1051 - 1347 - 26
10.11 38.42 - 967 - 1599 - 23
10.11 52.61 - 894 - 815 - 42
10.11 07.65 - 875 - 1466 - 44
10.11 46.54 - 655 - 727 - 52
10.11 28.68 - 642 - 704 - 57
10.11 22.81 - 625 - 1232 - 29
10.11 07.57 - 587 - 973 - 41
10.11 28.62 - 580 - 691 - 47
10.11 05.51 - 568 - 2673 - 25
10.11 56.70 - 566 - 1684 - 45
10.11 06.72 - 558 - 1669 - 36
10.11 59.86 - 545 - 907 - 47
10.11 24.42 - 517 - 2569 - 11
10.11 01.34 - 493 - 750 - 33
10.11 06.53 - 491 - 808 - 40
10.11 41.43 - 488 - 1096 - 37
10.11 53.65 - 472 - 1159 - 36
10.11 25.74 - 469 - 1255 - 50
10.11 23.87 - 468 - 773 - 50
10.11 44.45 - 462 - 751 - 39
10.11 42.80 - 460 - 775 - 48
10.11 16.68 - 455 - 805 - 52
10.11 18.88 - 449 - 620 - 30
10.11 12.49 - 448 - 1479 - 43
10.11 24.31 - 433 - 741 - 23
10.11 54.78 - 427 - 1771 - 34
10.11 05.11 - 420 - 651 - 66
10.11 03.22 - 404 - 1328 - 31
00:00:16

la domanda è.. rispetto all'output soprastante... 10 e 11 sono le ruote VE e NZ (e NZ non ha più valore 12 come in spazio?) e sono considerate unite? E quindi ad esempio l'ambo 22.68 sarebbe l'ambo in massimo ritardo rispetto a VE e NZ unite o cosa? Inoltre TT (unite) in questo programma (ultima attuale versione 1.0.27) a quale numero corrisponde? Grazie

 

[LuigiB]

Ciao Tom , si il motvo per cui in spaziometria tutte era 11 era peche si allineava a lottodesk e lottodesk a sua volta è stato fatto prima che esistesse la nazionale quindi per loro tutte è sempre stato 11 mettendo a 12 l ruota nazionale quando l'hanno creata.
Anche per facilità di programmazione invece la cdosa piu ovvia e fare le ruote da 1 a 12 dovetutte è 12 ... certo non lo è se devi sistemare un programa che gia prevedeva la ruota 11... ma il nostro programma è nuovo.

riguardo la funzione come molte altre dove vedi che il parametro è dichiarato "as object" puoi passare sia un valore semplice sia un array

Class Script
    Sub Main
        'inserire qui il proprio codice...
        ' ruota tutte
        Scrivi  ( AmboRitardo (1 ,2,12,EstrazioniArchivio ))
        ' prime 3 ruote
        Dim aRuote () As Integer = {0,1,2,3}
        Scrivi  ( AmboRitardo (1 ,2,aRuote,EstrazioniArchivio ))
    End Sub
End Class

 

[lotto_tom75]

Ciao Tom , si il motvo per cui in spaziometria tutte era 11 era peche si allineava a lottodesk e lottodesk a sua volta è stato fatto prima che esistesse la nazionale quindi per loro tutte è sempre stato 11 mettendo a 12 l ruota nazionale quando l'hanno creata.
Anche per facilità di programmazione invece la cdosa piu ovvia e fare le ruote da 1 a 12 dovetutte è 12 ... certo non lo è se devi sistemare un programa che gia prevedeva la ruota 11... ma il nostro programma è nuovo.

riguardo la funzione come molte altre dove vedi che il parametro è dichiarato "as object" puoi passare sia un valore semplice sia un array

Class Script
    Sub Main
        'inserire qui il proprio codice...
        ' ruota tutte
        Scrivi  ( AmboRitardo (1 ,2,12,EstrazioniArchivio ))
        ' prime 3 ruote
        Dim aRuote () As Integer = {0,1,2,3}
        Scrivi  ( AmboRitardo (1 ,2,aRuote,EstrazioniArchivio ))
    End Sub
End Class

Ciao Luigi grazie. Ho visto che, almeno per adesso, il programma non implementa la guida interattiva sui parametri di funzione vero? Sigh... io la trovavo utilissima... Ancora complimenti per tutto! Anche al tuo discepolo, mostro di bravura, Edoardo che saluto!

ps: In ogni sezione, se fosse possibile, consiglierei di mettere la possibilità di scegliere il gruppo numerico base desiderato tramite apposita tabella (es. nella sezione ambi isocroni ecc...) in modo da non dover valutare sempre ogni volta tutta la massa numerica dei 90.

 

[LuigiB]

nuovo aggiornamento
corretto problema segnalato da Genisos
selezione ruote sincronismi segnalato da silop

aggiunta funzione
IdRuotaFromName(NomeONomeBreve as string ) as integer

InstallazioneUtente_v_1_0_28

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

la guida c'è solo che non sta sul mouse ma sta in basso , mentre scrivi i parametri compare



se poi vi dicidete ad usare vbnet queste cose vedrete che è tutto un 'altro mondo .. scaricatelo è gratis e gl iscript si scrivono allo stesso modo in un ambiente molto piu potente

 

[i legend]

La guida ,non so se dipende dal mio pc ,ma non è immediata. Se scrivo non compaiono subito i parametri. Ma non ho ancora scaricato l ultima versione.

 

[LuigiB]

ora vediamo un esempio di come si posson ocreare delle funzioni utente che poi si possono usare in tutti gli script.

Vedete che ho aggiunto la funzione IdRuotaFromName



qualcuno potrebbe dire perche Luigi non ha messo le classiche come in spaziometria BA_ , CA_ eccetera ... e allora eccolo li che uno va nella scheda funzioni utente

e scrivve le sue 12 funzioni




da quel momento in tutti i suoi script potra usare la funzione Ba_

 

[LuigiB]

La guida ,non so se dipende dal mio pc ,ma non è immediata. Se scrivo non compaiono subito i parametri. Ma non ho ancora scaricato l ultima versione.

compaiono se ti muovi con le frecce o scrivi delel virgole all'interno delel parentesi

 

[genios]

Scelta ruota CA ma mette anche le formazioni di BA.

 

[LuigiB]

io ho provato e non me lo fa .. quindi non saprei..

 

[i legend]

Ciao , provo ad aggiornare ma non funzia. Sicuramente dipende dal mio PC,perché non sono riuscito con le ultime versioni.
Buon lavoro