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.
Al primo colpo ecco l'ambata 20 (2^pos) sulla ruota di Bari e volendo ambetto con il 52.Previsione in gioco dal 31/08/24
Ruote di gioco: Bari-Cagliari
Ambata: 20 (consigliate 2^-3^pos)
1°abb: 13
2°abb: 41
3°abb: 51
Quartina: 13-20-41-51
ottimo
GrazieVeles valesDambu
GrazieBravissimo
GrazieComplimenti DamBu
Sì anche a me risulta cosìScusa ma non mi ricordavo che è tto spiegato molto bene, ho fatto ora il calcolo, Bari e Cagliari 20 x ambo 4 79 51,giusto?
Scusa ma non mi ricordavo che è tto spiegato molto bene, ho fatto ora il calcolo, Bari e Cagliari 20 x ambo 4 79 51,giusto?
Tutto giustoSì anche a me risulta così
fanno sempre piacere i listati grazie 1000ciao dambu spero che il listato faccia piacere a qualcuno
Sub Main() ColoreTesto 1
Scrivi " METODO DAMBU SPIA 88 A CAGLIARI GIOCARE AMBATA AMBI SU BARI CAGLIARI --------LISTATO BY ROY - COLPI 13",1
Scrivi
ColoreTesto 0
Dim ruota(2),ruote(3)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2)
Dim poste(1)
Dim posta(2)
poste(1) = 1
posta(2) = 1
ruota(1) = 1
ruota(2) = 2
ruote(1) = 1
ruote(2) = 2
ruote(3) = 11
r = 2
spia = 88
klp = 13
ini = 8740
ee = 190
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO DAMBU SPIA 88 A CAGLIARI GIOCARE AMBATA AMBI SU BARI CAGLIARI -------- LISTATO BY ROY COLPI 13",1
Scrivi " SE CI FOSSE UN NUMERO UGUALE SOMMARE LO STESSO AL 19"
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
a = 20
b = Fuori90(Estratto(es,GE_,5) + 53)
c = Fuori90(Estratto(es,VE_,5) + 22)
d = 51
ambata(1) = a
ImpostaGiocata 1,ambata,ruota,poste,klp
ambo1(1) = a
ambo1(2) = b
ImpostaGiocata 2,ambo1,ruote,posta,klp
ambo2(1) = a
ambo2(2) = c
ImpostaGiocata 3,ambo2,ruote,posta,klp
ambo3(1) = a
ambo3(2) = d
ImpostaGiocata 4,ambo3,ruote,posta,klp
Gioca es,True
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub