Novità

Un regalo ideato da Antonin per tutti, programmato da Pandit

Antonin

Super Member >PLATINUM<
Sub Main
' by Pandit for Antonin
Dim num(5),Ru(12),nu(2),R(5),n(6)
Dim poste(5),ini,fin,posta(1)
posta(1) = 1
poste(2) = 1
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = 1 Then
a = Estratto(es,1,5)
b = Estratto(es,2,1)
If a > b Then
e = a - b
End If
If a < b Then
e = b - a
End If
f = Fuori90(Vert(e))
g = 90 -(e)
'P***
nu(1) = e
nu(2) = f
'P***
num(1) = e
num(2) = f
num(3) = g
'P***
R(1) = 1:R(2) = 2
'P***
Ru(1) = 1:Ru(2) = 2:Ru(3) = 11
'P***
ImpostaGiocata 1,nu,R,posta,17
ImpostaGiocata 2,num,Ru,poste,17,2
Gioca es,1
ColoreTesto 1
Scrivi String(105,"=") : ColoreTesto 1
End If
Next
ScriviResoconto
End Sub
'Ambate certe al 100%, peccato che il complementare si abbina poche volte con i vertibili,ma utile su tutte le ruote,su 111 casi ha dato l ambo a tutte 82 volte.
Spero di avervi fatto cosa gradita a tutti. ma siate sempre cauti,e responsabili.
 
Sub Main
' by Pandit for Antonin
Dim num(5),Ru(12),nu(2),R(5),n(6)
Dim poste(5),ini,fin,posta(1)
posta(1) = 1
poste(2) = 1
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = 1 Then
a = Estratto(es,1,5)
b = Estratto(es,2,1)
If a > b Then
e = a - b
End If
If a < b Then
e = b - a
End If
f = Fuori90(Vert(e))
g = 90 -(e)
'P***
nu(1) = e
nu(2) = f
'P***
num(1) = e
num(2) = f
num(3) = g
'P***
R(1) = 1:R(2) = 2
'P***
Ru(1) = 1:Ru(2) = 2:Ru(3) = 11
'P***
ImpostaGiocata 1,nu,R,posta,17
ImpostaGiocata 2,num,Ru,poste,17,2
Gioca es,1
ColoreTesto 1
Scrivi String(105,"=") : ColoreTesto 1
End If
Next
ScriviResoconto
End Sub
'Ambate certe al 100%, peccato che il complementare si abbina poche volte con i vertibili,ma utile su tutte le ruote,su 111 casi ha dato l ambo a tutte 82 volte.
Spero di avervi fatto cosa gradita a tutti. ma siate sempre cauti,e responsabili.
Se vincerò, giuro che mi potrai offrire il pranzo. Ecche pera cotta sono Ligure!
Danke, Thanks, Gnaognao (dalla mia gatta)
 
Sub Main
' by Pandit for Antonin
Dim num(5),Ru(12),nu(2),R(5),n(6)
Dim poste(5),ini,fin,posta(1)
posta(1) = 1
poste(2) = 1
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = 1 Then
a = Estratto(es,1,5)
b = Estratto(es,2,1)
If a > b Then
e = a - b
End If
If a < b Then
e = b - a
End If
f = Fuori90(Vert(e))
g = 90 -(e)
'P***
nu(1) = e
nu(2) = f
'P***
num(1) = e
num(2) = f
num(3) = g
'P***
R(1) = 1:R(2) = 2
'P***
Ru(1) = 1:Ru(2) = 2:Ru(3) = 11
'P***
ImpostaGiocata 1,nu,R,posta,17
ImpostaGiocata 2,num,Ru,poste,17,2
Gioca es,1
ColoreTesto 1
Scrivi String(105,"=") : ColoreTesto 1
End If
Next
ScriviResoconto
End Sub
'Ambate certe al 100%, peccato che il complementare si abbina poche volte con i vertibili,ma utile su tutte le ruote,su 111 casi ha dato l ambo a tutte 82 volte.
Spero di avervi fatto cosa gradita a tutti. ma siate sempre cauti,e responsabil
:oops::oops::oops::oops::oops::oops::oops: x me è ARABO
 
Ultima modifica:
Sub Main
' by Pandit for Antonin
Dim num(5),Ru(12),nu(2),R(5),n(6)
Dim poste(5),ini,fin,posta(1)
posta(1) = 1
poste(2) = 1
ini = EstrazioneFin - 1500
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then
If IndiceMensile(es) = 1 Then
a = Estratto(es,1,5)
b = Estratto(es,2,1)
If a > b Then
e = a - b
End If
If a < b Then
e = b - a
End If
f = Fuori90(Vert(e))
g = 90 -(e)
'P***
nu(1) = e
nu(2) = f
'P***
num(1) = e
num(2) = f
num(3) = g
'P***
R(1) = 1:R(2) = 2
'P***
Ru(1) = 1:Ru(2) = 2:Ru(3) = 11
'P***
ImpostaGiocata 1,nu,R,posta,17
ImpostaGiocata 2,num,Ru,poste,17,2
Gioca es,1
ColoreTesto 1
Scrivi String(105,"=") : ColoreTesto 1
End If
Next
ScriviResoconto
End Sub
'Ambate certe al 100%, peccato che il complementare si abbina poche volte con i vertibili,ma utile su tutte le ruote,su 111 casi ha dato l ambo a tutte 82 volte.
Spero di avervi fatto cosa gradita a tutti. ma siate sempre cauti,e responsabili.
grazie x la spiegazione :coffee::coffee:
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 ottobre 2024
    Bari
    16
    03
    32
    19
    10
    Cagliari
    90
    68
    24
    31
    87
    Firenze
    05
    20
    22
    03
    53
    Genova
    15
    16
    69
    05
    36
    Milano
    58
    86
    89
    42
    66
    Napoli
    32
    26
    29
    69
    01
    Palermo
    42
    33
    82
    35
    57
    Roma
    28
    74
    31
    47
    44
    Torino
    15
    75
    07
    20
    39
    Venezia
    25
    47
    73
    67
    01
    Nazionale
    80
    52
    23
    71
    49
    Estrazione Simbolotto
    40
    29
    22
    45
    35
Indietro
Alto