La Figura del TRIANGOLO per TRE TERZINE

Zetrix · 22 Agosto 2022

solare stasera vediamo l'abb per ambo a venezia..
in questa estr abbiamo una condizione unica ..

Zetrix · 22 Agosto 2022

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..

solare · 22 Agosto 2022

selezioni 4 numeri a caso ?
e poi fai la procedura

Zetrix · 22 Agosto 2022

solare ha scritto:
selezioni 4 numeri a caso ?
e poi fai la procedura

no solare non si seleziona 4 numeri a caso..
ti scrivo come calcola la tecnica dal 43 si fa 43-1=42
poi dal 42 si scende a scaletta 42-30=12
allo stesso modo facciamo scendere a scaletta il 43
43-30=13 (ambata)
13-1=12

solare · 22 Agosto 2022

Ok grazie

Cinzia27 · 22 Agosto 2022

Premesso che anch'io mi arrabatto con gli script, questo cosa deve fare esattamente?

Zetrix · 22 Agosto 2022

Zetrix ha scritto:

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..

trylli · 22 Agosto 2022

Zetrix ha scritto:
grazie trylli l'ambata e scritta nello spoiler..

Scusateeeee

Ma che è lo spoiler??

Zetrix · 22 Agosto 2022

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]

Zetrix · 22 Agosto 2022

trylli ha scritto:
ScusateeeeeMa che è lo spoiler??

clicca sullo spoiler

ciao trylli

Cinzia27 · 22 Agosto 2022

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

trylli · 22 Agosto 2022

Se clicco leggo ciao trylli

trylli · 22 Agosto 2022

Zetrix ha scritto:
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

Zetrix · 22 Agosto 2022

Cinzia27 ha scritto:

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..

Zetrix · 22 Agosto 2022

allora il listato del cruciverba 9 lo completato..

Zetrix · 22 Agosto 2022

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..

Zetrix · 22 Agosto 2022

solare la previsione la scrivo nello spoiler..

BA TO 13 52 E TT
VE 60 2

Imaging · 22 Agosto 2022

Zetrix ha scritto:
solare la previsione la scrivo nello spoiler..

BA TO 13 52 E TT
VE 60 2

Scusatemi ero impegnato buona serata a tutti

Zetrix ha scritto:
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

Imaging · 22 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

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)
   '
   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..

La Figura del TRIANGOLO per TRE TERZINE

Banned

Banned

Advanced Member >PLATINUM<

Banned

Advanced Member >PLATINUM<

Premium Member

Banned

Advanced Member >PLATINUM PLUS<

Banned

Banned

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned

Banned

Banned

Banned

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Banned