io ......ve la inserisco !!!!!!

[mastrogino]

03.05.2011 RO 60.40.51.27.21 ---> Somma Estratti 19
03.05.2011 VE 41.63.40.76.69 ---> Somma Estratti 19
---------------------------------------------------------------------------------------------------- Caso n° 1
Estrazione generatrice del pronostico 08372 [ 53 - 03/05/2011]
G 0001
Numeri in gioco : 11.77.53 su RO VE per Estratto,Ambo
V N. [11.77.53 ] [VE] [11 .. .. .. ..] C. 1 Estratto 08373 [ 54 - 05/05/2011]
V N. [11.77.53 ] [VE] [.. .. .. 53 ..] C. 2 Estratto 08374 [ 55 - 07/05/2011]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 62.86.58 su RO VE per Estratto,Ambo
V N. [62.86.58 ] [RO] [.. 62 .. 58 86] C. 6 Terno 08378 [ 59 - 17/05/2011]
Interrotta per esito verificato
**********************************************************
10.05.2011 BA 15.21.77.78.08 ---> Somma Estratti 19
10.05.2011 CA 05.81.73.66.64 ---> Somma Estratti 19
---------------------------------------------------------------------------------------------------- Caso n° 2
Estrazione generatrice del pronostico 08375 [ 56 - 10/05/2011]
G 0001
Numeri in gioco : 11.77.53 su BA CA per Estratto,Ambo
V N. [11.77.53 ] [BA] [.. .. .. .. 77] C. 1 Estratto 08376 [ 57 - 12/05/2011]
V N. [11.77.53 ] [BA] [.. .. 11 .. ..] C. 2 Estratto 08377 [ 58 - 14/05/2011]
V N. [11.77.53 ] [CA] [.. .. .. .. 53] C. 2 Estratto 08377 [ 58 - 14/05/2011]
V N. [11.77.53 ] [BA] [.. 53 .. .. ..] C. 4 Estratto 08379 [ 60 - 19/05/2011]
V N. [11.77.53 ] [CA] [.. .. .. .. 11] C. 6 Estratto 08381 [ 62 - 24/05/2011]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 62.86.58 su BA CA per Estratto,Ambo
V N. [62.86.58 ] [BA] [.. 58 .. .. ..] C. 2 Estratto 08377 [ 58 - 14/05/2011]
V N. [62.86.58 ] [CA] [62 .. .. .. ..] C. 2 Estratto 08377 [ 58 - 14/05/2011]
V N. [62.86.58 ] [CA] [58 .. .. .. ..] C. 5 Estratto 08380 [ 61 - 21/05/2011]
Interrotta per raggiunta durata

G 0003
Numeri in gioco : 62.86.58 su TT per Ambo,Terno
V N. [62.86.58 ] [TT] [RO][.. 62 .. 58 86] C. 3 Terno 08378 [ 59 - 17/05/2011]
Interrotta per esito verificato

****************************************************
07.01.2012 FI 37.69.24.22.47 ---> Somma Estratti 19
07.01.2012 TO 27.68.28.42.34 ---> Somma Estratti 19
---------------------------------------------------------------------------------------------------- Caso n° 3
Estrazione generatrice del pronostico 08479 [ 3 - 07/01/2012]
G 0001
Numeri in gioco : 11.77.53 su FI TO per Estratto,Ambo
V N. [11.77.53 ] [FI] [.. .. 77 .. ..] C. 1 Estratto 08480 [ 4 - 10/01/2012]
V N. [11.77.53 ] [FI] [.. 77 .. .. ..] C. 2 Estratto 08481 [ 5 - 12/01/2012]
V N. [11.77.53 ] [TO] [.. 11 .. .. ..] C. 3 Estratto 08482 [ 6 - 14/01/2012]
V N. [11.77.53 ] [TO] [53 .. .. .. ..] C. 4 Estratto 08483 [ 7 - 17/01/2012]
V N. [11.77.53 ] [TO] [.. .. .. 53 ..] C. 6 Estratto 08485 [ 9 - 21/01/2012]
V N. [11.77.53 ] [TO] [.. .. .. 53 ..] C. 8 Estratto 08487 [ 11 - 26/01/2012]
Interrotta per raggiunta durata

G 0002
Numeri in gioco : 62.86.58 su FI TO per Estratto,Ambo
V N. [62.86.58 ] [FI] [.. .. .. 86 ..] C. 1 Estratto 08480 [ 4 - 10/01/2012]
V N. [62.86.58 ] [FI] [.. 86 58 .. ..] C. 3 Ambo 08482 [ 6 - 14/01/2012]
Interrotta per esito verificato
********************************************************************

14.03.2013 RO 42.54.68.72.53 ---> Somma Estratti 19
14.03.2013 NZ 35.55.09.81.19 ---> Somma Estratti 19
---------------------------------------------------------------------------------------------------- Caso n° 5
Estrazione generatrice del pronostico 08664 [ 32 - 14/03/2013]
G 0001
Numeri in gioco : 11.77.53 su RO NZ per Estratto,Ambo
In corso per altre 9 estrazioni
G 0002
Numeri in gioco : 62.86.58 su RO NZ per Estratto,Ambo



****************************************************************************
ps ho avuto un soffio all' orecchio x me 86.58. ambo su ruote e tt

 

[DEAEBE]

scusami come fai ad avere il 58? o terzo numero? Grazie per la risposta

 

[DEAEBE]

Forse non ho questa procedura perche' mi chiedo come mai con la stessa somma 19 escono sei numeri diversi cosa si calcola e come si calcola?

 

[mastrogino]

Forse non ho questa procedura perche' mi chiedo come mai con la stessa somma 19 escono sei numeri diversi cosa si calcola e come si calcola?

ciao Deaebe ti inserisco il mio metodo e lo script fatto dal buon mike58




Sub Main
Scrivi"Listato per ricerca Numero iso " & " Listed by Mike58",1
Dim k(3),kk(3)
Dim ruote(2),rtt(1)
Dim posta(5),ptt(3)
posta(1) = 1
posta(2) = 1
ptt(2) = 1.5
ptt(3) = 0.5
sceltaSomma = CInt(InputBox("Quale SOMMA UGUALE vuoi visualizzare ",,82))' spuntare Apice x ricerca su tutte le somme
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",250))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",9))
co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio(es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12

n1 = Fuori90(SommaEstratti(es,r1))
n2 = Fuori90(SommaEstratti(es,r2))
If n1 = n2 Then
If n1 = sceltaSomma Then ' Mettere APICE se non si vuolu inputbox
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
rtt(1) = 11
'--------- Calcolo Numeri ma mettere in gioco-------------
a1 = Decina(n1)' decina n1
a2 = Cadenza(n1)' cadenza n1
a3 = Fuori90(a1 + a2)' somma unità e dicina
a4 = Vert(a3)' vertibile somma
k(1) = Fuori90(a3 + a4)
k(2) = Fuori90(k(1)*7)' numero basso
k(3) = Fuori90(k(1)*13)' numero alto
'----------- 2 giocata ----------------------------------
b1 = Fuori90(n1*7)
b2 = Fuori90(n1*13)
kk(1) = Fuori90(n1 + b1)
kk(2) = Fuori90(n1 + b2)
kk(3) = Fuori90(kk(1) + kk(2))
'---------------------------------------------------------
Scrivi String(100,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> Somma Estratti " & n1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ---> Somma Estratti " & n2,1
Scrivi String(100,"-") & " Caso n° " & co
ColoreTesto 0
ImpostaGiocata 1,k,ruote,posta,clp,2
ImpostaGiocata 2,kk,ruote,posta,clp,2
ImpostaGiocata 3,kk,rtt,ptt,clp,2
ImpostaGiocata 4,k,rtt,ptt,clp,2
Gioca es,1
End If
End If ' togliere o mettere APICE se non si vuole l'inputBox
'Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub