2 ambi secchi e 1 terzina per ambo ( NO AMBATA)

[Antondavide]

Donatella nel pronostico dell'ultima del mese la terzina non dovrebbe essere 54-45-9?

 

[donatella]

Donatella nel pronostico dell'ultima del mese la terzina non dovrebbe essere 54-45-9?

Ciao
Giusto Antondavide : corretto! Grazie

 

[SoLillo]

qualcuno può postare uno script grazie

 

[SoLillo]

posto questi due script dal metodo donatella script curato da djnomade e qualche mia correzzione
valuate ok

'Due Ambi Secchi e 1 Terzina by Donatella
ColoreTesto 1
Scrivi" Due Ambi Secchi e 1 Terzina by Donatella ",1
Scrivi
Scrivi Date & _
Chr(32) & Chr(108) & Chr(105) & Chr(115) & Chr(116) & Chr(46) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(68) & Chr(106) & Chr(78) & Chr(111) & Chr(109) & Chr(97) & Chr(100) & Chr(101),1
Scrivi String(2,Chr(11)):
ColoreTesto 0
Sub Main()
'https://forum.lottoced.com/threads/richiesta-script.2220591/page-2#post-2720386
Dim ambata(10)
Dim ambataV(10)
Dim cou1(6),cou2(6),cou3(7),cou4(5)
Dim abb(5)
Dim ruota(10),ruote1(10),ruote(10)
Dim posta(5),poste2(3)
Dim poste(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
k = 13
Dim A,B,C,D,E,F,G,H,I
ruota(1) = GE_
ruota(2) = 11
ruote(1) = CA_
ruote(2) = RO_
ruote(3) = 11

fin = EstrazioneFin
ini = fin - 500
Scrivi " Ricerca 1°del mese "
For es = ini To fin
If IndiceMensile(es) = 1 Then
A = Fuori90(Estratto(es,CA_,1) + 5)
B = Figura(A) & Figura(A)
C = Figura(A) & 9

Scrivi"**********PRIMA ESTRAZIONE del mese*********************"

Scrivi DataEstrazione(es) & " CAGLIARI " & StringaEstratti(es,CA_),1

Scrivi

cou2(1) = A
cou2(2) = B
ImpostaGiocata 1,cou2,ruote,poste,k
cou2(1) = A
cou2(2) = C
EliminaRipetuti cou2
ImpostaGiocata 2,cou2,ruote,poste,k
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(A)

EliminaRipetuti cou3
ImpostaGiocata 3,cou3,ruota,poste2,k
cou4(1) = A
cou4(2) = B
cou4(3) = C
cou4(4) = Vert(A)
cou4(5) = Figura(A)
EliminaRipetuti cou4
ImpostaGiocata 4,cou4,ruota,poste2,k


Gioca es


End If
Next
ScriviResoconto
End Sub




ultima



'Due Ambi Secchi e 1 Terzina by Donatella
ColoreTesto 1
Scrivi" Due Ambi Secchi e 1 Terzina by Donatella ",1
Scrivi
Scrivi Date & _
Chr(32) & Chr(108) & Chr(105) & Chr(115) & Chr(116) & Chr(46) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(68) & Chr(106) & Chr(78) & Chr(111) & Chr(109) & Chr(97) & Chr(100) & Chr(101),1
Scrivi String(2,Chr(11)):
ColoreTesto 0
Sub Main()
'https://forum.lottoced.com/threads/richiesta-script.2220591/page-2#post-2720386
Dim ambata(10)
Dim ambataV(10)
Dim cou1(6),cou2(6),cou3(7),cou4(5)
Dim abb(5)
Dim ruota(10),ruote1(10),ruote(10)
Dim posta(5),poste2(3)
Dim poste(5)
posta(1) = 1
poste(2) = 1
poste2(2) = 1
poste2(3) = 1
k = 13
Dim A,B,C,D,E,F,G,H,I
ruota(1) = GE_
ruota(2) = 11
ruote(1) = CA_
ruote(2) = RO_
ruote(3) = 11

fin = EstrazioneFin
ini = fin - 500
Scrivi " Ricerca Ultima del mese "
For es = ini To fin
If IndiceMensile(es+1) = 1 Then
A = Fuori90(Estratto(es,CA_,1) + 5)
B = Figura(A) & Figura(A)
C = Figura(A) & 9

Scrivi"********************************Ricerca Ultima del mese************"

Scrivi DataEstrazione(es) & " CAGLIARI " & StringaEstratti(es,CA_),1

Scrivi

cou2(1) = A
cou2(2) = B
ImpostaGiocata 1,cou2,ruote,poste,k
cou2(1) = A
cou2(2) = C
EliminaRipetuti cou2
ImpostaGiocata 2,cou2,ruote,poste,k
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(A)

EliminaRipetuti cou3
ImpostaGiocata 3,cou3,ruota,poste2,k
cou4(1) = A
cou4(2) = B
cou4(3) = C
cou4(4) = Vert(A)
cou4(5) = Figura(A)
EliminaRipetuti cou4
ImpostaGiocata 4,cou4,ruota,poste2,k
Gioca es

End If
Next
ScriviResoconto
End Sub

 

[SoLillo]

V N. [05.50.55.59 ] [TT] [RO][59 .. .. 05 ..] C. 2 Ambo 10601 [ 37 - 06/03/2025]

 

[Pomito]

Ciao Matt68 nello script ho inserito la figura nove e lo si può utilizzare sia alla prima o ultima estrazione

Sub Main()
Scrivi
Scrivi Space(3) & " Metodo di donatella - Script Pomito" & Space(3),1,,4,,3,,1
Scrivi " Metodo 2 ambi e una terzina alla prima del mese o ultima del mese ",1
Scrivi
Dim ruota(10),ruote(3)
Dim n1(10)
Dim n2(10)
Dim poste(5),postee(3)
Dim posta(5)
casi = 0
ruota(1) = CA_
ruota(2) = RO_
ruota(3) = TT_
ruote(1) = GE_
ruote(2) = TT_
poste(1) = 1
posta(2) = 1
postee(2) = 1
postee(3) = 1
k = 18
y = 3
ini = EstrazioneFin - 500
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
'If IsUltimaDelMese(es) Then 'togliere l'apice per ultima del mese e metterla alla prima
a = Fuori90((Estratto(es,CA_,1) + 5))
b =(Figura(a))
c =((b) &(b))
d =((b) &(9))
If b = 9 Then c = 90
If c = 90 Then d = 9
n1(1) = a
n1(2) = c
ImpostaGiocata 1,n1,ruota,posta,k,y
n1(1) = a
n1(2) = d
ImpostaGiocata 2,n1,ruota,posta,k,y
n2(1) = a
n2(2) = Vert(a)
n2(3) = b
n2(4) = c
n2(5) = d
EliminaRipetuti n2
ImpostaGiocata 3,n2,ruote,postee,k,y
Gioca es,1
casi = casi + 1
End If
Next
Scrivi
Scrivi "Numero Totale casi analizzati: " & CInt(casi)
ScriviResoconto
Scrivi
Scrivi " Metodo 2 ambi Bari",1
Scrivi
End Sub

 

[donatella]

Grazie Matt e Pomito per gli script!
Pronostico marzo :
33.66 - 33.69
giocare a : Cagliari -Roma . tutte
A.T : 33.66.69.06
giocare per ambo e terno a : Genova
giocare per terno anche Tutte

 

[SoLillo]

Grazie Matt e Pomito per gli script!
Pronostico marzo :
33.66 - 33.69
giocare a : Cagliari -Roma . tutte
A.T : 33.66.69.06
giocare per ambo e terno a : Genova
giocare per terno anche Tutte

Grazie a te per queste perle Grazie 1000 a tutti sono sempre contento quando si collaboara insieme

 

[donatella]

Estrazione n° 45 del 20.03 :
Firenze : ambo secco 33.69