Novità

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

Ciao,
I miei calcoli di Luglio del Testa Coda sono stati fatti il 7/9/11:
Torino e Venezia 50 + 3-47
Torino e Venezia 56+27-29 (calcolati da Milly) e
Torino e Venezia 8 + 32-66
 
Ultima modifica:
se posso con il permesso di Donatella metto lo script per l8

Sub Main()
Dim ruo(10),ruot(10),ruote(10),ruota(10)
Dim nu(5),nnu(5),nuu(5),nn1(5)
Dim po(2),post(3),posta(5),poste(5),postee(2)
post(1) = 1:posta(2) = 1:poste(2) = 1:poste(3) = 1:po(2) = 0.26
For es = 10780 To EstrazioneFin
If IndiceMensile(es) = 5 Then
Scrivi "----------------------------------------------------"
Scrivi " T E S T A ---- C O D A -- DI -- DONATELLA ",1
Scrivi "----------------------------------------------------"
ruo(1) = 10:ruot(1) = 9:ruot(2) = 10:ruota(1) = 9:ruota(2) = 10:ruota(3) = 11
ruote(1) = 9:ruote(2) = 10
a = Fuori90(Estratto(es,1,1))
a1 = Fuori90(Estratto(es,1,3))
a2 = Distanza(a,a1) ' ambata1
b = Fuori90(Estratto(es,2,1))
b1 = Fuori90(Estratto(es,2,3))
b2 = Distanza(b,b1) ' ambata2
c = Fuori90(a2 + b2) ' ambata su TO VE
ColoreTesto 2
Scrivi "==========",1
Scrivi " ESTRATTO ",1
Scrivi "==========",1
ColoreTesto 0
nu(1) = c
ImpostaGiocata 1,nu,ruot,post,17
nu(1) = a2
ImpostaGiocata 2,nu,ruot,post,17
nu(1) = b2
ImpostaGiocata 3,nu,ruot,post,17
Gioca es
ColoreTesto 2
Scrivi "======",1
Scrivi " AMBO ",1
Scrivi "======",1
ColoreTesto 0
nnu(1) = c
nnu(2) = a2
ImpostaGiocata 1,nnu,ruota,posta,17
nnu(1) = c
nnu(2) = b2
ImpostaGiocata 2,nnu,ruota,posta,17
nnu(1) = a2
nnu(2) = b2
ImpostaGiocata 3,nnu,ruota,posta,17
Gioca es
ColoreTesto 2
Scrivi "============",1
Scrivi " AMBO TERNO ",1
Scrivi "============",1
ColoreTesto 0
nuu(1) = a2
nuu(2) = b2
nuu(3) = c
ImpostaGiocata 1,nuu,ruote,poste,17
Gioca es
ColoreTesto 2
Scrivi "=====================",1
Scrivi " AMBETTI della terna ",1
Scrivi "=====================",1
ColoreTesto 0
nn1(1) = c
nn1(2) = a2 + 1
ImpostaGiocata 1,nn1,ruo,po,17
nn1(1) = c
nn1(2) = a2 - 1
ImpostaGiocata 2,nn1,ruo,po,17
nn1(1) = c + 1
nn1(2) = a2
ImpostaGiocata 3,nn1,ruo,po,17
nn1(1) = c - 1
nn1(2) = a2
ImpostaGiocata 4,nn1,ruo,po,17
nn1(2) = b2 + 1
ImpostaGiocata 5,nn1,ruo,po,17
nn1(1) = c
nn1(2) = b2 - 1
ImpostaGiocata 6,nn1,ruo,po,17
nn1(1) = c + 1
nn1(2) = b2
ImpostaGiocata 7,nn1,ruo,po,17
nn1(1) = c - 1
nn1(2) = b2
ImpostaGiocata 8,nn1,ruo,po,17
nn1(1) = a1
nn1(2) = a2 + 1
ImpostaGiocata 9,nn1,ruo,po,17
nn1(1) = a1
nn1(2) = a2 - 1
ImpostaGiocata 10,nn1,ruo,po,17
nn1(1) = a1 + 1
nn1(2) = a2
ImpostaGiocata 11,nn1,ruo,po,17
nn1(1) = a1 - 1
nn1(2) = a2
ImpostaGiocata 12,nn1,ruo,po,17
Gioca es
End If
Next
ScriviResoconto
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 30 ottobre 2026
    Bari
    58
    79
    20
    27
    07
    Cagliari
    64
    45
    51
    54
    62
    Firenze
    84
    69
    21
    54
    78
    Genova
    70
    24
    76
    56
    73
    Milano
    32
    36
    19
    33
    72
    Napoli
    01
    38
    67
    70
    36
    Palermo
    78
    04
    72
    84
    74
    Roma
    58
    70
    85
    21
    34
    Torino
    49
    82
    36
    69
    84
    Venezia
    21
    86
    70
    33
    63
    Nazionale
    06
    24
    10
    28
    63
    Estrazione Simbolotto
    37
    35
    11
    36
    06

Ultimi Messaggi

Indietro
Alto