SUPER LOTTO

Posts written by lotto69

CAT_IMG Posted: 29/4/2014, 11:01 istruzione do while non funziona - LISTATI e SCRIPT
CITAZIONE (_max59 @ 29/4/2014, 10:21) 
Al superamento del valore 8 fissato dal parametro nu4(8) il contatore "i" causa l'errore.

Il ciclio while non funziona, prova a togliere l'istruzione nu4(i)=amb2 e vedrai che il loop è infinito senza una valida ragione
CAT_IMG Posted: 28/4/2014, 09:38 istruzione do while non funziona - LISTATI e SCRIPT
CITAZIONE (_max59 @ 27/4/2014, 21:24) 
Sub main()

Dim nu4(8)
ambt= InputBox("quale ambata giocare")
amb2=Fuori90(ambt+10)
i=0
Do While ambt <>amb2

i=i+1
nu4(i)=amb2
amb2=Fuori90(amb2+10)
Scrivi " ambata e cadenza " & ambt & " " & amb2

If i = 8 Then Exit Do ' l'istruzione if ferma il ciclo al raggiungimento dell'ottavo numero trovato (nu4(8))


Loop

End Sub

-----------------------------------
Cordialità

Io avevo risolto mettendo la verifica sul ciclo while su i<8, il problema che non capisco perchè la condizione<> non viene accettata dall'istruzione while????
CAT_IMG Posted: 24/4/2014, 20:48 istruzione do while non funziona - LISTATI e SCRIPT
Scrivo una parte di un listato che cerca i numeri della stessa cadenza di un numero dato in input e memorizzarli su un vettore
il problema che il ciclo è infinito anche se ambt risulta uguale a amb2, perchè?
dim nu4(8)
ambt= InputBox("quale ambata giocare")
amb2=Fuori90(ambt+10)
i=0
Do While ambt <>amb2

i=i+1
nu4(i)=amb2
amb2=Fuori90(amb2+10)
Scrivi " ambata e cadenza " & ambt & " " & amb2
Loop


Cosa sbaglio?
CAT_IMG Posted: 9/8/2011, 18:21 ATTENZIONE - LISTATI e SCRIPT
Ma i listati presenti sono compatibili con l8+ v.6?
Grazie
CAT_IMG Posted: 9/8/2011, 18:19 L'ambata simmetrica - LISTATI e SCRIPT
Ma il listato è compatibile per l8+ v.6?
mi da errore su questa riga:
Scrivi SiglaRuota(r)&" "&StringaEstratti (es,r)&" "&siglaruota(r2)&" "&stringaestratti(es,r2)
5 replies since 18/11/2010