x Xeroxs

[Mike58]

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

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

 

[Zetrix]

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

 

[Zetrix]

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