Quesito con Ciclo FOR e STEP

[fillotto]

Ho questa linea di codice:
If IndiceMensile = 4 Then 'i conti li faccio sulla quarta estrazione del mese ovvero prendo la 4^ estraz del mese e addizionno dei numeri......
Se invece al posto della 4^estraz del mese volessi utilizzare come base dei conteggi una estrazione ogni 9 come dovrei fare?
Ho fatto così :" If n = dal Step 9 Thenma non funziona quel " dal " è il num d'inizio della prima estrazione in esame e i conteggi dovrebbero iniziare proprio da li ecco lo script:
Sub Main()

Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10

Dim pta(2) ' la puntata che faccio è l'ambo

pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
dal = InputBox("inserire il num di estrazione iniziale...",,8357)
z = InputBox("su quale ruota ?",,4)
cip = InputBox("il primo adattatore?",,89)
cop = InputBox("il secondo adattatore?",,79)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9
For n = dal To EstrazioneFin
If n = dal Step 9 Then
'If IndiceMensile = 4 Then 'i conti li faccio sulla quarta estrazione del mese
ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + cop)
nr(7) = Fuori90(Estratto(n,z,2) + cop)
nr(8) = Fuori90(Estratto(n,z,3) + cop)
nr(9) = Fuori90(Estratto(n,z,4) + cop)
nr(10) = Fuori90(Estratto(n,z,5) + cop)

ImpostaGiocata 1,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[aldino]

ciao,fillotto

in attesa dei piu' esperti prova cosi', ciao

""""""""
Sub Main()

Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10

Dim pta(2) ' la puntata che faccio è l'ambo

pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
dal = InputBox("inserire il num di estrazione iniziale...",,8357)
z = InputBox("su quale ruota ?",,4)
cip = InputBox("il primo adattatore?",,89)
cop = InputBox("il secondo adattatore?",,79)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9

For n = dal To EstrazioneFin Step 9 'linea nuova
'If n = dal Step 9 Then 'linea annullata
'If IndiceMensile = 4 Then 'i conti li faccio sulla quarta estrazione del mese
ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + cop)
nr(7) = Fuori90(Estratto(n,z,2) + cop)
nr(8) = Fuori90(Estratto(n,z,3) + cop)
nr(9) = Fuori90(Estratto(n,z,4) + cop)
nr(10) = Fuori90(Estratto(n,z,5) + cop)

ImpostaGiocata 1,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
Gioca n
'End If
Next
ScriviResoconto
End Sub

"""""""""""

buon proseguimento

un saluto a tutti da aldino

 

[fillotto]

Grazie Aldino va bene così !!!
Se lo si fa girare così come sta si vede che è positivo(ho messo degli inputbox perchè i numeria dattatori e la ruota li ricavo facilmente da un costruttore che ho fatto con excel)
Il sistema ha il vantaggio di non essere legato a degli indici mensili provate anche questo così come sta:
Sub Main()

Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10

Dim pta(2) ' la puntata che faccio è l'ambo

pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
dal = InputBox("inserire il num di estrazione iniziale...",,8357)
z = InputBox("su quale ruota ?",,1)
cip = InputBox("il primo adattatore?",,18)
cop = InputBox("il secondo adattatore?",,87)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9

For n = dal To EstrazioneFin Step 9 'linea nuova
ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + cop)
nr(7) = Fuori90(Estratto(n,z,2) + cop)
nr(8) = Fuori90(Estratto(n,z,3) + cop)
nr(9) = Fuori90(Estratto(n,z,4) + cop)
nr(10) = Fuori90(Estratto(n,z,5) + cop)
eliminaripetuti nr
ImpostaGiocata 1,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
Gioca n
'End If
Next
ScriviResoconto
End Sub

 

[fillotto]

Provate anche questo (non modificate niente)
Sub Main()

Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10

Dim pta(2) ' la puntata che faccio è l'ambo

pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
dal = InputBox("inserire il num di estrazione iniziale...",,8357)
z = InputBox("su quale ruota ?",,5)
cip = InputBox("il primo adattatore?",,72)
cop = InputBox("il secondo adattatore?",,44)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9

For n = dal To EstrazioneFin Step 9 'linea nuova
ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + cop)
nr(7) = Fuori90(Estratto(n,z,2) + cop)
nr(8) = Fuori90(Estratto(n,z,3) + cop)
nr(9) = Fuori90(Estratto(n,z,4) + cop)
nr(10) = Fuori90(Estratto(n,z,5) + cop)
EliminaRipetuti nr
ImpostaGiocata 1,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 2

Gioca n

'End If
Next
ScriviResoconto
End Sub