Novità

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

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 :)
 
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 :)
 
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...
 
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.


Codice:
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.
 
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.

Codice:
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
 
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.
 
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 :)
 
Ciao xerox ,,utilizzi seriefreq estrazione per estrazione e posizione ,ma fanno la stessa cosa, appesantiscono lo script.
Ciao :)
 
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
Codice:
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 :)
 
ciao legend in vbnet devi scrivere byref davanti i parametri delle funzioni se vuoi che possano essere condivisi con la funzione chiamante
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35

Ultimi Messaggi

Indietro
Alto