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

LuigiB

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

LuigiB

Premium Member
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
    sabato 13 agosto 2022
    Bari
    73
    15
    19
    88
    47
    Cagliari
    05
    35
    26
    64
    33
    Firenze
    81
    58
    57
    13
    27
    Genova
    62
    54
    33
    70
    76
    Milano
    65
    20
    01
    44
    87
    Napoli
    48
    10
    76
    75
    04
    Palermo
    84
    70
    42
    87
    03
    Roma
    04
    32
    07
    18
    02
    Torino
    57
    43
    72
    36
    88
    Venezia
    57
    28
    70
    04
    71
    Nazionale
    61
    16
    82
    79
    06
    Estrazione Simbolotto
    Nazionale
    17
    41
    29
    05
    13

Ultimi Messaggi

Alto