Novità

non so come risolvere questo script in quadratura su tabella

Zetrix

Zetrix

Advanced Premium Member
9088.PNG

Ciao.
dovrei risolvere questa tabella ma non so perche da dei risultati sbagliati
79+54=0 ??
8+1=9
qualcuno sa come risolvere questa tabella
 
Ultima modifica:
Codice: 
Option Explicit
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13
   Dim A,B,C,D,X,Y,K
   Dim ambata1(2),ambata2(2),ambata3(2),calc(10),ruota(5),ruote(5),posta(1),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2)
   Dim RS,RV,RX,RK,ES
   Dim R1,R2,P1,P2
   Dim S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14
   posta(1) = 1
   poste(2) = 1
   '
   RS = InputBox("Quante estrazioni vuoi controllare?",,0)
   K = 9
   For ES = EstrazioneFin - RS To EstrazioneFin
      AvanzamentoElab EstrazioneFin - RS,EstrazioneFin,ES
      For R1 = 1 To 9
         R2 = R1 + 2
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 3
            P2 = P1 + 2
            '
            A = Estratto(ES,R1,P1)
            B = Estratto(ES,R1,P2)
            C = Estratto(ES,R2,P1)
            D = Estratto(ES,R2,P2)
            '
            'If Fuori90(A + B) = Fuori90(C + D) Then
            '
            '
            ReDim MatriceCaselleDaEvid(4,1)
            '
            MatriceCaselleDaEvid(1,0) = R1
            MatriceCaselleDaEvid(1,1) = P1
            '
            MatriceCaselleDaEvid(2,0) = R1
            MatriceCaselleDaEvid(2,1) = P2
            '
            MatriceCaselleDaEvid(3,0) = R2
            MatriceCaselleDaEvid(3,1) = P1
            '
            MatriceCaselleDaEvid(4,0) = R2
            MatriceCaselleDaEvid(4,1) = P2
            '
            ReDim MatriceLegami(4,3)
            '
            MatriceLegami(1,0) = R1
            MatriceLegami(1,1) = P1
            MatriceLegami(1,2) = R1
            MatriceLegami(1,3) = P2
            '
            If R2 = 12 Then MatriceLegami(2,0) = R2 - 1 Else MatriceLegami(2,0) = R2
            MatriceLegami(2,1) = P1
            If R2 = 12 Then MatriceLegami(2,2) = R2 - 1 Else MatriceLegami(2,2) = R2
            MatriceLegami(2,3) = P2
            '
            MatriceLegami(3,0) = R1
            MatriceLegami(3,1) = P1
            If R2 = 12 Then MatriceLegami(3,2) = R2 - 1 Else MatriceLegami(3,2) = R2
            MatriceLegami(3,3) = P1
            '
            MatriceLegami(4,0) = R1
            MatriceLegami(4,1) = P2
            If R2 = 12 Then MatriceLegami(4,2) = R2 - 1 Else MatriceLegami(4,2) = R2
            MatriceLegami(4,3) = P2
            '
            '
            Call DisegnaEstrazione(ES,MatriceCaselleDaEvid,MatriceLegami)
            '
            '
            T1 = Array(T1,"So1","So2","Diff","  ","So3","So4","Diff","1Ambo",A,B)
            Call InitTabella(T1)
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            '
            '------------------------------------------------
            T2 = Array(T2,"  ","  ","  ","  ","  ","  ","  ","2Ambo",C,D)
            Call AddRigaTabella(T2)
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            S1 = Fuori90(A + C)
            S2 = Fuori90(B + D)
            S3 = Differenza(S1,S2)
            '-------------------------------
            '-------------------------------
            If S1 > S2 Then S1 = S1 & "-" Else S2 = S2 & "-"
            If S2 < S1 Then S2 = S2 & "+" Else S1 = S1 & "+"
            '-------------------------------
            A = A & "+" : B = B & "+"
            '-------------------------------
            '-----------------------------------------------
            T3 = Array(T3,A,B,"  ","  ",S1,S2," ","  ","  ","  ")
            Call AddRigaTabella(T3)
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            S1 = Fuori90(A + C)
            S2 = Fuori90(B + D)
            S3 = Differenza(S1,S2)
            S4 = S3/2
            If pari(S3) Then
               '
               '-------------------------------
               T4 = Array(T4,C,D,"  ","  ",S4,S4," ","  ","  ","  ")
               Call AddRigaTabella(T4)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T5 = Array(T5,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T5)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               S1 = Fuori90(A + C)
               S2 = Fuori90(B + D)
               S3 = Differenza(S1,S2)
               S4 = S3/2
               If S1 > S2 Then
                  S5 = Fuori90(S1 - S4)
               Else
                  S5 = Fuori90(S1 + S4)
               End If
               If S2 < S1 Then
                  S6 = Fuori90(S2 + S4)
               Else
                  S6 = Fuori90(S2 - S4)
               End If
               '
               S7 = 0
               '
               '-------------------------------
               T6 = Array(T6,Format2(S1),Format2(S2),Format2(S3),"  ",S5,S6,S7,"Figura",Figura(A),Figura(B))
               Call AddRigaTabella(T6)
               Call SetColoreCella(1,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(2,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,187,9),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(6,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(7,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","Figura",Figura(C),Figura(D))
               Call AddRigaTabella(T7)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               S8 = Fuori90(A + B)
               S9 = Fuori90(C + D)
               '
               If S8 > S9 Then S8 = S8 & "-" Else S9 = S9 & "-"
               If S9 < S8 Then S9 = S9 & "+" Else S8 = S8 & "+"
               '
               '-------------------------------
               T8 = Array(T8,"  ","  ","  ","  ",S8,S9,"  ","  ","  ","  ")
               Call AddRigaTabella(T8)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               S8 = Fuori90(A + B)
               S9 = Fuori90(C + D)
               S10 = Differenza(S8,S9)
               S11 = S10/2
               '
               '-------------------------------
               T9 = Array(T9,A,B,S8,"  ",S11,S11,"  ","  ","  ","  ")
               Call AddRigaTabella(T9)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               S8 = Fuori90(A + B)
               S9 = Fuori90(C + D)
               S10 = Differenza(S8,S9)
               S11 = S10/2
               '-------------------------------
               T10 = Array(T10,C,D,S9,"  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T10)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               S8 = Fuori90(A + B)
               S9 = Fuori90(C + D)
               S10 = Differenza(S8,S9)
               S11 = S10/2
               '
               If S8 > S9 Then
                  S12 = Fuori90(S8 - S11)
               Else
                  S12 = Fuori90(S8 + S11)
               End If
               If S9 < S8 Then
                  S13 = Fuori90(S9 + S11)
               Else
                  S13 = Fuori90(S9 - S11)
               End If
               '
               '-------------------------------
               T11 = Array(T11,"  ","  ",S10,"  ",S12,S13,S7,"  ","  ","  ")
               Call AddRigaTabella(T11)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,187,9),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(6,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(7,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               T12 = Array(T12,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T12)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T13 = Array(T13,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T13)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               Call SetTableWidth("21%")
               CreaTabella
               '------------------------------
               ruota(1) = R1
               ruota(2) = R2
               '-----------------------------
               ruote(1) = R1
               ruote(2) = R2
               ruote(3) = 11
               ruote(4) = 12
               '----------------------------
               ambata1(1) = Fuori90(S5)
               '
               ambo1(1) = ambata1(1)
               ambo1(2) = S1
               '----------------
               ambo2(1) = ambata1(1)
               ambo2(2) = S2
               '----------------
               '----------------
               '----------------
               ImpostaGiocata 1,ambata1,ruota,posta,K
               Gioca ES,1,,1
               Scrivi
               ImpostaGiocata 1,ambo1,ruote,poste,K
               ImpostaGiocata 2,ambo2,ruote,poste,K
               Gioca ES,1,,1
               Scrivi
            End If
            'End If
         Next
      Next
   Next
End Sub
 
9092.png

9093.PNG

Numeri in gioco 73 su PA TO per Estratto
Numeri in gioco 28 su PA TO per Estratto
[TO] [.. .. .. .. 28] C. 4 Estratto 02389 [06/09/2024] [17.88.13.58.28]

............................
Numeri in gioco 73.65 su PA TO TT NZ per Ambo
Numeri in gioco 73.81 su PA TO TT NZ per Ambo
Numeri in gioco 28.13 su PA TO TT NZ per Ambo
Numeri in gioco 28.43 su PA TO TT NZ per Ambo
[TO] [.. .. 13 .. 28] C. 4 Ambo 02389 [06/09/2024] [17.88.13.58.28]

ho risolto lo script
 
Codice: 
Sub Main
   Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13
   Dim A,B,C,D,X,Y,K
   Dim ambata1(2),ambata2(2),ambata3(2),calc(10),ruota(5),ruote(5),posta(1),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2)
   Dim RS,RV,RX,RK,ES
   Dim R1,R2,P1,P2
   Dim S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,S16
   Dim N8,N9
   posta(1) = 1
   poste(2) = 1
   '
   RS = InputBox("Quante estrazioni vuoi controllare?",,0)
   K = 9
   For ES = EstrazioneFin - RS To EstrazioneFin
      AvanzamentoElab EstrazioneFin - RS,EstrazioneFin,ES
      For R1 = 1 To 9
         R2 = R1 + 2
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 3
            P2 = P1 + 2
            '
            A = Estratto(ES,R1,P1)
            B = Estratto(ES,R1,P2)
            C = Estratto(ES,R2,P1)
            D = Estratto(ES,R2,P2)
            '
            N8 = Fuori90(A + B)
            N9 = Fuori90(C + D)
            '
            '
            ReDim MatriceCaselleDaEvid(4,1)
            '
            MatriceCaselleDaEvid(1,0) = R1
            MatriceCaselleDaEvid(1,1) = P1
            '
            MatriceCaselleDaEvid(2,0) = R1
            MatriceCaselleDaEvid(2,1) = P2
            '
            MatriceCaselleDaEvid(3,0) = R2
            MatriceCaselleDaEvid(3,1) = P1
            '
            MatriceCaselleDaEvid(4,0) = R2
            MatriceCaselleDaEvid(4,1) = P2
            '
            ReDim MatriceLegami(4,3)
            '
            MatriceLegami(1,0) = R1
            MatriceLegami(1,1) = P1
            MatriceLegami(1,2) = R1
            MatriceLegami(1,3) = P2
            '
            If R2 = 12 Then MatriceLegami(2,0) = R2 - 1 Else MatriceLegami(2,0) = R2
            MatriceLegami(2,1) = P1
            If R2 = 12 Then MatriceLegami(2,2) = R2 - 1 Else MatriceLegami(2,2) = R2
            MatriceLegami(2,3) = P2
            '
            MatriceLegami(3,0) = R1
            MatriceLegami(3,1) = P1
            If R2 = 12 Then MatriceLegami(3,2) = R2 - 1 Else MatriceLegami(3,2) = R2
            MatriceLegami(3,3) = P1
            '
            MatriceLegami(4,0) = R1
            MatriceLegami(4,1) = P2
            If R2 = 12 Then MatriceLegami(4,2) = R2 - 1 Else MatriceLegami(4,2) = R2
            MatriceLegami(4,3) = P2
            '
            '
            Call DisegnaEstrazione(ES,MatriceCaselleDaEvid,MatriceLegami)
            '
            '
            T1 = Array(T1,"So1","So2","Diff","  ","So3","So4","Diff","1Ambo",A,B)
            Call InitTabella(T1)
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            '
            '------------------------------------------------
            T2 = Array(T2,"  ","  ","  ","  ","  ","  ","  ","2Ambo",C,D)
            Call AddRigaTabella(T2)
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            S1 = Fuori90(A + C)
            S2 = Fuori90(B + D)
            S3 = Differenza(S1,S2)
            '
            S8 = Fuori90(A + B)
            S9 = Fuori90(C + D)
            S10 = Differenza(S8,S9)
            S11 = S10/2
            '-------------------------------
            If S8 > S9 Then : S12 = Fuori90(S8 - S11) Else S12 = Fuori90(S8 + S11)
            If S9 < S8 Then : S13 = Fuori90(S9 + S11) Else S13 = Fuori90(S9 - S11)
            '
            '-------------------------------
            If S1 > S2 Then S1 = S1 & "-" Else S2 = S2 & "-"
            If S2 < S1 Then S2 = S2 & "+" Else S1 = S1 & "+"
            '-------------------------------
            If S8 > S9 Then S8 = S8 & "-" Else S9 = S9 & "-"
            If S9 < S8 Then S9 = S9 & "+" Else S8 = S8 & "+"
            '
            '
            A = A & "+" : B = B & "+"
            '-------------------------------
            '-----------------------------------------------
            T3 = Array(T3,A,B,"  ","  ",S1,S2," ","  ","  ","  ")
            Call AddRigaTabella(T3)
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            S1 = Fuori90(A + C)
            S2 = Fuori90(B + D)
            S3 = Differenza(S1,S2)
            S4 = S3/2
            If pari(S3) Then
               '
               '-------------------------------
               T4 = Array(T4,C,D,"  ","  ",S4,S4," ","  ","  ","  ")
               Call AddRigaTabella(T4)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T5 = Array(T5,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T5)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               If S1 > S2 Then : S5 = Fuori90(S1 - S4) Else S5 = Fuori90(S1 + S4)
               If S2 < S1 Then : S6 = Fuori90(S2 + S4) Else S6 = Fuori90(S2 - S4)
               '
               S7 = 0
               '
               '-------------------------------
               T6 = Array(T6,Format2(S1),Format2(S2),Format2(S3),"  ",S5,S6,S7,"Figura",Figura(A),Figura(B))
               Call AddRigaTabella(T6)
               Call SetColoreCella(1,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(2,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,187,9),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(6,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(7,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T7 = Array(T7,"  ","  ","  ","  ","  ","  ","  ","Figura",Figura(C),Figura(D))
               Call AddRigaTabella(T7)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               T8 = Array(T8,"  ","  ","  ","  ",S8,S9,"  ","  ","  ","  ")
               Call AddRigaTabella(T8)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T9 = Array(T9,A,B,N8,"  ",S11,S11,"  ","  ","  ","  ")
               Call AddRigaTabella(T9)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               T10 = Array(T10,C,D,N9,"  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T10)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(26,217,136),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               T11 = Array(T11,"  ","  ",S10,"  ",S12,S13,S7,"  ","  ","  ")
               Call AddRigaTabella(T11)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,187,9),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(6,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(7,RGB(223,249,3),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               T12 = Array(T12,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T12)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '
               '-------------------------------
               T13 = Array(T13,"  ","  ","  ","  ","  ","  ","  ","  ","  ","  ")
               Call AddRigaTabella(T13)
               Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(9,RGB(255,255,255),RGB(0,0,0))
               '-------------------------------
               '-------------------------------
               Call SetTableWidth("21%")
               CreaTabella
               '------------------------------
               ruota(1) = R1
               ruota(2) = R2
               '-----------------------------
               ruote(1) = R1
               ruote(2) = R2
               ruote(3) = 11
               ruote(4) = 12
               '----------------------------
               ambata1(1) = Fuori90(S5)
               ambata2(1) = Fuori90(S12)
               '
               ambo1(1) = ambata1(1)
               ambo1(2) = S1
               '----------------
               ambo2(1) = ambata1(1)
               ambo2(2) = S2
               '----------------
               '----------------
               ambo3(1) = ambata2(1)
               ambo3(2) = N8
               '----------------
               ambo4(1) = ambata2(1)
               ambo4(2) = N9
               '----------------
               '----------------
               ImpostaGiocata 1,ambata1,ruota,posta,K
               ImpostaGiocata 2,ambata2,ruota,posta,K
               Gioca ES,1,,1
               Scrivi
               Scrivi"............................"
               Scrivi
               ImpostaGiocata 1,ambo1,ruote,poste,K
               ImpostaGiocata 2,ambo2,ruote,poste,K
               ImpostaGiocata 3,ambo3,ruote,poste,K
               ImpostaGiocata 4,ambo4,ruote,poste,K
               Gioca ES,1,,1
               Scrivi
            End If
         Next
      Next
   Next
End Sub

questo e lo script corretto ci ho messo diverse ore per sistemare lo script
in teoria lo script era scritto bene ma era impostato male
adesso lo sistemato lo script
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 settembre 2024
    Bari
    85
    27
    36
    22
    87
    Cagliari
    32
    62
    36
    71
    72
    Firenze
    09
    31
    29
    42
    55
    Genova
    13
    59
    87
    77
    34
    Milano
    26
    75
    62
    77
    85
    Napoli
    36
    51
    09
    90
    52
    Palermo
    57
    72
    67
    29
    07
    Roma
    56
    12
    44
    65
    88
    Torino
    73
    24
    21
    75
    88
    Venezia
    53
    01
    67
    45
    13
    Nazionale
    24
    86
    62
    74
    75
    Estrazione Simbolotto
    Palermo
    22
    15
    14
    45
    37
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto