Un regalo ideato da Antonin per tutti, programmato da Pandit

[Antonin]

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.

 

[solare]

grazie

 

[Baciccia4251]

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)

 

[kira]

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.

e x ki tutto questo(andaraban) è ARABO cosa ci sarebbe da giocare e dove?