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.
DAL 26 03 15
PA 08 // 07 01 // N°. JOLLY 06
(PA 08 07 AMBATE 11 77 90 ABBINAMENTI.
LUNGHETTA X AMBO E TERNO)
X 9 COLPI
METTETELI IN GIOCO SOLO SE AVETE CONVERGENZE.
VI RICORDO NESSUNA CERTEZZA SOLO PROBABILITA'.
PA 01 AMBATA
PA 07 AMBATA
PA 07 77 AMBO SECCO
ULTIMO COLPO IL 14 04 15
Sub Main()
Scrivi String(40," ") & " Numeretti a go-go' n° 3 - di rosce14 ",1 ' - http://forum.lottoced.com/f8/numeretti-go-go-n%B0-3-di-rosce14-113979/ -
Scrivi
Dim ruote(10),lung1(04)
Dim amba1(02),ambo2(02),ambo3(02),ambo4(02)
Dim poste(02),posta(03)
poste(01) = 1
posta(02) = 1
klp = 09
ini = EstrazioneFin - 100
fin = EstrazioneFin
For es = ini To fin
Messaggio es
AvanzamentoElab ini,fin,es
For r1 = 01 To 11
If r1 = 11 Then r1 = 12
e1 = Estratto(es,r1,01):e2 = Estratto(es,r1,02):e3 = Estratto(es,r1,03):e4 = Estratto(es,r1,04):e5 = Estratto(es,r1,05)
If e1 >= 10 And e2 >= 10 And e3 >= 10 And e4 >= 10 And e5 >= 10 Then
a1 = Figura(Estratto(es,r1,01)) : a2 = Figura(Estratto(es,r1,02)) : a3 = Figura(Estratto(es,r1,03))
a4 = Figura(Estratto(es,r1,04)) : a5 = Figura(Estratto(es,r1,05))
f1 = 00:f2 = 00:f3 = 00:f4 = 00:ok = 00
If a1 = a2 Then f1 = f1 + 01:ok = 01
If a1 = a3 Then f1 = f1 + 01:ok = 01
If a1 = a4 Then f1 = f1 + 01:ok = 01
If a1 = a5 Then f1 = f1 + 01:ok = 01
If a2 = a3 Then f2 = f2 + 01:ok = 01
If a2 = a4 Then f2 = f2 + 01:ok = 01
If a2 = a5 Then f2 = f2 + 01:ok = 01
If a3 = a4 Then f3 = f3 + 01:ok = 01
If a3 = a5 Then f3 = f3 + 01:ok = 01
If a4 = a5 Then f4 = f4 + 01:ok = 01
If ok = 01 Then
dec = 00
If Decina(Estratto(es,r1,01)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,02)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,03)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,04)) = 00 Then dec = dec + 01
If Decina(Estratto(es,r1,05)) = 00 Then dec = dec + 01
If dec = 00 Then
If f1 + f2 + f3 + f4 = 02 Then
casi = casi + 01
Scrivi String(105,"-") & " Caso N° " & Format2(casi),1
Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" - Figure [ " & Format2(a1) & " - " & Format2(a2) & " - " & Format2(a3) & " - " & Format2(a4) & " - " & Format2(a5) & " ]",1
Scrivi
ruote(01) = r1
n1 = 00:n2 = 00:ok = 00
If f1 = 01 And f2 = 01 Then n1 = a1 + a2:ok = 01
If f1 = 01 And f3 = 01 Then n1 = a1 + a3:ok = 01
If f1 = 01 And f4 = 01 Then n1 = a1 + a4:ok = 01
If f2 = 01 And f3 = 01 Then n2 = a2 + a3:ok = 01
If f2 = 01 And f4 = 01 Then n2 = a2 + a4:ok = 01
If a1 + a2 = a1 * 02 Or a1 + a3 = a1 * 02 Or a1 + a4 = a1 * 02 Or a1 + a5 = a1 * 02 Then abb1 = a1:ok = 01
If a2 + a3 = a2 * 02 Or a2 + a4 = a2 * 02 Or a2 + a5 = a2 * 02 Then abb1 = a2:ok = 01
If a3 + a4 = a3 * 02 Or a3 + a5 = a3 * 02 Then abb1 = a3:ok = 01
If a4 + a5 = a4 * 02 Then abb1 = a4:ok = 01
If ok = 01 Then
'-------------------------------------------------------- Ambata
amba1(01) = n1 + n2
ImpostaGiocata 01,amba1,ruote,poste,klp,1
'-------------------------------------------------------- 1° Ambo
ambo2(01) = n1 + n2
ambo2(02) = abb1
ImpostaGiocata 02,ambo2,ruote,posta,klp,2
'-------------------------------------------------------- 2° Ambo
abb2 = amba1(1) - abb1
ambo3(01) = n1 + n2
ambo3(02) = abb2
ImpostaGiocata 03,ambo3,ruote,posta,klp,2
'-------------------------------------------------------- Ambo Jolly
ambo4(01) = n1 + n2
ambo4(02) = abb1 - abb2
If abb2 > abb1 Then ambo4(02) = abb2 - abb1
If ambo4(01) = ambo2(01) And ambo4(02) = ambo2(02) Then ambo4(01) = 00:ambo4(02) = 00
If ambo4(01) = ambo3(01) And ambo4(02) = ambo3(02) Then ambo4(01) = 00:ambo4(02) = 00
ImpostaGiocata 04,ambo4,ruote,posta,klp,2
'--------------------------------------------------------
Gioca es,True,,2
End If
End If
End If
End If
End If
Next
Next
ScriviResoconto
End Sub