Per claudio8

rosce14 · 24 Marzo 2012

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.

Mike58 · 24 Marzo 2012

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

Mike58 · 24 Marzo 2012

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

mazuma · 25 Marzo 2012

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

claudio8 · 25 Marzo 2012

Grazie Mike, contraccambio il saluto ed approfitto x farne uno generale.

Buon divertimento.

Mike58 · 25 Marzo 2012

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.

rosce14 · 25 Marzo 2012

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

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.

Mike58 · 25 Marzo 2012

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.

mazuma · 25 Marzo 2012

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

antonio1 · 26 Marzo 2012

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.

Mike58 · 26 Marzo 2012

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

Mike58 · 26 Marzo 2012

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

,es,es) = 0 Then am

= 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

antonio1 · 26 Marzo 2012

Grazie Mike58 sei fantastico!

Cerca

Cerca

Per claudio8

rosce14

Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

mazuma

Member

claudio8

Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

rosce14

Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

mazuma

Member

antonio1

Senior Member

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

antonio1

Senior Member

Ultima estrazione Lotto

Ultimi Messaggi