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

[Rafele ‘o Ruoss’]

Non sono stati inseriti script che danno previsioni. Stiamo cercando ( semplicemente ) di testare le funzioni di questo nuovo software.

ti ringrazio ,il mio era un invito ai prossimi da realizzare quando sarà possibile farlo. Buona serata

 

[Mike58]

Si !!! capita anche a me, sarà intefaccia vbNet .
esegui questo script dei codici CHR e vedi che quel carattere non lo scrive.

Class Script
    Sub Main
        For k As Integer = 1 To 220
            Scrivi (k & " - " & Chr(k))
        Next       
    'inserire qui il proprio codice...
    End Sub
End Class

 

[Mike58]

Ecco lo script Abbellito dei Terni Vergini su Tutte.
Lo script analizza i terni trovati e verifica i sortiti in questo anno 2022

Terni Vergini Su Ruota Tutte ​
Script By LuigiB - I Legend - Mike58​

Estrazioni Inizio............... 1 - 1 - 07/01/1871
Estrazioni Fine analisi......... 10023 - 156 - 30/12/2021
Estrazioni Tot esaminate........ 10023
Estrazione di Verifica.......... 10024 - 157 - 03/01/2022
Colpi Trascorsi................. 6
Terni Trovati................... 43
Terni Sortiti................... 0

Class Script
    Sub Main
        Dim Inizio As Integer =1
        Dim Fine As Integer = 10023 ' 156 del 31-12-2021 'EstrazioniArchivio-1
        Dim fin As Integer = EstrazioniArchivio
        Dim Classe As Integer = 3
        Dim Sorte As Integer = 3
        Dim aRuote() As Integer
        Dim nMaxRitPos = Fine - (Inizio -1)
        Dim aN() As Integer
        Dim aCol (Classe ) As Integer
        Dim nIntegrali As Integer
        Dim nSviluppate As Integer
        Dim Coll As Collection = New Collection
        Dim sRiga As String
        Dim kn ,clp ,k3 As Integer
        Dim T() , TT() ,VV() , esito , aUscite() , data As String
        Dim tot As Integer = fin - Inizio + 1
        TT = {"Terni Vergini Su Ruota Tutte "}
        Call InitTabella(TT,ColoreBlu,,250,ColoreBianco)
        VV = {Space (35) & "Script By LuigiB - I Legend - Mike58"}
        Call AddRigaTabella(VV)
        Call CreaTabella ()
        If ScegliRuote (aRuote) Then
            T = { " N. " , "  Terni vergini  " , "  Esito Ultima Estrazione  ","  nColpo  ", "  Id Sortito  "}
            Call InitTabella(T,ColoreVerde ,,,ColoreBianco )
            ImpostaRuotaTT ( aRuote )
            For idEstr As Integer = Inizio To Fine
                For r As Integer = 1 To  aRuote.getupperbound(0)
                    If GetNumeriRuota ( idEstr ,aRuote(r),aN) Then
                        Call OrdinaVettore (aN ,1,0,1)
                        InitSviluppoIntegrale (aN ,Classe)
                        Do While GetCombSviluppo ( aCol )
                            sRiga = StringaNumeri ( aCol )
                            AddItemCollection ( Coll , sRiga ,sRiga )
                        Loop
                    End If
                Next
            Next
            ReDim aN(90)
            For k As Integer =1 To 90
                aN(k)= k
            Next
            InitSviluppoIntegrale (aN , Classe )
            Do While GetCombSviluppo (aCol )
                sRiga = StringaNumeri (aCol)
                If Not Coll.contains ( sRiga ) Then
                    esito = "--"
                    data = "--"
                    If VerificaEsito (aCol , aRuote ,Sorte ,Fine+1,,,clp,aUscite)
                        For k1 As Integer = 0 To aUscite.GetUpperBound(0)
                            If aUscite(k1) <> "" Then esito = aUscite(k1)
                            If aUscite(k1) <> "" Then data = GetInfoEstrazione(Fine+clp)
                            If aUscite(k1) <> "" Then k3 +=1
                        Next
                    End If
                    kn +=1
                    T = {kn , StringaNumeri(aCol), esito , clp , data }
                    Call AddRigaTabella (T)
                    'Scrivi (FormatSpace(kn,2) & " - " &  (sRiga))
                End If
            Loop
            Scrivi ("Estrazioni Inizio............... " & GetInfoEstrazione(Inizio) )
            Scrivi ("Estrazioni Fine analisi......... " & GetInfoEstrazione(Fine) )
            Scrivi ("Estrazioni Tot esaminate........ " & tot - clp )
            Scrivi ("Estrazione di Verifica.......... " & GetInfoEstrazione(Fine + 1 ) )
            Scrivi ("Colpi Trascorsi................. " & clp)
            Scrivi ("Terni Trovati................... " & kn )
            Scrivi ("Terni Sortiti................... " & k3 )
            Scrivi ("Tempo Di Elaborazione........... " &  FormattaSecondi ( SecondiTrascorsi ))
        End If
        CreaTabella ()
    End Sub
    Sub ImpostaRuotaTT ( byref aRuote As Integer ())
        Dim bTutte As Boolean
        For k As Integer = 1 To aRuote.getupperbound(0)
            If aRuote(k) = 12 Then
                bTutte = True
                Exit For
            End If
        Next
        If bTutte Then
            ReDim aRuote (10)
            For k As Integer =1 To 10
                aRuote(k) = k
            Next
        End If
    End Sub
End Class

 

[LuigiB]

CLICCATE COL DESTRO SUL BROWSER DOVE è MOSTRATO L'OUTPUT E IMPOSTATE LA CODIFICA AD AUTOMATICO

 

[Mike58]

Fatto selezionato automatico
ma se volessi scrivere 2°
scrive cosi
2°

 

[Xeroxs]

Grazie Mike58,
Appena rientro provo, e vedo anche quanto scritto da LuigiB.

 

[Xeroxs]

Buongiorno a Tutti,

Grazie Ancora a Mike58 per i codi, possono essere utili anche per altri usi.
Grazie a LuigiB, Fatto come da te indicato ed è ok.

Poi Confermo quanto detto da Mike58 se volessi scriverlo riporta comunque sempre quel carattere.

 

[Xeroxs]

Ciao,

Allora seguendo le indicazioni di LuigiB,

ho pensato di Attivare dalla voce codifica e poi Unicode (UTF-8) ---> e lo scrive correttamente

1° Caso
2° Caso

 

[Xeroxs]

Buongiorno,

Nel Testare gli Indici Mese ( Entrambi ), ho riscontrato che come primo colpo successivo riporta la stessa estrazione del calcolo o inizio del metodo da testare

esempio se indico

If IsPrimaDelMese(es) Then
oppure
If IndiceMensile(es) = 1 Then

ovvero vorrei partire dalla prima del mese per cui il primo colpo dovrebbe essere la data successiva
ma riporta

9881 - 14 - 02/02/2021 ----> prima estrazione del mese quella di partenza
9882 - 15 - 04/02/2021 ----> Questa dovrebbe essere invece il primo colpo successivo
9883 - 16 - 06/02/2021

Ho testato anche Ultima del Mese stesso cosa.

Segnalo per correttezza

Grazie.

 

[i legend]

Ciao è giusto così.
Se l estrazione è la prima del mese allora la condizione è soddisfatta. Se invece vuoi quella successiva o chiedi la seconda o imposti l estrazione +1 che è appunto la successiva.
Sempre che non abbia frainteso quanto da te detto.

 

[Xeroxs]

Ciao,
I-Legend
Se Vedi in Spaziometria e fai verifiche parallele lo vedi subito,
Quello che intendo io e che se scelgo l'estrazione Ultima, il programma la soddisfa ed è ok, ma in imposta giocata allora deve partire dalla estrazione successiva, ora ciò che posso capire io l'errore deve essere in imposta giocata perchè il primo colpo deve essere alla data successiva all'ultima estrazione.

Al momento ho risolto scrivendo per i test

Gioca (es + 1,True) cosi parte dalla successiva.

 

[lotto_tom75]

Buongiorno e complimenti di nuovo a tutti... ai mitici Luigi, Edo, al super power Ilegend, all'iper prolifico di script e fortissimo Mike58 e a tutti gli intervenuti!

ossessionato... come sono dalla tabella per immettere i numeri voluti anzichè i 90... (la metterei anche nel caffe latte... )

Call ScegliNumeri(numeri)

mi stavo chiedendo... se fosse possibile ottimizzarne la versione per spaziolight anche per quanto riguarda i flag di riga e colonna per velocizzarne l'immissione... e le altre opzioni...

Di seguito le due differenze riscontrate... tra spaziometria (versione migliore che mi piacerebbe fosse riportata in spazio light) e spaziolight (nuovo super programma che per velocità elaborazionale e possibilità di analisi tende a battere il suo progenitore...)

Super tabella di spaziometria



tabella funzionale ma piuttosto spartana di spaziolight




Come si può notare la seconda non lega nemmeno le scarpe... alla prima

Se fosse possibile trasformare anche la seconda nella prima all'interno della sezione script del fenomenale nuovo spaziolight e magari metterla anche in tutte le altre sezioni del programma credo che potrebbe essere per tutti (per me sicuramente lo sarebbe...) iper fantastico

Good Saturday e complimentissimi e grazie comunque a tutti per tutto quello che state facendo!

 

[beppuzz]

Buongiorno a tutti,vorrei un consiglio da voi,come si possono usare gli script di spazio metria con sapzio light??? mi spiego meglio,quando vado a copiare uno script di spazio metria in spazio light mi da errore...

 

[Xeroxs]

Ciao,
I-Legend
Se Vedi in Spaziometria e fai verifiche parallele lo vedi subito,
Quello che intendo io e che se scelgo l'estrazione Ultima, il programma la soddisfa ed è ok, ma in imposta giocata allora deve partire dalla estrazione successiva, ora ciò che posso capire io l'errore deve essere in imposta giocata perchè il primo colpo deve essere alla data successiva all'ultima estrazione.

Al momento ho risolto scrivendo per i test

Gioca (es + 1,True) cosi parte dalla successiva.

o Forse Qualcosa nella Funzione Gioca è diverso, perchè scrivendo
Gioca (es + 1,True)
Tutto funziona come deve....

 

[Mike58]

Buongiorno a tutti,vorrei un consiglio da voi,come si possono usare gli script di spazio metria con sapzio light??? mi spiego meglio,quando vado a copiare uno script di spazio metria in spazio light mi da errore...

Ciao Beppuzz, No !!! non è possibile sono 2 linguaggi e 2 piattaforme diverse.
Una spaziometria utllizza il vbscript , l'altra spaziolight utilizza il linguaggio più veloce vbnet.
Quindi a secondo del linguaggio va usata la relativa piattaforma.

 

[beppuzz]

Ciao Beppuzz, No !!! non è possibile sono 2 linguaggi e 2 piattaforme diverse.
Una spaziometria utllizza il vbscript , l'altra spaziolight utilizza il linguaggio più veloce vbnet.
Quindi a secondo del linguaggio va usata la relativa piattaforma.

Grazie come sempre Mike

 

[antonino7629]

Buona sera a tutti,
nel fare i complimenti agli sviluppatori del programma, nonchè a Mike58 per gli script postati.. premetto che sono alle prime armi e sto tentando di approcciarmi a questo nuovo mondo... con l'occasione volevo chiedere a voi tutti un aiuto relativamente allo script postato nei giorni scorsi da Mike58, nello specifico quello di ricerca degli "algoritmi sommativi a ruota". A quest'ultimo ho apportato delle modifiche affinchè trovasse l'algoritmo, anzichè al singolo indice, ma alle ultime estrazioni consecutive... la problematica che ho riscontrato, sta nel fatto che nella tabella viene indicato l'algoritmo relativo all'ultima estrazione, ma non vengono elencati gli algoritmi ancora in corso ed in attesa di estrazione. ho tentato di effettuare svariati tentativi nella modifica del codice, ma, naturalmente, con pessimo esito.... perdonatemi se non ho esposto in maniera chiara il mio pensiero... grazie ancora per il lavoro che state svolgendo...

Class Script Sub Main Dim k , r ,es ,p , a ,b , nu(2) , pos(1) , ru(1) ,clp, c ,kk,kn,kd , ind , nClp, pos2(1), p2,n As Integer Dim ini , fin , indx As Integer Dim Uscite () , sUscite() , esito As String Dim posta(1) As Single posta(1) = 1 Dim TotNum() As Integer Dim aRuota As Integer '------------------------------------------------------------------------- Dim aT() As String = {" Casi ", " Algoritmo ", " Casi Esaminati "," Casi Validi ", " Ultima Operazione " , " Numero Calcolato " ," Esito Ultima Oper " , " Colpo " , " Data Sortita "} InitTabella(aT,ColoreVerde,,100,ColoreBianco ) '------------------------------------------------------------------------- ini = EstrazioniArchivio - 7 fin = EstrazioniArchivio r = ScegliRuota() 'InputBox ("Scegli la ruota ","RUOTA",1) indx = InputBox("Quale indice Mensile ","INDICE MENSILE ",0) Scrivi ("Estrazioni Esaminate ......... : " & fin-ini + 1) Scrivi ("Indice mensile considerato.... : " & indx ) Scrivi (Space(28) & Chr(174) & " Script In VbNet per SpazioLight 1.0.22 By Mike58 " & Chr(169),1,,,ColoreBlu ,120 ) Scrivi ("Cerca Algoritmi sommativi su " & NomeRuota(r,False) & " e Gioca sulla stessa Ruota ") For rrr As Object = 1 To 10 For p = 1 To 5 For rr As Object = 1 To 10 For p2= 1 To 5 For n = 0 To 90 For es = ini To fin If IndiceMensile(es) <> indx Then Call Messaggio ("Cerca Algoritmi sommativi su ruota scelta & **** Script by Mike58 ***** " ) Call AvanzamentoElab (ini,fin,es) ind = es + 1 k = k + 1 a = Estratto(es,rr,p) b = Estratto(es,rrr,p2) nu(1) = FuoriX((a+b+n),90) nu(2) = Vertibile (nu(1)) ru(1) = r pos(1) = p pos2(1) = p2 If VerificaEsito (nu,ru,1,es+1,,3,clp,Uscite) Then For c = 0 To Uscite.GetUpperBound(0) If Uscite (c) <> "" Then kk = kk + 1 End If Next c End If End If Next es kd = k - (kk) If kd <= 1 Then kn = kn + 1 ReDim Preserve TotNum(kn) TotNum(kn)=nu(1) '------------------------------------------------------------------------------------- esito = "" If VerificaEsito (nu,ru,1,es+1,,3,nClp,sUscite) Then For cc As Integer = 0 To sUscite.GetUpperBound(0) If sUscite(cc) <> "" Then esito = sUscite (cc) Next cc End If '------------------------------------------------------------------------------------- Dim aV() As String ReDim aV(aT.GetUpperBound(0)) aV(0) = kn aV(1) = pos(1) & "_" & NomeRuota(rr) & " + " & pos2(1) & "_" & NomeRuota(rrr) & " + " & n aV(2) = k aV(3) = kk aV(4) = a & " + " & b & " + " & n aV(5) = nu(1) & " " & nu(2) aV(6) = esito aV(7) = nClp aV(8) = DataEstrazione ((ind-1) + nClp ) If esito = "" Then Call AddRigaTabella(aV,ColoreGiallo ,,100,ColoreRosso ) Else Call AddRigaTabella(aV,ColoreMagenta ,,100,ColoreBianco ) End If End If k = 0 : kk = 0 Next n Next p2 Next rr Next p Next rrr Call CreaTabella() Scrivi("Numeri Ricavati..... : " & StringaNumeri(TotNum),1,,,ColoreBlu,150) For ess As Integer = ind To fin ImpostaGiocata(1,TotNum,ru,posta,,3) Gioca (ess,1) Next ess End Sub End Class

 

[Xeroxs]

Buongiorno a Tutti

Ho Fatto il mio Primo Script per questo nuovo Programma per Testarmi e testare le/ o alcune Funzioni,
Ho impostato un ambata Fissa per capire meglio quanto sposto precedentemente in quanto vorrei capire la differenza da me riscontrata dallo stesso script creato con spaziometria.

Questo è lo script

Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim inizio As Integer = 1
        Dim Ini As Integer = 9867
        Dim Fin As Integer = EstrazioniArchivio
        Dim es,K  As Integer
        Dim ruote(3) As Integer
        Dim Clp As Integer
        Dim Ambata(1) As Integer
        Dim StatAmbata,RitAmbataEs,StatAmbata2,RitAmbataEs2,Rit,RitMax,RitMax2,RitAmbataAT,RitAmbataAT2,RitAmbataMax As Integer
        Dim Posta(1) As Single
        'Dim A,B,C,Num1, Num2  As Integer
        '--------------------------------------------------- Ruote Di Gioco
        ruote(1) = 3
        'ruote(1) = Ba_ 'Scritta Così solo Per Funzioni Utente
        'ruote(2) = Ca_
        '---------------------------------------------------
        Posta(1) = 1
        Clp = 13 ' Colpi di Gioco
        '-------------------------------------------------------------------------------------------------------------- Intestazione
        Scrivi (StrDup(134,"-") & " By Xeroxs " & "-----",1)
        Scrivi (StrDup(67," ") & "---> Resoconto <--- ",1,,,ColoreMagenta)
        Scrivi (StrDup(65," ") & DataEstrazione(Ini) & " - " & DataEstrazione(Fin),1,,,ColoreBlu)
        Scrivi (StrDup(47," ") & " Test Metodi Per Ambata Fissa o Con Matematica Sommativa ",1,,,ColoreBlu)
        Scrivi (StrDup(41," ") & " Script Test Per  LottoProjectLb Ver. 1.0.29 By Edoardo_95 And LuigiB",1,,,ColoreBlu)
        Scrivi (StrDup(150,"-"))
        Scrivi
        '
        For es = Ini To Fin
            'If IndiceMensile(es) = 1 Then
            If IsUltimaDelMese(es) Then
                Messaggio ("Elaborazione estrazioni... [" &(es) & " ]   Script  by Xeroxs")
                AvanzamentoElab (Ini,Fin,es)
                '------------------------------------------------------------------------------- Calcolo Amabata e Statistica
                Ambata(1) = 90 ' Imposto un' Ambata Fissa
                StatAmbata = StatEstratto (Ambata(1),ruote(1),Rit,RitMax,,,,inizio,Fin,)
                StatAmbata2 = StatEstratto (Ambata(1),ruote(2),Rit,RitMax2,,,,inizio,Fin,)
                RitAmbataEs  = EstrattoRitardo(Ambata(1),ruote(1),es)
                RitAmbataAT  = EstrattoRitardo(Ambata(1),ruote(1),Fin)
                RitAmbataEs2  = EstrattoRitardo(Ambata(1),ruote(2),es)
                RitAmbataAT2  = EstrattoRitardo(Ambata(1),ruote(2),Fin)
                '--------------------------------------------------------------------------------
                K = K + 1
                Scrivi ("Estrazione n." & FormatSpace((es),5) & " "& "[" & IndiceAnnuale(es) &"] * " & StrDup (100,"*") & " " & DataEstrazione(es) & " * Caso n°" & Format2(K),1,,,ColoreBlu)
                Scrivi (MeseNome(Mese(es)) & " - " & Anno(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile",1,,,ColoreBlu)
                Scrivi
                Scrivi ("Si è Scelto di Testare il Metodo sulla Ruota di ------> " & NomeRuota(ruote(1),False),1,,,ColoreRosso)
                'Scrivi ("Si è Scelto di Testare il Metodo sulle Ruote di ------> " & NomeRuota(ruote(1),False) & " - " & NomeRuota(ruote(2),False),1,,,ColoreRosso)
                Scrivi
                Scrivi ("Ambata da Mettere in Gioco: ",1,0,,ColoreBlu)
                Scrivi (Format2(Ambata(1)),1,,,ColoreRosso)
                Scrivi
                Scrivi ("Analisi Ambata su " & NomeRuota(ruote(1)) & " * Ritardo Al Momento Del Calcolo ---> " & Format2(RitAmbataEs) & "  *  Ritardo Attuale ---> " & Format2(RitAmbataAT) & " Estrazioni " & " *  Storico ---> " & Format2(RitMax),1,,,ColoreBlu)
                'Scrivi ("Analisi Ambata su " & NomeRuota(ruote(2)) & " * Ritardo Al Momento Del Calcolo ---> " & Format2(RitAmbataEs2)& "  *  Ritardo Attuale ---> " & Format2(RitAmbataAT2) & " Estrazioni " & " *  Storico ---> " & Format2(RitMax2),1,,,ColoreBlu)
                Scrivi
                Scrivi (StrDup(150,"-"),1,,,ColoreBlu)
                Scrivi
                'ImpostaGiocata(1,Ambata,ruote,Posta,,Clp,1)
                ImpostaGiocata(1,Ambata,ruote,Posta,,Clp,2) ' Uso Questa Per Vedere Tutte le Giocate
                'Gioca (es,False,True,1)
                Gioca (es + 1,True) ' Per Risolvere Anomalia Con Colpi Corretti
                'Gioca(es,True)
                'Gioca (es + 1,True,,1)
            End If ' Chiude Indice Mensile ---> Attivi Sopra Quale Utilizzato
        Next ' Chiude es
        Scrivi
        ScriviResoconto   
    End Sub
End Class

La Mia sia ben inteso non vuole essere una critica o altro vorrei capire come usare nel modo corretto gli esiti che vengono esposti a seconda delle nostre analisi o calcoli che si tratti di ambata o altro.

Quindi Se Io imposto Ultima estrazione --- vedi primo caso dello script 31/12/2020 * Caso n°01

il primo colpo della verifica deve avvenire il ------------------------------------> 9868 - 1 - 02/01/2021

Ma questo lo fa se io imposto

Gioca (es + 1,True) ---> Ovvero devo aggiungere + 1 per partire nel modo corretto

Cosa diversa dalla funzione usata in spaziometria.

Volevo capire se con VB.NET devo comunque aggiungere il + 1 al Gioca es oppure si tratta di Altro.

Infatti se ipotizziamo un calcolo sommativo che fatto all'ultima estrazione del mese, se uso
Gioca (es,True)

L'analisi parte come primo colpo come sotto riportato

G 1 - N. [90] Sorte : [E ] Fi [--.--.--.--.--] C 1 9867 - 139 - 31/12/2020
G 1 - N. [90] Sorte : [E ] Fi [--.--.--.--.--] C 2 9868 - 1 - 02/01/2021
G 1 - N. [90] Sorte : [E ] Fi [--.--.--.--.--] C 3 9869 - 2 - 05/01/2021

Certo, non è un problema scrivere sempre il + 1, ma penso che al di là del tipo di "programmazione utilizzata" sia sempre utile ,se fattibile mantenere lo stesso criterio nel realizzare la funzione.

Ripeto il mio intento è quello di capire come usare le funzioni create e poi usarle, Ovvio se ho sbagliato ad interpretare o a scrivere correttamente lo script chiedo scusa e confido nelle giuste direttive per non sbagliare in quelli successivi.

Spero di non essere frainteso.

Grazie Come sempre.

 

[i legend]

Certo, non è un problema scrivere sempre il + 1, ma penso che al di là del tipo di "programmazione utilizzata" sia sempre utile ,se fattibile mantenere lo stesso criterio nel realizzare la funzione.

Gli algoritmi vengono ripensati, ottimizzati. Quando restano tali e quali è solo per due casi.
Primo : l algoritmo non è ottimizzabile, è perfetto.( potrebbe essere,ma sarei triste se così fosse)
Secondo: pigrizia mentale.
Tutto è perfettibile.
Quando vedo dei miei vecchi script ,che ritenevo fighissimi, oggi mi faccio tenerezza da solo ahhhhhhahhhh.
(Nonostante siano ancora davvero buoni)
Viva il progresso.
Xerox questa è una mi idea, magari hai ragione te e si tratta di un bug

 

[Xeroxs]

Vivo anche io con il progresso nella forma verso migliorie, infatti se l'uso è quello nulla cambia, anzi.
Ripeto non si tratta ne di un cruccio ne di altro, non essendo un programmatore cerco di capirne il modo in cui è elaborato proprio per poterlo usare come lo ha pensato e realizzato l'ideatore o gli ideatori in questo caso.