Novità

X SALVO O CHI PUO' RICERCA CICLOMETRICA.

C

chicco3

Advanced Member
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
 
Ciao a Tutti
Ciao Chicco3

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

Codice: 
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
 
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
 
Questo cerca le combinazioni isotopi e non isotopi, ho aggiunto anche la Nazionale

Codice: 
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
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 maggio 2026
    Bari
    84
    57
    09
    22
    60
    Cagliari
    52
    58
    80
    57
    76
    Firenze
    50
    15
    63
    58
    60
    Genova
    08
    30
    61
    75
    55
    Milano
    82
    68
    29
    16
    10
    Napoli
    86
    46
    15
    33
    65
    Palermo
    46
    29
    73
    74
    37
    Roma
    30
    15
    02
    87
    52
    Torino
    15
    62
    82
    52
    67
    Venezia
    58
    85
    40
    35
    48
    Nazionale
    16
    51
    56
    71
    17
    Estrazione Simbolotto
    Milano
    18
    07
    27
    32
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto