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.
Mese negativo ottobre : solo l'ambata 42 al 03° colpo sulla ruota di BA
Pronostico di Novembre :
Ambata : 47 - ambata e ambo secco 47 - 76 - terzina per ambo 74 - 76 - 67
Ambata : 83 - ambata e ambo secco 83 - 57 - terzina per ambo 38 - 57 - 75
buongiorno, allego listato del metodo, come viene descritto, con i complimenti a Donatella.
Salvo errori ,controllate sempre.
Codice:Sub Main() Scrivi "Ambata, ambo secco, ambo terno secco , di Donatella " Dim n1(1),nn1(2),nn2(3),ruota(2) Dim posta(1),poste(3),postee(3) posta(1) = 1 poste(2) = 1 postee(2) = 1 postee(3) = 0.5 ruota(1) = 1 ruota(2) = 2 k = 13 qe = InputBox("Quante estrazioni di controllo","estrazioni controllo",100) Ini = EstrazioneFin - qe fin = EstrazioneFin For es = ini To Fin Messaggio es AvanzamentoElab Ini,fin,es If IndiceMensile(es) = 1 Then a = Estratto(es,1,1) b = Estratto(es,1,2) c = Estratto(es,1,3) d = Estratto(es,2,1) e = Estratto(es,2,2) f = Estratto(es,2,3) g = Differenza(a,b) h = Differenza(d,e) i = Differenza(a,c) l = Differenza(d,f) casi = casi + 1 Scrivi String(100,"-") Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " Scrivi DataEstrazione(es,2) & " < " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " " Scrivi Format2(g) & " + " & Format2(h) & " = " & Format2(Fuori90(g + h)) Scrivi Format2(i) & " + " & Format2(l) & " = " & Format2(Fuori90(i + l)) n1(1) = Fuori90(g + h) ImpostaGiocata 1,n1,ruota,posta,k,1 nn1(1) = Fuori90(g + h) nn1(2) = Fuori90(i + l) ImpostaGiocata 2,nn1,ruota,poste,k,2 nn2(1) = Vert(n1(1)) nn2(2) = Fuori90(i + l) nn2(3) = Vert(nn1(2)) ImpostaGiocata 3,nn2,ruota,postee,k,2 Scrivi String(100,"-") & " caso n° " &(casi) Gioca es,True,,1 End If Next Scrivi String(100,"-") Scrivi " Ambata, ambo secco, ambo terno secco , di Donatella " Scrivi String(100,"-") ScriviResoconto End Sub
Sub Main()
Scrivi "Ambata, ambo secco, ambo terno secco , di Donatella "
Dim n1(1),nn1(2),nn2(3),ruota(2),ruot(1)
Dim posta(1),poste(3),postee(3)
posta(1) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 0.5
ruota(1) = 1
ruota(2) = 2
k = 13
qe = InputBox("Quante estrazioni di controllo","estrazioni controllo",100)
Ini = EstrazioneFin - qe
fin = EstrazioneFin
For es = ini To Fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 1 Then
a = Estratto(es,1,1)
b = Estratto(es,1,2)
c = Estratto(es,1,3)
d = Estratto(es,2,1)
e = Estratto(es,2,2)
f = Estratto(es,2,3)
g = Differenza(a,b)
h = Differenza(d,e)
i = Differenza(a,c)
l = Differenza(d,f)
casi = casi + 1
Scrivi String(100,"-")
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " "
Scrivi DataEstrazione(es,2) & " < " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " "
Scrivi Format2(g) & " + " & Format2(h) & " = " & Format2(Fuori90(g + h))
Scrivi Format2(i) & " + " & Format2(l) & " = " & Format2(Fuori90(i + l))
n1(1) = Fuori90(g + h)
ImpostaGiocata 1,n1,ruota,posta,k,1
nn1(1) = Fuori90(g + h)
nn1(2) = Fuori90(i + l)
ImpostaGiocata 2,nn1,ruota,poste,k,2
nn2(1) = Vert(n1(1))
nn2(2) = Fuori90(i + l)
nn2(3) = Vert(nn1(2))
ImpostaGiocata 3,nn2,ruota,postee,k,2
ruot(1)=11
ImpostaGiocata 4,nn2,ruot,postee,k,2
Scrivi String(100,"-") & " caso n° " &(casi)
Gioca es,True,,1
End If
Next
Scrivi String(100,"-")
Scrivi " Ambata, ambo secco, ambo terno secco , di Donatella "
Scrivi String(100,"-")
ScriviResoconto