Il contatorespaziale non mi va all'indietro...

[lotto_tom75]

In avanti... tutto ok...

da 1 a 10 no problem...

Option Explicit
Sub Main

Dim CONTATORESPAZIALE

CONTATORESPAZIALE=1

For CONTATORESPAZIALE = 1 To 10

Call Scrivi (CONTATORESPAZIALE)


Next

End Sub

ma se volessi fare da 10 a 1 ?

Della serie... "arenato su di una banalità banale... o spaziale..."

 

[Mike58]

Aiha aiha
solo banalità

Option Explicit
Sub Main

Dim CONTATORESPAZIALE

CONTATORESPAZIALE=1

For CONTATORESPAZIALE = 10 To 1 Step - 1

Call Scrivi (CONTATORESPAZIALE)


Next

End Sub

 

[lotto_tom75]

Aiha aiha
solo banalità

Option Explicit
Sub Main

Dim CONTATORESPAZIALE

CONTATORESPAZIALE=1

For CONTATORESPAZIALE = 10 To 1 Step - 1

Call Scrivi (CONTATORESPAZIALE)


Next

End Sub

No banalità... banalità spaziali mike! ahahah Comunque grazie!!!

 

[joe]

Ciao Lottotom,

Scusa se mi permetto, ma quella soluzione è proprio sbagliata dentro.

Senza fare esercizio di lettura del pensiero, che peraltro

sembra perdersi nello stesso infinito che è l'universo numerico,

per misurare il tempo "l'uomo", forse, HA INVENTATO IL TEMPO.

Fors'anch'esso infinito quanto egli stesso.

Ci si spreca nel tempo, un pò meno così:

Option Explicit
Sub Main
	Dim T,R,L 
	T = Timer
	L = 5 'Secondi
	Do While R < L 
	Messaggio Round (R,1) 
	R  = Timer  - T
	Loop
	MsgBox "Questo è uno script di " & L & " secondi",,"Made By Joe" 	
End Sub

 

[lotto_tom75]

Ciao Lottotom,

Scusa se mi permetto, ma quella soluzione è proprio sbagliata dentro.

Senza fare esercizio di lettura del pensiero, che peraltro

sembra perdersi nello stesso infinito che è l'universo numerico,

per misurare il tempo "l'uomo", forse, HA INVENTATO IL TEMPO.

Fors'anch'esso infinito quanto egli stesso.

Ci si spreca nel tempo, un pò meno così:

Option Explicit
Sub Main
Dim T,R,L
T = Timer
L = 5 'Secondi
Do While R < L
Messaggio Round (R,1)
R = Timer - T
Loop
MsgBox "Questo è uno script di " & L & " secondi",,"Made By Joe"
End Sub

Ciao Joe Grazie!