X claudio8

[jobby73]

Chiedo scusa è possibile avere anche lo script della nuova spia 86 di rob? ho quella del 79 e del 44.. mi piacerebbe avere anche quella .. grazie claudio sempre gentile.. quando puoi non c'è problema...

 

[bergie]

Chiedo scusa è possibile avere anche lo script della nuova spia 86 di rob? ho quella del 79 e del 44.. mi piacerebbe avere anche quella .. grazie claudio sempre gentile.. quando puoi non c'è problema...

'http://forum.lottoced.com/f8/bari%3Dspia-86-nuova-anche-x-terno-secco-90127/
'metodo Rob listato da Claudio8
'Capogioco: 1° Ba X 2° Ge
'Calcolo Abbinamenti per ambo:
'Abbinamento 1: 1° Ca + 1° Fi
'Abbinamento 2: 5° Ca + 61
'Calcolo Abbinamenti per terno:
'Abbinamento 1: 2° Ca X 5°Pa
'Abbinamento 2: 5° Fi + 4°To
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?",,2))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,86))
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) * Estratto(es,GE_,2))
anum(2) = Fuori90(Estratto(es,CA_,1) + Estratto(es,FI_,1))
anum(3) = Fuori90(Estratto(es,CA_,5) + 61)
anum(4) = Fuori90(90 + Estratto(es,CA_,2) * Estratto(es,PA_,5))
anum(5) = Fuori90(Estratto(es,FI_,5) + 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

 

[jobby73]

Grazie Bergie... gentilissimo