La Figura del TRIANGOLO per TRE TERZINE

trylli · 23 Agosto 2022

Imaging ha scritto:
Scusatemi ero impegnato buona serata a tutti

Non toccare più niente non darà il terno la terzina darà L'ambo meglio poco che niente ciao zetrix
un impegno fuori programma mi ha fatto perdere più tempo del previsto

Ma io non vedo terzine come mai

Imaging · 23 Agosto 2022

Zetrix ha scritto:

Codice:

Sub Main()
   Dim ruota(5),ruote(5)
   Dim posta(5),poste(5)
   Dim r1,r2,r3
   Dim ambo1(2),ambo2(2),ambo3(2),terzina(3)
   Dim caso
   '
   posta(2) = 1
   '
   'rk = InputBox("Quale 1 numero vuoi controllare?",,0)
   'rv = InputBox("Quale 2 numero vuoi controllare?",,0)
   '
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   '
   caso = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r1 = 1 To 8
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               '
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               '-----------------------------------
               For r2 = r1 + 1 To 9
                  '
                  n3 = Estratto(es,r2,p1)
                  n4 = Estratto(es,r2,p2)
                  '----------------------------------
                  For r3 = r2 + 1 To 10
                     '
                     n5 = Estratto(es,r3,p1)
                     n6 = Estratto(es,r3,p2)
                     '-----------------------------------
                     For rx = rk To rk
                        For rw = rv To rv
                           '
                           '--------------------------------
                           b1 = Differenza(n1,n5)
                           b2 = Differenza(n4,n6)
                           '
                           b3 = Differenza(n2,n6)
                           b4 = Differenza(n3,n5)
                           '
                           b5 = Differenza(n3,n5)
                           b6 = Differenza(n2,n4)
                           '
                           b7 = Differenza(n1,n3)
                           b8 = Differenza(n4,n6)
                           '
                           '--------------------------------
                           '
                           If Differenza(n1,n5) And Differenza(n4,n6) And b1 = b2 _
                              Or Differenza(n2,n6) And Differenza(n3,n5)And b3 = b4 _
                              Or Differenza(n3,n5) And Differenza(n2,n4)And b5 = b6 _
                              Or Differenza(n1,n3) And Differenza(n4,n6)And b7 = b8 Then
                              '
                              '--------------------------
                              If b1 < n2 Then
                                 n7 = Fuori90(n2 - b1)
                              Else
                                 n7 = Fuori90(b1 + n2)
                              End If
                              '
                              If b1 < n3 Then
                                 n8 = Fuori90(n3 - b1)
                              Else
                                 n8 = Fuori90(b1 + n3)
                              End If
                              '
                              '
                              '--------------------------
                              If b3 < n1 Then
                                 n9 = Fuori90(n1 - b3)
                              Else
                                 n9 = Fuori90(b3 + n1)
                              End If
                              '
                              If b3 < n4 Then
                                 n10 = Fuori90(n4 - b3)
                              Else
                                 n10 = Fuori90(b3 + n4)
                              End If
                              '
                              '
                              '--------------------------
                              If b5 < n1 Then
                                 n11 = Fuori90(n1 - b5)
                              Else
                                 n11 = Fuori90(b5 + n1)
                              End If
                              '
                              If b5 < n6 Then
                                 n12 = Fuori90(n6 - b5)
                              Else
                                 n12 = Fuori90(b5 + n6)
                              End If
                              '
                              '
                              '--------------------------------
                              If b7 < n2 Then
                                 n13 = Fuori90(n2 - b7)
                              Else
                                 n13 = Fuori90(b7 + n2)
                              End If
                              '
                              If b7 < n5 Then
                                 n14 = Fuori90(n5 - b7)
                              Else
                                 n14 = Fuori90(b7 + n5)
                              End If
                              '
                              '-------------------------
                              '
                              n15 = b1
                              n16 = b3
                              n17 = b5
                              n18 = b7
                              '
                              ruota(1) = r1
                              ruota(2) = r2
                              ruota(3) = r3
                              ruota(4) = TT_
                              ruota(5) = NZ_
                              '----------------------------
                              If b1 = b2 Then
                                 ambo1(1) = n7
                                 ambo1(2) = n8
                                 ambo2(1) = n7
                                 ambo2(2) = n15
                                 ambo3(1) = n8
                                 ambo3(2) = n15
                              End If
                              '-------------------------------
                              If b3 = b4 Then
                                 ambo1(1) = n9
                                 ambo1(2) = n10
                                 ambo2(1) = n9
                                 ambo2(2) = n16
                                 ambo3(1) = n10
                                 ambo3(2) = n16
                              End If
                              '----------------------------------
                              If b5 = b6 Then
                                 ambo1(1) = n11
                                 ambo1(2) = n12
                                 ambo2(1) = n11
                                 ambo2(2) = n17
                                 ambo3(1) = n12
                                 ambo3(2) = n17
                              End If
                              '----------------------------------
                              If b7 = b8 Then
                                 ambo1(1) = n13
                                 ambo1(2) = n14
                                 ambo2(1) = n13
                                 ambo2(2) = n18
                                 ambo3(1) = n14
                                 ambo3(2) = n18
                              End If
                              '
                              'Scrivi String(99,"-") & " gioco n. " & caso
                              '
                              'If rx = ambo1(1) And rw = ambo1(2)  Or rw = ambo1(1) And rx = ambo1(2) Then
                              'If rx = ambo1(1) Or rx = ambo1(2) Then
                              '-----------------------------------------------
                              '
                              ReDim MatriceCaselleDaEvid(6,1)
                              ' 1
                              MatriceCaselleDaEvid(1,0) = r1 '
                              MatriceCaselleDaEvid(1,1) = p1 '
                              ' 2
                              MatriceCaselleDaEvid(2,0) = r1 '
                              MatriceCaselleDaEvid(2,1) = p2 '
                              ' 3
                              MatriceCaselleDaEvid(3,0) = r2 '
                              MatriceCaselleDaEvid(3,1) = p1 '
                              ' 4
                              MatriceCaselleDaEvid(4,0) = r2 '
                              MatriceCaselleDaEvid(4,1) = p2 '
                              ' 5
                              MatriceCaselleDaEvid(5,0) = r3 '
                              MatriceCaselleDaEvid(5,1) = p1 '
                              ' 6
                              MatriceCaselleDaEvid(6,0) = r3 '
                              MatriceCaselleDaEvid(6,1) = p2 '
                              '
                              Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                              '
                              '-------------------------------------------------------------
                              If b1 = b2 Then
                                 Scrivi "" & n1 & "-" & n5 & Space(0) & " = " & b1 & "  ",0,1,3,1,4,4,8
                                 Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b2 & "  ",0,1,3,1,4,4,8
                              End If
                              '
                              If b3 = b4 Then
                                 Scrivi "" & n2 & "-" & n6 & Space(0) & " = " & b3 & "  ",0,1,4,1,4,4,8
                                 Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b4 & "  ",0,1,4,1,4,4,8
                              End If
                              '--------------------------------------------------------------------
                              If b5 = b6 Then
                                 Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b5 & "  ",0,1,5,1,4,4,8
                                 Scrivi "" & n2 & "-" & n4 & Space(0) & " = " & b6 & "  ",0,1,5,1,4,4,8
                              End If
                              '
                              If b7 = b8 Then
                                 Scrivi "" & n1 & "-" & n3 & Space(0) & " = " & b7 & "  ",0,1,7,1,4,4,8
                                 Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b8 & "  ",0,1,7,1,4,4,8
                              End If
                              '-------------------------------------------------------------------
                              Scrivi
                              If b1 = b2 Then
                                 Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
                                 Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
                                 Scrivi "" & Space(15) & "",0,1,1,3,6
                              End If
                              '-------------------------------------------
                              If b3 = b4 Then
                                 Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
                                 Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
                                 Scrivi "" & Space(15) & "",0,1,1,3,6
                              End If
                              '--------------------------------------------------------------------
                              If b5 = b6 Then
                                 Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
                                 Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
                                 Scrivi "" & Space(15) & "",0,1,1,3,6
                              End If
                              '-------------------------------------------------------------------
                              If b7 = b8 Then
                                 Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
                                 Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                 Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                 Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
                                 Scrivi "" & Space(15) & "",0,1,1,3,6
                              End If
                              '
                              Scrivi
                              Scrivi " 1 ambo ",0,1,1,5
                              ImpostaGiocata 1,ambo1,ruota,posta,k,2
                              Gioca es,1,,1
                              Scrivi
                              Scrivi String(55,"-")
                              Scrivi
                              Scrivi " 2 ambo ",0,1,1,5
                              ImpostaGiocata 2,ambo2,ruota,posta,k,2
                              Gioca es,1,,1
                              Scrivi
                              Scrivi String(55,"-")
                              Scrivi
                              Scrivi " 3 ambo ",0,1,1,5
                              ImpostaGiocata 3,ambo3,ruota,posta,k,2
                              Gioca es,1,,1
                              Scrivi
                              'End If
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,7,1,4,4,8
   Scrivi "sistema a cruciverba 9",0,1,7,1,4,4,8
   '
   'ScriviResoconto
End Sub

il listato lo sistemato meglio adesso giocano gli ambi..a..tutte..

Ambi Anche a TT.

Imaging · 23 Agosto 2022

Secondo Me Zetrix questo è buono............

Zetrix · 23 Agosto 2022

buon martedi

Imaging lo migliorato ancora il listato ma si deve definire meglio il pronostico..
il 1 ambo si puo giocare perche e l'ambo del cruciverba..
ma vorrei escludere dal pronostico gli altri 2 ambi del cruciverba..
cosi si gioca soltanto un ambo a tutte..e se si a fortuna si puo vincere l'ambo sulle ruote di calcolo..
ho provato a inserire nel pronostico anche gli ambi derivati del 1 ambo
ma non danno tanti risultati a tutte..
gli ambi derivati sono questi scrivo un esempio abbiamo nel pronostico 78 2 a tutte
78+2=80
1ambo derivato 80 78
2ambo derivato 80 2
cosi mettiamo in gioco sempre 3 ambi ma sono troppi ecco perche vorrei escludere questo gioco
e giocare soltanto il 1 ambo a tutte

Zetrix · 23 Agosto 2022

Codice:

Sub Main()
   Dim ruota(5),ruote(5)
   Dim posta(5),poste(5)
   Dim r1,r2,r3
   Dim ambo1(2),ambo2(2),ambo3(2),terzina(3)
   Dim caso
   '
   posta(2) = 1
   '
   'rk = InputBox("Quale 1 numero vuoi controllare?",,0)
   'rv = InputBox("Quale 2 numero vuoi controllare?",,0)
   '
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   rt = InputBox("Quale differenza del cruciverba vuoi controllare?",,0)
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   '
   caso = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r1 = 1 To 8
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               '
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               '-----------------------------------
               For r2 = r1 + 1 To 9
                  '
                  n3 = Estratto(es,r2,p1)
                  n4 = Estratto(es,r2,p2)
                  '----------------------------------
                  For r3 = r2 + 1 To 10
                     '
                     n5 = Estratto(es,r3,p1)
                     n6 = Estratto(es,r3,p2)
                     '-----------------------------------
                     For rx = rk To rk
                        For rw = rv To rv
                           For x = rt To rt
                              '
                              '--------------------------------
                              b1 = Differenza(n1,n5)
                              b2 = Differenza(n4,n6)
                              '
                              b3 = Differenza(n2,n6)
                              b4 = Differenza(n3,n5)
                              '
                              b5 = Differenza(n3,n5)
                              b6 = Differenza(n2,n4)
                              '
                              b7 = Differenza(n1,n3)
                              b8 = Differenza(n4,n6)
                              '
                              '--------------------------------
                              '
                              If Differenza(n1,n5) And Differenza(n4,n6) And b1 = b2 _
                                 Or Differenza(n2,n6) And Differenza(n3,n5)And b3 = b4 _
                                 Or Differenza(n3,n5) And Differenza(n2,n4)And b5 = b6 _
                                 Or Differenza(n1,n3) And Differenza(n4,n6)And b7 = b8 Then
                                 '
                                 '--------------------------
                                 If b1 < n2 Then
                                    n7 = Fuori90(n2 - b1)
                                 Else
                                    n7 = Fuori90(b1 + n2)
                                 End If
                                 '
                                 If b1 < n3 Then
                                    n8 = Fuori90(n3 - b1)
                                 Else
                                    n8 = Fuori90(b1 + n3)
                                 End If
                                 '
                                 '
                                 '--------------------------
                                 If b3 < n1 Then
                                    n9 = Fuori90(n1 - b3)
                                 Else
                                    n9 = Fuori90(b3 + n1)
                                 End If
                                 '
                                 If b3 < n4 Then
                                    n10 = Fuori90(n4 - b3)
                                 Else
                                    n10 = Fuori90(b3 + n4)
                                 End If
                                 '
                                 '
                                 '--------------------------
                                 If b5 < n1 Then
                                    n11 = Fuori90(n1 - b5)
                                 Else
                                    n11 = Fuori90(b5 + n1)
                                 End If
                                 '
                                 If b5 < n6 Then
                                    n12 = Fuori90(n6 - b5)
                                 Else
                                    n12 = Fuori90(b5 + n6)
                                 End If
                                 '
                                 '
                                 '--------------------------------
                                 If b7 < n2 Then
                                    n13 = Fuori90(n2 - b7)
                                 Else
                                    n13 = Fuori90(b7 + n2)
                                 End If
                                 '
                                 If b7 < n5 Then
                                    n14 = Fuori90(n5 - b7)
                                 Else
                                    n14 = Fuori90(b7 + n5)
                                 End If
                                 '
                                 '-------------------------
                                 '
                                 n15 = b1
                                 n16 = b3
                                 n17 = b5
                                 n18 = b7
                                 '
                                 ruota(1) = r1
                                 ruota(2) = r2
                                 ruota(3) = r3
                                 ruota(4) = TT_
                                 ruota(5) = NZ_
                                 '----------------------------
                                 If b1 = b2 Then
                                    ambo1(1) = n7
                                    ambo1(2) = n8
                                    ambo2(1) = n7
                                    ambo2(2) = n15
                                    ambo3(1) = n8
                                    ambo3(2) = n15
                                 End If
                                 '-------------------------------
                                 If b3 = b4 Then
                                    ambo1(1) = n9
                                    ambo1(2) = n10
                                    ambo2(1) = n9
                                    ambo2(2) = n16
                                    ambo3(1) = n10
                                    ambo3(2) = n16
                                 End If
                                 '----------------------------------
                                 If b5 = b6 Then
                                    ambo1(1) = n11
                                    ambo1(2) = n12
                                    ambo2(1) = n11
                                    ambo2(2) = n17
                                    ambo3(1) = n12
                                    ambo3(2) = n17
                                 End If
                                 '----------------------------------
                                 If b7 = b8 Then
                                    ambo1(1) = n13
                                    ambo1(2) = n14
                                    ambo2(1) = n13
                                    ambo2(2) = n18
                                    ambo3(1) = n14
                                    ambo3(2) = n18
                                 End If
                                 '
                                 'Scrivi String(99,"-") & " gioco n. " & caso
                                 '
                                 If b1 = b2 And n15 = x Or b3 = b4 And n16 = x Or b5 = b6 And n17 = x Or b7 = b8 And n18 = x Then
                                    'If rx = ambo1(1) And rw = ambo1(2)  Or rw = ambo1(1) And rx = ambo1(2) Then
                                    'If rx = ambo1(1) Or rx = ambo1(2) Then
                                    '-----------------------------------------------
                                    '
                                    ReDim MatriceCaselleDaEvid(6,1)
                                    ' 1
                                    MatriceCaselleDaEvid(1,0) = r1 '
                                    MatriceCaselleDaEvid(1,1) = p1 '
                                    ' 2
                                    MatriceCaselleDaEvid(2,0) = r1 '
                                    MatriceCaselleDaEvid(2,1) = p2 '
                                    ' 3
                                    MatriceCaselleDaEvid(3,0) = r2 '
                                    MatriceCaselleDaEvid(3,1) = p1 '
                                    ' 4
                                    MatriceCaselleDaEvid(4,0) = r2 '
                                    MatriceCaselleDaEvid(4,1) = p2 '
                                    ' 5
                                    MatriceCaselleDaEvid(5,0) = r3 '
                                    MatriceCaselleDaEvid(5,1) = p1 '
                                    ' 6
                                    MatriceCaselleDaEvid(6,0) = r3 '
                                    MatriceCaselleDaEvid(6,1) = p2 '
                                    '
                                    Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                    '
                                    '-------------------------------------------------------------
                                    If b1 = b2 Then
                                       Scrivi "" & n1 & "-" & n5 & Space(0) & " = " & b1 & "  ",0,1,3,1,4,4,8
                                       Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b2 & "  ",0,1,3,1,4,4,8
                                    End If
                                    '
                                    If b3 = b4 Then
                                       Scrivi "" & n2 & "-" & n6 & Space(0) & " = " & b3 & "  ",0,1,4,1,4,4,8
                                       Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b4 & "  ",0,1,4,1,4,4,8
                                    End If
                                    '--------------------------------------------------------------------
                                    If b5 = b6 Then
                                       Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b5 & "  ",0,1,5,1,4,4,8
                                       Scrivi "" & n2 & "-" & n4 & Space(0) & " = " & b6 & "  ",0,1,5,1,4,4,8
                                    End If
                                    '
                                    If b7 = b8 Then
                                       Scrivi "" & n1 & "-" & n3 & Space(0) & " = " & b7 & "  ",0,1,1,5,4,4,8
                                       Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b8 & "  ",0,1,1,5,4,4,8
                                    End If
                                    '-------------------------------------------------------------------
                                    Scrivi
                                    If b1 = b2 Then
                                       Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '-------------------------------------------
                                    If b3 = b4 Then
                                       Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '--------------------------------------------------------------------
                                    If b5 = b6 Then
                                       Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '-------------------------------------------------------------------
                                    If b7 = b8 Then
                                       Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '
                                    Scrivi
                                    Scrivi " 1 ambo ",0,1,1,5
                                    ImpostaGiocata 1,ambo1,ruota,posta,k,2
                                    Gioca es,1,,1
                                    Scrivi
                                    Scrivi String(55,"-")
                                    Scrivi
                                    Scrivi " 2 ambo ",0,1,1,5
                                    ImpostaGiocata 2,ambo2,ruota,posta,k,2
                                    Gioca es,1,,1
                                    Scrivi
                                    Scrivi String(55,"-")
                                    Scrivi
                                    Scrivi " 3 ambo ",0,1,1,5
                                    ImpostaGiocata 3,ambo3,ruota,posta,k,2
                                    Gioca es,1,,1
                                    Scrivi
                                 End If
                              End If
                           Next
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,1,5,4,4,8
   Scrivi "sistema a cruciverba 9",0,1,1,5,4,4,8
   '
   'ScriviResoconto
End Sub

ho inserito in InputBox la possibilità di scrivere il numero di differenza che sarebbe
il numero centrale del cruciverba..
ce qualcosa che non quadra nel cruciverba se digitiamo il numero 50 alcuni cruciverba
non quadrano con le differenze..quindi non le giocate questi cruciverba..

joe · 23 Agosto 2022

Buon Giorno a tutte/i.

Ho portato avanti una mia ricerca parallela e molto diversa.

Per quest'ultima estrazione si evidenzia nella la ruota di Venezia

la presenza di 3 condizioni ... particolari.

Nella prima linea di ogni "quadrato" ci sono "3 Estratti" della Ruota, in quella Data.

In ogni riga, in ogni colonna ed ogni diagonale, i "3 Numeri" nel quadrato,

hanno somma uguale a tutte le altre linee colonne e diagonali.

Zetrix · 23 Agosto 2022

Joe ma te usi excel e quale sarebbe la previsione da giocare perche non la scrivi..

Zetrix · 23 Agosto 2022

ruota di milano
non so come si scrivono le ruote nella tabella..
comunque la 5 e la ruota di milano..
allora vediamo un altro esempio dello studio sugli algoritmi dei numeri estratti..
allora tra 12 ^ 79 l'algoritmo non lo puo calcolare perche i numeri
sono pari e dispari..
e allora in questi casi che si fa..
l'algoritmo calcola l'espressione della differenza tra 12 ^ 79
12 > 67 <79
il 67 e estratto anche esso a milano..e
allora calcoliamo l'algoritmo di questa terzina 12 67 79
12 67 79 ^
quale sarà l'algoritmo che seguirà questa terzina..?
cliccate nello spoiler..

12+67=79 --> 67+79=146-90=56

12 67 79 1 56 34
79+12=1
79+67=56
79-45=34

MI 1 56 34 ambo e terno

trylli · 23 Agosto 2022

trylli ha scritto:
Ma io non vedo terzine come mai

Qualcuno mi dice quale previsione in gioco?

Imaging · 23 Agosto 2022

Zetrix ha scritto:

Codice:

Sub Main()
   Dim ruota(5),ruote(5)
   Dim posta(5),poste(5)
   Dim r1,r2,r3
   Dim ambo1(2),ambo2(2),ambo3(2),terzina(3)
   Dim caso
   '
   posta(2) = 1
   '
   'rk = InputBox("Quale 1 numero vuoi controllare?",,0)
   'rv = InputBox("Quale 2 numero vuoi controllare?",,0)
   '
   'rk = InputBox("Quale numero vuoi controllare?",,0)
   rt = InputBox("Quale differenza del cruciverba vuoi controllare?",,0)
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   '
   caso = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      For r1 = 1 To 8
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               '
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               '-----------------------------------
               For r2 = r1 + 1 To 9
                  '
                  n3 = Estratto(es,r2,p1)
                  n4 = Estratto(es,r2,p2)
                  '----------------------------------
                  For r3 = r2 + 1 To 10
                     '
                     n5 = Estratto(es,r3,p1)
                     n6 = Estratto(es,r3,p2)
                     '-----------------------------------
                     For rx = rk To rk
                        For rw = rv To rv
                           For x = rt To rt
                              '
                              '--------------------------------
                              b1 = Differenza(n1,n5)
                              b2 = Differenza(n4,n6)
                              '
                              b3 = Differenza(n2,n6)
                              b4 = Differenza(n3,n5)
                              '
                              b5 = Differenza(n3,n5)
                              b6 = Differenza(n2,n4)
                              '
                              b7 = Differenza(n1,n3)
                              b8 = Differenza(n4,n6)
                              '
                              '--------------------------------
                              '
                              If Differenza(n1,n5) And Differenza(n4,n6) And b1 = b2 _
                                 Or Differenza(n2,n6) And Differenza(n3,n5)And b3 = b4 _
                                 Or Differenza(n3,n5) And Differenza(n2,n4)And b5 = b6 _
                                 Or Differenza(n1,n3) And Differenza(n4,n6)And b7 = b8 Then
                                 '
                                 '--------------------------
                                 If b1 < n2 Then
                                    n7 = Fuori90(n2 - b1)
                                 Else
                                    n7 = Fuori90(b1 + n2)
                                 End If
                                 '
                                 If b1 < n3 Then
                                    n8 = Fuori90(n3 - b1)
                                 Else
                                    n8 = Fuori90(b1 + n3)
                                 End If
                                 '
                                 '
                                 '--------------------------
                                 If b3 < n1 Then
                                    n9 = Fuori90(n1 - b3)
                                 Else
                                    n9 = Fuori90(b3 + n1)
                                 End If
                                 '
                                 If b3 < n4 Then
                                    n10 = Fuori90(n4 - b3)
                                 Else
                                    n10 = Fuori90(b3 + n4)
                                 End If
                                 '
                                 '
                                 '--------------------------
                                 If b5 < n1 Then
                                    n11 = Fuori90(n1 - b5)
                                 Else
                                    n11 = Fuori90(b5 + n1)
                                 End If
                                 '
                                 If b5 < n6 Then
                                    n12 = Fuori90(n6 - b5)
                                 Else
                                    n12 = Fuori90(b5 + n6)
                                 End If
                                 '
                                 '
                                 '--------------------------------
                                 If b7 < n2 Then
                                    n13 = Fuori90(n2 - b7)
                                 Else
                                    n13 = Fuori90(b7 + n2)
                                 End If
                                 '
                                 If b7 < n5 Then
                                    n14 = Fuori90(n5 - b7)
                                 Else
                                    n14 = Fuori90(b7 + n5)
                                 End If
                                 '
                                 '-------------------------
                                 '
                                 n15 = b1
                                 n16 = b3
                                 n17 = b5
                                 n18 = b7
                                 '
                                 ruota(1) = r1
                                 ruota(2) = r2
                                 ruota(3) = r3
                                 ruota(4) = TT_
                                 ruota(5) = NZ_
                                 '----------------------------
                                 If b1 = b2 Then
                                    ambo1(1) = n7
                                    ambo1(2) = n8
                                    ambo2(1) = n7
                                    ambo2(2) = n15
                                    ambo3(1) = n8
                                    ambo3(2) = n15
                                 End If
                                 '-------------------------------
                                 If b3 = b4 Then
                                    ambo1(1) = n9
                                    ambo1(2) = n10
                                    ambo2(1) = n9
                                    ambo2(2) = n16
                                    ambo3(1) = n10
                                    ambo3(2) = n16
                                 End If
                                 '----------------------------------
                                 If b5 = b6 Then
                                    ambo1(1) = n11
                                    ambo1(2) = n12
                                    ambo2(1) = n11
                                    ambo2(2) = n17
                                    ambo3(1) = n12
                                    ambo3(2) = n17
                                 End If
                                 '----------------------------------
                                 If b7 = b8 Then
                                    ambo1(1) = n13
                                    ambo1(2) = n14
                                    ambo2(1) = n13
                                    ambo2(2) = n18
                                    ambo3(1) = n14
                                    ambo3(2) = n18
                                 End If
                                 '
                                 'Scrivi String(99,"-") & " gioco n. " & caso
                                 '
                                 If b1 = b2 And n15 = x Or b3 = b4 And n16 = x Or b5 = b6 And n17 = x Or b7 = b8 And n18 = x Then
                                    'If rx = ambo1(1) And rw = ambo1(2)  Or rw = ambo1(1) And rx = ambo1(2) Then
                                    'If rx = ambo1(1) Or rx = ambo1(2) Then
                                    '-----------------------------------------------
                                    '
                                    ReDim MatriceCaselleDaEvid(6,1)
                                    ' 1
                                    MatriceCaselleDaEvid(1,0) = r1 '
                                    MatriceCaselleDaEvid(1,1) = p1 '
                                    ' 2
                                    MatriceCaselleDaEvid(2,0) = r1 '
                                    MatriceCaselleDaEvid(2,1) = p2 '
                                    ' 3
                                    MatriceCaselleDaEvid(3,0) = r2 '
                                    MatriceCaselleDaEvid(3,1) = p1 '
                                    ' 4
                                    MatriceCaselleDaEvid(4,0) = r2 '
                                    MatriceCaselleDaEvid(4,1) = p2 '
                                    ' 5
                                    MatriceCaselleDaEvid(5,0) = r3 '
                                    MatriceCaselleDaEvid(5,1) = p1 '
                                    ' 6
                                    MatriceCaselleDaEvid(6,0) = r3 '
                                    MatriceCaselleDaEvid(6,1) = p2 '
                                    '
                                    Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                                    '
                                    '-------------------------------------------------------------
                                    If b1 = b2 Then
                                       Scrivi "" & n1 & "-" & n5 & Space(0) & " = " & b1 & "  ",0,1,3,1,4,4,8
                                       Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b2 & "  ",0,1,3,1,4,4,8
                                    End If
                                    '
                                    If b3 = b4 Then
                                       Scrivi "" & n2 & "-" & n6 & Space(0) & " = " & b3 & "  ",0,1,4,1,4,4,8
                                       Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b4 & "  ",0,1,4,1,4,4,8
                                    End If
                                    '--------------------------------------------------------------------
                                    If b5 = b6 Then
                                       Scrivi "" & n3 & "-" & n5 & Space(0) & " = " & b5 & "  ",0,1,5,1,4,4,8
                                       Scrivi "" & n2 & "-" & n4 & Space(0) & " = " & b6 & "  ",0,1,5,1,4,4,8
                                    End If
                                    '
                                    If b7 = b8 Then
                                       Scrivi "" & n1 & "-" & n3 & Space(0) & " = " & b7 & "  ",0,1,1,5,4,4,8
                                       Scrivi "" & n4 & "-" & n6 & Space(0) & " = " & b8 & "  ",0,1,1,5,4,4,8
                                    End If
                                    '-------------------------------------------------------------------
                                    Scrivi
                                    If b1 = b2 Then
                                       Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '-------------------------------------------
                                    If b3 = b4 Then
                                       Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '--------------------------------------------------------------------
                                    If b5 = b6 Then
                                       Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '-------------------------------------------------------------------
                                    If b7 = b8 Then
                                       Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
                                       Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
                                       Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
                                       Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
                                       Scrivi "" & Space(15) & "",0,1,1,3,6
                                    End If
                                    '
                                    Scrivi
                                    Scrivi " 1 ambo ",0,1,1,5
                                    ImpostaGiocata 1,ambo1,ruota,posta,k,2
                                    Gioca es,1,,1
                                    Scrivi
                                    Scrivi String(55,"-")
                                    Scrivi
                                    Scrivi " 2 ambo ",0,1,1,5
                                    ImpostaGiocata 2,ambo2,ruota,posta,k,2
                                    Gioca es,1,,1
                                    Scrivi
                                    Scrivi String(55,"-")
                                    Scrivi
                                    Scrivi " 3 ambo ",0,1,1,5
                                    ImpostaGiocata 3,ambo3,ruota,posta,k,2
                                    Gioca es,1,,1
                                    Scrivi
                                 End If
                              End If
                           Next
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,1,5,4,4,8
   Scrivi "sistema a cruciverba 9",0,1,1,5,4,4,8
   '
   'ScriviResoconto
End Sub

ho inserito in InputBox la possibilità di scrivere il numero di differenza che sarebbe
il numero centrale del cruciverba..
ce qualcosa che non quadra nel cruciverba se digitiamo il numero 50 alcuni cruciverba
non quadrano con le differenze..quindi non le giocate questi cruciverba..

Gli ambi vanno bene cosi si ha più possibilità meno giochi meno possibilità

Imaging · 23 Agosto 2022

trylli ha scritto:
Qualcuno mi dice quale previsione in gioco?

Ancora da definire.....

joe · 23 Agosto 2022

Zetrix , cosa vuol dire usi Excel ?

Si.

L'ho già scritto che uso più programmi contemporaneamente.

Però ho riportato i risultati del mio script in excel solo per poter controllare le somme più velocemente.

Sempre con Excel, ho colorato le caselle del quadrato, per renderle più facilmente comprensibili,

e con questo facilitare la lettura del testo scritto.

Dunque excel serve solo per controllo e per facilitare la lettura.

- Riguardo "i possibili" pronostici di Bari del 18/08/2022 uno dei centrali (in rosso) ha dato l'estratto a colpo.

- Per ora ... suppongo esclusivamente che la cinquina generatrice di 3 quadrati, dovrebbe,

perdere almeno uno dei suoi numeri a breve.

- Hai scelto Milano al 20/08/2022. Si possono formare 2 quadrati:

MI 20.08.2022
38.12.67
68.39.10
11.66.40

MI 20.08.2022
38.12.79
84.43.02
07.74.48

Ma a Genova anche 4

GE 20.08.2022
55.43.76
79.58.37
40.73.61

GE 20.08.2022
55.42.38
28.45.62
52.48.35

GE 20.08.2022
43.42.38
36.41.46
44.40.39

GE 20.08.2022
42.76.38
48.52.56
66.28.62

Dunque preferisco controllare cosa accadrà questa sera a Venezia.

Perché secondo me è più significativo che sapere che un ambo è stato presente 100 anni fa.

Zetrix · 23 Agosto 2022

ok Joe e evidente che quei quadrati li fai con excel usavo anch'io excel ma non mi trovavo bene..
meglio spaziometria..

Zetrix · 23 Agosto 2022

trylli ha scritto:
Qualcuno mi dice quale previsione in gioco?

trylli la previsione lo scritta nello spoiler..

Zetrix · 23 Agosto 2022

ruota di bari

allora vediamo un po gli algoritmi di bari
scrivo nello spoiler

10________+1_________11________+1_________12
10________+39_________49________+39_________88
10________+19_________29________+19_________48
12________+38_________50________+38_________88
12________+18_________30________+18_________48
48________+20_________68________+20_________88

gli algoritmi che vedete nella tabella sono di 1 livello..sono quelli piu facili..
adesso si deve calcolare un algoritmo piu complesso
di 2 livello ..
in base ai numeri che calcola l'algoritmo di 2 livello si puo tentare di fare ambo

10_____+2_____12_____+26_____38______+50______88---1liv
_______________+24____________+24_________________----2liv

l'algoritmo a calcolato il 38 adesso si puo provare a fare ambo..
si prova a combinare gli algoritmi che hanno generato quei numeri..
1ambo 38 11
2ambo 38 50
3ambo 38 49
vediamo che darà la ruota di bari..

joe · 23 Agosto 2022

Zetrix ha scritto:
ok Joe e evidente che quei quadrati li fai con excel usavo anch'io excel ma non mi trovavo bene..
meglio spaziometria..

Bho ?!?!?

Puoi pensare e scrivere tutto quello che vuoi,

ma, se ho scritto, che non serve utilizzare excel per realizzare quei quadrati ... qualcosa avrò voluto dire!

Dunque, di evidente, c'è solo una ragione "tutta tua" che cozza con la realtà dei fatti.

Inoltre, non vedo ragioni plausibili per contestare quello che ho scritto.

A cosa serve ? A chi giova ?

Quando ho voluto usare il VBA di Excel per realizzare un aiuto alla soluzione dei sodoku, l'ho fatto.

Così come quando ho usato Excel per facilitare i conti nella gestione delle spese di casa.

Ho sviluppato quei progetti come molti altri in Excel.

Leggevo anche le estrazioni del Lotto dal televideo e le inserivo in archivio tutto con excel.

Ma sono ALTRE storie.

Completamente diverse da questa:

Non mi era comodo colorare i numeri "prima" mi interessava di più

colorarli "dopo" ... se divenuti estratti.

Zetrix · 23 Agosto 2022

Joe sto scrivendo qua perche sto facendo una pausa estiva a settembre scrivo in un altro forum
ma che mi interessa a me di excel..

joe · 24 Agosto 2022

Zetrix ha scritto:
Joe sto scrivendo qua perche sto facendo una pausa estiva a settembre scrivo in un altro forum
ma che mi interessa a me di excel..

"Joe sto scrivendo qua perche sto facendo una pausa estiva"
Do atto, di aver appreso la notizia.

"a settembre scrivo in un altro forum"
Me ne farò una ragione.

"ma che mi interessa a me di excel.."
Fai bene a chiedertelo!

Bha !

joe · 24 Agosto 2022

"Fatti" ... nell'accezione di risultati:

Zetrix · 24 Agosto 2022

sto scrivendo qua per aiutare a Imaging a sistemare i cruciverba..
qua su ogni cosa che si scrive si deve fare sempre un processo..

Imaging il cruciverba e quello che messo nel forum..va bene quel cruciverba..
ciao

La Figura del TRIANGOLO per TRE TERZINE

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Banned

Banned

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Banned

Banned

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned