Lo studente
Super Member >PLATINUM<
Favoloso....AMBO SECCO AL 1'COLPO...9-50 NAZIONALE....Ferie estive ,Agosto e Natalizie pagate da lottomatica....Postato nel link.di Pesol ieri...29.07.2015....Grazie A.Longo....
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Lo studente;n1905238 ha scritto:63+76 =139 -90 =49
63+77 =140 -90 = 50 SI SOMMA....
------------'---
99.....-90 =9
1' Ambo 9-50
2' Ambo 9-49
Terzina x ambo e terno 9-49-50
Ho sempre consigliato di giocare anche sulle diametrali e le gemelle.....spero di essermi spiegato bene......ciao
Lo studente;n1905226 ha scritto:76-72 1' ambo..... .2' ambo 86-72........ 3' ambo 86-76'.........BA/TO se vuoi/puoi anche sulle gemelle Ve/CA , E DIAMETRALI...NA/GE...
Sub Main()
Dim nu1(10),nu4(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(10),posta(5)
poste(1) = 1
posta(2) = 1
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
Messaggio DataEstrazione(es)
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
If(p1 = p3 And p2 = p4) Or(p1 = p4 Or p1 = p3) Or(p2 = p3 Or p2 = p4) Then
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
If n1 = n3 And n2 = n4 Then
c1 = Massimo(n1,n2)
c2 = Minimo(n1,n2)
c3 = Fuori90(c1 + c1)
c4 = Fuori90(c2 + c2)
c5 = Abs(c3 - c4)
c6 = Int(c5/2)
c7 = Massimo(c3,c4)
c8 = Minimo(c3,c4)
c9 = Fuori90(Abs(c7 - c6))
c10 = Fuori90(c8 + c6)
If c9 = c10 Then
x1 = Fuori90(n1 + c9)
x2 = Fuori90(n2 + c9)
x5 = Fuori90(x1 + x2)
casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo ripetuto . " & Format2(n1) & "." & Format2(n2) & " Pos. " & Format2(p1) & "." & Format2(p2) & " ."
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo ripetuto < " & Format2(n3) & "." & Format2(n4) & " Pos. " & Format2(p3) & "." & Format2(p4) & " ."
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:k = 13:co = 0:ruota(1) = 11:ruote(3) = 12
nu4(1) = x2
poste(1) = 1 : poste(p1 + 5) = 1 : poste(p2 + 5) = 1
co = co + 1
ImpostaGiocata co,nu4,ruote,poste,k
Erase poste
nu2(1) = x2:nu2(2) = x5:nu2(3) = x1
co = co + 1
ImpostaGiocata co,nu2,ruote,posta,k
co = co + 1
ImpostaGiocata co,nu2,ruota,posta,k
Gioca es,,,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Sub Main()
Dim am(1),ab(2),j(2),qu(5),ruota(2),ruote(1),posta(1),poste(2)
posta(1) = 1 : poste(2) = 1
Dim prog(5,100)
prog(1,1) = 1
prog(1,2) = 1
prog(1,3) = 1
prog(1,4) = 1.50
prog(1,5) = 2
prog(1,6) = 3
prog(1,7) = 4
prog(1,8) = 5.50
prog(1,9) = 8
prog(1,10) = 11
prog(1,11) = 15.50
prog(1,12) = 21.50
prog(1,13) = 30
Rem utile min. 50% unica bolletta
For es = EstrazioneFin - 20 To EstrazioneFin
Messaggio "Estrazione: [" & es & "]ª"
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3) : d = Estratto(es,r2,p4)
If(a = c And b = d) Or(a = d And b = c) Then
cont = cont + 1
Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r1),3) & _
"" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(6) & _
"" & Format2(a) & "" & Space(1) & "" & Format2(b) & _
"" & Space(4) & "(" & p1 & "-" & p2 & ")"
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r2),3) & _
"" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(6) & _
"" & Format2(c) & "" & Space(1) & "" & Format2(d) & _
"" & Space(4) & "(" & p3 & "-" & p4 & ")" : Scrivi
If a = c And b = d Then
a1 = Fuori90(a + c) : b1 = Fuori90(b + d)
c1 = Abs(a1 - b1) : d1 = c1\2
j(1) = a1 : j(2) = b1
e = Fuori90(Minimo(j(1),j(2)) + d1)
f = Fuori90(Massimo(j(1),j(2)) - d1)
x = Fuori90(a + e) : y = Fuori90(b + e)
If a < b Then am(1) = y
If a > b Then am(1) = x
End If
If a = d And b = c Then
a1 = Fuori90(a + d) : b1 = Fuori90(b + c)
c1 = Abs(a1 - b1) : d1 = c1\2
j(1) = a1 : j(2) = b1
e = Fuori90(Minimo(j(1),j(2)) + d1)
f = Fuori90(Massimo(j(1),j(2)) - d1)
x = Fuori90(a + e) : y = Fuori90(b + e)
am(1) = y
End If
am(1) = y
ruota(1) = r1 : ruota(2) = r2 : ruote(1) = 11
ImpostaGiocata 1,am,ruota,posta,14
ImpostaProgressione 1,prog
ab(1) = y : ab(2) = Fuori90(x + y)
ImpostaGiocata 2,ab,ruota,poste,14
ImpostaGiocata 3,ab,ruote,poste,14
Gioca es : Scrivi String(67,151)
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: AMBO OLTRE",1
Scrivi "AUTORE: A. Longo-",1
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub