Novità

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

i legend

Premium Member
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

Premium Member
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 :)
 
L

LuigiB

Guest
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

Advanced Member >GOLD<
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.
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Xeroxs

Advanced Member >GOLD<
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

Premium Member
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 :)
 

i legend

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

i legend

Premium Member
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 :)
 
L

LuigiB

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

solare

Advanced Member >PLATINUM<
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto