Novità

White Gold Method

Zetrix

Advanced Premium Member
Codice:
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso,anum(2)
   posta(1) = 1
   poste(2) = 1
   '
   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 11
         '
         For p1 = 1 To 1
            For p2 = p1 + 1 To p2
               '
               If r1 = 11 Then r1 = 12 End If
               '
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               '--------------------
               n1 = Distanza(a,b)
               x = Fuori90(a + b)
               n2 = Diametrale(a)
               n3 = Diametrale(b)
               n4 = Vert(n2)
               n5 = Vert(n3)
               '
               If n1 = 8 Then
                  '
                  ambata(1) = x
                  '
                  ambo1(1) = x
                  ambo1(2) = n4
                  ambo2(1) = x
                  ambo2(2) = n5
                  '
                  terzina(1) = x
                  terzina(2) = n2
                  terzina(3) = n3
                  '
                  ruota(1) = r1
                  ruota(2) = RuotaDiametrale(r1)
                  ruote(1) = r1
                  ruote(2) = RuotaDiametrale(r1)
                  ruote(3) = TT_
                  ruote(4) = NZ_
                  '
                  caso = caso + 1
                  Scrivi String(99,"-") & " gioco n. " & caso
                  Scrivi
                  '
                  ReDim MatriceCaselleDaEvid(10,1)
                  ' primo elemento
                  MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                  MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                  ' secondo elemento
                  MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                  MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                  ' terzo elemento
                  MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                  ' quarto elemento
                  MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                  ' quinto elemento
                  MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                  ' ---------------------------------------------------
                  Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                  '
                  '
                  Scrivi
                  Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                  "  numero  " & Format2(a) & Space(2) &(b) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
                  '
                  Scrivi
                  '
                  ImpostaGiocata 1,ambata,ruota,posta,k
                  Gioca es,1,,1
                  Scrivi
                  Scrivi String(55,"-")
                  Scrivi
                  Scrivi
                  ImpostaGiocata 1,ambo1,ruote,poste,k
                  ImpostaGiocata 2,ambo2,ruote,poste,k
                  Gioca es,1,,1
                  Scrivi
                  Scrivi String(55,"-")
                  Scrivi
                  Scrivi
                  ImpostaGiocata 1,terzina,ruote,poste,k
                  Gioca es,1,,1
               End If
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,7,4,4,8
   Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
  Scrivi "white gold method",0,1,4,7,4,4,8
End Sub

prova questo script vedi se e esatto..
non so come si scrive il codice per aggiungere piu uno all'ambata
se l'ambata risulta nella estr di calcolo..
ho scritto questo codice ma da errore..

sf = SerieFreq(es - 0,es,ruota,anum,1)
If sf < 0 Then
x = x + 1
End If
 
Ultima modifica:

Imaging

Advanced Member >PLATINUM<
Codice:
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso,anum(2)
   posta(1) = 1
   poste(2) = 1
   '
   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 11
         '
         For p1 = 1 To 1
            For p2 = p1 + 1 To p2
               '
               If r1 = 11 Then r1 = 12 End If
               '
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               '--------------------
               n1 = Distanza(a,b)
               x = Fuori90(a + b)
               n2 = Diametrale(a)
               n3 = Diametrale(b)
               n4 = Vert(n2)
               n5 = Vert(n3)
               '
               If n1 = 8 Then
                  '
                  ambata(1) = x
                  '
                  ambo1(1) = x
                  ambo1(2) = n4
                  ambo2(1) = x
                  ambo2(2) = n5
                  '
                  terzina(1) = x
                  terzina(2) = n2
                  terzina(3) = n3
                  '
                  ruota(1) = r1
                  ruota(2) = RuotaDiametrale(r1)
                  ruote(1) = r1
                  ruote(2) = RuotaDiametrale(r1)
                  ruote(3) = TT_
                  ruote(4) = NZ_
                  '
                  caso = caso + 1
                  Scrivi String(99,"-") & " gioco n. " & caso
                  Scrivi
                  '
                  ReDim MatriceCaselleDaEvid(10,1)
                  ' primo elemento
                  MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                  MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                  ' secondo elemento
                  MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                  MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                  ' terzo elemento
                  MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                  ' quarto elemento
                  MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                  ' quinto elemento
                  MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                  ' ---------------------------------------------------
                  Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                  '
                  '
                  Scrivi
                  Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                  "  numero  " & Format2(a) & Space(2) &(b) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
                  '
                  Scrivi
                  '
                  ImpostaGiocata 1,ambata,ruota,posta,k
                  Gioca es,1,,1
                  Scrivi
                  Scrivi String(55,"-")
                  Scrivi
                  Scrivi
                  ImpostaGiocata 1,ambo1,ruote,poste,k
                  ImpostaGiocata 2,ambo2,ruote,poste,k
                  Gioca es,1,,1
                  Scrivi
                  Scrivi String(55,"-")
                  Scrivi
                  Scrivi
                  ImpostaGiocata 1,terzina,ruote,poste,k
                  Gioca es,1,,1
               End If
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,7,4,4,8
   Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
  Scrivi "white gold method",0,1,4,7,4,4,8
End Sub

prova questo script vedi se e esatto..
non so come si scrive il codice per aggiungere piu uno all'ambata
se l'ambata risulta nella estr di calcolo..
ho scritto questo codice ma da errore..

sf = SerieFreq(es - 0,es,ruota,anum,1)
If sf < 0 Then
x = x + 1
End If
Listato OK calcoli previsionali ho dato uno sguardo sembrano esatti Estrazioni Max 12 colpi!!!!! Bravissimo . OK.(y)
 

Zetrix

Advanced Premium Member
ok poi se riesco a sistemare l'ambata quanto risulta nella estr di calcolo ..

k = 0

per impostare i colpi di gioco basta mettere al posto di 0 si puo mettere i colpi che si vuole
giocare in questo caso si scrive k = 12
 
Ultima modifica:

claudio8

Advanced Member >PLATINUM PLUS<
Codice:
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2
   Dim caso,anum(2)
   posta(1) = 1
   poste(2) = 1
   '
   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 11
         '
         For p1 = 1 To 1
            For p2 = p1 + 1 To p2
               '
               If r1 = 11 Then r1 = 12 End If
               '
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               '--------------------
               n1 = Distanza(a,b)
               x = Fuori90(a + b)
               n2 = Diametrale(a)
               n3 = Diametrale(b)
               n4 = Vert(n2)
               n5 = Vert(n3)
               '
               If n1 = 8 Then
                  '
                  ambata(1) = x
                  '
                  ambo1(1) = x
                  ambo1(2) = n4
                  ambo2(1) = x
                  ambo2(2) = n5
                  '
                  terzina(1) = x
                  terzina(2) = n2
                  terzina(3) = n3
                  '
                  ruota(1) = r1
                  ruota(2) = RuotaDiametrale(r1)
                  ruote(1) = r1
                  ruote(2) = RuotaDiametrale(r1)
                  ruote(3) = TT_
                  ruote(4) = NZ_
                  '
                  caso = caso + 1
                  Scrivi String(99,"-") & " gioco n. " & caso
                  Scrivi
                  '
                  ReDim MatriceCaselleDaEvid(10,1)
                  ' primo elemento
                  MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                  MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                  ' secondo elemento
                  MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                  MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                  ' terzo elemento
                  MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                  ' quarto elemento
                  MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                  ' quinto elemento
                  MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                  MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                  ' ---------------------------------------------------
                  Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                  '
                  '
                  Scrivi
                  Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                  "  numero  " & Format2(a) & Space(2) &(b) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
                  '
                  Scrivi
                  '
                  ImpostaGiocata 1,ambata,ruota,posta,k
                  Gioca es,1,,1
                  Scrivi
                  Scrivi String(55,"-")
                  Scrivi
                  Scrivi
                  ImpostaGiocata 1,ambo1,ruote,poste,k
                  ImpostaGiocata 2,ambo2,ruote,poste,k
                  Gioca es,1,,1
                  Scrivi
                  Scrivi String(55,"-")
                  Scrivi
                  Scrivi
                  ImpostaGiocata 1,terzina,ruote,poste,k
                  Gioca es,1,,1
               End If
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,7,4,4,8
   Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
  Scrivi "white gold method",0,1,4,7,4,4,8
End Sub

prova questo script vedi se e esatto..
non so come si scrive il codice per aggiungere piu uno all'ambata
se l'ambata risulta nella estr di calcolo..
ho scritto questo codice ma da errore..

sf = SerieFreq(es - 0,es,ruota,anum,1)
If sf < 0 Then
x = x + 1
End If
Devi fare un ciclo for di confronto tra l'ambata e gli estratti dell'estrazione
For x = 1 to 5
If estratto (es,r,x) =ambata then
ambata = fuori90(ambata +1)
Exit for
else
ambata = ambata
Next
Adatta il concetto al tuo script
 
Ultima modifica:

Imaging

Advanced Member >PLATINUM<
Devi fare un ciclo for di confronto tra l'ambata e gli estratti dell'estrazione
For x = 1 to 5
If estratto (es,r,x) =ambata then
ambata = fuori90(ambata +1)
Exit for
else
ambata = ambata
Next
Adatta il concetto al tuo script
Quindi dove si aggiungono nel listato?(y)
 

claudio8

Advanced Member >PLATINUM PLUS<
Codice:
Sub Main
    Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
    Dim terzina(5)
    Dim r1,r2,p1,p2
    Dim caso,anum(2)
    posta(1) = 1
    poste(2) = 1
    '
    rs = InputBox("Quante estrazioni vuoi controllare?",,0)
    k = InputBox("Quanti colpi di gioco vuoi controllare?",,0)
    'k = 0
    caso = 0
    '
    For es = EstrazioneFin - rs To EstrazioneFin
        AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
        For r1 = 1 To 11
            'For p1 = 1 To 1 """ non ha nessun senso usare un doppio ciclo for per dimensionare le variabili p1 e p2, basta scriverlo"""
            ' For p2 = p1 + 1 To p2
            p1 = 1
            p2 = 2
            '
            If r1 = 11 Then r1 = 12 'End If
            '
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            '--------------------
            n1 = Distanza(a,b)
            If n1 = 8 Then
                caso = caso + 1
                x = Fuori90(a + b)' ambata
                n2 = Diametrale(a)
                n3 = Diametrale(b)
                n4 = Vert(n2)
                n5 = Vert(n3)
                '
                'If n1 = 8 Then 'le condizioni di operatività/filtro del metodo vanno sempre a monte dei calcoli in modo che
                'se vi è/sono le condizioni opera altrimenti salta e va avanti con la lettura del costrutto.
                '
                ambata(1) = x
                ruota(1) = r1
                ' per Zetrig ti inserisco un ulteriore opzione, probabilmente la + indicata, ho volutamente scritto tutte le
                ' righe if... end if per darti/vi la possibilità di soffermarvi sul concetto del processo
                If IsNumeroPresenteInEstrazione(es,r1,x,retPos) = False Then
                    x = Fuori90(a + 1)
                Else
                    x = x
                End If
                '
                ambo1(1) = x
                ambo1(2) = n4
                ambo2(1) = x
                ambo2(2) = n5
                '
                terzina(1) = x
                terzina(2) = n2
                terzina(3) = n3
                '
                ruota(1) = r1
                ruota(2) = RuotaDiametrale(r1)
                ruote(1) = r1
                ruote(2) = RuotaDiametrale(r1)
                ruote(3) = TT_
                ruote(4) = NZ_
                '
                'caso = caso + 1
                Scrivi String(99,"-") & " gioco n. " & caso
                Scrivi
                '
                ReDim MatriceCaselleDaEvid(10,1)
                ' primo elemento
                MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                ' secondo elemento
                MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                ' terzo elemento
                MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                ' quarto elemento
                MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                ' quinto elemento
                MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                ' ---------------------------------------------------
                Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                '
                '
                Scrivi
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                "  numero  " & Format2(a) & Space(2) &(b) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
                '
                Scrivi
                '
                ImpostaGiocata 1,ambata,ruota,posta,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,ambo1,ruote,poste,k
                ImpostaGiocata 2,ambo2,ruote,poste,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,terzina,ruote,poste,k
                Gioca es,1,,1
            End If
            '  Next
            'Next
        Next
    Next
    Scrivi
    Scrivi "script di Zetrix",0,1,4,7,4,4,8
    Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
    Scrivi "white gold method",0,1,4,7,4,4,8
End Sub

Buon ferragosto
 

Zetrix

Advanced Premium Member
grazie claudio dopo vedrò meglio lo script adesso sto seguendo i sistemi a cruciverba

Buon Ferragosto
 

Zetrix

Advanced Premium Member
Codice:
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina(5)
   Dim r1,r2,p1,p2
   Dim caso,anum(2)
   posta(1) = 1
   poste(2) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   'k = InputBox("Quanti colpi di gioco vuoi controllare?",,0)
   k = 0
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 11
         'For p1 = 1 To 1 """ non ha nessun senso usare un doppio ciclo for per dimensionare le variabili p1 e p2, basta scriverlo"""
         ' For p2 = p1 + 1 To p2
         p1 = 1
         p2 = 2
         '
         If r1 = 11 Then r1 = 12 'End If
         '
         a = Estratto(es,r1,p1)
         b = Estratto(es,r1,p2)
         '--------------------
         n1 = Distanza(a,b)
         If n1 = 8 Then
            If IsNumeroPresenteInEstrazione(es,r1,x,retPos) = False Then
               x = Fuori90(x + 1)
            Else
               x = x
            End If
            caso = caso + 1
            x = Fuori90(a + b)' ambata
            n2 = Diametrale(a)
            n3 = Diametrale(b)
            n4 = Vert(n2)
            n5 = Vert(n3)
            '
            'If n1 = 8 Then 'le condizioni di operatività/filtro del metodo vanno sempre a monte dei calcoli in modo che
            'se vi è/sono le condizioni opera altrimenti salta e va avanti con la lettura del costrutto.
            '
            ambata(1) = x
            ruota(1) = r1
            ' per Zetrix ti inserisco un ulteriore opzione, probabilmente la + indicata, ho volutamente scritto tutte le
            ' righe if... end if per darti/vi la possibilità di soffermarvi sul concetto del processo
            '
            ambo1(1) = x
            ambo1(2) = n4
            ambo2(1) = x
            ambo2(2) = n5
            '
            terzina(1) = x
            terzina(2) = n2
            terzina(3) = n3
            '
            ruota(1) = r1
            ruota(2) = RuotaDiametrale(r1)
            ruote(1) = r1
            ruote(2) = RuotaDiametrale(r1)
            ruote(3) = TT_
            ruote(4) = NZ_
            '
            'caso = caso + 1
            Scrivi String(99,"-") & " gioco n. " & caso
            Scrivi
            '
            ReDim MatriceCaselleDaEvid(10,1)
            ' 1
            MatriceCaselleDaEvid(1,0) = r1 '
            MatriceCaselleDaEvid(1,1) = 1 '
            ' 2
            MatriceCaselleDaEvid(2,0) = r1 '
            MatriceCaselleDaEvid(2,1) = 2 '
            ' 3
            MatriceCaselleDaEvid(3,0) = r1 '
            MatriceCaselleDaEvid(3,1) = 3 '
            ' 4
            MatriceCaselleDaEvid(4,0) = r1 '
            MatriceCaselleDaEvid(4,1) = 4 '
            ' 5
            MatriceCaselleDaEvid(5,0) = r1 '
            MatriceCaselleDaEvid(5,1) = 5 '
            ' ---------------------------------------------------
            Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
            '
            '
            Scrivi
            Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
            "  numero  (" & Format2(a) & Space(2) &(b) & ")  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4,4,8
            '
            Scrivi
            Scrivi "" & a & "+" & b & "=" & x & Space(2) & " (ambata) ",1,1,7,6,4,4,8
            Scrivi
            Scrivi "" & a & "+45" & "=" & n2 & Space(2) & "(diam) ",1,1,7,6,4,4,8
            Scrivi "" & b & "+45" & "=" & n3 & Space(2) & "(diam) ",1,1,7,6,4,4,8
            Scrivi
            Scrivi "" & n2 & "" & "=" & n4 & Space(2) & "(vert) ",1,1,7,6,4,4,8
            Scrivi "" & n3 & "" & "=" & n5 & Space(2) & "(vert) ",1,1,7,6,4,4,8
            Scrivi
            '
            ImpostaGiocata 1,ambata,ruota,posta,k
            Gioca es,1,,1
            Scrivi
            Scrivi String(55,"-")
            Scrivi
            Scrivi
            ImpostaGiocata 1,ambo1,ruote,poste,k
            ImpostaGiocata 2,ambo2,ruote,poste,k
            Gioca es,1,,1
            Scrivi
            Scrivi String(55,"-")
            Scrivi
            Scrivi
            ImpostaGiocata 1,terzina,ruote,poste,k
            Gioca es,1,,1
         End If
         '  Next
         'Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,7,4,4,8
   Scrivi "richiesta di Imaging",0,1,7,6,4,4,8
   Scrivi "white gold method",0,1,4,7,4,4,8
End Sub

ok claudio lo sistemato meglio lo script allora non serve ciclare p1 e p2
ho visto anche come aggiungere l'ambata con piu uno nel caso fosse presente
l'ambata di calcolo nella estr..

If IsNumeroPresenteInEstrazione(es,r1,x,retPos) = False Then

ma retPos a cosa serve..forse per le pos di tutti e cinque gli estratti..
 
Ultima modifica:

Imaging

Advanced Member >PLATINUM<
Codice:
Sub Main
    Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
    Dim terzina(5)
    Dim r1,r2,p1,p2
    Dim caso,anum(2)
    posta(1) = 1
    poste(2) = 1
    '
    rs = InputBox("Quante estrazioni vuoi controllare?",,0)
    k = InputBox("Quanti colpi di gioco vuoi controllare?",,0)
    'k = 0
    caso = 0
    '
    For es = EstrazioneFin - rs To EstrazioneFin
        AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
        For r1 = 1 To 11
            'For p1 = 1 To 1 """ non ha nessun senso usare un doppio ciclo for per dimensionare le variabili p1 e p2, basta scriverlo"""
            ' For p2 = p1 + 1 To p2
            p1 = 1
            p2 = 2
            '
            If r1 = 11 Then r1 = 12 'End If
            '
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            '--------------------
            n1 = Distanza(a,b)
            If n1 = 8 Then
                caso = caso + 1
                x = Fuori90(a + b)' ambata
                n2 = Diametrale(a)
                n3 = Diametrale(b)
                n4 = Vert(n2)
                n5 = Vert(n3)
                '
                'If n1 = 8 Then 'le condizioni di operatività/filtro del metodo vanno sempre a monte dei calcoli in modo che
                'se vi è/sono le condizioni opera altrimenti salta e va avanti con la lettura del costrutto.
                '
                ambata(1) = x
                ruota(1) = r1
                ' per Zetrig ti inserisco un ulteriore opzione, probabilmente la + indicata, ho volutamente scritto tutte le
                ' righe if... end if per darti/vi la possibilità di soffermarvi sul concetto del processo
                If IsNumeroPresenteInEstrazione(es,r1,x,retPos) = False Then
                    x = Fuori90(a + 1)
                Else
                    x = x
                End If
                '
                ambo1(1) = x
                ambo1(2) = n4
                ambo2(1) = x
                ambo2(2) = n5
                '
                terzina(1) = x
                terzina(2) = n2
                terzina(3) = n3
                '
                ruota(1) = r1
                ruota(2) = RuotaDiametrale(r1)
                ruote(1) = r1
                ruote(2) = RuotaDiametrale(r1)
                ruote(3) = TT_
                ruote(4) = NZ_
                '
                'caso = caso + 1
                Scrivi String(99,"-") & " gioco n. " & caso
                Scrivi
                '
                ReDim MatriceCaselleDaEvid(10,1)
                ' primo elemento
                MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                ' secondo elemento
                MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                ' terzo elemento
                MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                ' quarto elemento
                MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                ' quinto elemento
                MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                ' ---------------------------------------------------
                Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                '
                '
                Scrivi
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                "  numero  " & Format2(a) & Space(2) &(b) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
                '
                Scrivi
                '
                ImpostaGiocata 1,ambata,ruota,posta,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,ambo1,ruote,poste,k
                ImpostaGiocata 2,ambo2,ruote,poste,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,terzina,ruote,poste,k
                Gioca es,1,,1
            End If
            '  Next
            'Next
        Next
    Next
    Scrivi
    Scrivi "script di Zetrix",0,1,4,7,4,4,8
    Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
    Scrivi "white gold method",0,1,4,7,4,4,8
End Sub

Buon ferragosto
Grazie Claudio ho dato un controllo ma se il numero risulta nell'estrazione non cambia se l'ambata faccio un esempio risulta 26 l'ambata da giocare con +1=27 qui non risulta.....grazie per la disponibilità(y)
 

claudio8

Advanced Member >PLATINUM PLUS<
Rintracciato questo caso : sabato, apr 23 2022 BA 82.90.20.09.28
coretto il costrutto :
sabato, apr 23 2022 BA 82.90.20.09.28 numeri (82 90) in 1° 2° Pos. - Somma 82 ambata 83
Codice:
Sub Main
    Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
    Dim terzina(5)
    Dim r1,r2,es,x,pos
    Dim caso,anum(2)
    posta(1) = 1
    poste(2) = 1
    '
    rs = InputBox("Quante estrazioni vuoi controllare?",,50)
    k = InputBox("Quanti colpi di gioco vuoi controllare?",,0)
    caso = 0
    For es = EstrazioneFin - rs To EstrazioneFin
        AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
        For r1 = 1 To 11
            p1 = 1
            p2 = 2
            If r1 = 11 Then r1 = 12 'End If
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            '--------------------
            n1 = Distanza(a,b)
            If n1 = 8 Then
                caso = caso + 1
                x = Fuori90(a + b)' ambata
                n2 = Diametrale(a)
                n3 = Diametrale(b)
                n4 = Vert(n2)
                n5 = Vert(n3)
                ambata(1) = x
                ruota(1) = r1
                ' per Zetrig ti inserisco un ulteriore opzione, probabilmente la + indicata, ho volutamente scritto tutte le
                ' righe if... end if per darti/vi la possibilità di soffermarvi sul concetto del processo
                If IsNumeroPresenteInEstrazione(es,r1,x,retPos) = -1 Then
                    ambata(1) = Fuori90(x + 1)
                Else
                    ambata(1) = x
                End If
                '
                ambo1(1) = x
                ambo1(2) = n4
                ambo2(1) = x
                ambo2(2) = n5
                '
                terzina(1) = x
                terzina(2) = n2
                terzina(3) = n3
                '
                ruota(1) = r1
                ruota(2) = RuotaDiametrale(r1)
                ruote(1) = r1
                ruote(2) = RuotaDiametrale(r1)
                ruote(3) = TT_
                ruote(4) = NZ_
                '
                Scrivi String(99,"-") & " gioco n. " & caso
                Scrivi
                '
                ReDim MatriceCaselleDaEvid(10,1)
                ' primo elemento
                MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                ' secondo elemento
                MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                ' terzo elemento
                MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                ' quarto elemento
                MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                ' quinto elemento
                MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                ' ---------------------------------------------------
                Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                '
                '
                Scrivi
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numeri (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos. - Somma " & Fuori90(a + b) & " ambata " & ambata(1),1,1,7,3,4,4,8
                '
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numero (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4,4,8
                '
                'Scrivi " " ,1,1,7,3,4,4,8
                '
                ImpostaGiocata 1,ambata,ruota,posta,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,ambo1,ruote,poste,k
                ImpostaGiocata 2,ambo2,ruote,poste,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,terzina,ruote,poste,k
                Gioca es,1,,1
            End If
            '  Next
            'Next
        Next
    Next
    Scrivi
    Scrivi "script di Zetrix",0,1,4,7,4,4,8
    Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
    Scrivi "white gold method",0,1,4,7,4,4,8
End Sub
Controlla che sia corretto.
saluti
 

Imaging

Advanced Member >PLATINUM<
Non ci siamo grazie per la disponibilità..... va bene tutto ma non applica il+1 ti invito a leggere le condizioni di partenza.......GRAZIE.....📝
 

claudio8

Advanced Member >PLATINUM PLUS<
Imaging.jpg
Non stavo creandoti lo script, ho solo dato indicazione a Zetrix per la sua richiesta di sostituire l'ambata con l'ambata +1:
lo script prevede di giocare anche ambi e terzina, che dovevano essere corretti (dal creatore dello script)
Senza polemica, la prossima volta, sii preciso e maggiormente esauriente,
- (ti avevo posto una domanda cui non hai risposto)
- lo script è per te e non per chi te lo compone, non deve essere il sottoscritto o chi per me a cercarti specificatamente l'errore, è compito tuo testarlo, ed essere preciso nella descrizione dell'errore stesso per agevolare chi ti sta "aiutando".
Come avrai visto dalla videata che ti ho inserito, lo script elaboraVA correttamente la giocata dell'ambata, mentre le altre giocate andava corrette, ( da Zetrix ) comunque ti invio nuovo da controllare.

Codice:
Sub Main
    Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
    Dim terzina(5)
    Dim r1,r2,es,x,pos
    Dim caso,anum(2)
    posta(1) = 1
    poste(2) = 1
    '
    rs = InputBox("Quante estrazioni vuoi controllare?",,50)
    k = InputBox("Quanti colpi di gioco vuoi controllare?",,0)
    caso = 0
    For es = EstrazioneFin - rs To EstrazioneFin
        AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
        For r1 = 1 To 11
            p1 = 1
            p2 = 2
            If r1 = 11 Then r1 = 12 'End If
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            '--------------------
            n1 = Distanza(a,b)
            If n1 = 8 Then
                caso = caso + 1
                x = Fuori90(a + b)' ambata
                n2 = Diametrale(a)
                n3 = Diametrale(b)
                n4 = Vert(n2)
                n5 = Vert(n3)
                ambata(1) = x
                ruota(1) = r1
                ' per Zetrig ti inserisco un ulteriore opzione, probabilmente la + indicata, ho volutamente scritto tutte le
                ' righe if... end if per darti/vi la possibilità di soffermarvi sul concetto del processo
                If IsNumeroPresenteInEstrazione(es,r1,x,retPos) = -1 Then
                    ambata(1) = Fuori90(x + 1)
                Else
                    ambata(1) = x
                End If
                '
                ambo1(1) = ambata(1)'x
                ambo1(2) = n4
                ambo2(1) = ambata(1)'x
                ambo2(2) = n5
                '
                terzina(1) = ambata(1)'x
                terzina(2) = n2
                terzina(3) = n3
                '
                ruota(1) = r1
                ruota(2) = RuotaDiametrale(r1)
                ruote(1) = r1
                ruote(2) = RuotaDiametrale(r1)
                ruote(3) = TT_
                ruote(4) = NZ_
                '
                Scrivi String(99,"-") & " gioco n. " & caso
                Scrivi
                '
                ReDim MatriceCaselleDaEvid(10,1)
                ' primo elemento
                MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                ' secondo elemento
                MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                ' terzo elemento
                MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                ' quarto elemento
                MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                ' quinto elemento
                MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                ' ---------------------------------------------------
                Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                '
                '
                Scrivi
If ambata(1)<> x Then
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numeri (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos. - Somma " & Fuori90(a + b) & " ambata+1 " & ambata(1),1,1,2,4,4,8
Else
 Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numeri (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos. - Somma " & Fuori90(a + b) & " ambata   " & ambata(1),1,1,2,4,4,8
End If
                '
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numero (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4,4,8
                '
                'Scrivi " " ,1,1,7,3,4,4,8
                '
                ImpostaGiocata 1,ambata,ruota,posta,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,ambo1,ruote,poste,k
                ImpostaGiocata 2,ambo2,ruote,poste,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,terzina,ruote,poste,k
                Gioca es,1,,1
            End If
            '  Next
            'Next
        Next
    Next
    Scrivi
    Scrivi "script di Zetrix",0,1,4,7,4,4,8
    Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
    Scrivi "white gold method",0,1,4,7,4,4,8
End Sub
saluti
 

Imaging

Advanced Member >PLATINUM<
Vedi l'allegato 2239981
Non stavo creandoti lo script, ho solo dato indicazione a Zetrix per la sua richiesta di sostituire l'ambata con l'ambata +1:
lo script prevede di giocare anche ambi e terzina, che dovevano essere corretti (dal creatore dello script)
Senza polemica, la prossima volta, sii preciso e maggiormente esauriente,
- (ti avevo posto una domanda cui non hai risposto)
- lo script è per te e non per chi te lo compone, non deve essere il sottoscritto o chi per me a cercarti specificatamente l'errore, è compito tuo testarlo, ed essere preciso nella descrizione dell'errore stesso per agevolare chi ti sta "aiutando".
Come avrai visto dalla videata che ti ho inserito, lo script elaboraVA correttamente la giocata dell'ambata, mentre le altre giocate andava corrette, ( da Zetrix ) comunque ti invio nuovo da controllare.

Codice:
Sub Main
    Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(2)
    Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
    Dim terzina(5)
    Dim r1,r2,es,x,pos
    Dim caso,anum(2)
    posta(1) = 1
    poste(2) = 1
    '
    rs = InputBox("Quante estrazioni vuoi controllare?",,50)
    k = InputBox("Quanti colpi di gioco vuoi controllare?",,0)
    caso = 0
    For es = EstrazioneFin - rs To EstrazioneFin
        AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
        For r1 = 1 To 11
            p1 = 1
            p2 = 2
            If r1 = 11 Then r1 = 12 'End If
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            '--------------------
            n1 = Distanza(a,b)
            If n1 = 8 Then
                caso = caso + 1
                x = Fuori90(a + b)' ambata
                n2 = Diametrale(a)
                n3 = Diametrale(b)
                n4 = Vert(n2)
                n5 = Vert(n3)
                ambata(1) = x
                ruota(1) = r1
                ' per Zetrig ti inserisco un ulteriore opzione, probabilmente la + indicata, ho volutamente scritto tutte le
                ' righe if... end if per darti/vi la possibilità di soffermarvi sul concetto del processo
                If IsNumeroPresenteInEstrazione(es,r1,x,retPos) = -1 Then
                    ambata(1) = Fuori90(x + 1)
                Else
                    ambata(1) = x
                End If
                '
                ambo1(1) = ambata(1)'x
                ambo1(2) = n4
                ambo2(1) = ambata(1)'x
                ambo2(2) = n5
                '
                terzina(1) = ambata(1)'x
                terzina(2) = n2
                terzina(3) = n3
                '
                ruota(1) = r1
                ruota(2) = RuotaDiametrale(r1)
                ruote(1) = r1
                ruote(2) = RuotaDiametrale(r1)
                ruote(3) = TT_
                ruote(4) = NZ_
                '
                Scrivi String(99,"-") & " gioco n. " & caso
                Scrivi
                '
                ReDim MatriceCaselleDaEvid(10,1)
                ' primo elemento
                MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
                ' secondo elemento
                MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
                ' terzo elemento
                MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
                ' quarto elemento
                MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
                ' quinto elemento
                MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
                MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
                ' ---------------------------------------------------
                Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                '
                '
                Scrivi
If ambata(1)<> x Then
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numeri (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos. - Somma " & Fuori90(a + b) & " ambata+1 " & ambata(1),1,1,2,4,4,8
Else
 Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numeri (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos. - Somma " & Fuori90(a + b) & " ambata   " & ambata(1),1,1,2,4,4,8
End If
                '
                Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " numero (" & Format2(a) & Space(2) & Format2(b) & _
                ") in " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4,4,8
                '
                'Scrivi " " ,1,1,7,3,4,4,8
                '
                ImpostaGiocata 1,ambata,ruota,posta,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,ambo1,ruote,poste,k
                ImpostaGiocata 2,ambo2,ruote,poste,k
                Gioca es,1,,1
                Scrivi
                Scrivi String(55,"-")
                Scrivi
                Scrivi
                ImpostaGiocata 1,terzina,ruote,poste,k
                Gioca es,1,,1
            End If
            '  Next
            'Next
        Next
    Next
    Scrivi
    Scrivi "script di Zetrix",0,1,4,7,4,4,8
    Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
    Scrivi "white gold method",0,1,4,7,4,4,8
End Sub
saluti
Chiedo scusa innanzitutto , perché io credevo che avessi letto che Zetrix non lo sapeva fare e gli dava errore io di listati non ne capisco .......avevo chiesto di inserire la correzione nel listato tutto qui mi sono espresso male ti chiedo ancora le mie scuse basta ringraziare ..... adesso ho controllato e i calcoli .... mi riferisco sempre per il+1 in caso di presenza nell'estrazione del numero uguale dell'ambata con il+1 questo nuovo listato non fa tutto correttamente sono presenti numeri uguali nell'estrazione di calcolo e l'ambata non viene corretta ti ringrazio per il tuo lavora SCUSA e GRAZIE ANCORA.(y)
 

claudio8

Advanced Member >PLATINUM PLUS<
Chiedo scusa innanzitutto , perché io credevo che avessi letto che Zetrix non lo sapeva fare e gli dava errore io di listati non ne capisco .......avevo chiesto di inserire la correzione nel listato tutto qui mi sono espresso male ti chiedo ancora le mie scuse basta ringraziare ..... adesso ho controllato e i calcoli .... mi riferisco sempre per il+1 in caso di presenza nell'estrazione del numero uguale dell'ambata con il+1 questo nuovo listato non fa tutto correttamente sono presenti numeri uguali nell'estrazione di calcolo e l'ambata non viene corretta ti ringrazio per il tuo lavora SCUSA e GRAZIE ANCORA.(y)
Non ci siamo capiti, che sia io o altri, la questione sta nel dare a colui che si rende o si vorrebbe rendere disponibile a fare/modificare lo scrip il massimo delle indicazioni per risolvere eventuali errori relativi alla stesura del costrutto.
Ti invito a fare l'analisi dell'output dello script ed a segnalare gli specifici casi in cui tu trovi l'errore possibilmente inviando l'output specifico e non solo scrivendo "non fa tutto correttamente sono presenti numeri uguali nell'estrazione di calcolo e l'ambata non viene corretta" .
È ovvio che non ci si aspetta un analisi di output di centinaia di casi, ma l'identificazione di alcuni casi in cui si verifica l'errore che denunci.
saluti
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 01 ottobre 2022
    Bari
    67
    36
    58
    68
    33
    Cagliari
    05
    73
    86
    24
    53
    Firenze
    46
    38
    58
    55
    19
    Genova
    67
    79
    27
    39
    70
    Milano
    03
    64
    16
    36
    27
    Napoli
    76
    53
    48
    51
    58
    Palermo
    37
    44
    56
    77
    29
    Roma
    65
    54
    89
    37
    27
    Torino
    35
    31
    24
    53
    06
    Venezia
    31
    05
    82
    37
    45
    Nazionale
    32
    82
    49
    88
    43
    Estrazione Simbolotto
    23
    04
    22
    43
    29

Ultimi Messaggi

Alto