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