Ciao Luigi ti disturbo per questo ...
a volte può essere utile evidenziarte dei numeri presenti in unica una linea di output.
La tecnica che appresi anni fa da Rosanna, su Spaziometria, evidenzia alcuni problemini.
Il parametro True di scrivi non viene accettato e genera errore se non premesso da CInt ...
quindi forse "Cint" dovrebbe essere "interno" a Spaziometria ... e non end-user dal lato script(er) ...
Ma come ho detto questo si risolve con Cint e dunque è di minore importanza.
Più grave (perchè rovina il lavoro precedente) se viene aggiunta una scritta in "grassetto"
come ad esempio nella seconda parte del caso proposto, è la Somma (o fattoriale"!") dei Numeri.
Il Bold ... viene applicato a tutta la linea (ed anche) alle istruzioni Scrivi precedenti,
L' ultimo bold aggiunto in sintesi "prevarica" ed annulla gli effetti di tutto il lavoro svolto precedentemente.
Più difficile da spiegare che da dimostrare, quindi ho redatto un piccolo script "doppio-esempio".
Si può notare come la seconda linea, pur avendo la stessa natura della prima, sia ... tutta in "Bold"
Codice:
Sub Main
For N = 1 To 15
If pari(N) Then Bold = True
Somma = Somma + N
Scrivi N & " ",CInt(Bold),0
Bold = False
Next
Scrivi Somma',True
Scrivi : Somma = 0
For N = 1 To 15
If pari(N) Then Bold = True
Somma = Somma + N
Scrivi N & " ",CInt(Bold),0
Bold = False
Next
Scrivi Somma,True
End Sub
Ti ringrazio sin d'ora per l'attenzione augurando a te ed a tutto il Forum la Buona Giornata.