Novità

Prima del mese

scarfacetony

Senior Member
Buona serata a tutti,metodino per chi vuole fare uno script,allora prima estrazione del mese, si prende il primo di Venezia,si addiziona il fisso 35, sempre al primo di Venezia si addiziona il fisso 60,i due risultati per ambata,ambo ambetto sulla Nazionale
Buon fine settimana a tutti
 
Se Ti va bene...
Option Explicit
Sub Main
' Toon for Scarfacetony
Dim es,Ruote(4),Nu(8),Posta(4)
Dim Poste(2),a,b,c,d,k,cg,ruota(3)
'Ruote(1) = 3:Ruote(2) = 6:Ruote(3) = 10
Ruote(1) = 12
ruota(1) = 12
Posta(1) = 1
Posta(2) = 1
Poste(2) = 0.5
k = 13
For es = EstrazioneFin - 208 To EstrazioneFin
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,10,1) + 35)
b = Fuori90(Estratto(es,10,1) + 60)
'***
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(10) & " - " & StringaEstratti(es,10) & " AMBATE -> " & CInt(a)& " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(53,152)
cg = 0
cg = cg + 1
'***
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ImpostaGiocata cg,Nu,ruota,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " AMBETTI ",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Nu(1) = b
Nu(2) = Fuori90(a + 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Nu(1) = b
Nu(2) = Fuori90(90 + a - 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
 
Se Ti va bene...
Option Explicit
Sub Main
' Toon for Scarfacetony
Dim es,Ruote(4),Nu(8),Posta(4)
Dim Poste(2),a,b,c,d,k,cg,ruota(3)
'Ruote(1) = 3:Ruote(2) = 6:Ruote(3) = 10
Ruote(1) = 12
ruota(1) = 12
Posta(1) = 1
Posta(2) = 1
Poste(2) = 0.5
k = 13
For es = EstrazioneFin - 208 To EstrazioneFin
If IndiceMensile(es) = 1 Then
a = Fuori90(Estratto(es,10,1) + 35)
b = Fuori90(Estratto(es,10,1) + 60)
'***
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(10) & " - " & StringaEstratti(es,10) & " AMBATE -> " & CInt(a)& " -> " & CInt(b),1
ColoreTesto 1:Scrivi String(53,152)
cg = 0
cg = cg + 1
'***
Nu(1) = a
Nu(2) = b
EliminaRipetuti Nu
ImpostaGiocata cg,Nu,ruota,Posta,k
Gioca es,1
ColoreTesto 1:Scrivi " AMBETTI ",1
Scrivi
Nu(1) = a
Nu(2) = Fuori90(b + 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Nu(1) = a
Nu(2) = Fuori90(90 + b - 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Nu(1) = b
Nu(2) = Fuori90(a + 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Nu(1) = b
Nu(2) = Fuori90(90 + a - 1)
cg = cg + 1
ImpostaGiocata cg,Nu,Ruote,Poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub
Grazie mille
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40
Indietro
Alto