Ambata contata

Pandit · Martedì alle 15:37

Estrazione del 5/10/024 FI.GE.MI isotopi con stessa decina 5,noi terremo solo i primi 2 cioè FI.GE 59-53 e metteremo in gioco : 55.33.53.35.59.39.05.09.03
primo colpo FI 05-09 - secondo colpo GE 55-59-53 terzo colpo GE 05-03.
Altro esempio: 8/10/024 BA.CA decina 3 38-33 NON giochiamo se ci sono gemelli.
-
Estrazione del 10/10/024 BA.CA decina 2 23-29 metteremo in gioco 23.32.29.22.39.33.03.02.09 terzo colpo BA 23.32, quarto colpo BA 39.03.
-
Estrazione 12/10/024 FI.GE decina 5 oltre ci sono anche le decine 1 MI.NA e 4 PA.RM
ma noi useremo la prima, oppure a scelta, FI.GE 56-57 quindi 55.66.77.57.75 56.65.05.06.07 Solo ambate praticamente Negativo.
-
Estrazione 15/10/024 CA.FI decina 4 49-42 in gioco 44.49.22.29.24.42.02.04.09
terzo colpo FI 02-09.
-
Estrazione 17/10/024 GE.MI decina 2 25-27 in gioco 22.55.77.25.52.27.72.02.05.07
primo colpo MI 77-07, secondo colpo MI 05-72, ultimo colpo MI 25-55.
-
Estrazione 25/10/024 TO.VE decina 6 62-68 in gioco 66.22.88.62.26.68.86.02.06.08
primo colpo TO 86-88 e VE 68-66-26....
-
Estrazione 26/10/024 GE.MI decina 1 14-17 in gioco 11.44.77.14.41.17.71.01.04.07
vediamo stasera...
Si giocano massimo 4 colpi e per i numeri si possono stornare in vari modi...

Zetrix · Martedì alle 15:42

Codice:

Option Explicit
Sub Main
   '
   Dim E,S,X,Y,A,R,P,F,G,H,I,L,N
   Dim An(5)
   Dim Righe,Colonne
   Dim nCaselleDaEvid
   Dim aQuadroNum
   Dim aNumDaEvid
   Dim ES
   '
   Righe = 16
   Colonne = 10
   ReDim aQuadroNum(Righe,Colonne)
   ReDim aNumDaEvid(500,1) ' Quantità di caselle
   '
   X = InputBox("Quante estrazioni vuoi controllare?",,0)
   Scrivi DataEstrazione(EstrazioneFin - X,,,"/"),0,1,5
   '
   For ES = EstrazioneFin - X To EstrazioneFin
      '
      For R = 1 To 12
         If R = 11 Then R = 12
         For P = 1 To 5
            An(P) = Estratto(ES,R,P)
            '
            '
            For S = 1 To 16 'Riga Tabella
               E = 1 ' 1 ColonnA Tabella
               F = 2 ' 2 ColonnA Tabella
               '
               G = 5
               H = 6
               '
               I = 9
               L = 10
               '
               aQuadroNum(S,E) = S*3 - 2
               aQuadroNum(S,F) = Fuori90(10 -(S*3 - 2))  ' SOMMA 10
               '
               aQuadroNum(S,G) = S*3 - 3
               aQuadroNum(S,H) = Fuori90(40 -(S*3 - 3))  ' SOMMA 40
               '
               aQuadroNum(S,I) = S*3 - 4
               aQuadroNum(S,L) = Fuori90(70 -(S*3 - 4))  ' SOMMA 70
               '
               '
               If aQuadroNum(S,E) = An(P) Or aQuadroNum(S,F) = An(P) _
                  Or aQuadroNum(S,G) = An(P) Or aQuadroNum(S,H) = An(P) _
                  Or aQuadroNum(S,I) = An(P) Or aQuadroNum(S,L) = An(P) Then
                  '
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = E
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = F
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = G
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = H
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = I
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = L
                  End If
               'End If
            Next
         Next
      Next
   Next
   Call DisegnaEstrazioneQN(aQuadroNum)
   'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
   'Scrivi StringaNumeri(An)
End Sub

Pandit questo script genera le tabelle con le somme,
se devo evidenziare i numeri nella tabella da errore..

Zetrix · Martedì alle 15:45

Pandit ha scritto:
A me da l'estrazione giusta..

e quale e l'errore nello script..

Zetrix · Martedì alle 15:52

Pandit se giochi 9 numeri su una ruota si vincono 6 euro sull'ambo..

cosi si mette a ridere la lottomatica..
no lascia stare quel gioco non va bene troppi numeri..

Pandit · Martedì alle 16:05

A me da errore " indice non incluso" e non parte..
So che i numeri sono tanti, ma questo è solo un punto di partenza, poi il metodo è da affinare e i numeri da ridurre in base alle uscite precedenti, frequenze, ritardi ecc.

Zetrix · Martedì alle 16:17

ok , stavo vedendo un po le tabelle sull'ambata contata..
oggi vorrei giocare una ambata contata

Zetrix · Martedì alle 16:24

Codice:

BA     40      ambata contata      76          
BA     49      ambata contata      65          
BA     13      ambata contata      74          
BA     21      ambata contata      86          
BA     10      ambata contata      40          


CA     59      ambata contata      26          
CA     02      ambata contata      49          
CA     49      ambata contata      65          
CA     26      ambata contata      34          
CA     40      ambata contata      76          


FI     01      ambata contata      40          
FI     48      ambata contata      26          
FI     74      ambata contata      36          
FI     76      ambata contata      34          
FI     78      ambata contata      65          


GE     39      ambata contata      84          
GE     32      ambata contata      90          
GE     76      ambata contata      34          
GE     35      ambata contata      85          
GE     14      ambata contata      76          


MI     86      ambata contata      19          
MI     59      ambata contata      26          
MI     85      ambata contata      85          
MI     36      ambata contata      19          
MI     17      ambata contata      32          


NA     34      ambata contata      87          
NA     11      ambata contata      1          
NA     65      ambata contata      78          
NA     47      ambata contata      66          
NA     86      ambata contata      19          


PA     35      ambata contata      85          
PA     90      ambata contata      76          
PA     44      ambata contata      88          
PA     87      ambata contata      70          
PA     85      ambata contata      85          


RO     19      ambata contata      35          
RO     70      ambata contata      14          
RO     45      ambata contata      56          
RO     84      ambata contata      87          
RO     76      ambata contata      34          


TO     86      ambata contata      19          
TO     37      ambata contata      70          
TO     53      ambata contata      13          
TO     88      ambata contata      45          
TO     56      ambata contata      59          


VE     68      ambata contata      76          
VE     66      ambata contata      39          
VE     26      ambata contata      34          
VE     65      ambata contata      78          
VE     85      ambata contata      85          

26 ott 2024

a NA da 87 1 , ho un ambo su una condizione dell'ambata contata..

Zetrix · Martedì alle 16:30

ambata contata33

PA____87____26____61______
______|____________|______
______01__________01______
______|____________|______
TO____88____26____62______

eccola la condizione di gioco

[PA] [.. .. .. 87 ..] C.1 Estratto 02418 [26/10/2024] [35.90.44.87.85]

a PA e uscito solo l'87

sommiamo l'ambata contata 58+33=91=1

Numeri in gioco 87.01 su TT NZ per Ambo
In corso

ce un sistema per individuare la ruota di gioco anche se qualche volta sbaglia..
le ruote sono RO E FI 87 01

tentiamo a RO 87 1 con l'ORO

Zetrix · Martedì alle 18:01

Pandit questa e la ciclodinamica a cinque numeri, vi piace questa tabella,
vuoi lo script..?
vi spiego come si legge tabella,queste cose nessuno ve li spiega,
considerate sempre i quadrati che siano essi 2x2 o 3x3 o 4x4 o 5x5 nella tabella..
esempio vogliamo vedere la ciclodinamica dei numeri 19 76
il quadrato e 5x5 quindi i numeri della ciclodinamica di questi due numeri
sono il 43 e 52
se fate la somma devono dare la somma uguale se no e sbagliata la ciclodinamica
19+76=95
43+52=95
e esatto
e cosi su tutti gli altri quadrati sempre con due numeri colorati in verde..
i numeri colorati in verde sono gli estratti su RO..

Zetrix · Martedì alle 18:40

Codice:

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7
   Dim A,B,C,D,X,Y,ES,EST,RS
   Dim N1,N2,N3,N4,N5,SR
   Dim A2,B2,C2,D2
   Dim A1,B1,C1,D1,A3,B3,C3,D3,B4,B5,B6,B7
   Dim C4,C5,C6,C7,C8,C9
   Dim D4,D5,D6,D7,E4,E5,E6,E7
   Dim E,E1,E2,E3,F4,F5,F6,F7
   Dim N(25),ruote(5),poste(5)
   Dim r1
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
   Dim Ambo6(2),Ambo7(2),Ambo8(2),Ambo9(2),Ambo10(2)
   '
   poste(1) = 1
   'poste(2) = 1
   'poste(3) = 1
   'poste(4) = 1
   'poste(5) = 1
   '
   'rk = InputBox("1 numero")
   '
   RS = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 9
   For ES = EstrazioneFin - RS To EstrazioneFin
      AvanzamentoElab EstrazioneFin - RS,EstrazioneFin,ES
      '
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         '
         For rx = rk To rk
            '
            A = Estratto(ES,r1,1)
            B = Estratto(ES,r1,2)
            C = Estratto(ES,r1,3)
            D = Estratto(ES,r1,4)
            E = Estratto(ES,r1,5)
            '
            '
            '-------------------------------
            '---------------------------------
            A1 = Fuori90(A + A)
            B1 = Fuori90(B + B)
            C1 = Fuori90(C + C)
            D1 = Fuori90(D + D)
            E1 = Fuori90(E + E)
            '-------------------------------
            ReDim MatriceCaselleDaEvid(5,1)
            '
            MatriceCaselleDaEvid(1,0) = r1
            MatriceCaselleDaEvid(1,1) = 1
            '
            MatriceCaselleDaEvid(2,0) = r1
            MatriceCaselleDaEvid(2,1) = 2
            '
            MatriceCaselleDaEvid(3,0) = r1
            MatriceCaselleDaEvid(3,1) = 3
            '
            MatriceCaselleDaEvid(4,0) = r1
            MatriceCaselleDaEvid(4,1) = 4
            '
            MatriceCaselleDaEvid(5,0) = r1
            MatriceCaselleDaEvid(5,1) = 5
            Call DisegnaEstrazione(ES,MatriceCaselleDaEvid)
            '
            SR = SiglaRuota(r1)
            '
            T1 = Array(T1,SR,A1,B1,C1,D1,E1)
            Call InitTabella(T1,Bianco_,"center",5,Nero_,"Dubai medium")
            Call SetColoreCella(1,RGB(0,200,0),RGB(250,250,250))
            Call SetColoreCella(2,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(3,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(4,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(5,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(6,RGB(0,0,255),RGB(200,200,255))
            '-------------------------------
            A3 = Fuori90(90 - A)
            '------------------------------------
            B4 = Fuori90(A3 + B1)
            B5 = Fuori90(A3 + C1)
            B6 = Fuori90(A3 + D1)
            B7 = Fuori90(A3 + E1)
            '-------------------------------
            T2 = Array(T2,A3,A,B4,B5,B6,B7) ' cinquina 1
            Call AddRigaTabella(T2,Bianco_,"center",5,Nero_,"Dubai medium")
            Call SetColoreCella(1,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(2,RGB(0,235,0),RGB(0,0,160)) ' *
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,160))
            '-------------------------------
            B3 = Fuori90(90 - B)
            C4 = Fuori90(B3 + A1)
            C5 = Fuori90(B3 + C1)
            C6 = Fuori90(B3 + D1)
            C7 = Fuori90(B3 + E1)
            '-------------------------------
            T3 = Array(T3,B3,C4,B,C5,C6,C7) ' cinquina 2
            Call AddRigaTabella(T3,Bianco_,"center",5,Nero_,"Dubai medium")
            Call SetColoreCella(1,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(3,RGB(0,235,0),RGB(0,0,160)) ' *
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,160))
            '-------------------------------
            C3 = Fuori90(90 - C)
            D4 = Fuori90(C3 + A1)
            D5 = Fuori90(C3 + B1)
            D6 = Fuori90(C3 + D1)
            D7 = Fuori90(C3 + E1)
            '-------------------------------
            T4 = Array(T4,C3,D4,D5,C,D6,D7) ' cinquina 3
            Call AddRigaTabella(T4,Bianco_,"center",5,Nero_,"Dubai medium")
            Call SetColoreCella(1,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(4,RGB(0,235,0),RGB(0,0,160)) ' *
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,160))
            '-------------------------------
            '-------------------------------
            D3 = Fuori90(90 - D)
            E4 = Fuori90(D3 + A1)
            E5 = Fuori90(D3 + B1)
            E6 = Fuori90(D3 + C1)
            E7 = Fuori90(D3 + E1)
            '-------------------------------
            T5 = Array(T5,D3,E4,E5,E6,D,E7) ' cinquina 4
            Call AddRigaTabella(T5,Bianco_,"center",5,Nero_,"Dubai medium")
            Call SetColoreCella(1,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(5,RGB(0,235,0),RGB(0,0,160)) ' *
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,160))
            '-------------------------------
            '-------------------------------
            E3 = Fuori90(90 - E)
            F4 = Fuori90(E3 + A1)
            F5 = Fuori90(E3 + B1)
            F6 = Fuori90(E3 + C1)
            F7 = Fuori90(E3 + D1)
            '-------------------------------
            T6 = Array(T6,E3,F4,F5,F6,F7,E) ' cinquina 5
            Call AddRigaTabella(T6,Bianco_,"center",5,Nero_,"Dubai medium")
            Call SetColoreCella(1,RGB(0,0,255),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,160))
            Call SetColoreCella(6,RGB(0,235,0),RGB(0,0,160)) ' *
            '-------------------------------
            EST = DataEstrazione(ES)
            '-------------------------------
            T7 = Array(T7,EST,"  ","  ","  ","  ","  ")
            Call AddRigaTabella(T7,Bianco_,"center",5,Nero_,"Tunga")
            Call SetColoreCella(1,RGB(0,0,255),RGB(230,230,230))
            Call SetColoreCella(2,RGB(255,255,255),RGB(255,255,255))
            Call SetColoreCella(3,RGB(255,255,255),RGB(255,255,255))
            Call SetColoreCella(4,RGB(255,255,255),RGB(255,255,255))
            Call SetColoreCella(5,RGB(255,255,255),RGB(255,255,255))
            Call SetColoreCella(6,RGB(255,255,255),RGB(255,255,255))
            '-------------------------------
            '
            N(1) = B4 : N(2) = B5 : N(3) = B6 : N(4) = B7
            N(5) = C4 : N(6) = C5 : N(7) = C6 : N(8) = C7
            N(9) = D4 : N(10) = D5 : N(11) = D6 : N(12) = D7
            N(13) = E4 : N(14) = E5 : N(15) = E6 : N(16) = E7
            N(17) = F4 : N(18) = F5 : N(19) = F6 : N(20) = F7
            N(21) = A
            N(22) = B
            N(23) = C
            N(24) = D
            N(25) = E
            '
            'Scrivi StringaEstratti(Es,r1),0,1,4
            '
            'EliminaRipetuti(N)
            'Scrivi("" &(N(1)) & "." &(N(2)) & "." &(N(3)) & "." &(N(4)) & "." &(N(5)) & "." & _
            'Scrivi &(N(6)) & "." &(N(7)) & "." &(N(8)) & "." &(N(9)) & "." &(N(10)) & "." & _
            'Scrivi &(N(11)) & "." &(N(12)) & "." &(N(13)) & "." &(N(14)) & "." &(N(15)) & "." & _
            'Scrivi &(N(16)) & "." &(N(17)) & "." &(N(18)) & "." &(N(19)) & "." &(N(20)) & "." & _
            'Scrivi &(N(21)) & "." &(N(22)) & "." &(N(23)) & "." &(N(24)) & "." &(N(25)) & "."),0,1,3
            'Scrivi
            'Scrivi
            '
            Call SetTableWidth("30%")
            CreaTabella
            '
            ruote(1) = r1
            'ruote(2) = TT_
            'ruote(3) = NZ_
            '
            '
            Ambo1(1) = B4 : Ambo1(2) = C4
            Scrivi "2x2",0,1,3
            ImpostaGiocata 1,Ambo1,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo2(1) = B5 : Ambo2(2) = D4
            Scrivi "3x3",0,1,4
            ImpostaGiocata 2,Ambo2,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo3(1) = B6 : Ambo3(2) = E4
            Scrivi "4x4",0,1,6
            ImpostaGiocata 3,Ambo3,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo4(1) = B7 : Ambo4(2) = F4
            Scrivi "5x5",0,1,7
            ImpostaGiocata 4,Ambo4,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo5(1) = C5 : Ambo5(2) = D5
            Scrivi "2x2",0,1,3
            ImpostaGiocata 5,Ambo5,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo6(1) = C6 : Ambo6(2) = E5
            Scrivi "3x3",0,1,4
            ImpostaGiocata 6,Ambo6,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo7(1) = C7 : Ambo7(2) = F5
            Scrivi "4x4",0,1,6
            ImpostaGiocata 7,Ambo7,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo8(1) = D6 : Ambo8(2) = E6
            Scrivi "2x2",0,1,3
            ImpostaGiocata 8,Ambo8,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo9(1) = D7 : Ambo9(2) = F6
            Scrivi "3x3",0,1,4
            ImpostaGiocata 9,Ambo9,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Ambo10(1) = E7 : Ambo10(2) = F7
            Scrivi "2x2",0,1,3
            ImpostaGiocata 10,Ambo10,ruote,poste,k
            Gioca ES,1,,1
            Scrivi
            Scrivi
            Scrivi
            'End If
         Next
      Next
   Next
End Sub

ecco lo script della ciclodinamica a cinque numeri

Pandit · Martedì alle 20:26

Grazie, anche per la spiegazione...

Zetrix · Martedì alle 21:26

di niente.. stasera non e uscito un tubazzo..comunque la ciclodinamica e difficile perche bisogna
trovare le condizioni giuste sulle estr,la tabella si puo colorare con altri colori a scelta
come anche la scrittura dei numeri o le dimensioni della tabella..
l'altra tabella che dava tanti 41 ho notato che la tabella scrive solo i numeri ma non visualizza
i numeri estratti sulla tabella..
adesso sto valutando se devo inserire anche la nazionale per l'ambata contata..
e quindi nel caso si dovrebbe fare di nuovo la tabella..
ma devo vedere se la nazionale calcola l'ambata contata sui quadrati..

Zetrix · Martedì alle 21:34

Codice:

Sub Main
   Dim E,S,X,Y,A,K,R,B,C,D,F,V,Z,W,J,L,N
   Dim Nu(5),Na(11)
   Dim Righe,Colonne
   Dim nCaselleDaEvid
   Dim aQuadroNum
   Dim aNumDaEvid
   Dim ES
   '
   Righe = 11
   Colonne = 11
   ReDim aQuadroNum(Righe,Colonne)
   ReDim aNumDaEvid(500,1) ' Quantità di caselle possibili
   '
   '
   X = InputBox("Quante estrazioni vuoi controllare ?",,0)
   Scrivi DataEstrazione(EstrazioneFin - X,,,"/"),0,1,3
   ex = EstrazioneFin - X
   For ES = ex To ex
      Messaggio(ES)
      '
      R = ScegliRuota
      For S = 1 To 11 'Righe della Tabella
         '
         For E = 1 To 5 'Colonne della Tabella
            Y = E + 6
            Nu(E) = E - 1 *5 + S*5
            Na(Y) = Fuori90(E - 1 * 5 + S*5 + 50)
            '
            '
            A = Estratto(ES,R,1)
            B = Estratto(ES,R,2)
            C = Estratto(ES,R,3)
            D = Estratto(ES,R,4)
            F = Estratto(ES,R,5)
            '-------------------------
            '-------------------------
            '
            aQuadroNum(S,E) = Nu(E)
            aQuadroNum(S,Y) = Na(Y)
            '
            If aQuadroNum(S,E) = A Or aQuadroNum(S,E) = B Or aQuadroNum(S,E) = C Or aQuadroNum(S,E) = D Or aQuadroNum(S,E) = F _
               Or aQuadroNum(S,Y) = A Or aQuadroNum(S,Y) = B Or aQuadroNum(S,Y) = C Or aQuadroNum(S,Y) = D Or aQuadroNum(S,Y) = F Then
               '
               '
               nCaselleDaEvid = nCaselleDaEvid + 1
               aNumDaEvid(nCaselleDaEvid,0) = S
               aNumDaEvid(nCaselleDaEvid,1) = E
               '
               nCaselleDaEvid = nCaselleDaEvid + 1
               aNumDaEvid(nCaselleDaEvid,0) = S
               aNumDaEvid(nCaselleDaEvid,1) = Y
               '
               '
               '
               ReDim MatriceCaselleDaEvid(5,1)
               '
               MatriceCaselleDaEvid(1,0) = R
               MatriceCaselleDaEvid(1,1) = 1
               '
               MatriceCaselleDaEvid(2,0) = R
               MatriceCaselleDaEvid(2,1) = 2
               '
               MatriceCaselleDaEvid(3,0) = R
               MatriceCaselleDaEvid(3,1) = 3
               '
               MatriceCaselleDaEvid(4,0) = R
               MatriceCaselleDaEvid(4,1) = 4
               '
               MatriceCaselleDaEvid(5,0) = R
               MatriceCaselleDaEvid(5,1) = 5
               '
               'Call DisegnaEstrazione(ES,MatriceCaselleDaEvid)
            End If
         Next
      Next
   Next
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
   Scrivi SiglaRuota(R) & " " & StringaEstratti(EstrazioneFin - X,R),0,1,3
   Scrivi "Ambata contata",0,1,6
   Call DisegnaEstrazione(EstrazioneFin - X,MatriceCaselleDaEvid)
End Sub

questo script e in prova ho aggiunto anche la nazionale, su scegliruota provate a vedere la nazionale..
ma io la vorrei proprio escludere la nazionale dall'ambata contata..
ma devo fare delle prove sulle estrazioni..
ho modificato lo script

Zetrix · Martedì alle 21:53

avete notato questo terno ripetuto incredibile tra non molto vedremo anche le quaterne
e cinquine ripetute..

chiudo devo aggiornare una cosa nell'altro forum..

giuseppa · Ieri alle 13:41

Pandit ha scritto:
A me da l'estrazione giusta..

Scusa per la mia intromissione, ma con questo tuo messaggio, potresti essere più chiaro...
Grazie

Zetrix · Oggi alle 07:53

scusa Pandit ma la giuseppa mi sembra che ti ha fatto una domanda perche non ai risposto
questa e una mancanza di rispetto e quella domanda avrei dovuto fartela anch'io
ma ho lasciato stare, cosi non ci siamo,non ci siamo proprio..
vi ho messo gli script e le tabelle e vi ho scritto anche le spiegazioni e poi se una fa una domanda non si risponde neanche
ma in che mondo siamo quanto leggo certe cose nel forum mi passa la voglia di scrivere..
e leggendo queste cose ti verrebbe voglia di scappare da questo forum.

MARION · Oggi alle 10:57

Ciao!
Passo per un saluto!
Buona giornata!

Pandit · 4 minuti fa

Ciao Giuseppa, per chi non ha capito.... ripeto... che io non sono sempre sul forum, ho anche altre cose da fare, quindi se non rispondo a comando, come chi non ha di meglio da fare, non accetto giudizi di questo genere, tornando a Te Giuseppa, intendevo che io dallo script ho un imput con un'estrazione visibile nella tabella, e non mi da nessun errore..

Ambata contata

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super Moderator

Advanced Premium Member

Premium Member

Super member