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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto