Novità

La Figura del TRIANGOLO per TRE TERZINE

3953.png

solare questa e la condizione di gioco e una mia tecnica..
l'ambata e 13

Numeri in gioco 13 su GE MI per Estratto
In corso per altre 9 estrazioni

questo e il gioco dell'ambata
adesso per calcolare l'ambo a tutte si deve fare un prospetto con le formattazioni per ambo..
scrivo nello spoiler..

38 . 62 _____10_____ 3 . 8 _____
38 . 72 _____20_____ 3 . 9 _____
38 . 82 _____30_____ 3 . 1 _____
38 . 02 _____40_____ 3 . 2 _____
38 . 12 _____50_____ 3 . 3 _____
38 . 22 _____60_____ 3 . 4 _____
38 . 32 _____70_____ 3 . 5 _____
38 . 42 _____80_____ 3 . 6 _____
38 . 52 _____90_____ 3 . 7 _____

13.62 . 13.02 . 13.32 .
13.72 . 13.12 . 13.42 .
13.82 . 13.22 . 13.52 .

queste sono le formattazioni per ambo..
il 13 si deve abbinare con un numero in cadenza 2
dopo vi dirò quale ambo dobbiamo giocare..
 
Ultima modifica:
Codice:
Option Explicit
Sub Main
   Dim aRetAbb
   Dim rit
   Dim a,k,z
   z = ScegliRuota
   a = InputBox("Quale numero vuoi controllare?",,0)
   '
   Call Abbinamenti(a,aRetAbb,EstrazioneIni,EstrazioneFin,z,0)
   For k = 1 To 90
      rit = AmboRitardoTurbo(a,aRetAbb(k,1),EstrazioneIni,EstrazioneFin,z,2)
      Scrivi a & "." & aRetAbb(k,1) & " --- ambi  " & aRetAbb(k,2) & " --- rit " & rit & "",0,0,1,5,4
      Scrivi
   Next
   Scrivi
   Scrivi(" ** " & NomeRuota(z) & " ** ") & " ",0,0,1,4,7
   Scrivi
   Scrivi
   ' Next
End Sub

come si scrive gli ambi con i rit ??

Cinzia si devono scrivere gli ambi con i rit ho provato cosi ma non so perche da il rit 0
prova un po te..
 
3956.png
02-52 = 50
69-19 = 50


[TT] [RO][.. .. 07 18 ..] C.1 Ambo [13/08/2022] [04.32.07.18.02]
[TT] [CA][.. .. .. 07 18] C.4 Ambo [20/08/2022] [48.55.80.07.18]
 
Ho corretto la riga, è il risultato che volevi?
Codice:
Option Explicit
Sub Main
   Dim aRetAbb
   Dim rit
   Dim a,k,z
   z = ScegliRuota
   a = InputBox("Quale numero vuoi controllare?",,10)
 
   Call Abbinamenti(a,aRetAbb,EstrazioneIni,EstrazioneFin,z,0)
   For k = 1 To 90
      rit = AmboRitardoTurbo (z,a,aRetAbb(k,1),EstrazioneIni,EstrazioneFin,2)
      Scrivi a & "." & aRetAbb(k,1) & " --- ambi  " & aRetAbb(k,2) & " --- rit " & rit & "",0,0,1,5,4
      Scrivi
   Next
   Scrivi
   Scrivi(" ** " & NomeRuota(z) & " ** ") & " ",0,0,1,4,7
   Scrivi
   Scrivi
   ' Next
End Sub
 
Vedi l'allegato 2240401

solare questa e la condizione di gioco e una mia tecnica..
l'ambata e 13

Numeri in gioco 13 su GE MI per Estratto
In corso per altre 9 estrazioni

questo e il gioco dell'ambata
adesso per calcolare l'ambo a tutte si deve fare un prospetto con le formattazioni per ambo..
scrivo nello spoiler..

38 . 62 _____10_____ 3 . 8 _____
38 . 72 _____20_____ 3 . 9 _____
38 . 82 _____30_____ 3 . 1 _____
38 . 02 _____40_____ 3 . 2 _____
38 . 12 _____50_____ 3 . 3 _____
38 . 22 _____60_____ 3 . 4 _____
38 . 32 _____70_____ 3 . 5 _____
38 . 42 _____80_____ 3 . 6 _____
38 . 52 _____90_____ 3 . 7 _____

13.62 . 13.02 . 13.32 .
13.72 . 13.12 . 13.42 .
13.82 . 13.22 . 13.52 .

queste sono le formattazioni per ambo..
il 13 si deve abbinare con un numero in cadenza 2
dopo vi dirò quale ambo dobbiamo giocare..
Ok grazie mille speriamo di beccatlo
 
Ho corretto la riga, è il risultato che volevi?
Codice:
Option Explicit
Sub Main
   Dim aRetAbb
   Dim rit
   Dim a,k,z
   z = ScegliRuota
   a = InputBox("Quale numero vuoi controllare?",,10)
 
   Call Abbinamenti(a,aRetAbb,EstrazioneIni,EstrazioneFin,z,0)
   For k = 1 To 90
      rit = AmboRitardoTurbo (z,a,aRetAbb(k,1),EstrazioneIni,EstrazioneFin,2)
      Scrivi a & "." & aRetAbb(k,1) & " --- ambi  " & aRetAbb(k,2) & " --- rit " & rit & "",0,0,1,5,4
      Scrivi
   Next
   Scrivi
   Scrivi(" ** " & NomeRuota(z) & " ** ") & " ",0,0,1,4,7
   Scrivi
   Scrivi
   ' Next
End Sub
Si Cinzia lo script e quello che volevo brava..
 
Codice:
Sub Main()
   Dim ruota(5),ruote(5)
   Dim posta(5),poste(5)
   Dim r1,r2,r3
   Dim ambo1(2),ambo2(2),terzina(3)
   Dim caso
   '
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   '
   'rk = InputBox("Quale 1 numero vuoi controllare?",,0)
   'rv = InputBox("Quale 2 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 p2
               '
               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
                              ruote(4) = TT_
                              ruote(5) = NZ_
                              '----------------------------
                              If b1 = b2 Then
                                 ambo1(1) = n7
                                 ambo1(2) = n8
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n15
                              End If
                              '-------------------------------
                              If b3 = b4 Then
                                 ambo1(1) = n9
                                 ambo1(2) = n10
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n16
                              End If
                              '----------------------------------
                              If b5 = b6 Then
                                 ambo1(1) = n11
                                 ambo1(2) = n12
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = n17
                              End If
                              '----------------------------------
                              If b7 = b8 Then
                                 ambo1(1) = n13
                                 ambo1(2) = n14
                                 terzina(1) = ambo1(1)
                                 terzina(2) = ambo1(2)
                                 terzina(3) = 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
                              '---------------------------------
                              '
                              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
                              ImpostaGiocata 1,ambo1,ruota,posta,k
                              Gioca es,1,,1
                              Scrivi
                              Scrivi String(55,"-")
                              Scrivi
                              ImpostaGiocata 1,terzina,ruote,poste,k
                              Gioca es,1,,1
                              Scrivi
                           End If
                         'End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,7,3,4,4,8
   Scrivi "sistema a cruciverba 9",0,1,7,3,4,4,8
   '
   ScriviResoconto
End Sub

ecco il listato del cruciverba 9 mi dovete dire se ce da fare qualche modifica..
oppure va bene cosi..
comunque la terzina la vorrei togliere e difficile che da il terno
solo una volta a dato il terno a tt..
 
Ultima modifica:
solare la previsione la scrivo nello spoiler..

BA TO 13 52 E TT
VE 60 2
 
Ultima modifica:
solare la previsione la scrivo nello spoiler..

BA TO 13 52 E TT
VE 60 2
Scusatemi ero impegnato buona serata a tutti
solare la previsione la scrivo nello spoiler..

BA TO 13 52 E TT
VE 60 2
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(y)
 
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 migliorato un po adesso giocano gli ambi..a..tutte..
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 aprile 2025
    Bari
    80
    69
    75
    58
    16
    Cagliari
    88
    05
    51
    65
    75
    Firenze
    74
    65
    19
    47
    42
    Genova
    87
    89
    22
    32
    26
    Milano
    27
    13
    15
    56
    23
    Napoli
    24
    87
    62
    41
    28
    Palermo
    76
    20
    33
    62
    35
    Roma
    80
    23
    84
    15
    85
    Torino
    78
    34
    18
    41
    62
    Venezia
    05
    84
    83
    31
    46
    Nazionale
    72
    69
    25
    54
    64
    Estrazione Simbolotto
    Genova
    21
    40
    27
    35
    16

Ultimi Messaggi

Indietro
Alto