Script somme verticali e diagonali - metodo Adeleadele

[Zetrix]

Sub Main()
   Dim n(5),v(5)
   Dim r1,r2
   Dim ex,es
   Dim x1,x2,x3,x4,x5
   Dim y1,y2,y3,y4,y5
   ex = CInt(InputBox("Quante estrazioni vuoi esaminare ? ",,0))
   '
   For r1 = 1 To 9
      '
      For r2 = r1 + 1 To r2
         '
         For es = EstrazioneFin - ex To EstrazioneFin
            '
            '
            ReDim MatriceCaselleDaEvid(10,1)
            '
            MatriceCaselleDaEvid(1,0) = r1
            MatriceCaselleDaEvid(1,1) = 1
            '
            MatriceCaselleDaEvid(2,0) = r1
            MatriceCaselleDaEvid(2,1) = 2
            '
            MatriceCaselleDaEvid(3,0) = r1
            MatriceCaselleDaEvid(3,1) = 3
            '
            MatriceCaselleDaEvid(4,0) = r1
            MatriceCaselleDaEvid(4,1) = 4
            '
            MatriceCaselleDaEvid(5,0) = r1
            MatriceCaselleDaEvid(5,1) = 5
            '
            MatriceCaselleDaEvid(6,0) = r2
            MatriceCaselleDaEvid(6,1) = 1
            '
            MatriceCaselleDaEvid(7,0) = r2
            MatriceCaselleDaEvid(7,1) = 2
            '
            MatriceCaselleDaEvid(8,0) = r2
            MatriceCaselleDaEvid(8,1) = 3
            '
            MatriceCaselleDaEvid(9,0) = r2
            MatriceCaselleDaEvid(9,1) = 4
            '
            MatriceCaselleDaEvid(10,0) = r2
            MatriceCaselleDaEvid(10,1) = 5
            '
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
            '
            '
            x1 = Estratto(es,r1,1)
            y1 = Estratto(es,r2,1)
            x2 = Estratto(es,r1,2)
            y2 = Estratto(es,r2,2)
            x3 = Estratto(es,r1,3)
            y3 = Estratto(es,r2,3)
            x4 = Estratto(es,r1,4)
            y4 = Estratto(es,r2,4)
            x5 = Estratto(es,r1,5)
            y5 = Estratto(es,r2,5)
            '
            n(1) = Format2(Abs(x1 - y1))
            n(2) = Format2(Abs(x2 - y2))
            n(3) = Format2(Abs(x3 - y3))
            n(4) = Format2(Abs(x4 - y4))
            n(5) = Format2(Abs(x5 - y5))
            '
            v(1) = Format2(Fuori90(x1 + y1))
            v(2) = Format2(Fuori90(x2 + y2))
            v(3) = Format2(Fuori90(x3 + y3))
            v(4) = Format2(Fuori90(x4 + y4))
            v(5) = Format2(Fuori90(x5 + y5))
            '
            If n(1) = 0 Then n(1) = 90 End If
            If n(2) = 0 Then n(2) = 90 End If
            If n(3) = 0 Then n(3) = 90 End If
            If n(4) = 0 Then n(4) = 90 End If
            If n(5) = 0 Then n(5) = 90 End If
            '
            '
            Scrivi
            Scrivi SiglaRuota(r1) & Space(15) & StringaEstratti(es,r1) & Space(5) & " ",0,1,3,1
            Scrivi SiglaRuota(r2) & Space(15) & StringaEstratti(es,r2) & Space(5) & " ",0,1,4,1
            Scrivi
            Scrivi "diff" & Space(13) & StringaNumeri(n) & Space(5) & " ",0,1,2,5
            Scrivi "somma" & Space(12) & StringaNumeri(v) & Space(5) & " ",0,1,1,5
            Scrivi
            Scrivi
            Scrivi
         Next
      Next
   Next
End Sub

prova questo script

 

[tigre62]

tigre a me non da errore lo script ma che versione ai di spaziometria
aspetta che ora sistemo le variabili

1.6.41

 

[Zetrix]

1.6.41

la mia versione 1.6.35