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

[i legend]

Esempio
Spaziometria
Scrivi (" < font color = coloreRosso size= 2 > &9660</ font>)
In spazio ligth funziona solo il simbolo senza SIZE e color
Ciao e grazie come sempre

 

[i legend]

Ciao , non so se succede anche a voi, ma ho provato ha costruire una sub che mi raccogliesse dei dati.
Se utilizzo scrivi nella sub stessa ,funziona correttamente, se invece
la lancio nella sub mani i valori nella parentesi risultano "" ,come inesistenti.
Che sbaglio? Sicuramente è colpa mia .
Ciao

 

[LuigiB]

cioa Legend , a parte che non ho capito perche vuoi scrivere dei tag html per fare una cosa che la funzione scrivi fa gia da sola.
inoltre per l'html coloreRosso non significa nulla...

 

[Xeroxs]

Buongiorno a Tutti,

Avrei Bisogno di un aiuto.

Volevo Creare una piccola Statistica, Utilizzando alcuni codici per Testare quanto ho letto, studiato, e forse capito del VB.Net

Si Tratta dell'analisi di un numero scelto e riportarne le estrazioni in cui è uscito separando le ruote dalla Nazionale.

In Parte Scrive i dati che volevo, ma ho riscontrato delle anomalie almeno credo.

La Prima analizzo le estrazioni del 2022 che ad oggi sono 25 estrazioni dalla 10024 alla 10048 ma se non lo scrivo in questo modo lo script ne scrive 24

Ini = 10024
Fin = EstrazioniArchivio + 1
Scrivi ("Estrazioni esaminate: " & Fin - Ini)

perchè devo scrivere il + 1

Infine vorrei riportare quante volte si è presentato il Numero tra tutte è Nazionale ma non mi scrive ciò che voglio.

Ho provato ogni sorte di Codice credo, a questo punto non ne sono certo, infatti mi scrive

Frequenza Del Numero su Tutte Le Ruote = -1
invece deve scrivere 11 come si evince dalle estrazioni che poi scrive correttamente.

Quindi sicuramente mi manca un tassello o più tasselli per avere quanto voluto.

Per Correttezza riporto lo script sperando in un vostro intervento per la correzione, o eventuale rimprovero, sempre ben visto in modo costruttivo dal sottoscritto.

Class Script
    Sub Main()
        Dim Ini,Fin,es As Integer
        Dim ca,ca1 As Integer
        Dim r,RTutte(1),RNz(1) As Integer
        Dim Num(1) As Integer
        RTutte(1) = 12
        RNz(1) = 11
        Num(1) = 77 'Quì Scelgo il Numero
        'QE = 25
        'Ini = EstrazioneFin - QE
        'Fin = EstrazioneFin
        Ini = 10024
        Fin = EstrazioniArchivio + 1
        Scrivi ("Estrazioni esaminate: " & Fin - Ini)
        Scrivi
        Scrivi ("Frequenza Del Numero su Tutte Le Ruote = " & SerieFrequenza(Num,RTutte,1,Ini,Fin))
        Scrivi
        Scrivi ("Estrazioni Con La Prersenza Del Num. " & Num(1) & Chr(10),1)
        Scrivi
        'For es = Fin To Fin - QE Step - 1
        For es = Ini To Fin
            If SerieFrequenza(Num,RTutte,1,es,es) > 0 Then
                ca = ca + 1
                For r = 1 To 10
                    If Posizione(es,r,Num(1)) > 0 Then Scrivi (DataEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r))
                Next
            End If
            If ca = Fin - Ini Then Exit For
        Next
        Scrivi
        Scrivi ("Frequenza Del Numero sulla Nazionale = " & SerieFrequenza(Num,RNz,1,Ini,Fin))
        Scrivi
        'For es = Fin To Fin - QE Step - 1
        For es = Ini To Fin
            If SerieFrequenza(Num,RNz,1,es,es) > 0 Then
                ca1 = ca1 + 1
                For r = 11 To 11
                    If Posizione(es,r,Num(1)) > 0 Then Scrivi (DataEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r))
                Next
            End If
            If ca1 = Fin - Ini Then Exit For
        Next
    End Sub
End Class

Ringrazio come Sempre.

 

[Mike58]

Ciao Xeroxs, intanto togli quel + 1 all'estrazioniarchivio che non produce nulla.
Poi in alcuni casi sarebbe meglio conteggiare la presenza in estrazioni del numero in esame.
Ti ho messo un conteggio ed il tuo conteggio (ca) per valutare come si comporta la seriefrequenza.
leggi il listato.

Class Script
    Sub Main()
        Dim Ini,Fin,es As Integer
        Dim ca,ca1,k,kk As Integer
        Dim r,RTutte(1),RNz(1) As Integer
        Dim Num(1) As Integer
        RTutte(1) = 12
        RNz(1) = 11
        Num(1) = 77 'Quì Scelgo il Numero
        'QE = 25
        'Ini = EstrazioneFin - QE
        'Fin = EstrazioneFin
        Ini = 10024
        Fin = EstrazioniArchivio ' + 1
        Scrivi ("Estrazioni esaminate: " & Fin - Ini + 1)
        Scrivi
        Scrivi ("Frequenza Del Numero su Tutte Le Ruote = " & SerieFrequenza (Num,RTutte,1,Ini,Fin))
        Scrivi
        Scrivi ("Estrazioni Con La Prersenza Del Num. " & Num(1) & Chr(10),1)
        Scrivi
        'For es = Fin To Fin - QE Step - 1
        For es = Ini To Fin
            If SerieFrequenza(Num,RTutte,1,es,es) > 0 Then
                ca = ca + 1
                For r = 1 To 10
                    If Posizione(es,r,Num(1)) > 0 Then
                        k +=1
                        Scrivi (es & " - " & DataEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r) & vbTab & ca & vbTab & k)
                    End If
                Next
            End If
            If ca = Fin - Ini Then Exit For
        Next
        Scrivi
        Scrivi ("Frequenza Del Numero sulla Nazionale = " & SerieFrequenza(Num,RNz,1,Ini,Fin))
        Scrivi
        'For es = Fin To Fin - QE Step - 1
        For es = Ini To Fin
            If SerieFrequenza(Num,RNz,1,es,es) > 0 Then
                ca1 = ca1 + 1
                For r = 11 To 11
                    If Posizione(es,r,Num(1)) > 0 Then Scrivi (DataEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r))
                Next
            End If
            If ca1 = Fin - Ini Then Exit For
        Next
    End Sub
End Class

Estrazioni esaminate: 25

Frequenza Del Numero su Tutte Le Ruote = 9

Estrazioni Con La Prersenza Del Num. 77


10025 - 04/01/2022 Pa 71.77.76.56.50 1 1
10028 - 11/01/2022 Ge 28.62.79.77.31 2 2
10031 - 18/01/2022 Fi 65.57.74.77.24 3 3
10032 - 20/01/2022 Rm 77.83.49.01.08 4 4
10033 - 22/01/2022 Ve 88.30.77.85.83 5 5
10036 - 29/01/2022 Mi 14.15.24.77.45 6 6
10043 - 15/02/2022 Ba 52.72.46.77.07 7 7
10043 - 15/02/2022 Fi 89.83.77.79.27 7 8
10043 - 15/02/2022 Mi 54.30.15.77.03 7 9
10045 - 19/02/2022 Ve 77.06.07.26.55 8 10
10046 - 22/02/2022 Pa 77.21.55.47.65 9 11

 

[Xeroxs]

Ciao, Mike58

Grazie davvero, Ho capito anche perchè in certi casi non conteggiava tutte le frequenze in quanto il giorno 15 il 77 è uscito 3 volte per cui lui vede un solo caso.

Bene.

Ho compreso anche la differenza che mi hai segnalato.

 

[i legend]

Ciao , lo script è ridondante, non è ottimizzato.
Un grande saluto a tutti e al prof
X Luigi
Ci sono simboli che solo con HTML si possono scrivere ,vedi la arrow.up e arrow.down
Invece per i parametri calcolati nelle sub perché nella main hanno valore nullo ?
Ciao

 

[Xeroxs]

Ciao, I Legend,

Proverò ad ottimizzarlo, ma non so cosa si intente " lo script è ridondante"

 

[i legend]

Ciao xerox ,,utilizzi seriefreq estrazione per estrazione e posizione ,ma fanno la stessa cosa, appesantiscono lo script.
Ciao

 

[Xeroxs]

Ok, grazie per le osservazioni

 

[i legend]

ciao
posto un esempio di una sub che non mi restituisce i valori
dovrei utilizzare una function con return?
posto l esempio per spiegarmi meglio

Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim a As Byte =12
        Dim b As Byte =13
        Scrivi ( "a= " & a)
        Scrivi ( "b= " & b)
        Scrivi ("-----")
        'non funzia
        Call Scambia(a,b)
        Scrivi ( "a= " & a)
        Scrivi ( "b= " & b)
        Scrivi ("-----")
        Dim temp As Byte= a
        a=b
        b=temp
        Scrivi ( "a= " & a)
        Scrivi ( "b= " & b)
        Scrivi ("-----")
    End Sub
    Sub Scambia( a ,b)
        Dim temp As Byte= a
        a=b
        b=temp
    End Sub
End Class

ciao

 

[LuigiB]

ciao legend in vbnet devi scrivere byref davanti i parametri delle funzioni se vuoi che possano essere condivisi con la funzione chiamante

 

[i legend]

Grazie , non ci sarei mai arrivato da solo

 

[solare]

Ciao, Mike58 oppure i legend
chiedo se possibile , quanto segue da usare con lottoprojectl:
Inserisco un numero, il listato mi dovrà mostrare ruota per ruota le ultime 5 estrazioni dove è presente il numero da me inserito.
evidenziando eventuali numeri ripetuti nelle cinquine.
Spero sia fattibile
Grazie