Novità

x Xeroxs

anche se io lo farei cosi, poi ti lascio lavorare con le tue idee.

Codice:
Class Script
    Sub Main
        Dim nCicli,qCiclo,k,x  As Integer
        Dim ini,fin,ess,es As Integer
        Dim num , r ,freq  As Integer
        Dim T() As String
        nCicli = 4 ' quanti cicli
        qCiclo = 5 ' lunghezza ciclo
        '
        r = 1
        'x = InputBox("Quale numero vuoi controllare?",0)
        'num = x
        '
        ini = EstrazioniArchivio - (nCicli * qCiclo )
        fin = EstrazioniArchivio
        '
        'Next
'For x = 1 To 90 ' tabella separata
        T = {"Ruota","Ciclo","Inizio","Fine"," Numero ","Frequenza"," Lunghezza estr"}
        Call InitTabella(T,RGB(0,214,153),,,RGB(0,0,0),,"Dubai Light")
        '
  For x = 1 To 90     
        For es = ini To fin  Step  qCiclo
            'For x = 1 To 90
            k = k + 1
            If es > fin Then es = fin
            ess = es -(qCiclo - 1)
            freq = EstrattoFrequenza(x,r,ess,es)
If freq = 1 Then
            T = {NomeRuota(r), " Ciclo " &  k , Replace(DataEstrazione(ess),"/",".") , Replace(DataEstrazione(es),"/",".") , x , freq,qCiclo }
            Call AddRigaTabella(T,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
For xx As Integer = 0 To 6
If IsPari(x) Then Call SetColoreCellaRighe((xx),ColoreGiallo,ColoreRosso )
Next
End If

            Next
k = 0
       Next
        '
        Call CreaTabella ()
'k = 0 ' azzero i cicli tabella separata
'Next ' tabella separata
    End Sub
End Class
 
5524.PNG

no MIKE non mi piace per niente la tabella che ai fatto meglio questa tabella che suddivide ogni numero
con una tabella singola per ogni numero
questa ambata 41 a BA e ottima e la si puo giocare a BA

Ciao
 
Ultima modifica:
Codice:
Class Script
    Sub Main
        Dim nCicli,qCiclo,k,x  As Integer
        Dim ini,fin,ess,es As Integer
        Dim num , r ,freq  As Integer
        Dim T() As String
        nCicli = 5 - 1 ' quanti cicli
        qCiclo = 9 ' lunghezza ciclo
        '
        r = 1
        'x = InputBox("Quale numero vuoi controllare?",0)
        'num = x
        '
        ini = EstrazioniArchivio - (nCicli * qCiclo )
        fin = EstrazioniArchivio
        '
        'Next
        For x = 1 To 90
            T = {"Ruota","Ciclo","Inizio","Fine"," Numero ","Frequenza"," Lunghezza estr"}
            Call InitTabella(T,RGB(0,214,153),,,RGB(0,0,0),,"Dubai Light")
            '
            For es = ini To fin  Step qCiclo
                'For x = 1 To 90
                k = k + 1
                If es > fin Then es = fin
                ess = es -(qCiclo - 1)
                freq = EstrattoFrequenza(x,r,ess,es)
                If freq = 1 Then
                    T = {NomeRuota(r), " Ciclo " &  k , Replace(DataEstrazione(ess),"/",".") , Replace(DataEstrazione(es),"/",".") , x , freq,qCiclo }
                    Call AddRigaTabella(T,RGB(200,200,230),,,RGB(0,0,0),,"Dubai Light")
                End If
            Next
            '
            Call CreaTabella ()
            k = 0 ' azzero i cicli
        Next
    End Sub
End Class

ecco lo script
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 ottobre 2025
    Bari
    03
    66
    37
    18
    61
    Cagliari
    26
    22
    85
    20
    43
    Firenze
    29
    61
    85
    67
    75
    Genova
    40
    63
    74
    19
    78
    Milano
    43
    80
    34
    54
    70
    Napoli
    18
    78
    89
    15
    27
    Palermo
    38
    84
    88
    06
    62
    Roma
    60
    14
    40
    84
    43
    Torino
    51
    62
    58
    65
    52
    Venezia
    07
    61
    48
    63
    87
    Nazionale
    60
    36
    11
    28
    31
    Estrazione Simbolotto
    29
    02
    24
    03
    37

Ultimi Messaggi

Indietro
Alto