Marco-elle
Banned
Giochino stupido ed interessate che ricava una ambata da mettere in gioco su BA-VE
Iter:
a ogni estrazione sommare il 1° estratto di BA con l'indice mensile (elemento A)
Poi sommare il 1° estratto di VE con l'indice mensile (elemento B)
Ambata = fuori90 (a + b)
ora abbiamo un bel 46 e 53 (53 che si ripete in 2 calcoli)
vediamo se escono
PS: So che a voi piacciono gli ambi secchi a due nummerelli ma c'è anche chi....
gioca le ambatelle....usatele solo se convergete
allego anche il calcolatore per chi non ha voglia di faticare
PPS: probabilmente il 53 non uscirà (nel breve termine) perchè presente o antecedente all'estrazione di calcolo....quindi meglio evitare queste condizioni
Iter:
a ogni estrazione sommare il 1° estratto di BA con l'indice mensile (elemento A)
Poi sommare il 1° estratto di VE con l'indice mensile (elemento B)
Ambata = fuori90 (a + b)
ora abbiamo un bel 46 e 53 (53 che si ripete in 2 calcoli)
vediamo se escono
PS: So che a voi piacciono gli ambi secchi a due nummerelli ma c'è anche chi....
gioca le ambatelle....usatele solo se convergete
allego anche il calcolatore per chi non ha voglia di faticare
PPS: probabilmente il 53 non uscirà (nel breve termine) perchè presente o antecedente all'estrazione di calcolo....quindi meglio evitare queste condizioni
Codice:
Sub Main()
ColoreTesto 2
Scrivi "METODO PER AMBATA SU BA_VE "
Scrivi "GIOCA 1 ambata x 12 colpi "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(2)
Dim ruota(2)
Dim n(1)
poste(1) = 1
clp = 12
ini = EstrazioneFin - 100
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
ok = 0
a = IndiceMensile(es)
a1 = Estratto(es,1,1)
a2 = Estratto(es,10,1)
a3 = Fuori90(a1 + a)
a4 = Fuori90(a2 + a)
a5 = Fuori90(a3 + a4)
ok = 1
If ok = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " ambata su BA-VE " & a & " - indice mensile" & b,1
Scrivi String(80,"°"),1
ColoreTesto 0
ruota(1) = 1
ruota(2) = 10
n(1) = a5
ImpostaGiocata 1,n,ruota,poste,clp
Gioca es,1
End If
Next
ScriviResoconto
End Sub
Ultima modifica: