SpazioLight.net

[zagort]

perche copia incolla se basta fare tutto premendo il pulsante ?

ok,capita spesso che i televideo fanno saltare il formato di acquisizione o l indirizzo,va bene potresti accontentarmi solo con l indice mensile

 

[LuigiB]

l'indice mensile lo mette da solo dopo che si fa salva .. se cambiano il formato cambierebeb anche il formato del testo opiato in memoria..

 

[silop2005]

caro Silop ti abbiamo accontentato , in extrama ratio quando non funziona niente ...
vedi che bella icona abbiamo messo

Vedi l'allegato 2227196

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

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

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

Ciao Luigi ,

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

grazie a nome mio e di tutti gli appassionati di questo gioco del lotto,

a te e a l'ottimo allievo Edoardo.

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

Buon martedì a tutto il forum.

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

A presto

Silop

in meno di un mese ci sono state 13k visite pag.18

complimenti

 

[Mike58]

Ciao a Tutti.
Io invece vado avanti con gli script ma non tutto mi riesce fare.
Per esempio il ritardo di posizione (ok) ma il vettore min e massimo non mi riesce farlo
Poi domanda ma gli input box qualcuno li ha provati ? a me va in errore tutto.
Bhè un quesito per volta cerchiamo di imparare.

Class Script
Sub Main
    'inserire qui il proprio codice...
    Dim Ini As Integer  = EstrazioniArchivio - 200
    Dim fIn As Integer  = EstrazioniArchivio
    Dim tot As Integer = fIn - Ini + 1
    Dim n , r , a , p ,aa(5)  As Integer
    Dim min , max As Integer
    Dim riga As String
    Dim pos(5)
    'Dim nmax As Decimal = 1000
    Dim T() As String = {" Num "," Ruota ", " RD1  ","  RD2 ","  RD3  ","   RD4 ","    RD5 "," Min "," Max " }
    InitTabella(T ,ColoreBlu,,,ColoreBianco)
    For n = 1 To 90
        'r = InputBox("Quale Ruota ",,1)
        r = 1
        For p = 1 To 5
            Dim nu(5) As Integer
            Dim apos () As Boolean
            ReDim apos(5)
            apos(p) = True
            a = EstrattoRitardo(n,r,fIn,apos , tot )
            ReDim Preserve pos(p)
            pos(p) = a
            '---------------------------------
            'min = MinimoV(pos,nmax )
            'max = MassimoV(pos)
            '---------------------------------------
            riga = riga & Format2 (a) & " "
        Next
        Dim V () As String
        ReDim V (T.GetUpperbound(0))
        V(0) = n
        V(1) = NomeRuota(r)
        V(2) =  pos(1)
        V(3) =  pos(2)
        V(4) =  pos(3)
        V(5) =  pos (4)
        V(6) =  pos (5)
        V(7) = "Min" 'min
        V(8) = "Max" ' max
        Call AddRigaTabella(V)
        'Scrivi (n & vbTab & riga)
        riga = ""
    Next
    Scrivi ("Tempo di Elaborazione.... " & FormattaSecondi(SecondiTrascorsi),1,,ColoreVerde,ColoreBianco,100)
    Call CreaTabella()
End Sub
End Class

 

[Edoardo_95]

Edo quando e se hai 5 min di tempo mi potresti "correggere" lo script che ti ho riportato sopra in modo che dia valori corretti per analisi posizionali collimanti con il tuo programma? Io ci ho provato ma purtroppo collima solo se scelgo di analizzare le 5 posizioni unite ovviamente in quanto i miei errori risiedono evidentemente nell'analisi delle singole o multiple posizioni... quando queste sono <= 4 su una o + ruote unite. Grazie

Sisi perché no. Mandamelo in privato per non intasare questo post con elementi esterni

 

[LuigiB]

si attualmente minimov e massimov accettano solo il tipo decimal .. dobbiam oaggiungere anche il tipo integer

 

[lotto_tom75]

Sisi perché no. Mandamelo in privato per non intasare questo post con elementi esterni

Fatto grazie mille mito!!!

 

[Edoardo_95]

Aggiornamento 1.0.12

Oggi aggiornamento "Corposo"

Cambiamenti:
- Aggiunta possibilità di aggiornare archivio mediante Televideo
- Aggiunta sotto grande richiesta sezione utile "Convergenza lunghette"
- Completato comparto grafico del layout attualmente presente
- Aggiunto MinimoV e MassimoV di tipo Integer
- Corretto bug InputBox sezione script

SpazioLight-1.0.12

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

Per quanto riguarda la funzionalità "Convergenza lunghette" è una funzione di utilità che permette inserendo manualmente le lunghette, oppure in modo automatico attraverso file csv/txt, di verificare i valori(i numeri) comuni alle lunghette. Per quanto riguarda il caricamento automatico da file, vi è un limite di 5000 lunghette e naturalmente deve contenere solo lunghette.

 

[Mike58]

Problemi con aggiornamento estrazioni.
Con la versione 1.0.12 le estrazioni erano ferme alla 10012 del 4.12.2021
aggiornando con lottomatica aggiorna solo la 21.12..2021 avendo 10013 estrazioni anzichè 10019

 

[zagort]

stesso problema di mike( nell aggiornare archivio carica le estrazioni ma alla fine si ha quel tipo di output), altre carenza ( solo per me?)non trova il browser per aggiornare archivio mediante Televideo

 

[fillotto]

idem come sopra

 

[Zetrix]

xEdoardo bene le convergenze delle lunghette dei numeri e a tal proposito
visto che studio e tratto le lunghette dei numeri e possibile fare una scansione
di una lunghetta e distribuirli per decine cadenze e figure ed evidenziarle
in una lista cosi possiamo vedere da questa lunghetta un quadro completo
un altra cosa voglio aggiungere il browser delle estr deve viaggiare insieme con
il pannello delle combinazioni dei numeri per fare le ricerche invece adesso bisogna
cliccare sempre sulle analisi estr e cosi non va bene secondo la mia osservazione
per quanto riguarda l'aggiornamento delle estr non ci sono problemi io le aggiorno
con lo script di spaziometria in csv..
buona giornata

 

[Edoardo_95]

" il browser delle estr deve viaggiare insieme con
il pannello delle combinazioni dei numeri per fare le ricerche invece adesso bisogna
cliccare sempre sulle analisi estr"

In che senso perdonami? Specifica il problema

 

[i legend]

Credo che Edo e Luigi vista la loro esperienza debbano fare l interfaccia che ritengono più funzionale.
Adesso il nostro co.pito è testare il funzionamento.
Ciao

 

[Edoardo_95]

Problemi con aggiornamento estrazioni.
Con la versione 1.0.12 le estrazioni erano ferme alla 10012 del 4.12.2021
aggiornando con lottomatica aggiorna solo la 21.12..2021 avendo 10013 estrazioni anzichè 10019

Perdonatemi, la colpa è stata mia. Ho aggiornato l'archivio da televideo all'ultima estrazione ...ma l'archivio era vecchio.

Rinominate il file da "Lotto.csv.txt" in "Lotto.csv"
e sostituite questo con quello presente nella cartella archivio del programma.

 

[Edoardo_95]

stesso problema di mike( nell aggiornare archivio carica le estrazioni ma alla fine si ha quel tipo di output), altre carenza ( solo per me?)non trova il browser per aggiornare archivio mediante Televideo

Devi andare sulla "+" nel browser estrazioni...e poi cliccare su "Nuova"

 

[Mike58]

Script

Mi aiutate a capire come posso scrivere l'esito in verificaEsito
e poi leggendo la guida del codice mi dice solo l'estrazione di verifica senza i possibili colpi di verifica.
Ci vogliono gli esempi come in spaziometria altrimenti sbattiamo inutilmente la testa ( e prima o poi per quanto dura si rompe)

Class Script
Sub Main
    Dim nu(3) , ru(1) , colpi ,nSorte ,r  As Integer
    Dim uscite()  As String
    ReDim uscite(10)
    nu(1) = 80 : nu(2) = 52 : nu(3) = 90
    nSorte = 1
    r = 1
    ru(1) = r
    Call VerificaEsito(nu ,ru , nSorte ,EstrazioniArchivio ,Nothing  ,colpi ,uscite)
    Scrivi (colpi )
    Scrivi ( uscite(1) )
End Sub
End Class

 

[LuigiB]

o facciamo gl iesempi o lavoriamo al programma .. percio avevo cercato qualcuno che sinvece di mettersi subito a giocare con gli script si dedicasse una funzione alla volta a scrivere gli opportuni esempi naturalmente chiedendo dove non sa.
Serviva pure per testare le istruzioni

Class Script
    Sub Main
    'inserire qui il proprio codice...
    
        Dim an() As Integer = {0,1,2,3,4,5,6,7,8,9,10}
        Dim Inizio As Integer = EstrazioniArchivio -100
        Dim aUscite () As String
        Dim aRuote () As Integer = {0,1,2,3}
        Dim nColpi As Integer 

        If VerificaEsito(an,aRuote,3,Inizio,,nColpi,aUscite) Then 
            Scrivi ("Uscito dopo colpi : " & nColpi )
            For k As Integer = 0 To aUscite.getupperbound(0)
                Scrivi (k & ")"  & aUscite(k))
            Next

        End If 

    End Sub
End Class

 

[Zetrix]

xEdoardo il browser delle estr cioè la tabella dei numeri estratti deve essere legato al pannello dei numeri evidenziatori in pratica prima era così adesso bisogna cliccare su analisi estr in pratica e stato fatto tutto il contrario..
per quanto riguarda le lunghette da scansionare oltre a scomporre le decine cadenze e figure si possono aggiungere altre ricerche esempio io ho una lunghetta di 35 num che non da un estratto su una determinata ruota allora il programma deve darmi una possibilità di scansionare questa lunghetta e vedere quale tra questi numeri ci sono le coppie diametrali e quale altri numeri non hanno le coppie diametrali ma con le lunghette dei numeri si possono fare tante cose ci vogliono le idee e se vuoi la mia collaborazione posso dare il mio contributo al programma..

 

[Mike58]

Ok Luigi scusami capisco lo sforzo , ma purtroppo anch'io che cerco di simulare i costrutti di spaziometria vado in panne con il costrutto vbnet.
Questa riga For k As Integer = 0 To aUscite.getupperbound(0) ancora non la digerisco ecco perchè i test di esempio in spazio sono stati molto utili per poter imparare le procedure.

Purtroppo non capisco il perchè se nello script uso la sorte 3 questo restituisce i terni
se invece uso la sorte 2 non restituisce niente.

Class Script
Sub Main
    'inserire qui il proprio codice...
    Dim an() As Integer = {0,90,52,55,38,65,59} ' sono i prini 3  Estratti di ba-ca
    Dim Inizio  As Integer = EstrazioniArchivio -100
    Dim aUscite () As String
    Dim aRuote () As Integer = {0,1,2} ' ruote da ba-ca
    Dim nColpi As Integer
    Dim nSorte As Integer = 3 ' se metto 2 non restituisce niente
    If VerificaEsito(an,aRuote,nSorte,Inizio,,nColpi,aUscite) Then
        Scrivi ("Uscito dopo colpi : " & nColpi )
        For k As Integer = 0 To aUscite.getupperbound(0)
            Scrivi (k & ")"  & aUscite(k))
        Next
    End If
End Sub
End Class