il numero uguale in colonna

[Reacher]

Quindi per ogni numero in posizione si fanno i calcoli e si gioca ambo.... 10 ambi per ogni ruota a numeri singolo

 

[Zetrix]

adesso elaboro il 50 su roma daremo l'attacco finale al 50 su roma..

 

[Zetrix]

Quindi per ogni numero in posizione si fanno i calcoli e si gioca ambo.... 10 ambi per ogni ruota a numeri singolo

quale condizione scrivimi la condizione del gioco..e se puoi fare un esempio..
oppure quoti la condizione del gioco e ti spiego meglio..

 

[Reacher]

Ho lanciato il secondo script
Ho visto un numero selezionato sommi la posizione e fai i calcoli
13/11 NZ 86 5p
67
3 8 e così via

 

[Zetrix]

aspetta devo vedere lo script e la condizione del gioco sulla nazionale
ma l'86 e il numero uguale in colonna oppure no..

 

[Reacher]

No numero singolo

 

[Reacher]

Ho levato il limite delle 10 estrazioni e impostato tutte le ruote
Massimo 200 est

 

[Zetrix]

dici questa condizione di gioco sulla nazionale
con il numero singolo

[NZ] [.. .. 01 .. ..] C.3 Estratto 02639 [184 - 18/11/2025] [23.69.01.02.38]

qua avevo fatto una prova con un altro metodo per ambo
a volte fa questo metodo ma non fa sempre su tutte le condizioni..
il metodo della tecnica si somma sempre il 90 sui numeri pari
86+90=176:2=88
ma l'1 non si e abbinato con l'88 sulla nazionale
forse su un numero singolo si fa un altro calcolo..
adesso provo a fare un calcolo con la tabella sulle moltiplicazioni
del numero singolo del 86

 

[Zetrix]

[NZ] [.. .. 01 .. ..] C.3 Estratto 02639 [184 - 18/11/2025] [23.69.01.02.38]

l'86 calcola il 48 con il 3 e 41 ma l'1 non si e abbinato con nessuno di questi numeri..
questa tabella non va bene si deve fare una prova con le somme cioe con i sommativi
sul numero singolo 86

 

[Zetrix]

[NZ] [.. .. 01 .. ..] C.3 Estratto 02639 [184 - 18/11/2025] [23.69.01.02.38]

questa tabella elabora i numeri divisori sulla nazionale
il numero divisore del 86 e il 43
86:2=43
43+5=48 ( diam in decina)
43-5=38 ( diam fuori decina)
48+90=138:2=69
l'1 si e abbinato con il 69 sulla nazionale
forse e una casualità di gioco..
volendo anche generare l'altra tabella per ambo il numero 86 genera la finale 4
e l'1 non si e abbinato con nessun numero della finale 4
04.14.24.34.44.54.64.74.84.
86 figura 5
14 figura 5
14+55=69 (diam.t.)

 

[Zetrix]

l'1 e 14 sono usciti su roma nella estr di calcolo con l'86 della nz
volendo si puo fare una modifica allo script e aggiungere questo metodo per ambo
ovviamente se si vuole giocare solo un ambo si deve scegliere il numero con la stessa figura
della finale che genera il numero singolo..oppure si puo scegliere il numero a 90..
90-86=4
ambo 1-4 nz e tt
gli ambi generati con l'86 sono 9 ambi
quanto posso vedrò di fare una modifica allo script e scrivere questi ambi..
su ogni numero singolo..
01-04 <-----
01-14
01-24
01-34
01-44
01-54
01-64
01-74
01-84
sicuramente qualche ambo di questi con l'1 sono usciti sulle estr su tutte..

 

[Zetrix]

i codici sono esatti a milano e uscito 61 32 !!!!!!!!!!!!!

[TT] [MI][.. 61 32 .. ..] C.1 Ambo 02647 [192 - 02/12/2025] [39.61.32.34.57]

 

[Zetrix]

Sub Main
   Dim numeri(55),n,e,es,ex,tv,r1,r2,p,a,b,ambata(1),x,posta(2),ruota(2)
   Dim amba1(2),amba2(2),amba3(2),amba4(2),amba5(2),amba6(2),amba7(2),amba8(2),amba9(2)
   Dim T0,T,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12
   Dim a1,a2,a3,a4,a5,a6,a7,a8,a9
   Dim b1,b2,b3,b4,b5,b6,b7,b8,b9
   Dim ruote(5),poste(2),ambo(2),y
   tv = InputBox("Quante estrazioni vuoi ? max 10 etr.",,0)
   ex = EstrazioneFin - tv
   For es = ex To ex
      Messaggio(es)
      posta(1) = 1
      poste(2) = 1
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         For p = 1 To 5
            a = Estratto(es,r1,p)
            y = Fuori90(a + p)
            x = a
            'If a = b Then
            ambata(1) = y
            ruota(1) = r1
            If pari(a) Then
               ambo(1) = y
               ambo(2) =(a + 90)/2
            Else
               ambo(1) = y
               ambo(2) = Fuori90(a + a)
            End If
            ruote(1) = r1
            ruote(2) = 11
            ruote(3) = 12
            '
            ReDim MatriceCaselleDaEvid(5,1)
            MatriceCaselleDaEvid(1,0) = r1
            MatriceCaselleDaEvid(1,1) = p
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
            '
            Scrivi("" & a & "+" & p & " = " & y & String(19," ")),0,1,4,7,4
            Scrivi String(28,"|"),0,1,7,5,4
            Scrivi
            '----------------------------------------------------
            '----------------------------------------------------
            T = Array(T,"  ","  ","     ",Space(4),Space(4))
            Call InitTabella(T,Bianco_,"center",3,,"Raavi")
            '----------------------------------------------------
            T1 = Array(T1,"  ","  "," tabella ",Space(4),Space(4))
            Call AddRigaTabella(T1,Bianco_,"center",3,,"Raavi")
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a1 = Fuori90(10 - a)
            b1 = Figura(a1)
            '------------------------------------------------
            T2 = Array(T2,Format2(x),Format2(a1)," 10 ",Figura(x),b1)
            Call AddRigaTabella(T2,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a1) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a1) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a2 = Fuori90(20 - a)
            b2 = Figura(a2)
            '-------------------------------
            T3 = Array(T3,Format2(x),Format2(a2)," 20 ",Figura(x),b2)
            Call AddRigaTabella(T3,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a2) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a2) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(26,206,134),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a3 = Fuori90(30 - a)
            b3 = Figura(a3)
            T4 = Array(T4,Format2(x),Format2(a3)," 30 ",Figura(x),b3)
            Call AddRigaTabella(T4,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a3) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a3) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            '-------------------------------
            a4 = Fuori90(40 - a)
            b4 = Figura(a4)
            '-------------------------------
            T5 = Array(T5,Format2(x),Format2(a4)," 40 ",Figura(x),b4)
            Call AddRigaTabella(T5,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a4) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a4) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a5 = Fuori90(50 - a)
            b5 = Figura(a5)
            '-------------------------------
            T6 = Array(T6,Format2(x),Format2(a5)," 50 ",Figura(x),b5)
            Call AddRigaTabella(T6,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a5) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a5) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(26,206,134),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a6 = Fuori90(60 - a)
            b6 = Figura(a6)
            '-------------------------------
            T7 = Array(T7,Format2(x),Format2(a6)," 60 ",Figura(x),b6)
            Call AddRigaTabella(T7,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a6) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a6) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a7 = Fuori90(70 - a)
            b7 = Figura(a7)
            '-------------------------------
            T8 = Array(T8,Format2(x),Format2(a7)," 70 ",Figura(x),b7)
            Call AddRigaTabella(T8,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a7) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a7) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a8 = Fuori90(80 - a)
            b8 = Figura(a8)
            '-------------------------------
            T9 = Array(T9,Format2(x),Format2(a8)," 80 ",Figura(x),b8)
            Call AddRigaTabella(T9,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a8) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a8) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            Call SetColoreCella(3,RGB(26,206,134),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            a9 = Fuori90(90 - a)
            b9 = Figura(a9)
            '-------------------------------
            T10 = Array(T10,Format2(x),Format2(a9)," 90 ",Figura(x),b9)
            Call AddRigaTabella(T10,Bianco_,"center",3,,"Raavi")
            If Figura(x) = Figura(a9) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If Figura(x) = Figura(a9) Then Call SetColoreCella(2,RGB(219,238,87),RGB(0,0,0))
            If 90 -(x) Then Call SetColoreCella(1,RGB(26,206,134),RGB(0,0,0))
            If 90 -(x) Then Call SetColoreCella(2,RGB(255,53,255),RGB(225,225,225))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            T11 = Array(T11,"  ","  ","  ","  ","  ")
            Call AddRigaTabella(T11,Bianco_,"center",3,,"Raavi")
            Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            Call SetTableWidth("20%")
            CreaTabella
            '................................
            amba1(1) = y
            amba1(2) = Fuori90(10 - x)
            amba2(1) = y
            amba2(2) = Fuori90(20 - x)
            amba3(1) = y
            amba3(2) = Fuori90(30 - x)
            amba4(1) = y
            amba4(2) = Fuori90(40 - x)
            amba5(1) = y
            amba5(2) = Fuori90(50 - x)
            amba6(1) = y
            amba6(2) = Fuori90(60 - x)
            amba7(1) = y
            amba7(2) = Fuori90(70 - x)
            amba8(1) = y
            amba8(2) = Fuori90(80 - x)
            amba9(1) = y
            amba9(2) = Fuori90(90 - x)
            n = n + 1
            numeri(n) = Format2(y)
            ImpostaGiocata 1,ambata,ruota,posta,10,0
            Gioca es,1,,1
            Scrivi "..........................."
            ImpostaGiocata 1,ambo,ruote,poste,0
            Gioca es,1,,1
            Scrivi"............................"
            ImpostaGiocata 1,amba1,ruote,poste,k
            ImpostaGiocata 2,amba2,ruote,poste,0
            ImpostaGiocata 3,amba3,ruote,poste,0
            ImpostaGiocata 4,amba4,ruote,poste,0
            ImpostaGiocata 5,amba5,ruote,poste,0
            ImpostaGiocata 6,amba6,ruote,poste,0
            ImpostaGiocata 7,amba7,ruote,poste,0
            ImpostaGiocata 8,amba8,ruote,poste,0
            ImpostaGiocata 9,amba9,ruote,poste,0
            Gioca es,1,,1
            Scrivi
         Next
      Next
   Next
   'Scrivi StringaNumeri(numeri," "),0,1,0,6,5
End Sub

ecco lo script ho incluso anche la tabella degli ambi su tutte..