A volte basta uno script facile per tutti.

[Venuslotto]

Questa è la lista di 2 precedenti:Vedi l'allegato 2297877

ok ma il calcolo mensile come si fa' grazie e scusami se ti rompo....

 

[Pandit]

Se vuoi Ti passo lo script, puoi cambiare il numero da aggiungere in automatico, ovviamente se lo usi ... Mi è stato passato da Toon, che lo aveva fatto per Better, alias Missione Impossibile.

Anticipazione (Spoiler)

'Metodo Better per Ambata
'Script by Toon
Sub Main()
Dim poste(5),n(6),Ru(12)
Dim ruota(12),R(12),posta(5)
Dim n1(3),r1,p1,p2
poste(1) = 1
posta(2) = 1
ini = EstrazioneFin - 200
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
If IndiceMensile(Es) = 1 Then
'**
For r1 = 1 To 1
For p1 = 1 To 1
For p2 = 5 To 5
a = Estratto(es,r1,p1)
ok = 0
n1(1) = Fuori90(a + 55)' Qui IL NUMERO CHE PUOI CAMBIARE
ruota(1) = r1
ok = 1
'**
n(1) = n1(1)
n(2) = 90 -(n1(1))
n(3) = 90 -(n(4))
n(4) = Vert(n(1))
'**
R(2) = 1:R(3) = 10
If ok = 1 Then
co = co + 1
ColoreTesto 1
ColoreTesto 1:Scrivi String(87,152) & " Caso n°" & Co,1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r1) & "..." & StringaEstratti(es,r1) & "..." & SiglaRuota(r1) & " + 55 = " & CInt(n(1)),1
ImpostaGiocata 1,n1,R,poste,15',1
Gioca es,1
End If
Next
Next
Next
End If
Next

 

[Venuslotto]

Se vuoi Ti passo lo script, puoi cambiare il numero da aggiungere in automatico, ovviamente se lo usi ... Mi è stato passato da Toon, che lo aveva fatto per Better, alias Missione Impossibile.

Anticipazione (Spoiler)

'Metodo Better per Ambata
'Script by Toon
Sub Main()
Dim poste(5),n(6),Ru(12)
Dim ruota(12),R(12),posta(5)
Dim n1(3),r1,p1,p2
poste(1) = 1
posta(2) = 1
ini = EstrazioneFin - 200
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
If IndiceMensile(Es) = 1 Then
'**
For r1 = 1 To 1
For p1 = 1 To 1
For p2 = 5 To 5
a = Estratto(es,r1,p1)
ok = 0
n1(1) = Fuori90(a + 54)' 54 IL NUMERO CHE PUOI CAMBIARE
ruota(1) = r1
ok = 1
'**
n(1) = n1(1)
n(2) = 90 -(n1(1))
n(3) = 90 -(n(4))
n(4) = Vert(n(1))
'**
R(2) = 1:R(3) = 10
If ok = 1 Then
co = co + 1
ColoreTesto 1
ColoreTesto 1:Scrivi String(87,152) & " Caso n°" & Co,1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r1) & "..." & StringaEstratti(es,r1) & "..." & SiglaRuota(r1) & " + 54 = " & CInt(n(1)),1
ImpostaGiocata 1,n1,R,poste,15',1
Gioca es,1
End If
Next
Next
Next
End If
Next
ScriviResoconto
End Sub

Grazie Pandit ho provato ma non mi piace,c'e qualcosa di diverso rispetto alla tabella di better.

 

[Pandit]

L'ho modificato come in tabella, riscaricalo..
Pero se guardi, se all'1 è associato il 55, vuol dire che 1 + 54 = 55, quindi il calcolo giusto è quello di prima.
Comunque cambiando quella cifra puoi fare diverse prove e sperimentare...

 

[Venuslotto]

L'ho modificato come in tabella, riscaricalo..
Pero se guardi, se all'1 è associato il 55, vuol dire che 1 + 54 = 55, quindi il calcolo giusto è quello di prima.
Comunque cambiando quella cifra puoi fare diverse prove e sperimentare...

Grazie Pandit per la tua pazienza