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
    venerdì 04 aprile 2025
    Bari
    37
    55
    29
    11
    70
    Cagliari
    10
    16
    04
    01
    81
    Firenze
    15
    62
    30
    85
    72
    Genova
    16
    07
    34
    25
    18
    Milano
    01
    77
    67
    72
    76
    Napoli
    47
    14
    55
    87
    45
    Palermo
    49
    90
    79
    66
    41
    Roma
    28
    14
    10
    65
    88
    Torino
    22
    60
    50
    04
    08
    Venezia
    23
    60
    74
    52
    43
    Nazionale
    74
    44
    90
    06
    56
    Estrazione Simbolotto
    Genova
    28
    22
    15
    36
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto