Novità

Richiesta script per Salvo50

R

Raimbow58

Junior Member
Quadrato somma 90
Prima di tutto, un grazie per gli script. Se ti è possibile avrei bisogno di questo script perchè fare una ricerca visiva è molto complicato. Bisogna rintracciare su due ruote in maniera isotopa due numeri di somma 90 e di distanza 5, sia le somme che le distanze possono trovarsi in diagonale, in verticale ed in orizzontale. Trovata la condizione la previsione consiste nella somma dei due numeri distanza 5 e del complemento a 90, il terzo numero è il 90 stesso.
ES: FI 90 49 18 72 87
MI 7 84 23 67 1
18 - 23= distanza 5 verticale somma 90 orizzontale primo nr. 18+23=41 complemento a 90= 49 Previsione 41-49-90

ES: CA 13 18 19 57 14
VE 43 4 76 59 71
19 -14= distanza 5 orizzontale somma 90 diagonale primo nr. 19+14=33 complemento a 90=57 Previsione 33-57-90
Quando avrai tempo e se non si sono problemi.
Ancora un grazie ed un augurio a tutti di sopravvivere a questo dannato virus.
 
Ciao a Tutti.

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Salvo50,Es,OK,Tutte
   Dim R1,R2,P1,P2,P5,P6,E1,E2,Caso,Casi
   Dim AB90,CD90,AB05,CD05,AC90,BD90
   Dim AC05,BD05,AD90,BC90,AD05,BC05
   Dim Num(3),Ruo(2),Ruote(1),Posta(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9400))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,15))
   Tutte = CInt(InputBox(" SE VUOI FARE LA RICERCA ANCHE PER TUTTE LE RUOTE METTI 1 ALTRIMENTI UN ALTRO NUMERO",Salvo50,0))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "Per Raimbow58 - Quadrato somma 90 (ISOTOPO) - script Salvo50",1,,4,,3,,1
   Posta(2) = 1
   'Posta(3) = 1
   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
                     'A---B
                     '|   |
                     'C---D
                     If A <> C And A <> D And B <> C And B <> D Then
                        AB90 = Fuori90(A + B) : CD90 = Fuori90(C + D) : AC90 = Fuori90(A + C)
                        BD90 = Fuori90(B + D) : AD90 = Fuori90(A + D) : BC90 = Fuori90(B + C)
                        AB05 = Distanza(A,B) : CD05 = Distanza(C,D) : AC05 = Distanza(A,C)
                        BD05 = Distanza(B,D) : AD05 = Distanza(A,D) : BC05 = Distanza(B,C)
                        If((AB90 = 90 And CD90 = 90) And((AC05 = 05 And BD05 = 05)Or((AD05 = 05 And BC05 = 05))))_
                           Xor((AC90 = 90 And BD90 = 90) And((AB05 = 05 And CD05 = 05)Or((AD05 = 05 And BC05 = 05))))_
                           Xor((AD90 = 90 And BC90 = 90) And((AB05 = 05 And CD05 = 05)Or((AC05 = 05 And BD05 = 05))))Then
                           OK = 0
                           If(AB90 = 90 And CD90 = 90) And(AC05 = 05 And BD05 = 05) Then Num(1) = Fuori90(A + C): OK = 1
                           If(AB90 = 90 And CD90 = 90) And(AD05 = 05 And BC05 = 05) Then Num(1) = Fuori90(A + D): OK = 1
                           If(AC90 = 90 And BD90 = 90) And(AB05 = 05 And CD05 = 05) Then Num(1) = Fuori90(A + B): OK = 1
                           If(AC90 = 90 And BD90 = 90) And(AD05 = 05 And BC05 = 05) Then Num(1) = Fuori90(A + D): OK = 1
                           If(AD90 = 90 And BC90 = 90) And(AB05 = 05 And CD05 = 05) Then Num(1) = Fuori90(A + B): OK = 1
                           If(AD90 = 90 And BC90 = 90) And(AC05 = 05 And BD05 = 05) Then Num(1) = Fuori90(A + C): OK = 1
                           If Num(1) <> 90 And OK = 1 Then
                              Num(2) = ComplAdX(Num(1)) : Num(3) = 90
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              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 Space(15) & "Solo un gruppo con somme uguali a 90",1,0,,2
                              Scrivi Space(9) & "Solo un gruppo con Distanze = a 5",1,,,2
                              Scrivi Space(19) & "Somme " & Space(6) & " Somme" & Space(6) & " Somme",1,0
                              Scrivi Space(11) & "Distanze " & Space(3) & " Distanze ",1,0
                              Scrivi Space(2) & " Distanze",1
                              Scrivi Space(5) & "Estratti " & Space(2) & "Orizzontali" & " - ",1,0
                              Scrivi "Verticali - Diagonali        Orizzontali - Verticali - Diagonali",1
                              Scrivi Space(6) & Format2(A) & " " & Format2(B) & Space(9) & Format2(AB90),1,0
                              Scrivi Space(11) & Format2(AC90) & Space(10) & Format2(AD90),1,0
                              Scrivi Space(16) & Format2(AB05) & Space(11) & Format2(AC05) & Space(10) & Format2(AD05),1
                              Scrivi Space(6) & Format2(C) & " " & Format2(D) & Space(9) & Format2(CD90),1,0
                              Scrivi Space(11) & Format2(BD90) & Space(10) & Format2(BC90),1,0
                              Scrivi Space(16) & Format2(CD05) & Space(11) & Format2(BD05) & Space(10) & Format2(BC05),1
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2 : Ruote(1) = TU_
                              EliminaRipetuti Num
                              ImpostaGiocata 1,Num,Ruo,Posta,Clp
                              If Tutte = 1 Then ImpostaGiocata 2,Num,Ruote,Posta,Clp
                              Gioca Es
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ciao Salvo 50.
Cortesemente quando hai tempo, puoi apportare una piccola modifica allo script?
Andrebbe cercata la condizione anche in posizione non isotopa, spero di essermi spiegato bene.
Un saluto ed un grzie in anticipo
 
Ciao Raimbow56
Anche in posizione non isotopa
Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Salvo50,Es,OK,Tutte
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim AB90,CD90,AB05,CD05,AC90,BD90
   Dim AC05,BD05,AD90,BC90,AD05,BC05
   Dim Num(3),Ruo(2),Ruote(1),Posta(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9400))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,15))
   Tutte = CInt(InputBox(" SE VUOI FARE LA RICERCA ANCHE PER TUTTE LE RUOTE METTI 1 ALTRIMENTI UN ALTRO NUMERO",Salvo50,0))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(17) & "Per Raimbow58 - Quadrato somma 90 - script Salvo50"& Space(17),1,,4,,3,,1
   Posta(2) = 1
   'Posta(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,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(Es,R2,P3)
                        D = Estratto(Es,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
                              AB90 = Fuori90(A + B) : CD90 = Fuori90(C + D) : AC90 = Fuori90(A + C)
                              BD90 = Fuori90(B + D) : AD90 = Fuori90(A + D) : BC90 = Fuori90(B + C)
                              AB05 = Distanza(A,B) : CD05 = Distanza(C,D) : AC05 = Distanza(A,C)
                              BD05 = Distanza(B,D) : AD05 = Distanza(A,D) : BC05 = Distanza(B,C)
                              If((AB90 = 90 And CD90 = 90) And((AC05 = 05 And BD05 = 05)Or((AD05 = 05 And BC05 = 05))))_
                                 Xor((AC90 = 90 And BD90 = 90) And((AB05 = 05 And CD05 = 05)Or((AD05 = 05 And BC05 = 05))))_
                                 Xor((AD90 = 90 And BC90 = 90) And((AB05 = 05 And CD05 = 05)Or((AC05 = 05 And BD05 = 05))))Then
                                 OK = 0
                                 If(AB90 = 90 And CD90 = 90) And(AC05 = 05 And BD05 = 05) Then Num(1) = Fuori90(A + C): OK = 1
                                 If(AB90 = 90 And CD90 = 90) And(AD05 = 05 And BC05 = 05) Then Num(1) = Fuori90(A + D): OK = 1
                                 If(AC90 = 90 And BD90 = 90) And(AB05 = 05 And CD05 = 05) Then Num(1) = Fuori90(A + B): OK = 1
                                 If(AC90 = 90 And BD90 = 90) And(AD05 = 05 And BC05 = 05) Then Num(1) = Fuori90(A + D): OK = 1
                                 If(AD90 = 90 And BC90 = 90) And(AB05 = 05 And CD05 = 05) Then Num(1) = Fuori90(A + B): OK = 1
                                 If(AD90 = 90 And BC90 = 90) And(AC05 = 05 And BD05 = 05) Then Num(1) = Fuori90(A + C): OK = 1
                                 If Num(1) <> 90 And OK = 1 Then
                                    Num(2) = ComplAdX(Num(1)) : Num(3) = 90
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    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 Space(15) & "Solo un gruppo con somme uguali a 90",1,0,,2
                                    Scrivi Space(9) & "Solo un gruppo con Distanze = a 5",1,,,2
                                    Scrivi Space(19) & "Somme " & Space(6) & " Somme" & Space(6) & " Somme",1,0
                                    Scrivi Space(11) & "Distanze " & Space(3) & " Distanze ",1,0
                                    Scrivi Space(2) & " Distanze",1
                                    Scrivi Space(5) & "Estratti " & Space(2) & "Orizzontali" & " - ",1,0
                                    Scrivi "Verticali - Diagonali        Orizzontali - Verticali - Diagonali",1
                                    Scrivi Space(6) & Format2(A) & " " & Format2(B) & Space(9) & Format2(AB90),1,0
                                    Scrivi Space(11) & Format2(AC90) & Space(10) & Format2(AD90),1,0
                                    Scrivi Space(16) & Format2(AB05) & Space(11) & Format2(AC05) & Space(10) & Format2(AD05),1
                                    Scrivi Space(6) & Format2(C) & " " & Format2(D) & Space(9) & Format2(CD90),1,0
                                    Scrivi Space(11) & Format2(BD90) & Space(10) & Format2(BC90),1,0
                                    Scrivi Space(16) & Format2(CD05) & Space(11) & Format2(BD05) & Space(10) & Format2(BC05),1
                                    Scrivi
                                    Ruo(1) = R1 : Ruo(2) = R2 : Ruote(1) = TU_
                                    EliminaRipetuti Num
                                    ImpostaGiocata 1,Num,Ruo,Posta,Clp
                                    If Tutte = 1 Then ImpostaGiocata 2,Num,Ruote,Posta,Clp
                                    Gioca Es
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 aprile 2025
    Bari
    10
    58
    03
    61
    14
    Cagliari
    04
    67
    36
    85
    87
    Firenze
    70
    45
    80
    62
    06
    Genova
    05
    66
    32
    59
    89
    Milano
    20
    56
    02
    87
    47
    Napoli
    60
    63
    75
    72
    06
    Palermo
    14
    80
    30
    76
    70
    Roma
    73
    42
    36
    79
    08
    Torino
    26
    74
    83
    78
    31
    Venezia
    06
    60
    85
    76
    40
    Nazionale
    44
    11
    71
    06
    37
    Estrazione Simbolotto
    Genova
    26
    14
    36
    31
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto