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 responsabil

x me è ARABO

 

[Antonin]

x me è ARABO

e' uno script per spaziometria,basta lanciarlo ad ogni 1° del mese ed hai le previsioni gia' pronte.
Ora e' in corso 11-19 su BA/CA e se vuoi utilizzare il complementare di Pandit 90-11=79,quindi 11-19-79 anche a tutte . che e' gia' uscito a Palermo 11-79

 

[Baciccia4251]

x me è ARABO

أنا لا أفهم أي شيء أيضا

 

[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.

grazie x la spiegazione

 

[Arianna22]

Grazie !

 

[Antonin]

 

[Antonin]

Vi ricordo che per questo mese di novembre abbiamo in corso ancora 11-19 a Bari/Cagliari

 

[claudio8]

Vi ricordo che per questo mese di novembre abbiamo in corso ancora 11-19 a Bari/Cagliari

Mi spieghi che progressione va fatta per avere un andamento economico in attivo?

 

[Antonin]

Mi aspettavo una risposta del genere,La risposta e' mensile,se non hai la cassa da parte delle vincite,non ci provare nemmeno.

 

[claudio8]

Mi aspettavo una risposta del genere,La risposta e' mensile,se non hai la cassa da parte delle vincite,non ci provare nemmeno.

Hai frainteso, la mia non è una risposta, la mia è una domanda.

Ti ho chiesto di mostrare con una progressione gli importi di giocata che occorrono per andare in attivo, cioè di sapere quanti soldi ci vogliono per giocare tutto il mese, in soldoni, quanto deve essere la cassa delle vincite per seguire una previsione di 2 ambate + ambetto su 2 ruote per massimo 17 colpi?