Spia 79 a ba

[sergio581]

ciao....mi sembra che sia questo lo script che cerchi...
vedi se ti va bene !

Sub Main()
Dim aruo(2)
Dim aposte(3)
aposte(1) = 10 'x ambata
aposte(2) = 1 'x ambo
aposte(3) = 1 'x terno
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,79))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160))
clp = CInt(InputBox("QUANTI COLPI?",,9))
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,BA_,1) + 73)
anum(2) = Fuori90(Estratto(es,FI_,1)*53)
anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
aruo(1) = BA_
aruo(2) = CA_
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,anum,aruo,aposte,clp
Gioca es
End If
Next
ScriviResoconto
End Sub

 

[mau]

Ciao mau volevo chiederti gentilmente hai qualche tabella dei numeri spia o portatori se non ti chiedo troppo grazie

ciao briciola68,
mi spiace, ma non ho tabelle con numeri spia ed altro... a parte qualche metodo con dei numeri spia.
Comunque, se sfogli i post di questa sezione ne trovi moltissimi.
ciao e buona serata a tutti

 

[briciola68]

ok grazie