vi regalo due ottimi metodi

[sospetto]

script Spia 88 su NA.

Sub Main()
Dim aruo(2)
Dim aposte(3)
aposte(1) = 10 'x ambata
aposte(2) = 1 'x ambo
aposte(3) = 1 'x terno
Dim ambata(1)
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,6))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,88))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,300))
clp = CInt(InputBox("QUANTI COLPI?",,6))
co = 0' contatore
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
anum(1) = Fuori90(Estratto(es,CA_,2) + 42)
anum(2) = Fuori90(Estratto(es,NZ_,2) + 21)


anum(4) = Fuori90(Estratto(es,FI_,1) * 34)

aruo(1) = NA_
ambata(1) = anum(1)
co = co + 1
Scrivi
Scrivi "Caso n°: " & CInt(co),1
Scrivi "NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data " & DataEstrazione(es),1
ImpostaGiocata 1,ambata,aruo,aposte,clp
ImpostaGiocata 2,anum,aruo,aposte,clp
Gioca es
End If
Next
ScriviResoconto
End Sub

 

[irepi]