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.
BA. 90 IN 3° POS
BA 48 58 85 (TERNO ANCHE A TT.)
per ambate // ambo // e qualcosina al terno
per 9 colpi + 3
metteteli in gioco solo se avete convergenze.
BA 48 ambata (13 02 14)
FI. 90 IN 3° POS
FI 18 06 61 (TERNO ANCHE A TT.)
per ambate // ambo // e qualcosina al terno
per 9 colpi + 3
metteteli in gioco solo se avete convergenze.
FI 18 AMBATA A COLPO.
LA PREV. CONTINUA.
Sub Main()
    Scrivi " 90 estratto in 3° posizione , di rosce14 ",1' - http://forum.lottoced.com/f8/90-estratto-3%B0-posizione-93/ -
    Dim am(3)
    Dim ruota(1),ruote(10)
    Dim posta(1),poste(3)
    posta(1) = 1
    poste(2) = 2
    klp1 = 9
    klp2 = 13
    ini = 8477
    fin = EstrazioneFin
    For es = ini To fin
        Messaggio es
        AvanzamentoElab Ini,fin,es
        For r = 1 To 11
            If r = 11 Then r = 12
            p1 = 3
            a = Estratto(es,r,p1)
            If a = 90 Then
                p2 = 2
                b = Estratto(es,r,p2)
                p4 = 4
                c = Estratto(es,r,p4)
                p3 = 3
                ex = es - 1
                d = Estratto(ex,r,p3)
                casi = casi + 1
                Scrivi String(120,"-") & " caso n° " & Format2(casi),1
                Scrivi GetInfoEstrazione(ex) & " - " & NomeRuota(r) & " - " & StringaEstratti(ex,r) & " [ " & Format2(d) & _
                " ] sottrare al 90 il numero che si trova In terza posizione.",1
                Scrivi GetInfoEstrazione(es) & " - " & NomeRuota(r) & " - " & StringaEstratti(es,r) & " [ " & Format2(b) & " ] - [ " & Format2(c) & _
                " ] sottrare i numeri estratti laterali al 90.",1
                Scrivi GetInfoEstrazione(es) & " - " & "Il numero Spia " & Format2(a) & " estratto a " & Format2(NomeRuota(r)) & " in " & Format2(p1) & "° Posizione ",1
                Scrivi String(120,"-")
                ruota(1) = r
                ruote(1) = r
                ruote(10) = TU_
                am(1) = Differenza(a,b)
                am(2) = Differenza(a,c)
                am(3) = Differenza(a,d)
                ImpostaGiocata 1,am,ruota,posta,klp1,1
                ImpostaGiocata 2,am,ruote,poste,klp2,2
                Gioca es,True,,1
            End If
        Next
    Next
    Scrivi
    Scrivi
    Scrivi "Numero Totale casi analizzati: " & Format2(casi),1
    ScriviResoconto
End Sub

Buonagiorno,
spero fare cosa gradita, allego il listato del metodo.
Controllare sempre,salvo errori.
Codice:Sub Main() Scrivi " 90 estratto in 3° posizione , di rosce14 ",1' - http://forum.lottoced.com/f8/90-estratto-3%B0-posizione-93/ - Dim am(3) Dim ruota(1),ruote(10) Dim posta(1),poste(3) posta(1) = 1 poste(2) = 2 klp1 = 9 klp2 = 13 ini = 8477 fin = EstrazioneFin For es = ini To fin Messaggio es AvanzamentoElab Ini,fin,es For r = 1 To 11 If r = 11 Then r = 12 p1 = 3 a = Estratto(es,r,p1) If a = 90 Then p2 = 2 b = Estratto(es,r,p2) p4 = 4 c = Estratto(es,r,p4) p3 = 3 ex = es - 1 d = Estratto(ex,r,p3) casi = casi + 1 Scrivi String(120,"-") & " caso n° " & Format2(casi),1 Scrivi GetInfoEstrazione(ex) & " - " & NomeRuota(r) & " - " & StringaEstratti(ex,r) & " [ " & Format2(d) & _ " ] sottrare al 90 il numero che si trova In terza posizione.",1 Scrivi GetInfoEstrazione(es) & " - " & NomeRuota(r) & " - " & StringaEstratti(es,r) & " [ " & Format2(b) & " ] - [ " & Format2(c) & _ " ] sottrare i numeri estratti laterali al 90.",1 Scrivi GetInfoEstrazione(es) & " - " & "Il numero Spia " & Format2(a) & " estratto a " & Format2(NomeRuota(r)) & " in " & Format2(p1) & "° Posizione ",1 Scrivi String(120,"-") ruota(1) = r ruote(1) = r ruote(10) = TU_ am(1) = Differenza(a,b) am(2) = Differenza(a,c) am(3) = Differenza(a,d) ImpostaGiocata 1,am,ruota,posta,klp1,1 ImpostaGiocata 2,am,ruote,poste,klp2,2 Gioca es,True,,1 End If Next Next Scrivi Scrivi Scrivi "Numero Totale casi analizzati: " & Format2(casi),1 ScriviResoconto End Sub
 
     
     
     
    