Marco-elle
Banned
Metodo di Matematica sommativa che ricava 1 cinquina dopo la sortita di un ambo in cadenza 6 su FI in 1° e 2° pos
Ruote di gioco BA-CA
Calcolo della cinquina:
1 di Ba + 4 di Ca + 01
2 di Mi - 5 di Ve + 15
5 di Fi + 2 di Na + 05
5 di Ba x 5 di Ve + 33
3 di Ge x 5 di Ro + 09
Il metodo prevede 12 colpi di gioco
x ambo,terno,quaterna,cinquina
C'è una previsione in corso
BA-CA 14-25-29-50-82
Ruote di gioco BA-CA
Calcolo della cinquina:
1 di Ba + 4 di Ca + 01
2 di Mi - 5 di Ve + 15
5 di Fi + 2 di Na + 05
5 di Ba x 5 di Ve + 33
3 di Ge x 5 di Ro + 09
Il metodo prevede 12 colpi di gioco
x ambo,terno,quaterna,cinquina
C'è una previsione in corso
BA-CA 14-25-29-50-82
Codice:
[/FONT]Sub Main()
ColoreTesto 2
Scrivi "AMBI IN CADENZA 6 SORTITI SU FI IN 1°/2° POSIZIONE "
Scrivi "GIOCA 1 CINQUINA SU BA-CA "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(4)
Dim ruota(2)
Dim ambo(5)
poste(2) = 1
poste(3) = 1
poste(4) = 1
clp = 12
ini = EstrazioneFin - 1200
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
'For r1 = 1 To 11
For p1 = 1 To 1
For p2 = 2 To 2
a = Estratto(es,3,p1)
b = Estratto(es,3,p2)
ok = 0
If Cadenza(a) = 6 And Cadenza(b) = 6 Then
ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,2,4) + 1)
ambo(2) = Fuori90(Estratto(es,5,2) - Estratto(es,10,5) + 15)
ambo(3) = Fuori90(Estratto(es,3,5) + Estratto(es,6,2) + 5)
ambo(4) = Fuori90(Estratto(es,1,5) * Estratto(es,10,5) + 33)
ambo(5) = Fuori90(Estratto(es,4,3) * Estratto(es,8,5) + 9)
ok = 1
End If
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " ambo in cadenza 6 sortito su FI " & a & " - " & b,1
Scrivi String(80,"°"),1
ColoreTesto 0
ruota(1) = 1
ruota(2) = 2
ImpostaGiocata 1,ambo,ruota,poste,clp
Gioca es,1
End If
Next
Next
Next
' Next
ScriviResoconto
End Sub
[FONT=Times]