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

[i legend]

Ciao zagort, non mi piace rimangiare script di altri. Al momento quando riesco preferisco cimentarmi con le funzioni, appena mi sarà possibile, nel senso che riesco a rifarlo con il nuovo software , vi posto il mio sommativo.
Non perché sia migliore ma perché non rovino il lavoro d altri. Non fa piacere. Ciao

 

[LuigiB]

ciao Zagort, a me gira perfettamente sul nuovo programma

 

[LuigiB]

penso siano problemi di script e non d compatibilità delle istruzioni

 

[i legend]

Ciao a tutti.
Chiedo scusa se non ho inserito altri test, ma la debolezza e il mal di testa non mi vuole proprio lasciare.
Almeno non ho più la febbre.

 

[LuigiB]

rimettitit legend

 

[i legend]

Ciao zagort , ho aperto questo 3D per testare le funzioni di spaziolight, e mi farebbe immenso piacere se anche tu e altri partecipassero a questo fine, soprattutto perché al momento non sono in grado, per problemi fisici. Per
Tutto ciò che riguarda altri script, si dovrebbero aprire dei 3D appositi.
Grazie.
E grazie a tutti per la comprensione.

 

[zagort]

il mio intervento era solo per portare il thread su,far si che altri partecipassero e supportassero il progetto da te intrapreso,comprendo e ti saluto, ti do pienamente ragione per questo chiedo all amministratore del forum lottoced di cancellare i miei interventi non potendoli fare io direttamente

 

[i legend]

Ciao Zagort, non serve cancellare i post, a mio avviso. Chiedo solo di restare in tema

 

[giuseppa]

Zagort, se non dono da eliminare tutti i tuoi interventi, potresti scrivere il numero corrispondente ai post da eliminare.
Grazie

 

[Mike58]

Ciao A Tutti, sono stato un pochetto assente e a quanto vedo si è mosso poco in fatto di script e test funzione.
Chiaro non è semplice entrare nella nuova logica di costrutto e programmazione sono necessari esempi da cui poter attingere.
Il Mio esempio voleva testare la ricerca di algoritmi sommativi e utilizzare il verifica esito come conteggio.
Dopo parecchi tentativi sono arrivato ad una soluzione, questa non vuol essere uno script progetto ma un modus operandi da cui attingere per il codice utilizzato (VerificaEsito).

Class Script
    Sub Main
        Dim k , r ,es ,p , a ,b , nu(1) , pos(1) , ru(1) ,clp, c ,kk,kn,kd , ind  , nClp     As Integer
        Dim ini , fin , indx As Integer
        Dim Uscite () , sUscite() , esito  As String
        'inserire qui il proprio codice..
        '-------------------------------------------------------------------------
        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 - 160
        fin = EstrazioniArchivio
        r = InputBox ("Scegli la ruota ","RUOTA",9)
        indx = InputBox("Quale indice Mensile ","INDICE MENSILE ",1)
        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 Ruota scelta e gioca sulla stessa Ruota ")
        For b  = 1 To 90
            For p = 1 To 5
                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,r,p)
                        nu(1) = FuoriX((a+b),90)
                        ru(1) = r
                        pos(1) = p
                        If VerificaEsito (nu,ru,1,es+1,,14,clp,Uscite) Then
                            'kk = kk + 1
                            For c = 0 To Uscite.GetUpperBound(0)
                                If Uscite (c)  <> "" Then
                                    kk = kk + 1
                                End If
                            Next
                        End If
                    End If
                Next
                kd = k - (kk)
                If kd <= 3 Then
                    kn = kn + 1
                    '-------------------------------------------------------------------------------------
                    esito = ""
                    If   VerificaEsito (nu,ru,1,ind,,14,nClp,sUscite) Then
                        For cc As Integer  = 0 To sUscite.GetUpperBound(0)
                            If sUscite(cc) <> "" Then esito = sUscite (cc)
                        Next
                    End If
                    '-------------------------------------------------------------------------------------
                    Dim aV() As String
                    ReDim aV(aT.GetUpperBound(0))
                    aV(0) = kn
                    aV(1) = pos(1) & "_" & NomeRuota(r) & " + " & b
                    aV(2) = k
                    aV(3) = kk
                    aV(4) = a & " + " & b
                    aV(5) = nu(1)
                    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
        Next
        Call CreaTabella()
    End Sub
End Class

Ciao

 

[LuigiB]

bravo Mike alla fine anche se sembra diverso è ugiuale c'è da tipizzare le variabili alcune funzioni cambiano ma come vedi e come hai dimostrato applicandosi ed escludendo errori del programam quindi errori miei la cosa è fattibile...

 

[i legend]

ciao a tutti , provato ad utilizzare serieelencouscite problemi su come dichiarare le variabili, aUscite cosa è ,? non è integer perchè array ad una dimensione?
purtroppo non sono piu smart
questa funzione è un mix di elencoRitardi e statisticaformazione?

 

[LuigiB]

bhè SuperLegend c'è da dire che hai preso una funzione che tra i parametri usa un tipo structure .. il mal di testa te lo devi far passare mica far venire

al posto di ruota as integer , potresti mettere anche un arrya per mettere piu ruote volendo

Class Script
    Sub Main
        Dim idEstr As Integer = EstrazioniArchivio()
        Dim Ruota As Integer = 1
        Dim Ritardo, RitardoMax, Frequenza, Presenze, EstrEsam, IncrRitMax As Integer
        Dim aNumeri() As Integer = {0, 1, 2, 3}
        Dim aUscite() As STRUCT_ELENCO_USCITE
        Dim sriga As String = ""
        Call SerieElencoUscite(aNumeri, Ruota, 1, aUscite, Ritardo, RitardoMax, Frequenza, Presenze, IncrRitMax, 5000, idEstr,, EstrEsam)
        Scrivi(StringaNumeri(aNumeri))
        Scrivi("Ritardo      : " & Ritardo)
        Scrivi("RitardoMax   : " & RitardoMax)
        Scrivi("Uscite Tot   : " & Frequenza)
        Scrivi("Presenze     : " & Presenze)
        Scrivi("IncrRitMax   : " & IncrRitMax)
        Scrivi("EstrEsam     : " & EstrEsam)
        Scrivi()
        For k As Integer = 0 To aUscite.GetUpperBound(0)
            sriga = "IdEstr : " & aUscite(k).IdEstr & " - "
            sriga = sriga & "Ruota  : " & NomeRuota(aUscite(k).Ruota) & " - "
            sriga = sriga & "Ritardo : " & aUscite(k).Ritardo & " - "
            sriga = sriga & "RitMax : " & aUscite(k).RitardoMax & " - "
            sriga = sriga & "IncrRitMax : " & aUscite(k).IncrRitMax & " - "
            sriga = sriga & "Uscite Tot  : " & aUscite(k).Frequenza & " - "
            sriga = sriga & "Presenze : " & aUscite(k).Presenze & " - "
            sriga = sriga & "EstrEsam : " & aUscite(k).EstrEsam
            Scrivi(sriga)
        Next
    End Sub
End Class

 

[i legend]

Grazie Luigi, mi ero arreso

 

[LuigiB]

Se invece di usare l'editor del programma avessi usato la funzione che crea il progetto vbnet saresti stato facilitato perche i membri della struttura che non conoscevi tel iavrebbe mostrati lui.
poi faro un piccolo video per far vedere come scrivere i propri script nell'ambiente vbnet visto che è gratis e che offre delle potenzialità che l'editor del programma non puo dare anche perche l'ho preso cosi com'era da un altro progetto ce usava il vbscript e non funziona proprio benissimo .. solo che non mi va ancora di rimetterci le mani

 

[Xeroxs]

Buongiorno a Tutti,

Intanto Ringrazio Edoardo e LuigiB per questo nuovo progetto, sto cercando di capire questo nuovo programma e di applicarmi nella creazione di qualche script, confrontando le differenze con spaziometria in quanto voglio migliorare la mia crescita molto utile per dar sfogo a idee o calcoli da applicare al gioco del lotto, sto vedendo alcune guide su questo tipo di programmazione così da capire alcune regole e grazie a qualche script postato da Voi, riesco a capire anche alcuni suoi costrutti, appena ci riesco vedo di postare anche io qualcosa fosse anche una cosa semplice così da testarMi in questo nuovo modo di creare script.

 

[Xeroxs]

Ciao, Mike58

Volevo chiederti una cortesia, lo script che hai postato al "Post 30" visto che utilizza Verifica esito come ho sempre cercato, in quanto se creato bene offre una visuale immediata dei risultati, utilizza la ricerca di un estratto con il fisso migliore, ora visto che lo cercavo per spaziometria ma non ho rintracciato nulla, chiedo è complicato modificare o crearne uno che utilizza al di là degli esiti la ricerca su due estratti, esempio
lo script trova che il 1 di BA + il 5Mi ha dato dopo la 1 estrazione del mese 5 casi su 6.
Premetto che ci ho provato ma per me ancora troppo per questo tipo di codice diverso da spaziometria.

Sempre se Vorrai ed in base alla tua disponibilità cosi da avere qualcosa di diverso e di nuovo per me.

Grazie come sempre

 

[Mike58]

Ciao Xerox, non ci ho provato a fare il sommativo o la ricerca degli algoritmi con 2 estratti, non lo so, questo ambiente è super veloce ma bisogna seguire bene il costrutto, pena errori vari.
Bisogna applicarsi come in tutte le cose.

 

[Mike58]

Xerox, nos so quanto sia corretto, ma in qualche maniera il risultato viene scritto.
ecco lo script.

Class Script
    Sub Main
        Dim k , r ,es ,p , a ,b , nu(1) , pos(1) , ru(1) ,clp, c ,kk,kn,kd , ind  , nClp ,pos2(1) ,p2     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
        'inserire qui il proprio codice..
        '-------------------------------------------------------------------------
        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 - 160
        fin = EstrazioniArchivio
        r = InputBox ("Scegli la ruota ","RUOTA",9)
        indx = InputBox("Quale indice Mensile ","INDICE MENSILE ",1)
        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 sulle 10 Ruota 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 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),90)
                                ru(1) = r
                                pos(1) = p
                                pos2(1) = p2
                                If VerificaEsito (nu,ru,1,es+1,,14,clp,Uscite) Then
                                    'kk = kk + 1
                                    For c = 0 To Uscite.GetUpperBound(0)
                                        If Uscite (c)  <> "" Then
                                            kk = kk + 1
                                        End If
                                    Next
                                End If
                            End If
                        
                    Next
                    kd = k - (kk)
                    If kd <= 1 Then
                        kn = kn + 1
                        ReDim Preserve TotNum(kn)
                        TotNum(kn) = nu(1)
                        '-------------------------------------------------------------------------------------
                        esito = ""
                        If   VerificaEsito (nu,ru,1,ind,,14,nClp,sUscite) Then
                            For cc As Integer  = 0 To sUscite.GetUpperBound(0)
                                If sUscite(cc) <> "" Then esito = sUscite (cc)
                            Next
                        End If
                        '-------------------------------------------------------------------------------------
                        Dim aV() As String
                        ReDim aV(aT.GetUpperBound(0))
                        aV(0) = kn
                        aV(1) = pos(1) & "_" & NomeRuota(rr) & " + " & pos2 (1) & "_" & NomeRuota(rrr)
                        aV(2) = k
                        aV(3) = kk
                        aV(4) = a & " + " & b
                        aV(5) = nu(1)
                        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
                Next
            Next
        Next
        Call CreaTabella()
        Scrivi ("Numeri Ricavati...... : " & StringaNumeri(TotNum ),1,,,ColoreBlu,150)
        For ess As Integer = ind To fin
            ImpostaGiocata (1,TotNum ,ru ,posta ,,1)
            Gioca (ess,1)
        Next
    End Sub
End Class

 

[Xeroxs]

Ciao, Mike58

Grazie, direi che Funziona così in questo modo cerco di capire gli incastri nei cicli e riscrivere nuovi codici per creare qualcosa da solo.
Come Sempre Disponibile, Cosi facendo vorrei crescere quanto Voi, certamente on come Voi, ma in questo lungo periodo mi sono reso conto di quanto riesco a capire ora su Spaziometria ed ora cercare di farlo con questo nuovo progetto.

Grazie continuo a leggermi le varie funzioni al momento inserite