Testacoda : 1 ambata - 2 ambi secchi a To . Ve

[Milly63]

Ambetto su VE 18 23

 

[Milly63]

Ambetto su VE 18 23

 

[blusolemare]

Testa coda alla 4.a e 5.a del mese:
Torino & Venezia 17 + 6-11
Torino & Venezia 24 + 6-18

 

[donatella]

Ciao blusolemare
questa sera ambo 17.06 a Cagliari ( tutte)

 

[Milly63]

Questa sera ambo su tutte milano 18 24

 

[MaxAlex19]

AMBETTO NON SO COME SIFA!!!!!!!!!
--------------------------------------------------------------

Sub Main
Call Scrivi(" METODO TESTACODA ******** DONATELLA************")
Dim ruote(10)
Dim r(10)
Dim am(10)
Dim am1(10)
Dim am2(10)
Dim aa(2)
Dim ambata(10)
Dim posta(10)
Dim poste(10)
poste(1) = 1

posta(2) = 1.00
posta(3) = 0.50

ruote(1) = 9
ruote(2) = 10
'ruote(3) = 1

r(1) = 9
r(2) = 10
r(3) = 1
'r(4) = 11

k = 15
y = 1

For n = 9460 To EstrazioneFin
If IndiceMensile = 5 Then
casi = casi + 1
a = Differenza(Estratto(n,1,1),Estratto(n,1,3))
b = Differenza(Estratto(n,2,1),Estratto(n,2,3))
c = Fuori90(a + b)

Scrivi String(90," - ") & " Caso n° " & casi,1

ra1 = SerieRitardo(ini,e,ambata,ruote,1)
ColoreTesto 2:Scrivi "Ritardo x Ambata sulla Ruota = " & Format2(ra1):ColoreTesto 0
ambata(1) = c

ImpostaGiocata 1,ambata,ruote,poste,k,1
am(1) = a
am(3) = c
'ImpostaGiocata 2,am,r,posta,k
am1(2) = b
am1(3) = c
'ImpostaGiocata 3,am1,r,posta,k
am2(1) = a
am2(2) = b
am2(3) = c
ImpostaGiocata 4,am2,r,posta,k

Gioca n
End If


Next
Call Scrivi("BARI e CAGLIARIx TO VE")
ColoreTesto 2
Scrivi String(70,"=") & "lottofortune ",1
ColoreTesto 0
ScriviResoconto
End Sub

----------------------------------------------------------------
GLI SCRIPT NON LI SO FARE LI MODIFICO

CIAO

CIAO SCUSA IGNORANZA MA TUTTO QUESTO CODICE DOVE ANDREBBE MESSO IN UN FILE EXCEL?

 

[antonioquagliozzi]

scarica spaziometria 1654 0ppure 1634

 

[MaxAlex19]

scarica spaziometria 1654 0ppure 1634

Grazie