Novità

Per claudio8

rosce14

rosce14

Premium Member
BUON POMERIGGIO CLAUDIO, HO PROVATO LO SCRIPT CHE HAI FATTO X ME,
VOLEVO CHIEDERTI SE PUOI APPORTARE DELLE MODIFICHE, TIPO DA 9 COLPI A 15 E OLTRE L'AMBO DEVE EVIDENZIARE ANCHE IL TERNO, SEMPRE NELLE DECINE MATEMATICHE O NATURALI DA 1 A 10 ECC.
LO SCRIPT E' QUELLO DELL'AMBO UNITO, NUMERI CONSECUTIVI.


Sub Main()
Dim mt(4005,5),n(2),ru(1)
r = InputBox("Quale ruota","RUOTA",1)
a = InputBox("1° numero spia per AMBO",,15)
B = InputBox("2° numero spia per AMBO",,14)
cl = 10
rr = r
ru(1) = rr
ini = EstrazioneFin - 1500
fin = EstrazioneFin
cc = 0
For es = ini To fin
If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
cc = cc + 1
co = 0
dec = Decina(a)
deci = dec*10
'Scrivi "----" & deci
For i = 1 To 10
n(1) = i + Deci
For j = i + 1 To 10
n(2) = j + deci
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = n(2)
mt(co,4) = NomeRuota(rr)
fr = SerieFreq(es + 1,es + cl,n,ru,2)
mt(co,5) = mt(co,5) + fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Scrivi String(50,"-")
Scrivi " Ambo spia da analizzare : " & a & "-" & b
Scrivi String(50,"-")
ColoreTesto 2
Scrivi es & " - " & DataEstrazione(es) & " - " & NomeRuota(r) & " - " & StringaEstratti(es,r)
For z = es + 1 To es + cl
ColoreTesto 1
Scrivi z & " - " & DataEstrazione(z) & " - " & NomeRuota(rr) & " - " & StringaEstratti(z,rr)
Next
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ColoreTesto 0
End If
Next
OrdinaMatrice mt,- 2,5
Scrivi
Scrivi "AMBO SPIA " & Format2(a) & " - " & Format2(b) & " sulla ruota di " & NomeRuota(r)
Scrivi "Uscito " & cc & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi"-------------------------------------------------------"
Scrivi"Ambi formati con mumeri della stessa decina "
Scrivi"-------------------------------------------------------"
Scrivi
For xx = 1 To 9
Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & " " & mt(xx,4) & " " & mt(xx,5)
Next
End Sub
IN ATTESA DI RISPOSTA TI INVIO CARI SALUTI.:)
E TI RINGRAZIO PER IL TEMPO CHE MI DEDICHI.
 
Ciao Rosce14, anche se la richiesta è per claudio negli ultimi tempi assente dal forum e dal quale approfitto per un carissimo saluto, nonchè un invito a ritornare presto, lo script in questione lo avevo postato io.
Negli ultimi tempi ho un pò perso la dimestichezza nella stesura degli script però visto la tua richiesta mi sono messo a capirci qualcosa e nella speranza di esaudire la tua richiesta ho modificati il numero di colpi e messo anche i terni.

Prova a vedere se tutto ok.

Codice: 
Sub Main()
 Dim mt(4005,7),n(3),ru(1)
 r = InputBox("Quale ruota","RUOTA",1)
 a = InputBox("1° numero spia per AMBO",,15)
 B = InputBox("2° numero spia per AMBO",,14)
 cl = 15 ' colpi di gioco
 rr = r
 ru(1) = rr
 ini = EstrazioneFin - 2000
 fin = EstrazioneFin
 cc = 0
 ca = fin - Ini
 Scrivi String(80,"=")
 Scrivi"Ricerca numeri della stessa decina dopo ambo consecutivo",1,0,3
 Scrivi"    Listed By Mike58    ",1,- 1,2
 Scrivi String(80,"=")
 Scrivi "Su totale di " & ca & " Estrazioni ",1
 For es = ini To fin
  Call Messaggio("elaborazione estrazioni  " & es)
  Call AvanzamentoElab(Ini,fin,es)
  If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
   cc = cc + 1
   co = 0
   dec = Decina(a)
   deci = dec*10
   'Scrivi "----" & deci
   For i = 1 To 10
    n(1) = i + Deci
    For j = i + 1 To 10
     n(2) = j + deci
     For jj = j + 1 To 10
      n(3) = jj + deci
      co = co + 1
      mt(co,1) = co
      mt(co,2) = n(1)
      mt(co,3) = n(2)
      mt(co,4) = n(3)
      mt(co,5) = NomeRuota(rr)
      fr = SerieFreq(es + 1,es + cl,n,ru,2)
      mt(co,6) = mt(co,6) + fr
      fr1 = SerieFreq(es + 1,es + cl,n,ru,3)
      mt(co,7) = mt(co,7) + fr1
     Next
    Next
   Next
   'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
   ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   Scrivi String(50,"-")
   Scrivi "  Ambo spia da analizzare : " & a & "-" & b,1
   Scrivi String(50,"-")
   ColoreTesto 2
   Scrivi es & " - " & DataEstrazione(es) & " - " & NomeRuota(r) & " - " & StringaEstratti(es,r),1
   For z = es + 1 To es + cl
    ColoreTesto 1
    Scrivi z & " - " & DataEstrazione(z) & " - " & NomeRuota(rr) & " - " & StringaEstratti(z,rr)
   Next
   ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   ColoreTesto 0
  End If
 Next
 OrdinaMatrice mt,- 2,5
 Scrivi
 Scrivi"-------------------------------------------------------"
 ColoreTesto 2
 Scrivi "AMBO SPIA " & Format2(a) & "-" & Format2(b) & " sulla ruota di " & NomeRuota(r),1
 Scrivi "Uscito " & cc & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin),1
 Scrivi "Su totale di " & ca & " Estrazioni ",1
 ColoreTesto 0
 Scrivi"-------------------------------------------------------"
 Scrivi"Ambi formati con mumeri della stessa decina "
 Scrivi"-------------------------------------------------------"
 Scrivi
 For xx = 1 To 100
  If mt(xx,6) > 0 Then
   OrdinaMatrice mt,- 1,6
   Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & " " & " " & mt(xx,5) & " " & mt(xx,6)
  End If
 Next
 Scrivi"-------------------------------------------------------"
 Scrivi"Terni formati con mumeri della stessa decina "
 Scrivi"-------------------------------------------------------"
 Scrivi
 For xx = 1 To 100
  If mt(xx,7) > 0 Then
   OrdinaMatrice mt,- 1,7
   Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & " " & mt(xx,4) & " " & mt(xx,5) & " " & mt(xx,7)
  End If
 Next
End Sub
 
Aiuto correzione

Aiuto correzione

Tuttavia avevo realizzato un altro script simile con la funzione verifica esito, ma funziona solo nei casi che non ci sono ambi spia con i colpi in corso.
Se qualcuno ha voglia di capire perchè lo stesso script non debba funzionare nel caso citato mi darebbe un grosso aiuto.

P.S. fate una prova con ambo 51-52 del 8-3-2012 perchè in questo caso a me si impalla tutto.

Grazie a chi a voglio di aiutarmi.


Codice: 
Sub Main()
 Dim mt(4005,7),n(2),ru(1),anum(10),spia(2)
 r = InputBox("Quale ruota","RUOTA",1)
 a = InputBox("1° numero spia per AMBO",,15)
 B = InputBox("2° numero spia per AMBO",,14)
 cl = 15
 rr = r
 ru(1) = rr
 ini = EstrazioneFin - 2000
 fin = EstrazioneFin
 cc = 0
 Scrivi "               Listed by Mike58             ",1,- 1,3
 For es = ini To fin
  spia(1) = a
  spia(2) = b
  If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
   cc = cc + 1
   co = 0
   dec = Decina(a)
   deci = dec*10
   'Scrivi "----" & deci
   For i = 0 To 10
    n(1) = deci + i
    For j = i + 1 To 10
     n(2) = deci + j
     co = co + 1
     mt(co,1) = co
     mt(co,2) = n(1)
     mt(co,3) = n(2)
     mt(co,4) = NomeRuota(rr)
     fr = SerieFreq(es + 1,es + cl,n,ru,2)
     frr = SerieFreq(Ini,fin,n,ru,2)
     rt = SerieRitardo(Ini,fin,n,ru,2)
     mt(co,5) = mt(co,5) + fr
     mt(co,6) = mt(co,6) + frr
     mt(co,7) = rt
     anum(1) = deci + 1
     anum(2) = deci + 2
     anum(3) = deci + 3
     anum(4) = deci + 4
     anum(5) = deci + 5
     anum(6) = deci + 6
     anum(7) = deci + 7
     anum(8) = deci + 8
     anum(9) = deci + 9
     anum(10) = deci + 10
    Next
   Next
   Scrivi String(50,"-")
   Scrivi "     Ambo spia da analizzare : " & a & "-" & b,1
   Scrivi String(50,"-")
   ColoreTesto 2
   Scrivi "Clp - " & es & " - " & DataEstrazione(es) & " - " & NomeRuota(r) & " - " & StringaEstratti(es,r),1
   For z = es + 1 To es + cl
    ColoreTesto 1
    If SerieRitardo(z,z,anum,ru,2) = 0 Then ColoreTesto 7
    Call VerificaEsito(anum,ru,z,2,1,,retesito,retcolpi,retestratti,retidestr)' Then
    ca = z - es
    Scrivi Format2(ca) & "° - ",0,0
    Scrivi z & " - " & DataEstrazione(z) & " - " & NomeRuota(rr) & " - " & StringaEstratti(z,rr) & " ---> ",0,0
    Scrivi retestratti & " - " & retesito,1
    If ScriptInterrotto Then Exit For
   Next
   '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   ColoreTesto 0
  End If
 Next
 OrdinaMatrice mt,- 2,5
 Scrivi
 Scrivi String(60,"="),1
 Scrivi "AMBO SPIA " & Format2(a) & "-" & Format2(b) & " sulla ruota di " & NomeRuota(r),1
 Scrivi "Uscito " & cc & " volte dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
 Scrivi "Su " & fin - Ini & " Estrazioni esaminate ",1
 Scrivi"-----------------------------------------------------------"
 Scrivi"Ambi formati con mumeri della stessa decina ",1
 Scrivi"-----------------------------------------------------------"
 Scrivi
 ColoreTesto 1
 For xx = 1 To 100
  If mt(xx,5) > 0 Then
   OrdinaMatrice mt,- 1,5
   Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & " - " & mt(xx,4) & " [ " & mt(xx,5) & " ] Totali ambi " & Format2(mt(xx,6)),0,0
   Scrivi" - Ritarda da... " & mt(xx,7),1
  End If
 Next
End Sub
 
Ciao

Codice: 
Sub Main()
    Dim mt(4005,7),n(2),ru(1),anum(10),spia(2)
    r = InputBox("Quale ruota","RUOTA",1)
    a = InputBox("1° numero spia per AMBO",,15)
    B = InputBox("2° numero spia per AMBO",,14)
    cl = 15
    ru(1) = r
    ini = EstrazioneFin - 2000
    fin = EstrazioneFin
    cc = 0
    Scrivi "               Listed by Mike58             ",1,- 1,3
    For es = ini To fin
        spia(1) = a
        spia(2) = b
        If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
            cc = cc + 1
            co = 0
            dec = Decina(a)
            deci = dec * 10
            'Scrivi "----" & deci
            For i = 1 To 10
                n(1) = deci + i
                For j = i + 1 To 10
                    n(2) = deci + j
                    co = co + 1
                    fr = SerieFreq(es + 1,es + cl,n,ru,2)
                    frr = SerieFreq(Ini,fin,n,ru,2)
                    rt = SerieRitardo(Ini,fin,n,ru,2)
                    mt(co,1) = co
                    mt(co,2) = n(1)
                    mt(co,3) = n(2)
                    If fr > 0 Then mt(co,4) = mt(co,4) + 1
                    If frr > 0 Then mt(co,5) = mt(co,5) + frr
                    mt(co,6) = rt
                    anum(1) = deci + 1
                    anum(2) = deci + 2
                    anum(3) = deci + 3
                    anum(4) = deci + 4
                    anum(5) = deci + 5
                    anum(6) = deci + 6
                    anum(7) = deci + 7
                    anum(8) = deci + 8
                    anum(9) = deci + 9
                    anum(10) = deci + 10
                Next
            Next
            Scrivi String(50,"-")
            Scrivi "     Ambo spia da analizzare : " & a & "-" & b,1
            Scrivi String(50,"-")
            ColoreTesto 2
            Scrivi "Clp - " & es & " - " & DataEstrazione(es) & " - " & NomeRuota(r) & " - " & StringaEstratti(es,r),1
            w = es + cl
            If w > fin Then w = fin End If
            For z = es + 1 To w
                ColoreTesto 1
                If SerieRitardo(z,z,anum,ru,2) = 0 Then ColoreTesto 7
                Call VerificaEsito(anum,ru,z,2,1,,retesito,retcolpi,retestratti,retidestr)' Then
                ca = z - es
                Scrivi Format2(ca) & "° - ",0,0
                Scrivi z & " - " & DataEstrazione(z) & " - " & NomeRuota(r) & " - " & StringaEstratti(z,r) & " ---> ",0,0
                Scrivi retestratti & " - " & retesito,1
                If ScriptInterrotto Then Exit For
            Next
            '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
            ColoreTesto 0
        End If
    Next
    Scrivi
    Scrivi String(60,"="),1
    Scrivi "AMBO SPIA " & Format2(a) & "-" & Format2(b) & " sulla ruota di " & NomeRuota(r),1
    Scrivi "Uscito " & cc & " volte dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
    Scrivi "Su " & fin - Ini & " Estrazioni esaminate ",1
    Scrivi"-----------------------------------------------------------"
    Scrivi"Ambi formati con mumeri della stessa decina ",1
    Scrivi"-----------------------------------------------------------"
    Scrivi
    OrdinaMatrice mt,- 1,5
    ColoreTesto 1
    For xx = 1 To 100
        If mt(xx,4) > 0 Then
            Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & " - " & NomeRuota(r) & " [ " & mt(xx,4) & " ] Totali ambi " & Format2(mt(xx,5)),0,0
            Scrivi" - Ritarda da... " & mt(xx,6),1
        End If
    Next
End Sub

Un saluto
 
Ciao e buona domenica a tutti, ora con la correzione di mazuma per il quale ringrazio per la correzione dello script è possibile fondere i 2 script.
La correzione era sotto gli occhi e con una semplice istruzione
If w > fin Then w = fin End If
bravo mazuma.
Per rosce oggi cercherò di fondere e postare lo script rivisitato e corretto.

Per Claudio è un piacere averti sentito, ma ti assicuro che ci divertivamo di più con i tuoi interventi.

Un saluto a tutti.


 
mike58 ha scritto:
ciao rosce14, anche se la richiesta è per claudio negli ultimi tempi assente dal forum e dal quale approfitto per un carissimo saluto, nonchè un invito a ritornare presto, lo script in questione lo avevo postato io.
Negli ultimi tempi ho un pò perso la dimestichezza nella stesura degli script però visto la tua richiesta mi sono messo a capirci qualcosa e nella speranza di esaudire la tua richiesta ho modificati il numero di colpi e messo anche i terni.

Prova a vedere se tutto ok.

Codice: 
sub main()
 dim mt(4005,7),n(3),ru(1)
 r = inputbox("quale ruota","ruota",1)
 a = inputbox("1° numero spia per ambo",,15)
 b = inputbox("2° numero spia per ambo",,14)
 cl = 15 ' colpi di gioco
 rr = r
 ru(1) = rr
 ini = estrazionefin - 2000
 fin = estrazionefin
 cc = 0
 ca = fin - ini
 scrivi string(80,"=")
 scrivi"ricerca numeri della stessa decina dopo ambo consecutivo",1,0,3
 scrivi"    listed by mike58    ",1,- 1,2
 scrivi string(80,"=")
 scrivi "su totale di " & ca & " estrazioni ",1
 for es = ini to fin
  call messaggio("elaborazione estrazioni  " & es)
  call avanzamentoelab(ini,fin,es)
  if posizione(es,r,a) > 0 and posizione(es,r,b) > 0 then
   cc = cc + 1
   co = 0
   dec = decina(a)
   deci = dec*10
   'scrivi "----" & deci
   for i = 1 to 10
    n(1) = i + deci
    for j = i + 1 to 10
     n(2) = j + deci
     for jj = j + 1 to 10
      n(3) = jj + deci
      co = co + 1
      mt(co,1) = co
      mt(co,2) = n(1)
      mt(co,3) = n(2)
      mt(co,4) = n(3)
      mt(co,5) = nomeruota(rr)
      fr = seriefreq(es + 1,es + cl,n,ru,2)
      mt(co,6) = mt(co,6) + fr
      fr1 = seriefreq(es + 1,es + cl,n,ru,3)
      mt(co,7) = mt(co,7) + fr1
     next
    next
   next
   'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
   ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   scrivi string(50,"-")
   scrivi "  ambo spia da analizzare : " & a & "-" & b,1
   scrivi string(50,"-")
   coloretesto 2
   scrivi es & " - " & dataestrazione(es) & " - " & nomeruota(r) & " - " & stringaestratti(es,r),1
   for z = es + 1 to es + cl
    coloretesto 1
    scrivi z & " - " & dataestrazione(z) & " - " & nomeruota(rr) & " - " & stringaestratti(z,rr)
   next
   ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   coloretesto 0
  end if
 next
 ordinamatrice mt,- 2,5
 scrivi
 scrivi"-------------------------------------------------------"
 coloretesto 2
 scrivi "ambo spia " & format2(a) & "-" & format2(b) & " sulla ruota di " & nomeruota(r),1
 scrivi "uscito " & cc & " volte da " & dataestrazione(ini) & " a " & dataestrazione(fin),1
 scrivi "su totale di " & ca & " estrazioni ",1
 coloretesto 0
 scrivi"-------------------------------------------------------"
 scrivi"ambi formati con mumeri della stessa decina "
 scrivi"-------------------------------------------------------"
 scrivi
 for xx = 1 to 100
  if mt(xx,6) > 0 then
   ordinamatrice mt,- 1,6
   scrivi format2(mt(xx,2)) & " " & format2(mt(xx,3)) & " " & " " & mt(xx,5) & " " & mt(xx,6)
  end if
 next
 scrivi"-------------------------------------------------------"
 scrivi"terni formati con mumeri della stessa decina "
 scrivi"-------------------------------------------------------"
 scrivi
 for xx = 1 to 100
  if mt(xx,7) > 0 then
   ordinamatrice mt,- 1,7
   scrivi format2(mt(xx,2)) & " " & format2(mt(xx,3)) & " " & mt(xx,4) & " " & mt(xx,5) & " " & mt(xx,7)
  end if
 next
end sub
Clicca per espandere...

grazie mike58, ;)sei stato gentilissimo, non avevo dubbi, qui nel forum siete tutti gentili.

Mi sembra abbastanza completo.
E' bella la schermata finale degli ambi estratti, con i ritardi e le frequenze.

Non ho capito cosa volevi ottenere con l'altro script piu' sotto, quello dove hai chiesto aiuto e mazuma ha risposto, l'ho aperto e mi sembra uguale a quello che hai fatto.

Alla fine dello script, non c'e' il grafico dell'andamento, per me non e' molto importante,
volevo solo fare il confronto con quello di prima, dato che questo e' piu' completo dovrebbe essere meglio.

Se non ti viene difficile, per completare il mio studio, sarebbe interessante inglobare o fare un'altro scrpt, in caso di uscita di terni e quaterne in decina, non per forza uniti.

Adesso che posso dirti?:)

grazie,grazie e grazie!...
A risentirci presto e buona domenica.
 
Ciao Rosce, i 2 script fanno la stessa cosa solo che sul secondo c'è la verifica esito per ogni estrazione nei colpi di gioco, così da avere visione immediata dell'esito.
Solo che andava in errore se l'ambo spia era ancora con i colpi in corso e mazuma ha messo una ulteriore condizione per bloccare il calcolo all'ultima valida.
Vedrò di fondere i 2 script appena possibile anche perchè ci sono delle incongruenze di calcolo e devo capire dove!!!.
Ciao a presto appena smaltiamo il fuso orario.
 
Ciao

For i = 1 To 10
n(1) = deci + i
For j = i + 1 To 10
n(2) = deci + j
co = co + 1
w = es + cl
If w > fin Then w = fin End If
fr = SerieFreq(es + 1,w,n,ru,2)

qua sarebbe meglio introdurre quella riga

Un saluto
 
Ciao un saluto a tutti,si potrebbe avere il listato,dopo un ambo spia,solo gli estratti per ambata evidenziato come gli ambi.
Grazie siete fortissimi.
 
Ciao Antonio1, per fare quello che chiedi basta modificare la riga del verifica esito, dando come esito 1 per la sorte minima e verranno evidenziati estratti,ambi,e sorti superiori .

la riga e questa
Call VerificaEsito(anum,ru,z,1,1,,retesito,retcolpi,retestratti,retidestr) ' 1 = SORTE MINIMA ESTRATTO
 
Terni in decina

Terni in decina

Ciao Rosce per la tua ultima richiesta questo è quello che sono riuscito a fare la ricerca del terno in decina e giocare i numeri rimanenti della stessa.
Nel caso volessi giocare tutti i numeri della decina fai la spunta su questa riga.

If EstrattoRitardo(r,am(y),es,es) = 0 Then am(y) = 0' esclude i numeri cercati'

Ciao un saluto e fai le tue verifiche.






Codice: 
Sub Main()
 Dim rt(1),pt(2),am(10)
 estr = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",50))
 ini = EstrazioneFin - estr
 fin = EstrazioneFin
 ca = fin - Ini
 Scrivi String(110,"="),1
 Scrivi"Ricerca terno in Decina e gioca numeri della decina Rimanenti ",1,0,3
 Scrivi" Analisi su n° " & ca & " estrazioni ",1,0,2
 Scrivi" Listed by Mike58 ",1,- 1,6
 Scrivi String(110,"="),1
 For es = ini To fin
  Messaggio "Elaborazioni estrazioni.... " & es
  AvanzamentoElab Ini,fin,es
  For r = 1 To 12
   For p1 = 1 To 3
    For p2 = p1 + 1 To 4
     For p3 = p1 + 1 To 5
      a = Estratto(es,r,p1)
      b = Estratto(es,r,p2)
      c = Estratto(es,r,p3)
      If Decina(a) = Decina(b) Then
       If Decina(a) = Decina(c) Then
        If a <> b And a <> c And b <> c Then
         rt(1) = r
         pt(1) = 4
         pt(2) = 1
         k = 15 ' colpi
         '---------------------------------
         For y = 1 To 10
          x = Decina(a)*10
          x2 = y +(x)
          am(y) = x2
          If EstrattoRitardo(r,am(y),es,es) = 0 Then am(y) = 0' esclude i numeri cercati'
          Call StatisticaFormazione(am,rt,2,ritardo,ritardomax,Incrritmax,frequenza,Ini,fin)
         Next
         ImpostaGiocata 1,am,rt,pt,k
         co = co + 1
         Scrivi String(100,"=") & " Caso n° " & co,1
         ColoreTesto 7
         Scrivi DataEstrazione(es) & " " & NomeRuota(r) & " [ " & StringaEstratti(es,r) & " ] Terno in decina ",0,0
         Scrivi Format2(a) & "." & Format2(b) & "." & Format2(c),0,0
         Scrivi "    - Gioca i rimanenti della decina   ",1
         ColoreTesto 0
         Scrivi String(110,"="),1
         ColoreTesto 1
         Scrivi "Dati analitici della combinazione in gioco x ambo ---> " & "Ritardo : " & Ritardo & " - Ritardo max : " & ritardomax & " - Frequenza : " & Frequenza
         ColoreTesto 0
         Scrivi String(110,"-")
         Scrivi
         Gioca es
        End If
       End If
      End If
     Next
    Next
   Next
  Next
 Next
 ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 06 giugno 2025
    Bari
    40
    88
    30
    09
    66
    Cagliari
    76
    30
    05
    09
    70
    Firenze
    22
    67
    41
    85
    63
    Genova
    57
    23
    30
    89
    60
    Milano
    26
    45
    77
    70
    22
    Napoli
    01
    71
    32
    07
    41
    Palermo
    13
    11
    86
    34
    76
    Roma
    67
    81
    23
    72
    47
    Torino
    42
    73
    40
    61
    15
    Venezia
    90
    23
    22
    79
    34
    Nazionale
    34
    72
    33
    01
    53
    Estrazione Simbolotto
    Napoli
    20
    33
    17
    11
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto