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