X SALVO O CHI PUO' RICERCA CICLOMETRICA.

[chicco3]

Buongiorno Salvo e a tutti i scripter di questo sito per favore chi può farmi uno script che rilevi le seguenti somme e distanze ciclometriche ISOTOPI:
1) SOMMA ORIZ.VERT.E DIAG. 90;
2) TROVATA LA SOMMA VORREI CHE I QUATRRO NUMERI CI SIA SOLO LA DISTANZA 5 SIA IN ORIZZONTALE CHE IN VERTICALE.
3) Porto un esempio pratico estrazione del 12.09.2020:
CA=58-37
TO=53-32
Come si può notare in dist.diag.58+32 somma 90;
53+37 somma 90
fatto questo dobbiamo avere la distanza 5 frà i numeri:
58-53 dist.5
37-32 dist.5
Tutto quì ringrazio anticipatamente Raffaele e buona giornata

 

[salvo50]

Ciao a Tutti
Ciao Chicco3

Non so, se ho interpretato bene la tua richiesta, ho qualche dubbio, vedi se può andare

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es1,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,SAC,SBD,SAD,SBC,DAB,DCD,DAC,DBD
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9400))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(8) & " Chiesto da Chicco3 - SOMMA 90, DISTANZA 05 ISOTOPI - SCRIPT SALVO50" & Space(8),1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For R2 = R1 + 1 To 10
                  C = Estratto(Es1,R2,P1)
                  D = Estratto(Es1,R2,P2)
                  If A > 0 And C > 0 Then
                     'A---B
                     '|   |
                     'C---D
                     If A <> C And A <> D And B <> C And B <> D Then
                        DAB = Distanza(A,B) : DCD = Distanza(C,D) : DAC = Distanza(A,C) : DBD = Distanza(B,D)
                        SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : SAC = Fuori90(A + C)
                        SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                        If(DAB = 5 And DCD = 5)Or(DAC = 5 And DBD = 5) Then
                           If(SAB = 90 And SCD = 90)Xor(SAC = 90 And SBD = 90) Xor(SAD = 90 And SBC = 90)Then
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es1,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(Es1) & " del " & DataEstrazione(Es1)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es1,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 Space(24) & " (Almeno un gruppo con somma 90)",1,0,,2
                              Scrivi Space(5) & " (Almeno un gruppo con distanza 5)",1,,,1
                              Scrivi Space(7) & "Estratti " & Space(7) & "Somme " & Space(8) & " Somme",1,0
                              Scrivi Space(8) & " Somme" & Space(7) & " Distanze " & Space(4) & " Distanze ",1
                              Scrivi Space(7) & "Isotopi " & Space(5) & "Orizzontali" & Space(5),1,0
                              Scrivi "Verticali     Diagonali     Orizzontali    Verticali",1
                              Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
                              Scrivi Space(13) & Format2(SAC) & Space(12) & Format2(SAD) & Space(13) & Format2(DAB),1,0
                              Scrivi Space(13) & Format2(DAC),1
                              Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
                              Scrivi Space(13) & Format2(SBD) & Space(12) & Format2(SBC) & Space(13) & Format2(DCD),1,0
                              Scrivi Space(13) & Format2(DBD),1
                              Scrivi
                              Scrivi
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   'ScriviResoconto
End Sub

 

[chicco3]

Ciao salvo è perfetto come sempre i casi sono pochi perche sono isotopi come io ho chiesto ma va bene cosi. Adesso quando puoi senza fretta inserisci separato dentro allo stesso listato oppure fare un'altro stessa ricerca non isotopi. Grazie per il momento e complimenti x quello che fai. Ciao Raffaele

 

[salvo50]

Questo cerca le combinazioni isotopi e non isotopi, ho aggiunto anche la Nazionale

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es1,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim SAB,SCD,SAC,SBD,SAD,SBC,DAB,DCD,DAC,DBD
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " Chiesto da Chicco3 - SOMMA 90, DISTANZA 05 - SCRIPT SALVO50" & Space(12),1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1 & "     Tempo Trascorso " & TempoTrascorso
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es1,R2,P3)
                        D = Estratto(Es1,R2,P4)
                        If A > 0 And C > 0 Then
                           'A---B
                           '|   |
                           'C---D
                           If A <> C And A <> D And B <> C And B <> D Then
                              DAB = Distanza(A,B) : DCD = Distanza(C,D) : DAC = Distanza(A,C) : DBD = Distanza(B,D)
                              SAB = Fuori90(A + B) : SCD = Fuori90(C + D) : SAC = Fuori90(A + C)
                              SBD = Fuori90(B + D) : SAD = Fuori90(A + D) : SBC = Fuori90(B + C)
                              If(DAB = 5 And DCD = 5)Or(DAC = 5 And DBD = 5) Then
                                 If(SAB = 90 And SCD = 90)Xor(SAC = 90 And SBD = 90) Xor(SAD = 90 And SBC = 90)Then
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P5 = 1 To 5
                                       E1 = Estratto(Es1,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(Es1) & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P6 = 1 To 5
                                       E2 = Estratto(Es1,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 Space(24) & " (Almeno un gruppo con somma 90)",1,0,,2
                                    Scrivi Space(5) & " (Almeno un gruppo con distanza 5)",1,,,1
                                    Scrivi Space(7) & "Estratti " & Space(7) & "Somme " & Space(8) & " Somme",1,0
                                    Scrivi Space(8) & " Somme" & Space(7) & " Distanze " & Space(4) & " Distanze ",1
                                    Scrivi Space(7) & "        " & Space(5) & "Orizzontali" & Space(5),1,0
                                    Scrivi "Verticali     Diagonali     Orizzontali    Verticali",1
                                    Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
                                    Scrivi Space(13) & Format2(SAC) & Space(12) & Format2(SAD) & Space(13) & Format2(DAB),1,0
                                    Scrivi Space(13) & Format2(DAC),1
                                    Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
                                    Scrivi Space(13) & Format2(SBD) & Space(12) & Format2(SBC) & Space(13) & Format2(DCD),1,0
                                    Scrivi Space(13) & Format2(DBD),1
                                    Scrivi
                                    Scrivi
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   Scrivi TempoTrascorso
End Sub

 

[chicco3]

Perfetto Salvo sempre doc sei. Grazie x la velocità supersonica un saluto a Rudivall Ciao buona serata Raf