BaffoBlù
Advanced Member >PLATINUM<
Le 2 immagini vi chiariranno tutto
(bisogna avere ì premi aggiornati...per gustarselo...)
Giocando con queste poste:
posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1
Se si gioca imperterriti continuando per tutti i 9 colpi
per ambo o terno / per terno o quaterna
senza alcuna progressione...(questo è il bello...)
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 442
| Terno su ruota : 53
| Quaterna su ruota : 4
---------------------------------------------------
Spesa : 81.252,00 €
Vincita : 151.774,09 €
Guadagno : 70.522,09 €
-------------------------------------------------
*********************************
Se invece ci si ferma al primo esito raggiunto
per ambo o terno / per terno o quaterna
senza alcuna progressione...
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 407
| Terno su ruota : 51
| Quaterna su ruota : 4
--------------------------------------------------
| Spesa : 73.866,00 €
| Vincita : 149.029,10 €
| Guadagno : 75.163,10 €
--------------------------------------------------
(bisogna avere ì premi aggiornati...per gustarselo...)
Giocando con queste poste:
posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1
Se si gioca imperterriti continuando per tutti i 9 colpi
per ambo o terno / per terno o quaterna
senza alcuna progressione...(questo è il bello...)
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 442
| Terno su ruota : 53
| Quaterna su ruota : 4
---------------------------------------------------
Spesa : 81.252,00 €
Vincita : 151.774,09 €
Guadagno : 70.522,09 €
-------------------------------------------------
*********************************
Se invece ci si ferma al primo esito raggiunto
per ambo o terno / per terno o quaterna
senza alcuna progressione...
Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata
| Ambo su ruota : 407
| Terno su ruota : 51
| Quaterna su ruota : 4
--------------------------------------------------
| Spesa : 73.866,00 €
| Vincita : 149.029,10 €
| Guadagno : 75.163,10 €
--------------------------------------------------
Codice:
Option Explicit
Sub Main()
Dim ruote(1),n1(5),n2(5),n3(5),n4(5)
Dim c1(5),c2(5),c3(5),s1(6),s2(6)
Dim posta(10),poste(10)
Dim a,b,x,x1,P1,P2
Dim ww,fin,Ini,es,r,casi,co
Dim z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12
posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1
ww = 9
ruote(1) = r
Ini = 1
fin = EstrazioneFin
co = 0
ResetTimer
For es = Ini To fin
Messaggio "Hai solo il tempo di un caffè, Preparo l'AmmazzaCaffé [" &(es) & "] " & DataEstrazione(es)
Call AvanzamentoElab(Ini,fin,es)
For r = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
a = Estratto(es,r,P1)
b = Estratto(es,r,P2)
If(a = 15 And b = 76) Or(a = 76 And b = 15) Then
x = a + b
x1 = Fuori90(a + b)
z1 = DiametraleD(x1)
z2 = Fuori90(z1 + x1)
z3 = ComplAdX(x1)
z4 = DiametraleD(z3)
z5 = Fuori90(z1 + z2)
z6 = Fuori90(z5 * 2)
z7 = Differenza(z4,z1)
z8 = Fuori90(z7 + x1)
z9 = Fuori90(z2 * z2)
z10 = Fuori90(z9 + z1)
z11 = ComplAdX(z10)
z12 = Differenza(z7,z11)
n1(1) = x1
n1(2) = z1
n1(3) = z10
n1(4) = z8
n1(5) = z4
n2(1) = x1
n2(2) = z1
n2(3) = z2
n2(4) = z6
n2(5) = z12
n3(1) = x1
n3(2) = z2
n3(3) = z6
n3(4) = z7
n3(5) = z4
n4(1) = x1
n4(2) = z10
n4(3) = z12
n4(4) = z7
n4(5) = z3
c1(1) = x1
c1(2) = z6
c1(3) = z10
c1(4) = z7
c1(5) = z4
c2(1) = z6
c2(2) = z10
c2(3) = z7
c2(4) = z8
c2(5) = z3
c3(1) = z2
c3(2) = z10
c3(3) = z8
c3(4) = z4
c3(5) = z3
s1(1) = x1
s1(2) = z2
s1(3) = z12
s1(4) = z10
s1(5) = z8
s1(6) = z3
s2(1) = z2
s2(2) = z12
s2(3) = z7
s2(4) = z8
s2(5) = z4
s2(6) = z3
ruote(1) = r
co = co + 1
casi = casi + 1
Scrivi String(120,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] ",1,,,1,2
Scrivi "Ambo Spia Blù : " & Format2(a) & "." & Format2(b) & " in " & P1 & "° e in " & P2 & "° Posizione ",1,,,,2
Scrivi "Somma : " & Format2(a) & "+" & Format2(b) & " = " & Format2(x) & " - " & " 90 " & " = " & Format2(x1),,,,7,2
Scrivi "CHIAVE MAGICA di BaffoBlù : [" & Format2(x1) & "] ",1,,1,4,2
Scrivi "-----------------------------------------------------------------"
ImpostaGiocata 1,c1,ruote,posta,ww',2 ' Togli remmature se vuoi fermarti al primo esito raggiunto...
ImpostaGiocata 2,c2,ruote,posta,ww',2
ImpostaGiocata 3,c3,ruote,posta,ww',2
ImpostaGiocata 4,s1,ruote,posta,ww',2
ImpostaGiocata 5,s2,ruote,posta,ww',2
ImpostaGiocata 6,n1,ruote,poste,ww',3
ImpostaGiocata 7,n2,ruote,poste,ww',3
ImpostaGiocata 8,n3,ruote,poste,ww',3
ImpostaGiocata 9,n4,ruote,poste,ww',3
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" * * * L'AmmazzaCaffé *** Idea e Script by BaffoBlù *** "),1,3,0
ScriviResoconto,True
Scrivi " Tempo elaborazione " & TempoTrascorso
End Sub
