Novità

La Figura del TRIANGOLO per TRE TERZINE

Zetrix

Banned
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:

Zetrix

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

Zetrix

Banned
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]
 

Cinzia27

Premium Member
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

Advanced Member >PLATINUM PLUS<
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

Banned
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

Banned
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:

Zetrix

Banned
solare la previsione la scrivo nello spoiler..

BA TO 13 52 E TT
VE 60 2
 
Ultima modifica:

Imaging

Advanced Member >PLATINUM<
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)
 

Zetrix

Banned
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
    martedì 25 giugno 2024
    Bari
    67
    26
    66
    47
    51
    Cagliari
    60
    62
    78
    22
    30
    Firenze
    23
    47
    55
    60
    08
    Genova
    72
    57
    90
    74
    13
    Milano
    50
    65
    21
    76
    22
    Napoli
    13
    14
    36
    45
    67
    Palermo
    63
    30
    13
    84
    53
    Roma
    22
    16
    70
    12
    68
    Torino
    82
    03
    73
    22
    21
    Venezia
    77
    26
    89
    46
    75
    Nazionale
    40
    60
    58
    09
    27
    Estrazione Simbolotto
    Napoli
    24
    27
    43
    40
    12

Ultimi Messaggi

Alto