Quale programmino e come fare oltretutto....

[xabio]

Ciao Giorgio o Gio91 se preferisci , complimenti per il lavoro che stai facendo in questo post a beneficio
dei neofiti di spazioscript come me ,
non volevo neanche guardare questo post poi ho visto i tuoi interventi ed ho capito la grande utilita'
Mi inserisco anch'io se possibile sfruttando la tua disponibilita' per un paio di domande .



For Q = 1 To 6
Riga = Riga & Nome & Diminutivo & Spazio
Next
Scrivi Riga

La varibile "riga" nel ciclo come fa a scriversi orizzontalmente tot volte per per tot volte del ciclo ?
Tento solo di capire come lavora il programma !

Vorrei sapere come tradurre correttamente in linguaggio spazioscript :


sub main

dim Est,r1,pos1,pos2,n1,n2,n3 ' tutte le variabili devono essere dichiarare

for Est=estini to estfin ' assegno alla variabile est l'id estrazione in archivio
for r1=1 to 10 ' ciclo che assegna valore alla variabile ruota r1

For pos1=1 to 5 ' ciclo che da il valore a pos1
For pos2=pos1+1 to 5 ' ciclo che da il valore a pos2
N1=pos1,r1,est ' n1 diventa il primo numero
N2=pos2,r1,est ' n2 diventa il secondo numero
if n1=10 & n2=20 than ' se condizione allora n3= somma fuori 90
n3=n1+n2:fuori90
scrivi data(est) & " ruota "& r1 & pos1 & pos2 & " numero Ambata " n3 " 'scrive tutte le variabili
end if
next
next
next
next
end sub

Grazie ancora.
Saluti Xabio.

 

[Joe91]

Ciao Xabio,

rispondo alla prima domada.

Dimensionare (e predisporre le variabili) è una buona norma ... ma è obbbligatoria solo per gli Array e le Matrici ...

e nel caso lo script inizi con Option Explicit. Qui di seguito per semplicità facciamo senza.

Sub Main

 Nome = "Rex" 
 Animale = "Cane"

For Q = 1 To 6 

[B]Riga = [/B]Animale & " _ " & Nome

Scrivi Riga

Next

End Sub

Importante è ... il segno di "uguale" ... con cui si assegnano i "valori" alle variabili.

Una volta assegnato il valore ad una variabile questo viene "ricordato" o memorizzato fino a quando non lo si cambia ...

con una nuova riassegnazione ... o con apposite istruzioni e/o decisioni condizionali che influscono su questo valore.

Pertanto a "Riga" ovvero quello che si vuole scrivere , ogni volta viene assegnato "Cane" & " _ " & "Rex " e quindi

Riga ... "contiene" : "Cane _ Rex " .... Scrivi Riga restituisce in OutPut "Cane _ Rex " (per una Quantità di Q= 6 Volte ... 6 Righe)

Ora:

Se Riga contiene "Cane _ Rex " e ... ad essa aggungo (&) "Cane _ Rex "

Essa Diventa : "Cane _ Rex Cane _ Rex "



Quindi Riga = Riga & ... MOLTIPLICA.

Perchè Riga Contiene già (meglio può contenere) "un valore" al quale se ne aggiungono altri

... ovvero altri valori ... ovvero +x +x +x +x +x +x = 6X

ed è quanto ti dimostra il piccolissimo script qui di seguito :

Sub Main

 Nome = "Rex  " 
 Animale = "Cane"

For Q = 1 To 6 

   [B]R[B]i[/B]ga = Riga & [/B]Animale & " _ " & Nome

   Scrivi Riga

Next

End Sub

Per la traduzione da quell'altro dialetto Basic non ci covrebbero essere problemi e

farò seguito evidenziando cosa bisogna modificare, perchè, come ...

e quanto invece va già bene così com'è.

Buona Giornata a tutte/i.

 

[Joe91]

Sub Main
'Vabbene

Dim Est,r1,pos1,pos2,n1,n2,n3 ' tutte le variabili devono essere dichiarare

'Veirficheremo se va bene ?

For Est = estini To estfin ' assegno alla variabile est l'id estrazione in archivio

'va abbastanza bene

For r1=1 To 10 ' ciclo che assegna valore alla variabile ruota r1

'va bene

For pos1=1 To 5 ' ciclo che da il valore a pos1

'va bene

For pos2=pos1+1 To 5 ' ciclo che da il valore a pos2

'va bene

n1 =pos1,r1,Est ' n1 diventa il primo numero

'va modificato

n2 =pos2 ,r1,Est ' n2 diventa il secondo numero

'va modificato come il precedente

If n1=10 & n2=20 than ' se condizione allora n3= somma fuori 90

'va bene

n3 =n1+n2:Fuori90

' non va bene e deve essere modificato

Scrivi data(Est) & " ruota "& r1 & pos1 & pos2 & " numero Ambata " n3 " 'scrive tutte le variabili

'va bene ?

End If

'ok sino alla fine

Next

Next

Next

Next

End Sub

Come vedi per ora ho tracciato un percorso ... commentando ogni linea.

Ho ipotizzato essere giusti i 2 cicli For-Next nidificati,

con i quali si indirizzano le letture delle 10 coppie di Determinati.

Ma prima di questo è lecito ed anche doveroso chiedersi: "Cosa fa questo script ?"

Cosa vorrebbe fare ?

Risposta: Cercare l' Ambo 10.20 in tutte le 10 ruote. Come lo so?

Cerca l' Ambo 10.20 è : "If n1=10 & n2=20 than"

In tutte le ruote in script è : For r1=1 To 10

... segue Debug/Traduzione/Test

 

[Joe91]

Una piccola nota tecnica .. nel messagio precedente ho lasciato lo script "a colori" per

rendere più simile il messaggio a quanto appare nellea fienstra dell'Editor.

Questo richeiede un editing molto oneroso (in termini di tempo del sottoscritto) sul Forum

e quindi d'ora in poi inserisco solo il codice .. evidenziando però come sia importante il segno di apice (')

che è un comando che impartisce all'interprete di considerare COMMENTO utto ciò che segue questo apice.

Quindi dopo questo segno anche le eventuali istruzioni, sia giuste che sbagliate, lecite / compatibili ...

non vengono eseguite considerate diventando "commenti" SI COLORANO di VERDE ...

e non essendo eseguite non producono errori. Idem si ottiene con l'istruzione REM.

Cio premesso trasformo in commento tutto quanto più marginale e/o sbagliato ...

ed eseguo direttamente lo script "origlinale" con Spaziometria 1.4.6.

Sub Main 

'Dim Est,r1,pos1,pos2,n1,n2,n3 ' tutte le variabili devono essere dichiarare
'Va bene

'For Est = estini To estfin ' assegno alla variabile est l'id estrazione in archivio
'va abbastanza bene 
'For r1=1 To 10 ' ciclo che assegna valore alla variabile ruota r1
'va bene
For pos1=1 To 5 ' ciclo che da il valore a pos1 
'va bene
For pos2=pos1+1 To 5 ' ciclo che da il valore a pos2 
'va bene
'n1=pos1,r1,Est ' n1 diventa il primo numero 
'va modificato
'n2=pos2,r1,Est ' n2 diventa il secondo numero
'va modificato come il precedente
'If n1=10 & n2=20 than ' se condizione allora n3= somma fuori 90 
'va bene
'n3=n1+n2:Fuori90
'va bene abbastanza bene

REM Scrivi data(Est) & " ruota "& r1 & pos1 & pos2 & " numero Ambata " & " n3 " 'scrive tutte le variabili 

Scrivi pos1 & pos2
'va abastanza bene
'End If
'ok sino alla fine
Next 'pos1 
Next 'pos2
'Next  'R1
'Next ' Est
End Sub

Ho REMmato anche la linea "Scrivi .... " originale dalla quale ho estratto solo :

Scrivi pos1 & pos2

che è quanto ci serve, per ora.

Lo script originale come previsto produce 10 coppie di posizioni

12 / 13 / 14 / 15 ... fino a 45 che significa naturalmente 4° e 5° Estratto.

Anche il For-Next che getisce le ruote è compatibile / già-giusto. Lo si può/potrebbe sbloccare.

... Segue.

 

[Joe91]

All' esito di quanto ho scritto ed attuato rimarrebbero da tradurre / correggere

For Est = estini To estfin ' assegno alla variabile est l'id estrazione in archivio

che essendo un ciclo For-Next come gli altri ... va bene.

Tuttavia, precedentemente ad estini ed estfin non è stato assegnato un valore.

Dovrebbero essere precedute da un qualcosa tipo: estini = 8000 e ... estfin = 8500

nel caso in cui si volessero controllare le estrazioni dalla 8000 alla 8500.

In questo contesto però devono essere intese come "altre istruzioni"

altre parole di un altro dialetto Basic ovvero corrispettive a EstrazioneIni e EstrazioneFin.

Nell' Ambiente-Spaziometria ... EstrazioneIni e EstrazioneFin "leggono" e restituiscono i limiti dell'archivio.

Mi spiego. Eseguendo uno script come questo:

Sub Main

Scrivi EstrazioneIni
Scrivi EStrazioneFin

End Sub

Si ottengono "2 numeri" che sono gli IdEstrazione-limite dell'Archivio.

3950 dove "Inizia" la parte Fucsia (attiva dell'archivio) e ...
8653 dove "Finisce" l'Archivio Attivo (oggi con l'estrazione del 16 / Febbraio /2013)

In sintesi gli stessi "numeri-utili" (gli stessi) riportati nelle finestrelle blu dell'immagine tratta da Spaziometria.

Variando i limiti dell'archivio / ri-eseguendo lo script / variano questi numeri.

Per questa ragione ho scritto ... lo script "legge" i limiti dell'Archivio.

In sintesi EstrazioneIni & EstrazioneFin ci possono permettere di "dosare"

quante e quali Estrazioni "Controllare" e/o far "Utililizzare" dallo script.

Quindi si potrebbe scrivere :

Estini = EstrazioneIni
Estfin = EstrazioneFin

prima del

For Est = estini To estfin ... in originale ...

Oppure direttamente scrivere (ho scelto questa seconda ... Correzione / Traduzione)

For Est = EstrazioneIni To EstrazioneFin

... continua

 

[Joe91]

'n1=pos1,r1,Est ' n1 diventa il primo numero
'va modificato
'n2=pos2,r1,Est ' n2 diventa il secondo numero
'va modificato come il precedente

pos1,r1,Est si traduce con

Estratto (Estrazione,Ruota,Posizione)

Ove è evidende la similitudine (un dialetto leggermente differente) del Linguaggio Basic.

Allineando l nomi delle variabili diventa:

n1= Estratto (Est,r1,pos1) 'diventa il primo numero.

Idem perlalettura del secondo numero:

n2 = Estratto (Est,r1,pos2) 'diventa il secondo numero.

 

[xabio]

Ciao Joe91 .

I listati senza colore vanno benissimo

Molto gentile anzi anche troppo tutte le tue spiegazioni .
Per quanto riguarda il ciclo For..Next suoi nomi
ho capito che le variabili vengono concatenate x volte in orizzontale in base al contatore perche' abbiamo " riga=riga+ecc.
nel mio primo ragionamento invece il ciclo doveva restituirmi 6 volte in verticale le variabili riga ecc..

Il metodo che volevo sviluppare l'ho inventato al momento essenzialmente a me interessava tradurlo in linguaggio corretto per capire le istruzioni.

Se in una qualsiasi delle 10 ruote trovo l'ambo 60-40
(ho cambiato numeri non aveva senso altrimenti il fuori 90)
in un determinato range di estrazioni
(utile la spiegazione per cui le istruzioni EstrazioneIni & EstrazioneFinsono subordinate alla finestra archivio)
allora sommo l'ambo col fuori 90 e ottengo l'ambata.
Poi l'avrei giocata per x colpi sulla medesima ruota e tutte per tot colpi.

Volutamente volevo analizzare i singoli determinati per capire la base con cicli anche superflui per avere le istruzioni elementari
su posizione estratto estrazione e verifica condizioni ecc.

Si poteva anche senno dire se in una ruota x trovo l'ambo Y a ritardo 0 quindi gioco il numero z.

Ti ringrazio ancora
Cioa Joe91.

 

[Joe91]

Ciao Xabio ...

ci sono ancora un paio di cosucce sa tradurre e dire eppoi ...

si può passare alla tua pur utile (indispensabile) descrizione.

quindi l'ultima parte prima di "Scrivi ...." è questa:

If n1=10 & n2=20 than ' se condizione allora n3= somma fuori 90

n3=n1+n2:Fuori90

Per Spaziometria (e non solo) i numeri si sommano quindi si usa il PIU' "+"

If n1 + n2 = 30 Then
.
End If

Già, giusto dire che il Fuori90 è inutile quando 10+20 non lo sarà mai.

Ma andrebbe in ogni caso scritto diversamente. Così:

IF Fuori90 (n1+n2) =30 then
.
End If

Dunque ... anche n3=n1+n2:Fuori90

deve diventare n3 = Fuori90 (n1+n2)

Fatto tutto questo, anche il cambio con ... 60 e 40 ... lo script dovrebbe essere tradotto,

aggiornato e quindi pronto per essere eseguito con Spaziometria.

 

[Joe91]

Eccoci ad uno script eseguibile.

Sub Main
 'Dim Est,r1,pos1,pos2,n1,n2,n3 ' tutte le variabili devono essere dichiarare
 'Va bene. ?
 For Est = EstrazioneIni To EstrazioneFin ' assegno alla variabile est l'id estrazione in archivio
  For r1 = 1 To 10 ' ciclo che assegna valore alla variabile ruota r1
   For pos1 = 1 To 5 ' ciclo che da il valore a pos1
    For pos2 = pos1 + 1 To 5 ' ciclo che da il valore a pos2
     n1 = Estratto(Est,r1,pos1)' n1 diventa il primo numero
     n2 = Estratto(Est,r1,pos2)' n2 diventa il secondo numero
     If n1 = 60 And n2 = 40 Then ' se condizione allora n3= somma fuori 90
      n3 = Fuori90(n1 + n2)
      Scrivi Data(Est) & " ruota " & r1 & pos1 & pos2 & " numero Ambata " & " n3 " 'scrive tutte le variabili
     End If
    Next 'pos2
   Next 'pos1
  Next 'r1
 Next 'Est
End Sub

Alla prima esecuzione si ha un errore ....

ma si arriva alla istuzione "Scrivi" che è quella più interna allo script,

quella a cui si arriva solo dopo che tutto il resto funziona.

Ed è anche quella che in uno script "Formattato" e cioè come è scritto

in questo messaggio è l'istruzione scritta "piu a destra"

dopo aver sceso tutti i gradini .. della gerarchia degli If / For / ...

che abbiamo affrontato precedentemente.

Qui aggiungo che è buona norma (buonissima) inserire anche un commento ...

accanto agli "End If" ... "Next" cosicchè in caso di necessità di modifiche o

di rilettura o riedizione dello script, si è molto aiutati nell'interpretarlo.

 

[Joe91]

E' giusto considerare che l'interprete Basic ... spesso restituisce "messaggi di errore".

Non sono rimproveri, sono critiche ... molto positive.

Sono dei grandi aiuti per lo scripter perchè in essi, spesso, è scritto "dove" e "cosa" e "perchè", "qualcosa" ... non va.

Nello specifico (come ho scritto precedentemente) l'errore è nella linea ove c'è il comando "Scrivi"

quella che viene anche evidenziata (in campo scuro) ed in particolare, in questo messaggio,

viene suggerito l'errore in "data" scritto che non "combacia" con le istruzioni riconoscibili dal Basic.

Si, data(est) dev'essere scritto: DataEstrazione (est)

Quindi chiuso con l' ok, il "MsgBox" si può apportare la semplicissima correzione e rieseguire lo script.

Questa volta funziona e dopo qualche secondo restituisce un lungo elenco di risultati che termina così:

...
03.05.2011 ruota 812 numero Ambata  n3 
11.08.2011 ruota 123 numero Ambata  n3 
17.12.2011 ruota 315 numero Ambata  n3 
02.02.2012 ruota 545 numero Ambata  n3 
15.05.2012 ruota 724 numero Ambata  n3 
02.08.2012 ruota 325 numero Ambata  n3 
01.09.2012 ruota 145 numero Ambata  n3 
09.10.2012 ruota 1034 numero Ambata  n3

Non è perfetto ma è un risultato!

 

[xabio]

Bene Joe91 ho fatto sicuramente un passo avanti grazie a te e sto cominciando a capire un'attimo come lavorano questi script certo avrei mille domande ma spero con pazienza di acquisire padronanza del linguaggio Ho inserito istruzioni Nomeruota(r1),Dataestrazione(est) come hai mostrato tu mi torna tutto ok dovrei solo adesso allineare il testo poiche' le ruote mi sballano le distanze. Grazie dinuovo. Ti saluto ciao.

 

[Joe91]

Buon Giorno a tutte/i.

Abbiamo visto che lo script funzionante ( senza errori di sintassi )

con la riga di comando (originale) :

Scrivi DataEstrazione(Est) & " ruota " & r1 & pos1 & pos2 & " numero Ambata " & " n3 " 'scrive tutte le variabili

Produce come abbiamo visto delle righe di contenuto simili a questa:

09.10.2012 ruota 1034 numero Ambata n3

mescolando ed unendo "Titoli " e "Valori"

Come si vede ... quello che è scritto tra gli apici "E' UNA STRINGA" e viene scritta così com'è.

Ad esempio, qui, sono stringhe " ruota " / " numero Ambata " / " n3 "

sarebbero o dovrebbero essere i titoli delle colonne della tabella.

Mentre DataEstrazione (est) / r1 / pos1 / pos2 / n3 sono le "variabili"

il contenuto con cui riempire le righe della tabella.

Va da se ... che è utile separare i titoli / dal contenuto.

Scrivi DataEstrazione(Est) & "" & SiglaRuota ( r1) & "" & pos1 & ""& pos2& "" & n3 'scrive tutte le variabili

E' ciò che scrive per ogni data quanto è calcolato, (la parte centrale dello script) ovvero il contenuto.

Mentre :

Scrivi ".. Data .. " & " Ru " & "P1 " & "P2" & " Num",1 'Scrive i Titoli

 

[Joe91]

Lo script ... di cui sopra con riattivato Option Explicit ed un errore volutamente introdotto.

Option Explicit 
Sub Main
 Dim Est,r1,pos1,pos2,n1,n2,n3 ' tutte le variabili devono essere dichiarare
 For Est = EstrazioneIni To EstrazioneFin ' assegno alla variabile est l'id estrazione in archivio
  For r1 = 1 To 10 ' ciclo che assegna valore alla variabile ruota r1
   For pos1 = 1 To 5 ' ciclo che da il valore a pos1
    For pos2 = pos1 + 1 To 5 ' ciclo che da il valore a pos2
     n1 = Estratto(Est,r1,pos11)' n1 diventa il primo numero
     n2 = Estratto(Est,r1,pos2)' n2 diventa il secondo numero
     If n1 = 60 And n2 = 40 Then ' se condizione allora n3= somma fuori 90
      n3 = Fuori90(n1 + n2)
      Scrivi DataEstrazione(Est) &"  "&SiglaRuota( r1) &"  "& pos1&"  "& pos2& "  "&n3  'scrive tutte le variabili
     End If
    Next 'pos2
   Next 'pos1
  Next 'r1
 Next 'Est
Scrivi ".. Data .. "  & " Ru  "  &  "P1 " & "P2" & " Num",1  'Scrive i Titoli 
End Sub

Appena introdotto Option Explicit e dopo aver riabilitato con la DIM del le variabili ...

esse si colorano TUTTE di ROSA/FUCSIA.

Tutte tranne quelle di un eventuale errore (quello da me volontariamente introdotto)

pos11 piuttosto che 1 ... (quello che potrebbe essere un banalissimo errore di digitazione).

Errore che non sfugge all'Editor che non lo colora di fucsia,

errore che quindi si individua facilmente, prima ancora di eseguire lo script ... e che ...

in caso di esecuzione ... porta ad un messaggio di errore ben circostanziato:

Naturalmente pos11 va corretto con pos1 ed anche questa si colora di fucsia.

Cordiali saluti


Ps: Xabio, lo script ... il compito ... sarebbe terminato ma, siamo alle dolenti note, è sbagliato!

 

[Joe91]

Perchè lo script è sbagliato ... se è giusto ... e funziona ?

Perchè lo script è sbagliato ... se è giusto ... e funziona ?

Deduciamolo, ricordando e riprendendo quanto avevo scritto:

Sub Main

Scrivi EstrazioneIni
Scrivi EStrazioneFin

End Sub

Si ottengono "2 numeri" che sono gli IdEstrazione-limite dell'Archivio.

3950 dove "Inizia" la parte Fucsia (attiva dell'archivio) e ...
8653 dove "Finisce" l'Archivio Attivo (oggi con l'estrazione del 16 / Febbraio /2013)

In sintesi gli stessi "numeri-utili" (gli stessi) riportati nelle finestrelle blu dell'immagine tratta da Spaziometria.

Variando i limiti dell'archivio / ri-eseguendo lo script / variano questi numeri.

Nella "Barra Estrazioni" poco leggibile, nella parte fucsia è scritto 4704 Estrazioni Attive.

8653 - 3950 ( +1 ) = 4704

Indubbiamente, 4704 Estrazioni PER 10 Ruote PER 10 Ambi sono una massa di 470.400 AMBI.

Il Ritardo Naturale dell' Ambo è di 4005 Estrazioni.

Sono attesi 470.400 / 4005 = 117 AMBI Circa.

Eseguendo lo script abbiamo una paginetta di risultati; cioè poco più di 50 AMBI :

Modifico il codice introducendo K per contare quante linee sono elencate dallo script ...

ed aumento il valore di k (k=k+1) ad ogni condizione "Positiva"

Option Explicit
Sub Main
 Dim Est,r1,pos1,pos2,n1,n2,n3,k ' tutte le variabili devono essere dichiarare
 For Est = EstrazioneIni To EstrazioneFin ' assegno alla variabile est l'id estrazione in archivio
  For r1 = 1 To 10 ' ciclo che assegna valore alla variabile ruota r1
   For pos1 = 1 To 5 ' ciclo che da il valore a pos1
    For pos2 = pos1 + 1 To 5 ' ciclo che da il valore a pos2
     n1 = Estratto(Est,r1,pos1)' n1 diventa il primo numero
     n2 = Estratto(Est,r1,pos2)' n2 diventa il secondo numero
     If n1 = 40 And n2 = 60 Then ' se condizione allora n3= somma fuori 90
      k = k + 1
      n3 = Fuori90(n1 + n2)
      Scrivi DataEstrazione(Est) & "  " & SiglaRuota(r1) & "  " & pos1 & "  " & pos2 & "  " & n3 & "  " & k 'scrive tutte le variabili
     End If
    Next 'pos2
   Next 'pos1
  Next 'r1
 Next 'Est
 Scrivi ".. Data .. " & " Ru  " & "P1 " & "P2" & " Num" & " Prog",1 'Scrive i Titoli
End Sub

Risultato ( alle date ... in grafica ) 56 AMBI.

Dov'è errore ?

40 e 60 sono Estratti Determinati dallo Script ... e questo ESCLUDE

tutti i casi in cui fosse caduto un "Ambo" 60.40 (che, per contro è valido).

Quindi, nello script, PROVIAMO AD INVERTIRE

n1 = 40 And n2 = 60

scrivendo:

n1 = 60 And n2 = 40

ed eseguendo ... otteniamo ... ALTRI 70 AMBI.

Un TOTALE di 126 AMBI.

Un piccolo script ... ad-hoc conferma il ritrovamento dell' errore e la correttezza delle deduzioni:

Option Explicit
Sub Main
Dim Nu(2),Ru(1),Ini,Fin
Ini = EstrazioneIni : Fin = EstrazioneFin
Ru(1) = 11 : Nu(1) = 40 : Nu(2) = 60
Scrivi "Frequenza dell' Ambo " & Nu(1) & "." & Nu(2) & " su " & SiglaRuota(Ru(1)) & " = ",0,0
Scrivi SerieFreq(Ini,Fin,Nu,Ru,2)
End Sub

 

[Joe91]

Soluzione (1 tra tante)

Soluzione (1 tra tante)

Abbiamo dunque identificato "il problema" dello script.

Era stata utilizzata una Routine per le Posizioni Determinate .... per cercare degli Ambi,

e nell'individuare il problema si è anche imbastita, per sommi capi, la linea guida per "una soluzione".

Si, come di script se ne sarebbero potuti scrivere "diversi",

anche di soluzioni si potrebbe ... individuarne diverse.

Quindi in sintesi s'è visto che la condizione valida è : non solo 40.60 e non solo 60.40

Sono Ambi-Validi sia che ne venga estratto ... l'uno O l'altro.

O .... (una "forma") Or (l' "altra") dell'Ambo.

Nello Script, la modifica necessaria è semplice: If (n1 = 40 And n2 = 60) Or (n1 = 60 And n2 = 40) Then ' Se condizione .... allora ...

Script che una volta eseguito produce:

...
[FONT=Courier New][SIZE=2][COLOR=#000000]09.10.2012  VE  3  4  10  125[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]08.01.2013  TO  4  5  10  126[/COLOR][/SIZE][/FONT]
[B][FONT=Courier New][SIZE=2][COLOR=#000000].. Data ..  Ru  P1 P2 Num Prog
[/COLOR][/SIZE][/FONT][/B]

Tutti e 126 gli Ambi!

 

[xabio]

Grazie Joe91 per avermi spiegato la corretta sintassi con relativo riscontro nell'editor e soprattutto il fatto per cui i cicli cosi' nidificati prendevano in considerazione solo una parte di ambi mi hai anticipato nell'inserire l'opzione OR da me pensata per ovviare al problema anche se forse e' solo la piu' sbrigativa . Non me ne ero proprio accorto dei pochi ambi lavorando con un range stretto di estrazioni . Grazie ti saluto. Ciao .