Richiesta listato per quadratura

[solare]

Ciao, chiedo agli esperti dei listati se possibile realizzare questo metodo:
1) Trovare in due ruote 1 ambo con distanza 2, un'ambo in una ruota ed un secondo in altra ruota
2)affinché la previsione sia valida Negli ambi trovati deve esserci: la somma 85 almeno in uno dei due casi o in verticale o in diagonale

 

[salvo50]

visto

 

[salvo50]

Ciao, chiedo agli esperti dei listati se possibile realizzare questo metodo:
1) Trovare in due ruote 1 ambo con distanza 5, un'ambo in una ruota ed un secondo in altra ruota
2)affinché la previsione sia valida Negli ambi trovati deve esserci: la somma 90 almeno in uno dei due casi o in verticale o in diagonale

Ciao a Tutti

Rileggendo mi è venuto un dubbio, dove dici - Negli ambi trovati deve esserci: la somma 90 almeno in uno dei due casi o in verticale o in diagonale -

le somme verticali e diagonali sono 2 in diagonale e 2 in verticale,

domanda

ne basta almeno una somma 90 oppure devono essere tutte e 2 le somme diagonali a 90 oppure tutti e 2 le somme verticali a 90

in questi casi un esempio, anche con numeri fittizzi, toglie ogni dubbio

 

[solare]

Ciao salvo50, intanto grazie dell'interessamento.
Basta che ci sia somma 90 in entrambi i casi in verticale oppure in diagonale.

 

[salvo50]

Ciao Solare

Ho messo la possibilità di cambiare tramite inputbox sia la distanza che la somma, di defoult ho messo distanza 5 e somma 90, non ho fatto altro perchè non so qual'è la previsione

Option Explicit
Sub Main
   Dim FIn,Es,Ini,A,B,C,D
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim DistOr,SommaVeIn,Salvo50,SomVer,SonDia
   Dim SAC,SBD,SAD,SBC
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9400))
   DistOr = CInt(InputBox("Inserisci la distanza orizzontale ?",Salvo50,5))
   SommaVeIn = CInt(InputBox("Inserisci la Somma Orizzontale o Diagonale?",Salvo50,90))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " - PER SOLARE DIFFERENZE E SOMME PRESTABILITE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If Differenza(A,B) = DistOr Then
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If Differenza(C,D) = DistOr Then
                              'A---B
                              '|   |
                              'C---D
                              SAC = Fuori90(A + C) : SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                              If (SAC = SommaVeIn And SBD = SommaVeIn) Or (SAD = SommaVeIn And SBC = SommaVeIn) Then
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 2
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es,R2,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi "    Estratti " & Space(18) & " Somme, Vert. o Diag. Uguale a " & SommaVeIn,1
                                 Scrivi "   Distanza " & DistOr & Space(22) & "Somme " & Space(10) & " Somme",1
                                 Scrivi "   Orizzontali" & Space(20) & "Verticali        Diagonali ",1
                                 Scrivi Space(6) & Format2(A) & " " & Format2(B) & Space(26),1,0
                                 Scrivi Format2(SAC) & Space(15) & Format2(SAD),1
                                 Scrivi Space(6) & Format2(C) & " " & Format2(D) & Space(26),1,0
                                 Scrivi Format2(SBD) & Space(15) & Format2(SBC),1
                                 Scrivi
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

 

[solare]

Grazie infinite
Gentilissimo