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
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11

Ultimi Messaggi

Indietro
Alto