modifica script solo con numeri dispari

[ppaaoolloo]

ciao
lo script che riporto qui sotto è fatto per i numeri consecutivi,
io lo vorrei modificato:
i numeri in ordine crescente come adesso
ma solo con i numeri dispari.

grazie





Sub Main()
Dim Ru(1),nu(20)
ReDim aRuote(11)
sorte = CInt(InputBox("SORTE",,1))
Fin = EstrazioneFin
If ScegliRuote(aRuote) > 0 Then
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For R = 1 To 12 : Ru(1) = r
min = 1000 : max = 0
For d = 0 To 90
For u = 1 To 5 : nu(u) = Fuori90(1*d + u) : Next
Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)
srup = SerieFreq(fin,fin,nu,Ru,1)
sf = SerieFreq(fin - 1000,fin,nu,Ru,sorte)
st = SerieStorico(fin - 1000,fin,nu,Ru,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,Ru,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,Ru,fin,1,1,,esitoU,,estrattiU,idU)
If id = fin Then
ColoreTesto 2
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
Else
ColoreTesto 0
Scrivi SiglaRuota(k) & " " & StringaNumeri(nu,,1) & " RC = " & FormatSpace(Sr,3,1),0,0
Scrivi " " & "Sto = " & FormatSpace(st,3) & " " & "Freq = " & FormatSpace(sf,4) & " " & " Fre_es : " & srup,0,0
Scrivi " " & estratti,0,0
Scrivi " " & GetInfoEstrazione(id),0,0
Scrivi vbTab & estrattiU
End If
'End If
Next
End If
ColoreTesto 0
Scrivi SiglaRuota(k) & " Min = " & FormatSpace(min,3,1),1,1
Scrivi SiglaRuota(k) & " Max = " & FormatSpace(max,3,1),1,1
Scrivi
Next
Scrivi "Ruote Unite.......................Per sorte di : " & NomeSorte(sorte),1
ReDim T(10)
T(1) = " Ruote "
T(2) = " Combinazione "
T(3) = " Rc "
T(4) = " RS "
T(5) = " Freq "
T(6) = " Fre_es & Fre_es-1 "
T(7) = " Esito a Rc "
T(8) = " Data a Rc "
T(9) = " Esito Fin "
T(10) = " Esito fin-1 "
Call InitTabella(T,2,,2,5)
For d = 0 To 8
For u = 1 To 15
nu(u) = Fuori90(10*d + u)
Next
Sr = SerieRitardo(fin - 1000,fin,nu,aRuote,sorte)
srup = SerieFreq(fin,fin,nu,aRuote,1)
srp = SerieFreq(fin - 1,fin - 1,nu,aRuote,1)
sf = SerieFreq(fin - 1000,fin,nu,aRuote,sorte)
st = SerieStorico(fin - 1000,fin,nu,aRuote,sorte)
If Sr < Min Then min = Sr
If sr > max Then max = sr
Call VerificaEsito(nu,aRuote,fin - sr,sorte,,,,,estratti,id)
Call VerificaEsito(nu,aRuote,fin,1,1,,esitoU,,estrattiU,idU)
Call VerificaEsito(nu,aRuote,fin - 1,1,1,,esitoP,,estrattiP,idP)
'If id = fin Then
ReDim V(10)
V(1) = StringaRuote(aRuote)
V(2) = StringaNumeri(nu,,1)
V(3) = sr
V(4) = st
V(5) = sf
V(6) = srup & " - " & srp
V(7) = estratti
V(8) = GetInfoEstrazione(id)
V(9) = estrattiU
V(10) = estrattiP
Call AddRigaTabella(V,,,2)
Next
Call SetTableWidth("100%")
CreaTabella
End If
End Sub

 

[ppaaoolloo]

UP

 

[Master]

Ciao

prova a fare queste modifiche evidenziate in rosso


min = 1000 : max = 0
For d = 0 To 90 Step 2
For u = 1 To 9 Step 2 : nu(u) = Fuori90(1*d + u) : Next

------------------------------

Call InitTabella(T,2,,2,5)
For d = 0 To 8
For u = 1 To 15 Step 2
nu(u) = Fuori90(10*d + u)

 

[Alien.]

Ciao,scusa dato che mi interessava lo script dopo le modifiche mi da sempre errore :

Sr = SerieRitardo(fin - 1000,fin,nu,Ru,sorte)

indice non compreso nell'intervallo

 

[ppaaoolloo]

Ciao Master
solo oggi ho potuto decicarmi un po a spaziometria,
ho provato con i tuoi suggerimenti ed è tutto ok.

grazie infinite

saluti

 

[ppaaoolloo]

Se volessi invece USARE solo i numeri pari che variazione dovrei mettere? Ringrazio anticipatamente per la risposta
Ciao

 

[Master]

Ciao

prova a fare queste modifiche evidenziate in rosso


min = 1000 : max = 0
For d = 1 To 90 Step 2
For u = 1 To 10 Step 2 : nu(u) = Fuori90(1*d + u) : Next

------------------------------

Call InitTabella(T,2,,2,5)
For d = 0 To 8
For u = 1 To 16 Step 2
nu(u) = Fuori90(10*d + u) +1

 

[ppaaoolloo]

grazie

ciao