Aiuto per pari e dispari

[Roby]

Buon pomeriggio a tutti!!
Qualcuno mi può aiutare?? Dovrei, tramite listato, trovare in una determinata ruota XX e determinata estrazione nn la condizione di avere gli estratti 1, 3 e 5 pari e gli altri 2 dispari, come posso fare?
Alla fine il listato estrarrà sia i 5 numeri che l'estrazione, ma questo non è un problema, il mio crucio è proprio quello di fargli calcolare la funzione per i 3 pari ed i 2 dispari...
Grazie a chiunque mi possa aiutare

Quando la Fortuna bussa... Cerca di farti trovare a casa!!

 

[imported_n/a]

Spiegati meglio o fai un piccolo esempio.
Ciao

sgrunt

 

[Gian_Attila]

Non mi sembra ci sia qualcosa da chiarire... Comunque ok: 1°(o una qualsiasi N estrazione) estrazione del mese su BA (o qualsiasi altra ruota) verifica che 1°, 3° e 5° estratto siano pari e 2° e 4° dispari ---> se la condizione è vera allora scrivi gli estratti ed il numero dell'estrazione.
Grazie

Quando la Fortuna bussa... Cerca di farti trovare a casa!!

 

[imported_n/a]

Scusami tanto, non avevo afferrato il concetto.

Sub main() 
tmp=InputBox("Estrazioni da controllare?",,100) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r= 1 To 10
a=Estratto(es,r,1) 
b=Estratto(es,r,2) 
c=Estratto(es,r,3) 
d=Estratto(es,r,4)
e=Estratto(es,r,5) 
If Pari(a) And Pari(b+1) And Pari(c) And Pari(d+1) And Pari(e) Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)
Scrivi"**********************************************" 
End If
Next
Next 
End Sub

sgrunt

 

[Gian_Attila]

A[:0]h[:0]h[:0]h[:0]h[:0]h ecco come si fa la funzione dispari... Pari+1.... Son proprio tonto Ottimo sgrunt! Grazie mille

Quando la Fortuna bussa... Cerca di farti trovare a casa!!