Richiesta script per Salvo50

Raimbow58 · 22 Marzo 2020

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.

salvo50 · 4 Aprile 2020

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

Raimbow58 · 4 Aprile 2020

Ciao Salvo 50.
Un grandissimo grazie per lo script, ho provato e funziona benissimo.
In bocca al lupo per tutto.

Raimbow58 · 27 Settembre 2020

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

salvo50 · 27 Settembre 2020

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

Raimbow58 · 27 Settembre 2020

Grandissimo, grazie.

Cerca

Cerca

Richiesta script per Salvo50

Raimbow58

Junior Member

salvo50

Advanced Member >PLATINUM PLUS<

Raimbow58

Junior Member

Raimbow58

Junior Member

salvo50

Advanced Member >PLATINUM PLUS<

Raimbow58

Junior Member

Ultima estrazione Lotto

Ultimi Messaggi