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
    sabato 12 aprile 2025
    Bari
    47
    07
    11
    43
    61
    Cagliari
    34
    14
    81
    89
    79
    Firenze
    81
    16
    28
    03
    21
    Genova
    85
    04
    45
    60
    29
    Milano
    69
    30
    06
    13
    55
    Napoli
    12
    03
    48
    31
    24
    Palermo
    48
    06
    68
    66
    28
    Roma
    69
    25
    09
    48
    86
    Torino
    29
    85
    52
    54
    62
    Venezia
    90
    61
    34
    79
    37
    Nazionale
    18
    14
    88
    10
    27
    Estrazione Simbolotto
    Genova
    39
    20
    02
    13
    26
Indietro
Alto