Aiuto per stampa

[Joe91]

Ciao Eugenio.

Per sommi capi si può decrivere cosi:

Scrorrendo le estrazioni (Es) quando una di queste è un multiplo di 18 ... cambia colore.

Un multiplo di 18 è un numero che diviso per 18 ha come resto della divisione Zero. Mod.

Quindi se il Toggle (T) è un "interrutore" a due posizioni

al rilevare un "Resto 0" inverte la sua posizione: T= Not T

Dunque in presenza di T c'è un colore ... in assenza di T, un altro colore.

 

[genios]

Joe91 se ho capito bene in pratica l’ operatore Mod nel primo If Then divide ES per 18 se non vi è resto T diventa non T .

Nel secondo If Then Else letteralmente dovrebbe essere : se è T vai Colore Testo 2 se non è T vai Colore Testo 0

Sotto lo script se ho interpretato bene .

[Option Explicit
Sub Main
Dim Es,T

Es = EstrazioneFin
For Es = EstrazioneFin - 89 To EstrazioneFin
   If Es Mod 18 = 0 Then T = Not T
   If T Then ColoreTesto 2 Else ColoreTesto 0
   Scrivi Es

Next
End Sub
/CODE]

Ciao Eugenio

 

[genios]

Scusa Joe91 il diagramma di flusso esatto è il seguente :

 

[Joe91]

Ciao Eugenio.

Si.

Forse ti era più semplice osservando il "doppio_stato" di T.

Sub Main
	Dim Es,T
	Es = EstrazioneFin
	For Es = EstrazioneFin - 89 To EstrazioneFin
		If Es Mod 18 = 0 Then T = Not T
		If T Then ColoreTesto 2 Else ColoreTesto 0
		Scrivi T
	Next
End Sub

 

[genios]

Joe91 se stampo anche Es perche questa anomalia in Out ?

[
9119 9120 9121 9122 9123 9124 9125 9126 -1 9127 -1 9128 -1 9129 -1 9130 -1 9131 -1 9132 -1 9133 -1 9134 -1 9135 -1 9136 -1 9137 -1 /QUOTE]

Sub Main
    Dim Es,T
    Es = EstrazioneFin
    For Es = EstrazioneFin - 89 To EstrazioneFin
        If Es Mod 18 = 0 Then T = Not T
        If T Then ColoreTesto 2 Else ColoreTesto 0
        Scrivi Es &"   "& T  
    Next
End Sub

 

[Joe91]

Ciao Eugenio.

Inizialmente "T" non è valorizzato cioè ...

non è ne "True" ne "False".

E' un errore non averlo inizializzato in uno dei due stati.

Solo quando trova i primo multiplo di 16 (9126)

assume un stato ben definito, diventando "True"

ed incomincia a funzionare correttamente.

 

[genios]

Per capire meglio come và Valorizzato T . Potresti farmi l' esempio sul mio ultimo script.

Ciao Eugenio

 

[Joe91]

Sub Main
	Dim Es,T

	T = True 'prova a scrivere in ROSSO
	For Es = 17 To 18
		If Es Mod 18 = 0 Then T = Not T
		If T Then ColoreTesto 2 Else ColoreTesto 0
		Scrivi Es & "   " & T
	Next
	
	Scrivi 

	
	T = False 'prova a scrivere in NERO
	For Es = 17 To 18
		If Es Mod 18 = 0 Then T = Not T
		If T Then ColoreTesto 2 Else ColoreTesto 0
		Scrivi Es & "   " & T
	Next
	
	Scrivi 
	
	'ALEA 
	
	T = False 'prova a scrivere NERO
	For Es = 17 To 17 ' E 17 ... lo permette.
		If Es Mod 18 = 0 Then T = Not T
		If T Then ColoreTesto 2 Else ColoreTesto 0
		Scrivi Es & "   " & T
	Next
	
	Scrivi 

	T = False 'prova a scrivere NERO
	For Es = 18 To 18 ' MA 18 ... lo cambia ... in ROSSO
		If Es Mod 18 = 0 Then T = Not T
		If T Then ColoreTesto 2 Else ColoreTesto 0
		Scrivi Es & "   " & T
	Next

End Sub

 

[genios]

Grazie Joe91 per la tua ultima spiegazione e il tuo script di esempio ho abbastanza capito il concetto ma devo studiarlo e approfondirlo meglio.

Ora ti chiedo se con l' ambiente Script di Spaziometria e possibile leggere e manipolare file esterni .

Ciao Eugenio

 

[Joe91]

Ciao Eugenio.

Si ... ma io normalmente non lo faccio.

Quindi non ho esempi e matriale adatto.

Se vogliamo ... anche esperienza e capacità specifiche.

 

[genios]

Forse LuigiB sapra' dirmi qualcosa in merito .

Ciao Grazie
Eugenio

 

[Joe91]

Eugenio ...

Devi cercare cosa hai sul tuo "pc" con la parola chiave "leggi" tra gli script.

Per il resto, se vuoi, pui dare un'occhiata a questo script concettualmente più semplice.

 Sub Main
	Dim Es,T
	T =  1 
	For Es = EstrazioneFin - 180 To EstrazioneFin
		If Es Mod 18 = 0 Then T = T + 1
		If pari(T) Then
			ColoreTesto 2
		Else
			ColoreTesto 0
		End If
		Scrivi Es & "   " & T
	Next
End Sub