Salvo mi dai una mano?

[rudivall]

Ciao Salvo ho utilizzato questo tuo bellissimo script che trova due ambi che hanno i numeri con distanza uguale. Ora il mio problema è questo, sulle somme orizzontali, verticali e diagonali una è sempre uguale, come posso utilizzare il numero che scaturisce dalla somma uguale e metterlo in gioco? Ti metto il listato e una immagine...

 

[salvo50]

Ciao Rudivall

'Ciao Salvo ho utilizzato questo tuo bellissimo script che trova due ambi che hanno i numeri con Distanza uguale.
'Ora il mio problema è questo, sulle somme orizzontali, verticali e diagonali una è sempre uguale,
'come posso utilizzare il numero che scaturisce dalla somma uguale e metterlo In gioco?
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Sp
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Salvo50
   Dim Caso,Casi,A,B,C,D,Som1,Som2,Som3,Som4,Som5,Som6
   Dim DM12,DM23,DM34
   Dim Posta(2),Poste(2),Ruote(2),Amba(3),M(4),Ambo(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9900)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & " Ambi Stessa distanza Isotopi - Script by Salvo50" & Space(10),1,,4,,3,,1
   Scrivi Space(10) & " Con Modifica chiesta da Rudivall                " & Space(10),1,,4,,3,,1
   Posta(1) = 1
   Poste(1) = 1
   Poste(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     M(1) = A : M(2) = B : M(3) = C : M(4) = D
                     Call OrdinaMatrice(M,1)
                     DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3)) : DM34 = Distanza(M(3),M(4))
                     If DM12 = DM23 And DM12 = DM34 And DM23 = DM34 Then
                        Som1 = Fuori90(A + B) : Som2 = Fuori90(C + D) : Som3 = Fuori90(A + C)
                        Som4 = Fuori90(B + D) : Som5 = Fuori90(A + D) : Som6 = Fuori90(B + C)
                        If Som1 = Som2 Then Ambo(1) = Som1
                        If Som3 = Som4 Then Ambo(1) = Som3
                        If Som5 = Som6 Then Ambo(1) = Som5
                        Ambo(2) = Fuori90(Ambo(1) * 2)
                        Amba(1) = Format2(DM12)
                        Amba(2) = Fuori90(Format2(DM12) +(Fuori90(Som1 + Som2)))
                        Amba(3) = Fuori90(Amba(1) + Amba(2))
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                        For P3 = 1 To 5
                           E1 = Estratto(Es,R1,P3)
                           If E1 = A Or E1 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi " <-- Somma or " & Format2(Som1) & " vr " & Format2(Som3) & " dg " & Format2(Som5),1,,,1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                        For P4 = 1 To 5
                           E2 = Estratto(Es,R2,P4)
                           If E2 = C Or E2 = D Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi " <-- Somma or " & Format2(Som2) & " vr " & Format2(Som4) & " dg " & Format2(Som6),1,,,1
                        Scrivi " <------------------------------------------------> Triplo sommativo " & Fuori90(Som1 + Som2),1,0
                        Scrivi "*** " & Fuori90(Som3 + Som4) & " ***" & Fuori90(Som5 + Som6),1,,,1
                        Scrivi
                        Scrivi Space(36) & " La Somma Uguale è " & Format2(Ambo(1)),1,,,2
                        Scrivi
                        Scrivi Space(16) & " Estratti Stessa Distanza  " & StringaNumeri(M," ",True),1,0
                        Scrivi " Distanza " & Format2(DM12),1
                        Scrivi
                        Scrivi
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Posta(2) = 0
                        If Som1 <> Som2 Then Posta(1) = 1 : Posta(2) = 1
                        EliminaRipetuti Amba
                        ImpostaGiocata 1,Amba,Ruote,Posta,Clp,1
                        ImpostaGiocata 2,Ambo,Ruote,Poste,Clp,1
                        Gioca Es
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso " & TempoTrascorso,1
End Sub

 

[rudivall]

Caro Salvo grazie mille, cercherò di capire il procedimento che hai fatto un abbraccio...

 

[tiberio1]

Buone feste a tt .Ciao Salvo se puoi dare uno sguardo a un metodo del Fabarri che ho postato. Grazie.