Metodo: due ambi a ruota con la 45

LUNARES · 26 Novembre 2014

elmiki ha scritto:
ciao sto guardando alla mia maniera le estrazioni anche se ci lascio giù un po di vista... ho guardato solo quelle negative

10/6/14 (35-80 mi) ha dato 61-13-19 terno al 19 colpo
22/4/14 (39-84 ca) ha dato 87-39 al 26 colpo
15/4/14 (12-57 ve) ha dato 33-75 al 23 colpo

le altre mi sembrano negative

poi ho provato ad aggiungere un ambata essendo ruota singola ho visto che escono molte volte praticamente aggiungo la dist 45 dell ambata base però non mi piace
a mio avviso essendo giocate super ristrette 1 ambata a ruota e due ambi a ruota SINGOLA ci può stare che qualche ambo superi le 20 estrazioni il pericolo è nell incappare nella previsione che non dà esito...

quel terno al 19 colpo è chiaro e lampante che sia stato generato dala 35-80 di milano del 10/6/14 spero che qulache previsione ripeta il terno.

buona serata a tutti

SCUSA UNA COSA NON VORREI AVER CAPITO MALE ANZI MALISSIMO SE TU PRENDI UN AMBO DI PARTENZA ESEMPIO 6 51 DOVREBBE DARE SEMPRE LA STESSA PREVISIONE 12 AMBATA E 63 51 ABBINAMENTI è CORRETTO? IDEM 51 6 E PER TUTTE LE VOLTE CHE SORTIRANNO GIUSTO?

Mike58 · 26 Novembre 2014

LUNARES ha scritto:
MIKE ho notato una cosa assai strana.......se prendo lo script sempre pasSando per gestione script i calcoli che vengono fuori da alcuni ambi sono differenti esempio ambo 6 51 mi tira fuori previsione di ambata una volta 84 una volta 64 una volta 39 e se invece prendo lo script lo incollo passando ovviamente per gestione script ma senza salvarlo lo lancio direttamente fa ancora calcoli diversi OVVERO LO STESSO AMBO GENERA UN AMBATA DIVERSA.. PAZZESCO...CHE PUO ESSERE? SE NON HO CAPITO MALE COME FUNZIONA IL METODO...AIUTOOOOOOOOOOOOOOOOOOOOOOOOOOOO

21.08.2014 PA 51.06.76.17.05 51.6 1° 2° 21 --> 60.63 Estratto 5° PA .. .. .. 21 .. 02.09.2014 15

16.09.2014 FI 17.51.06.74.22 51.6 2° 3° 15 --> 54.63 Estratto 16° FI .. .. 15 .. .. 23.10.2014 12
08.04.2014 CA 47.84.06.51.01 6.51 3° 4° 84 --> 33.63 Estratto 6° CA .. 84 .. .. .. 22.04.2014 40
03.04.2014 FI 84.61.75.06.51 6.51 4° 5° 84 --> 33.63 Estratto 10° FI .. .. .. 84 .. 26.04.2014 41

i calcoli esatti sono questi

[TD="bgcolor: #ffffff, align: center"] 16.09.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] FI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 17.51.06.74.22 [/TD]
[TD="bgcolor: #afefad, align: center"] 51.6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 12 --> 51.63 [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 9° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] FI 12 .. .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] 07.10.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 12 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] 06.09.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] VE [/TD]
[TD="bgcolor: #fcedf0, align: center"] 09.12.53.08.68 [/TD]
[TD="bgcolor: #afefad, align: center"] 53.8 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° 4° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 12 --> 51.63 [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 1° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] VE .. .. .. .. 12 [/TD]
[TD="bgcolor: #ffffff, align: center"] 09.09.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 13 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] 28.08.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] CA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 29.32.63.18.88 [/TD]
[TD="bgcolor: #afefad, align: center"] 63.18 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° 4° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 27 --> 69.75 [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 12° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] CA .. .. .. .. 27 [/TD]
[TD="bgcolor: #ffffff, align: center"] 25.09.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 14 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]

[TD="bgcolor: #ffffff, align: center"] 21.08.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] PA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 51.06.76.17.05 [/TD]
[TD="bgcolor: #afefad, align: center"] 51.6 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1° 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 12 --> 51.63 [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 16° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] PA .. .. 12 .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] 27.09.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 15 [/TD]

verifica se hai attivo tutto l'archivio

elmiki · 26 Novembre 2014

LUNARES ha scritto:
SCUSA UNA COSA NON VORREI AVER CAPITO MALE ANZI MALISSIMO SE TU PRENDI UN AMBO DI PARTENZA ESEMPIO 6 51 DOVREBBE DARE SEMPRE LA STESSA PREVISIONE 12 AMBATA E 63 51 ABBINAMENTI è CORRETTO? IDEM 51 6 E PER TUTTE LE VOLTE CHE SORTIRANNO GIUSTO?

Esatto però sembra assurdo ma un ambo dist 45 può presentarsi su una ruota anche dopo diversi anni.

Mike58 · 26 Novembre 2014

Senza voler snaturare il Metodo di elmiki, solo perché salvando lo script rimangono sformattati gli operatori logici e quindi al loro riavvio vanno in errore, ho corretto il calcolo di questi operatori => con <= e aggiunto la verifica ambo in terzina su Tutte.

Codice:

Sub Main()
'cerca numero isotopo su 2 ruote consecutive
Scrivi"Listato per ricerca Ambo distanza Diametrale e Unito  su 1 Ruote  ",True,False,2,4,3
Scrivi" **** Metodo elmiki ***** ",True,False,4,2,3
Scrivi" **** Script in Tabella by Mike58 ***** ",True,True,3,1,3
Scrivi "                          ***************** Forum LottoCed *** Sezione Metodi **************************             ",1,1,,1,3
Dim k(10),nu(2),ka(4)
Dim ruote(2)
Dim posta(5)
Dim poste(5)
posta(1) = 3
poste(2) = 1.5
poste(3) = .5
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
ReDim at(13)
at(1) = " Data Estrazione "
at(2) = " Ruota "
at(3) = " estratti "
at(4) = " Numero iso "
at(5) = " Posiz. "
at(6) = " Stringa Numeri "
at(7) = " Esito "
at(8) = " colpo "
at(9) = " R_estratti "
at(10) = " Data Esito "
at(11) = " casi "
at(12) = " Ambi Tutte "
at(13) = " Colpi TT "
Call InitTabella(at,1,,2,5)
For es = fin To Ini Step - 1
Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
'r2 = r1 + 1
'If r2 = 11 Then r2 = 12
For p1 = 1 To 4
p2 = p1 + 1 'To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
'If Gemello(n1) = True And Gemello(n2) = True And n1 <> n2 Then ' numero = numero
If Distanza(n1,n2) = 45 Then
co = co + 1
ColoreTesto 0
ruote(1) = r1
'ruote(2) = r2
nu(1) = n1
nu(2) = n2

'--------- Calcolo Numeri da mettere in gioco-------------
'x1 = Decina(n1)
'For y = 1 To 10
'x = x1*10
'x2 = y +(x)
'k(y) = y +(x)
'Next
fig = Figura(n1)
'---------------------------------------------------------
If fig <= 3 Then kk1 = Fuori90(n1 + 3)
If fig <= 3 Then kk2 = Fuori90(n2 + 3)
If fig <= 3 Then kk3 = Fuori90(n1 + 6)
If fig <= 3 Then kk4 = Fuori90(n2 + 6)

If fig >= 4 And fig <= 6 Then kk1 = Fuori90(n1 - 3)
If fig >= 4 And fig <= 6 Then kk2 = Fuori90(n2 - 3)
If fig >= 4 And fig <= 6 Then kk3 = Fuori90(n1 + 3)
If fig >= 4 And fig <= 6 Then kk4 = Fuori90(n2 + 3)

If fig >= 7 And fig <= 9 Then kk1 = Fuori90(n1 - 6)
If fig >= 7 And fig <= 9 Then kk2 = Fuori90(n2 - 6)
If fig >= 7 And fig <= 9 Then kk3 = Fuori90(n1 - 3)
If fig >= 7 And fig <= 9 Then kk4 = Fuori90(n2 - 3)






kn1 = Fuori90(kk1 + kk2) ' somma ambi 1
kn2 = Fuori90(kk3 + kk4) ' somma ambi 2
kn3 = Fuori90(kk1 + kk3)
kn4 = Fuori90(kk2 + kk4)
k(1) = kn3'Decina(n1) + Cadenza(n1)
ka(2) = kn1'Decina(n2) + Cadenza(n2)
ka(3) = kn2'Decina(n1) + Decina(n2)
ka(4) = kn4'Cadenza(n1) + Cadenza(n2)
'k(5) = Fuori90(k(3) + k(4))
'k(6) = Diametrale(k(4))
EliminaRipetuti(k)
Call VerificaEsito(k,ruote,es + 1,1,18,Nothing,esito,colpi,estratti,id)
Call VerificaEsito(ka,ruote,es + 1,2,18,Nothing,esito2,colpi2,estratti2,id2)
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
Call VerificaEsito(ka,rt,es+1,2,18,,esitoTT,clpTT,estrattiTT,idTT)
Next
ReDim av(13)
av(1) = DataEstrazione(es)
av(2) = SiglaRuota(r1)' & " - " & SiglaRuota(r2)
av(3) = StringaEstratti(es,r1) '& " - " & StringaEstratti(es,r2)
av(4) = StringaNumeri(nu)
av(5) = p1 & "° " & p2 & "°"
av(6) = Format2(kn3) & " --> " & Format2(kn1) & "." & Format2(kn2)'StringaNumeri(k,,True)
If esito <> "" Then av(7) = esito
If esito2 <> "" Then av(7) = esito2

If esito <> "" Then av(8) = colpi & "°"
If esito2 <> "" Then av(8) = colpi2 & "°"

If esito <> "" Then av(9) = estratti
If esito2 <> "" Then av(9) = estratti2

If esito <> "" Then av(10) = DataEstrazione(id)
If esito2 <> "" Then av(10) = DataEstrazione(id2)
'If esito = "" And colpi > 10 Then av(10) = " Negativo "
'If esito = "" And colpi <= 10 Then av(10) = " In corso "
av(11) = co
av(12) = estrattiTT
av(13) = clpTT
Call AddRigaTabella(av,,,2,,"arial black")
Call SetColoreCella(2,RGB(175,174,222),5)
Call SetColoreCella(3,RGB(252,237,240),0)
Call SetColoreCella(6,RGB(164,242,249),0)
Call SetColoreCella(4,RGB(175,239,173),0)
Call SetColoreCella(9,RGB(236,200,176),2)
If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(10,4,1)
' ---------------- calcolo colpi -------------------------
If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
If esito <> "" And colpi > 0 And colpi < 11 Then clptot = clptot + 1
If esito = "" And colpi < 11 Then clpcorso = clpcorso + 1
If colpi >= 7 Then clp11 = clp11 + 1
'---------------------------------------------------------
End If
Next
'Next
Next
Next
Call SetTableWidth("100%")

CreaTabella()
ReDim att(14)
att(1) = " Colpo 1 "
att(2) = " Colpo 2 "
att(3) = " Colpo 3 "
att(4) = " Colpo 4 "
att(5) = " Colpo 5 "
att(6) = " Colpo 6 "
att(7) = " Colpo 7 "
att(8) = " Colpo 8 "
att(9) = " Colpo 9 "
att(10) = " Colpo 10 "
att(11) = " Totali casi "
att(12) = " Casi positivi "
att(13) = " Casi Negativi "
att(14) = " Casi in corso "
Call InitTabella(att,2,,3,4)
ReDim avv(14)
avv(1) = clp1
avv(2) = clp2
avv(3) = clp3
avv(4) = clp4
avv(5) = clp5
avv(6) = clp6
avv(7) = clp7
avv(8) = clp8
avv(9) = clp9
avv(10) = clp10
avv(11) = co
avv(12) = clptot'(clp1+clp2+clp3+clp4+clp5+clp6+clp7+clp8+clp9+clp10)
avv(13) = clp11
avv(14) = clpcorso
Call AddRigaTabella(avv,4,,3,2)
Call SetTableWidth("100%")
Call CreaTabella()
'Scrivi
End Sub

LUNARES · 26 Novembre 2014

GRANDE MIKE GRAZIE ORA FUNGE A PERFEZIONE I CONTI TORNANO... non mi tornano i conti con la lottomatica e li mi sa che la vedo dura..

elmiki · 27 Novembre 2014

ciao a tutti consiglio vivamente la condizione di genova del 4/11/14 numeri in gioco 63/21-15 okkio ho una convergenza forte!!!

elmiki · 29 Novembre 2014

porto su!!

le tre previsioni a ruota secca sono:

ge 63/21-15 (questa mi piace tanto)
ba 51/3-9 (questa pure)
ve 80/29-41

elmiki · 11 Dicembre 2014

Dopo le ambate 51 Ba e 80 ve
stasera ambo 65-17 Firenze (dalla 73-28 del29/11/14)
Chi ha lo script dovrebbe confermarvelo.

Mike58 · 11 Dicembre 2014

ecco la conferma elmiki

Listato per ricerca Ambo distanza Diametrale e Unito su 1 Ruote **** Metodo elmiki ***** **** Script in Tabella by Mike58 *****
***************** Forum LottoCed *** Sezione Metodi **************************

[TD="bgcolor: #0000ff, align: center"] Data Estrazione [/TD]
[TD="bgcolor: #0000ff, align: center"] Ruota [/TD]
[TD="bgcolor: #0000ff, align: center"] estratti [/TD]
[TD="bgcolor: #0000ff, align: center"] Numero iso [/TD]
[TD="bgcolor: #0000ff, align: center"] Posiz. [/TD]
[TD="bgcolor: #0000ff, align: center"] Stringa Numeri [/TD]
[TD="bgcolor: #0000ff, align: center"] Esito [/TD]
[TD="bgcolor: #0000ff, align: center"] colpo [/TD]
[TD="bgcolor: #0000ff, align: center"] R_estratti [/TD]
[TD="bgcolor: #0000ff, align: center"] Data Esito [/TD]
[TD="bgcolor: #0000ff, align: center"] casi [/TD]
[TD="bgcolor: #0000ff, align: center"] Ambi Tutte [/TD]
[TD="bgcolor: #0000ff, align: center"] Colpi TT [/TD]

[TD="bgcolor: #ffffff, align: center"] 11.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] MI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 68.83.38.40.37 [/TD]
[TD="bgcolor: #afefad, align: center"] 83.38 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 85 --> 37.43 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 [/TD]

[TD="bgcolor: #ffffff, align: center"] 09.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] BA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 72.27.62.60.51 [/TD]
[TD="bgcolor: #afefad, align: center"] 72.27 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1° 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 45 --> 87.03 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]

[TD="bgcolor: #ffffff, align: center"] 09.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] MI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 52.07.83.23.68 [/TD]
[TD="bgcolor: #afefad, align: center"] 52.7 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1° 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 05 --> 47.53 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]

[TD="bgcolor: #ffffff, align: center"] 09.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] MI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 52.07.83.23.68 [/TD]
[TD="bgcolor: #afefad, align: center"] 23.68 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4° 5° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 46 --> 85.07 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]

[TD="bgcolor: #ffffff, align: center"] 29.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] FI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 45.73.28.59.09 [/TD]
[TD="bgcolor: #afefad, align: center"] 73.28 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 65 --> 17.23 [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 5° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] FI 65 .. .. 17 .. [/TD]
[TD="bgcolor: #ffff00, align: center"] 11.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]
[TD="bgcolor: #ffffff, align: center"] FI 65 .. .. 17 .. [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]

[TD="bgcolor: #ffffff, align: center"] 29.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] MI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 74.29.78.07.40 [/TD]
[TD="bgcolor: #afefad, align: center"] 74.29 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1° 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 67 --> 19.25 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]

[TD="bgcolor: #ffffff, align: center"] 22.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] BA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 21.66.58.26.45 [/TD]
[TD="bgcolor: #afefad, align: center"] 21.66 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1° 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 51 --> 03.09 [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 7° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] BA .. .. .. .. 51 [/TD]
[TD="bgcolor: #ffffff, align: center"] 09.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 7 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]

[TD="bgcolor: #ffffff, align: center"] 22.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] VE [/TD]
[TD="bgcolor: #fcedf0, align: center"] 48.78.74.85.40 [/TD]
[TD="bgcolor: #afefad, align: center"] 85.40 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4° 5° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 80 --> 29.41 [/TD]
[TD="bgcolor: #ffffff, align: center"] Estratto [/TD]
[TD="bgcolor: #ffffff, align: center"] 6° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] VE .. .. .. 80 .. [/TD]
[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]

[TD="bgcolor: #ffffff, align: center"] 13.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] VE [/TD]
[TD="bgcolor: #fcedf0, align: center"] 73.28.75.06.41 [/TD]
[TD="bgcolor: #afefad, align: center"] 73.28 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1° 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 65 --> 17.23 [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 5° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] VE .. .. 65 .. 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] 25.11.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]
[TD="bgcolor: #ffffff, align: center"] VE .. .. 65 .. 17 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]

Mike58 · 11 Dicembre 2014

da altro tuo metodo ecco un altro ambo.

Bravo

Listato per ricerca Numero distanza Diametrale e iso su 2 Ruote

[TD="bgcolor: #0000ff, align: center"] Data Estrazione [/TD]
[TD="bgcolor: #0000ff, align: center"] Ruota [/TD]
[TD="bgcolor: #0000ff, align: center"] estratti [/TD]
[TD="bgcolor: #0000ff, align: center"] Numero iso [/TD]
[TD="bgcolor: #0000ff, align: center"] Posiz. [/TD]
[TD="bgcolor: #0000ff, align: center"] Stringa Numeri [/TD]
[TD="bgcolor: #0000ff, align: center"] Esito [/TD]
[TD="bgcolor: #0000ff, align: center"] colpo [/TD]
[TD="bgcolor: #0000ff, align: center"] R_estratti [/TD]
[TD="bgcolor: #0000ff, align: center"] Data Esito [/TD]
[TD="bgcolor: #0000ff, align: center"] casi [/TD]

[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] FI - GE [/TD]
[TD="bgcolor: #fcedf0, align: center"] 62.67.75.01.20 - 83.19.30.50.09 [/TD]
[TD="bgcolor: #afefad, align: center"] 75.30 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 03.05.10.12.15 [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] GE 15 05 .. .. .. [/TD]
[TD="bgcolor: #ffff00, align: center"] 11.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]

[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] RO - TO [/TD]
[TD="bgcolor: #fcedf0, align: center"] 02.80.45.15.71 - 05.76.75.24.26 [/TD]
[TD="bgcolor: #afefad, align: center"] 71.26 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 07.08.09.16 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]

[TD="bgcolor: #ffffff, align: center"] 04.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] NA - PA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 17.16.08.06.58 - 17.61.41.37.67 [/TD]
[TD="bgcolor: #afefad, align: center"] 16.61 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 07.14 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]

[TD="bgcolor: #ffffff, align: center"] 27.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] BA - CA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 40.67.03.10.69 - 46.02.48.44.82 [/TD]
[TD="bgcolor: #afefad, align: center"] 3.48 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 03.04.11.12.15 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 6° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]

[TD="bgcolor: #ffffff, align: center"] 27.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] GE - MI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 58.14.07.40.36 - 32.09.71.67.81 [/TD]
[TD="bgcolor: #afefad, align: center"] 36.81 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 07.09.11.18 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 6° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 5 [/TD]

[TD="bgcolor: #ffffff, align: center"] 25.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] FI - GE [/TD]
[TD="bgcolor: #fcedf0, align: center"] 33.50.20.03.87 - 90.60.65.76.70 [/TD]
[TD="bgcolor: #afefad, align: center"] 20.65 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 02.05.08.11.13 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 7° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 6 [/TD]

[TD="bgcolor: #ffffff, align: center"] 22.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] MI - NA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 88.87.46.21.02 - 83.34.01.58.37 [/TD]
[TD="bgcolor: #afefad, align: center"] 46.1 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 01.04.07.10.11 [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 6° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] MI .. 11 .. .. 01 [/TD]
[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 7 [/TD]

[TD="bgcolor: #ffffff, align: center"] 20.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] GE - MI [/TD]
[TD="bgcolor: #fcedf0, align: center"] 38.20.84.86.07 - 60.65.51.20.11 [/TD]
[TD="bgcolor: #afefad, align: center"] 20.65 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 02.05.08.11.13 [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 5° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] MI 02 08 .. .. .. [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 8 [/TD]

[TD="bgcolor: #ffffff, align: center"] 11.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] FI - GE [/TD]
[TD="bgcolor: #fcedf0, align: center"] 15.48.13.32.81 - 03.78.49.77.74 [/TD]
[TD="bgcolor: #afefad, align: center"] 32.77 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 05.09.10.14.19 [/TD]
[TD="bgcolor: #ffffff, align: center"] Ambo [/TD]
[TD="bgcolor: #ffffff, align: center"] 11° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] GE .. 19 .. .. 09 [/TD]
[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 9 [/TD]

[TD="bgcolor: #ffffff, align: center"] 08.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] NA - PA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 10.07.52.12.50 - 09.52.17.04.24 [/TD]
[TD="bgcolor: #afefad, align: center"] 7.52 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 05.07.09.14 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 11° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] Negativo [/TD]
[TD="bgcolor: #ffffff, align: center"] 10 [/TD]

Carletto · 11 Dicembre 2014

Mi presento, sono nuovo del Forum, mi chiamo Carletto, davo un' occhiata a quel 4nov'14 di Ge con i Numeri 63.15.21 secondo te Elmiki è ancora da ritenere valido?, gli esiti negli ultimi 4 mesi non sono mai andati oltre il 12° colpo, Grazie per la risposta

elmiki · 12 Dicembre 2014

Ciao Carletto non so cosa consigliarti io la continuo

X mike si quel metodo si sommano le cifre a volte paga bene.

Guarda questo :

27 /11/14
ba 3
Ca 48

03+33+63=09
48+78+18=54
-----------------------
51..21..81
ba-ca 9-54/51-21-81

2 colpo terno ca 9-54-21

skygirl · 12 Dicembre 2014

Mike58 ha scritto:
da altro tuo metodo ecco un altro ambo.

Bravo

Listato per ricerca Numero distanza Diametrale e iso su 2 Ruote

......

Ciao Mike58 mi puoi indicare il link allo script - Listato per ricerca Numero distanza Diametrale e iso su 2 Ruote

Grazie

skygirl · 12 Dicembre 2014

elmiki ha scritto:
X mike si quel metodo si sommano le cifre a volte paga bene.

Guarda questo :

27 /11/14
ba 3
Ca 48

03+33+63=09
48+78+18=54
-----------------------
51..21..81
ba-ca 9-54/51-21-81

2 colpo terno ca 9-54-21

Scusa non riesco a trovare lo script del metodo di cui parli

elmiki · 12 Dicembre 2014

skygirl ha scritto:
Scusa non riesco a trovare lo script del metodo di cui parli

http://forum.lottoced.com/f8/metodo-distanza-45-isotopa-113740/

questo è il link per lo script penso devi chiedere a mike 58

Mike58 · 12 Dicembre 2014

Eccolo skygirl, dovrebbe essere questo

Codice:

Sub Main()
	
	Scrivi"Listato per ricerca Numero distanza Diametrale e iso  su 2 Ruote  ",True,False,2,4,3
	Scrivi" **** Metodo elmiki ***** ",True,False,4,2,3
	Scrivi" **** Script in Tabella by Mike58 ***** ",True,True,3,1,3
	Scrivi "                          ****************** Forum LottoCed **** Sezione metodi ****************             ",1,1,,1,3
	Dim k(10),nu(2)
	Dim ruote(2)
	Dim posta(5)
	Dim poste(5)
	posta(1) = 3
	poste(2) = 1.5
	poste(3) = .5
	tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
	co = 0
	ini = EstrazioneFin - tmp
	fin = EstrazioneFin
	ReDim at(11)
	at(1) = " Data Estrazione "
	at(2) = " Ruota "
	at(3) = " estratti "
	at(4) = " Numero iso "
	at(5) = " Posiz. "
	at(6) = " Stringa Numeri "
	at(7) = " Esito "
	at(8) = " colpo "
	at(9) = " R_estratti "
	at(10) = " Data Esito "
	at(11) = " casi "
	Call InitTabella(at,1,,3,5)
	For es = fin To Ini Step - 1
		Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			r2 = r1 + 1
			If r2 = 11 Then r2 = 12
			For p1 = 1 To 5
				n1 = Estratto(es,r1,p1)
				n2 = Estratto(es,r2,p1)
				'If Gemello(n1) = True And Gemello(n2) = True And n1 <> n2 Then ' numero = numero
				If Distanza(n1,n2) = 45 Then
					co = co + 1
					ColoreTesto 0
					ruote(1) = r1
					ruote(2) = r2
					nu(1) = n1
					nu(2) = n2
					
					'--------- Calcolo Numeri da mettere in gioco-------------
					'x1 = Decina(n1)
					'For y = 1 To 10
						'x = x1*10
						'x2 = y +(x)
						'k(y) = y +(x)
					'Next
					'---------------------------------------------------------
					k(1) = Decina(n1) + Cadenza(n1)
					k(2) = Decina(n2) + Cadenza(n2)
					k(3) = Decina(n1) + Decina(n2)
					k(4) = Cadenza(n1) + Cadenza(n2)
					k(5) = Fuori90(k(3) + k(4))
					'k(6) = Diametrale(k(4))
					EliminaRipetuti(k)
					Call VerificaEsito(k,ruote,es + 1,2,11,Nothing,esito,colpi,estratti,id)
					ReDim av(11)
					av(1) = DataEstrazione(es)
					av(2) = SiglaRuota(r1) & " - " & SiglaRuota(r2)
					av(3) = StringaEstratti(es,r1) & " - " & StringaEstratti(es,r2)
					av(4) = StringaNumeri(nu)
					av(5) = p1 & "°"
					av(6) = StringaNumeri(k,,True)
					av(7) = esito
					av(8) = colpi & "°"
					av(9) = estratti
					If esito <> "" Then av(10) = DataEstrazione(id)
					If esito = "" And colpi > 10 Then av(10) = " Negativo "
					If esito = "" And colpi <= 10 Then av(10) = " In corso "
					av(11) = co
					Call AddRigaTabella(av,,,3,,"arial black")
					Call SetColoreCella(2,RGB(175,174,222),5)
					Call SetColoreCella(3,RGB(252,237,240),0)
					Call SetColoreCella(6,RGB(164,242,249),0)
					Call SetColoreCella(4,RGB(175,239,173),0)
					Call SetColoreCella(9,RGB(236,200,176),2)
If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(10,4,1)
					' ---------------- calcolo colpi -------------------------
					If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
					If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
					If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
					If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
					If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
					If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
					If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
					If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
					If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
					If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
					If esito <> "" And colpi > 0 And colpi < 11 Then clptot = clptot + 1
					If esito = "" And colpi < 11 Then clpcorso = clpcorso + 1
					If colpi >= 7 Then clp11 = clp11 + 1
					'---------------------------------------------------------
				End If
			Next
			'Next
		Next
	Next
	Call SetTableWidth("100%")

	CreaTabella()
	ReDim att(14)
	att(1) = " Colpo 1 "
	att(2) = " Colpo 2 "
	att(3) = " Colpo 3 "
	att(4) = " Colpo 4 "
	att(5) = " Colpo 5 "
	att(6) = " Colpo 6 "
	att(7) = " Colpo 7 "
	att(8) = " Colpo 8 "
	att(9) = " Colpo 9 "
	att(10) = " Colpo 10 "
	att(11) = " Totali casi "
	att(12) = " Casi positivi "
	att(13) = " Casi Negativi "
	att(14) = " Casi in corso "
	Call InitTabella(att,2,,3,4)
	ReDim avv(14)
	avv(1) = clp1
	avv(2) = clp2
	avv(3) = clp3
	avv(4) = clp4
	avv(5) = clp5
	avv(6) = clp6
	avv(7) = clp7
	avv(8) = clp8
	avv(9) = clp9
	avv(10) = clp10
	avv(11) = co
	avv(12) = clptot'(clp1+clp2+clp3+clp4+clp5+clp6+clp7+clp8+clp9+clp10)
	avv(13) = clp11
	avv(14) = clpcorso
	Call AddRigaTabella(avv,4,,3,2)
	Call SetTableWidth("100%")
	Call CreaTabella()
	'Scrivi
End Sub

Mike58 · 12 Dicembre 2014

X mike si quel metodo si sommano le cifre a volte paga bene.

Guarda questo :

27 /11/14
ba 3
Ca 48

03+33+63=09
48+78+18=54
-----------------------
51..21..81
ba-ca 9-54/51-21-81

2 colpo terno ca 9-54-21

fatto al volo se non ho sbagliato qualcosa questo è l'altro script.

Codice:

Sub Main()
    
    Scrivi"Listato per ricerca Numero distanza Diametrale e iso  su 2 Ruote  ",True,False,2,4,3
    Scrivi" **** Metodo elmiki ***** ",True,False,4,2,3
    Scrivi" **** Script in Tabella by Mike58 ***** ",True,True,3,1,3
    Scrivi "                          ****************** Forum LottoCed **** Sezione metodi ****************             ",1,1,,1,3
    Dim k(10),nu(2)
    Dim ruote(2)
    Dim posta(5)
    Dim poste(5)
    posta(1) = 3
    poste(2) = 1.5
    poste(3) = .5
    tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
    co = 0
    ini = EstrazioneFin - tmp
    fin = EstrazioneFin
    ReDim at(11)
    at(1) = " Data Estrazione "
    at(2) = " Ruota "
    at(3) = " estratti "
    at(4) = " Numero iso "
    at(5) = " Posiz. "
    at(6) = " Stringa Numeri "
    at(7) = " Esito "
    at(8) = " colpo "
    at(9) = " R_estratti "
    at(10) = " Data Esito "
    at(11) = " casi "
    Call InitTabella(at,1,,3,5)
    For es = fin To Ini Step - 1
        Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 10
            r2 = r1 + 1
            If r2 = 11 Then r2 = 12
            For p1 = 1 To 5
                n1 = Estratto(es,r1,p1)
                n2 = Estratto(es,r2,p1)
                'If Gemello(n1) = True And Gemello(n2) = True And n1 <> n2 Then ' numero = numero
                If Distanza(n1,n2) = 45 Then
                    co = co + 1
                    ColoreTesto 0
                    ruote(1) = r1
                    ruote(2) = r2
                    nu(1) = n1
                    nu(2) = n2
                    
                    '--------- Calcolo Numeri da mettere in gioco-------------
                    'x1 = Decina(n1)
                    'For y = 1 To 10
                        'x = x1*10
                        'x2 = y +(x)
                        'k(y) = y +(x)
                    'Next
                    '---------------------------------------------------------
                    a = Fuori90(n1+90)
                    b = Fuori90(n1+30)
                    c = Fuori90(n1+60)
                    a1 = Fuori90(n2+90)
                    b1 = Fuori90(n2+30)
                    c1 = Fuori90(n2+60)
                    aa = Fuori90(a+a1)
                    bb = Fuori90(b+b1)
                    cc = Fuori90(c+c1)
                    k(1) = Fuori90(a+b+c)
                    k(2) = Fuori90(a1+b1+c1)
                    k(3) = aa
                    k(4) = bb
                    k(5) = cc
                    'k(6) = c1
                    
                    EliminaRipetuti(k)
                    Call VerificaEsito(k,ruote,es + 1,2,11,Nothing,esito,colpi,estratti,id)
                    ReDim av(11)
                    av(1) = DataEstrazione(es)
                    av(2) = SiglaRuota(r1) & " - " & SiglaRuota(r2)
                    av(3) = StringaEstratti(es,r1) & " - " & StringaEstratti(es,r2)
                    av(4) = StringaNumeri(nu)
                    av(5) = p1 & "°"
                    av(6) = StringaNumeri(k,,True)
                    av(7) = esito
                    av(8) = colpi & "°"
                    av(9) = estratti
                    If esito <> "" Then av(10) = DataEstrazione(id)
                    If esito = "" And colpi > 10 Then av(10) = " Negativo "
                    If esito = "" And colpi <= 10 Then av(10) = " In corso "
                    av(11) = co
                    Call AddRigaTabella(av,,,3,,"arial black")
                    Call SetColoreCella(2,RGB(175,174,222),5)
                    Call SetColoreCella(3,RGB(252,237,240),0)
                    Call SetColoreCella(6,RGB(164,242,249),0)
                    Call SetColoreCella(4,RGB(175,239,173),0)
                    Call SetColoreCella(9,RGB(236,200,176),2)
If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(10,4,1)
                    ' ---------------- calcolo colpi -------------------------
                    If esito <> "" And colpi = 1 Then clp1 = clp1 + 1
                    If esito <> "" And colpi = 2 Then clp2 = clp2 + 1
                    If esito <> "" And colpi = 3 Then clp3 = clp3 + 1
                    If esito <> "" And colpi = 4 Then clp4 = clp4 + 1
                    If esito <> "" And colpi = 5 Then clp5 = clp5 + 1
                    If esito <> "" And colpi = 6 Then clp6 = clp6 + 1
                    If esito <> "" And colpi = 7 Then clp7 = clp7 + 1
                    If esito <> "" And colpi = 8 Then clp8 = clp8 + 1
                    If esito <> "" And colpi = 9 Then clp9 = clp9 + 1
                    If esito <> "" And colpi = 10 Then clp10 = clp10 + 1
                    If esito <> "" And colpi > 0 And colpi < 11 Then clptot = clptot + 1
                    If esito = "" And colpi < 11 Then clpcorso = clpcorso + 1
                    If colpi >= 7 Then clp11 = clp11 + 1
                    '---------------------------------------------------------
                    Call ImpostaGiocata(1,k,ruote,poste,13,3)
    Call Gioca(es,,,,,False)
                End If
            Next
            'Next
        Next
    Next
    
    Call SetTableWidth("100%")

    CreaTabella()
    
    ReDim att(14)
    att(1) = " Colpo 1 "
    att(2) = " Colpo 2 "
    att(3) = " Colpo 3 "
    att(4) = " Colpo 4 "
    att(5) = " Colpo 5 "
    att(6) = " Colpo 6 "
    att(7) = " Colpo 7 "
    att(8) = " Colpo 8 "
    att(9) = " Colpo 9 "
    att(10) = " Colpo 10 "
    att(11) = " Totali casi "
    att(12) = " Casi positivi "
    att(13) = " Casi Negativi "
    att(14) = " Casi in corso "
    Call InitTabella(att,2,,3,4)
    ReDim avv(14)
    avv(1) = clp1
    avv(2) = clp2
    avv(3) = clp3
    avv(4) = clp4
    avv(5) = clp5
    avv(6) = clp6
    avv(7) = clp7
    avv(8) = clp8
    avv(9) = clp9
    avv(10) = clp10
    avv(11) = co
    avv(12) = clptot'(clp1+clp2+clp3+clp4+clp5+clp6+clp7+clp8+clp9+clp10)
    avv(13) = clp11
    avv(14) = clpcorso
    Call AddRigaTabella(avv,4,,3,2)
    Call SetTableWidth("100%")
    Call CreaTabella()
    'Scrivi
    ScriviResoconto
End Sub

Listato per ricerca Numero distanza Diametrale e iso su 2 Ruote **** Metodo elmiki ***** **** Script in Tabella by Mike58 *****
****************** Forum LottoCed **** Sezione metodi ****************

[TD="bgcolor: #0000ff, align: center"] Data Estrazione
[/TD]
[TD="bgcolor: #0000ff, align: center"] Ruota [/TD]
[TD="bgcolor: #0000ff, align: center"] estratti [/TD]
[TD="bgcolor: #0000ff, align: center"] Numero iso [/TD]
[TD="bgcolor: #0000ff, align: center"] Posiz. [/TD]
[TD="bgcolor: #0000ff, align: center"] Stringa Numeri [/TD]
[TD="bgcolor: #0000ff, align: center"] Esito [/TD]
[TD="bgcolor: #0000ff, align: center"] colpo [/TD]
[TD="bgcolor: #0000ff, align: center"] R_estratti [/TD]
[TD="bgcolor: #0000ff, align: center"] Data Esito [/TD]
[TD="bgcolor: #0000ff, align: center"] casi [/TD]

[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] FI - GE [/TD]
[TD="bgcolor: #fcedf0, align: center"] 62.67.75.01.20 - 83.19.30.50.09 [/TD]
[TD="bgcolor: #afefad, align: center"] 75.30 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 15.45.75.90 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 1 [/TD]

[TD="bgcolor: #ffffff, align: center"] 06.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] RO - TO [/TD]
[TD="bgcolor: #fcedf0, align: center"] 02.80.45.15.71 - 05.76.75.24.26 [/TD]
[TD="bgcolor: #afefad, align: center"] 71.26 [/TD]
[TD="bgcolor: #ffffff, align: center"] 5° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 07.33.37.67.78 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 2 [/TD]

[TD="bgcolor: #ffffff, align: center"] 04.12.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] NA - PA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 17.16.08.06.58 - 17.61.41.37.67 [/TD]
[TD="bgcolor: #afefad, align: center"] 16.61 [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 03.17.47.48.77 [/TD]
[TD="bgcolor: #ffffff, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] [/TD]
[TD="bgcolor: #ffffff, align: center"] In corso [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]

[TD="bgcolor: #ffffff, align: center"] 27.11.2014 [/TD]
[TD="bgcolor: #afaede, align: center"] BA - CA [/TD]
[TD="bgcolor: #fcedf0, align: center"] 40.67.03.10.69 - 46.02.48.44.82 [/TD]
[TD="bgcolor: #afefad, align: center"] 3.48 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3° [/TD]
[TD="bgcolor: #a4f2f9, align: center"] 09.21.51.54.81 [/TD]
[TD="bgcolor: #ffffff, align: center"] Terno [/TD]
[TD="bgcolor: #ffffff, align: center"] 2° [/TD]
[TD="bgcolor: #ecc8b0, align: center"] CA 54 .. 21 .. 09 [/TD]
[TD="bgcolor: #ffffff, align: center"] 02.12.2014 [/TD]
[TD="bgcolor: #ffffff, align: center"] 4 [/TD]

skygirl · 13 Dicembre 2014

Grazie Mike58

Metodo: due ambi a ruota con la 45

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<