SUPER LOTTO

SOMMA 40 Di C.BALDAZZI

« Older   Newer »
  Share  
osvaldo1
CAT_IMG Posted on 13/11/2012, 19:33




Il metodo si trova:

https://superlotto.blogfree.net/?t=4316680#lastpost


LO SCRIPT:

Sub Main()
Dim num(2),nu1(2),nu2(6)
Dim ruote(3),posta(5),poste(5)

posta(1) = 3:poste(2) = 2:poste(3) = 2:poste(4) = 2

ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8500)
k = InputBox("per quanti colpi?","colpi di gioco",9)
ini = ce
fin = EstrazioneFin
Scrivi "le incredibili performances della somma 40 di Baldazzi ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & _
DataEstrazione(es,1)

For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
r2 = r1 + 1
If r1 = 10 Then r2 = 1
For p2 = 1 To 5
b = Estratto(es,r2,p2)
If p2 = p1 Then 'iso
sm = Fuori90(a + b)
If sm = 40 Then

casi = casi + 1:Scrivi String(58,"=") & " ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & _
StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & _
StringaEstratti(es,r2) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."
Scrivi String(62,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:cg = 0

amb1 = Fuori90(a + 45) '1^ ambata
amb2 = Fuori90(b + 45) '2^ ambata
ab1 = Fuori90(amb1 + 10) '1^abb
ab2 = Fuori90(ambb + 10) '2^abb
ab3 = Fuori90((amb1 + 90) - 10) '1^abb
ab4 = Fuori90((amb2 + 90) - 10) '2^abb

nu1(1) = amb1:nu1(2) = amb2
cg = cg + 1
ImpostaGiocata cg,nu1,ruote,posta,k,1
nu2(1) = amb1:
nu2(2) = amb2:
nu2(3) = ab1:
nu2(4) = ab2:
nu2(5) = ab3:
nu2(6) = ab4:
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,poste,k
Gioca es

End If
End If 'iso
Next:Next:Next:Next
Scrivi String(58,"=") & " script ",1
ScriviResoconto
Scrivi "le incredibili performances della somma 40 di Baldazzi- ",1
End Sub


Edited by osvaldo1 - 26/11/2012, 18:08
 
Top
osvaldo1
CAT_IMG Posted on 21/11/2012, 12:20




Somma 40.......
Colpisce a colpo

sabato, nov 17 2012 [ TO - 28.44.61.14.16 ] [ 44 ] in 2^ pos.
sabato, nov 17 2012 [ VE - 73.86.27.02.19 ] [ 86 ] in 2^ pos.
-------------------------------------------------------------- caso n° 56
Estrazione generatrice del pronostico 08615 [138 - 17/11/2012]
G 0001
Numeri in gioco : 89.41 su TO VE per Estratto
N. [89.41 ] [TO] [.. .. .. .. ..] C. 1 08616 [139 - 20/11/2012]
V N. [89.41 ] [VE] [89 .. 41 .. ..] C. 1 Ambo 08616 [139 - 20/11/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 89.41.09.51.79.31 su TO VE per Ambo,Terno,Quaterna
V N. [89.41.09.51.79.31 ] [TO] [.. .. 31 .. 51] C. 1 Ambo 08616 [139 - 20/11/2012]
V N. [89.41.09.51.79.31 ] [VE] [89 .. 41 .. ..] C. 1 Ambo 08616 [139 - 20/11/2012]


 
Top
osvaldo1
CAT_IMG Posted on 22/11/2012, 20:49




...ed al II° colpo l'altra previsione si sfalda:

sabato, nov 17 2012 [ VE - 73.86.27.02.19 ] [ 02 ] in 4^ pos.
sabato, nov 17 2012 [ BA - 81.45.69.38.72 ] [ 38 ] in 4^ pos.
-------------------------------------------------------------- caso n° 57
Estrazione generatrice del pronostico 08615 [138 - 17/11/2012]
G 0001
Numeri in gioco : 47.83 su BA VE per Estratto
N. [47.83 ] [BA] [.. .. .. .. ..] C. 1 08616 [139 - 20/11/2012]
N. [47.83 ] [VE] [.. .. .. .. ..] C. 1 08616 [139 - 20/11/2012]
N. [47.83 ] [BA] [.. .. .. .. ..] C. 2 08617 [140 - 22/11/2012]
V N. [47.83 ] [VE] [.. 83 .. .. ..] C. 2 Estratto 08617 [140 - 22/11/2012]
Interrotta per esito verificato

G 0002
Numeri in gioco : 47.83.57.03.37.73 su BA VE per Ambo,Terno,Quaterna
N. [47.83.57.03.37.73 ] [BA] [.. .. .. .. ..] C. 1 08616 [139 - 20/11/2012]
N. [47.83.57.03.37.73 ] [VE] [.. .. .. .. ..] C. 1 08616 [139 - 20/11/2012]
N. [47.83.57.03.37.73 ] [BA] [.. .. .. .. ..] C. 2 08617 [140 - 22/11/2012]
V N. [47.83.57.03.37.73 ] [VE] [.. 83 57 .. ..] C. 2 Ambo 08617 [140 - 22/11/2012]


===================




 
Top
osvaldo1
CAT_IMG Posted on 25/12/2012, 22:18




giovedě, dic 20 2012 [ FI - 15.05.60.49.12 ] [ 05 ] in 2^ pos.
giovedě, dic 20 2012 [ GE - 26.35.28.06.50 ] [ 35 ] in 2^ pos.
--------------------------------------------------------------

Numeri in gioco : 50.80.60.90.40.70 su FI GE per Ambo,Terno,Quaterna

V N. [50.80.60.90.40.70 ] [GE] [.. 40 .. 70 ..] C. 1 Ambo 08630 [153 - 22/12/2012]

 
Top
filleo75
CAT_IMG Posted on 10/9/2014, 15:47




non so il perche' mi da questo errore a me ....http://prntscr.com/4lhy6j

mi potresti aiutare ? grazie :)
 
Top
4 replies since 13/11/2012, 19:33   828 views
  Share