Aiuto per Riga Intestazione

[Xeroxs]

Ciao a Tutti,
Sto elaborando alcuni Script per fare dei Test per capirne la logica nelle sue regole non solo nei numeri manche nelle varie righe di intestazione, non riesco a capire la logica nel creare una riga di intestazione,
Mi spiego, ho creato uno script per test sommativi da condividere con degli amici quando mi chiedono una verifica e vorrei riportare il numero di estrazioni esaminate o/ed anche data inizio e Fine analisi così per puntualizzare la ricerca,
ma nulla se scrivo all'inizio non riporta il valore ma se riporto le righe in oggetto più sotto mi da il valore, sarà una banalità ma in questa fase non ci arrivo a capirla, certamente è legata alla sua posizione, ma se voglio questo valore all'inizio che devo fare?

Le righe che mi interessano sono queste

'Scrivi "Estrazioni Esaminate : " & Tot
'Scrivi String(40," ")& DataEstrazione(Ini)&" - "& DataEstrazione(fin)

dove per il momento nello script non sono attivate

Questo è lo script, sperando nel vostro aiuto per capire dove sbaglio


'Script Per Testare Metodi Sommativi Base Per Ambata
Sub Main
Scrivi "Script By Xeroxs" & " -- " & "Per Testare Metodi Sommativi",1,1,,1,2,,1
'Scrivi "Estrazioni Esaminate : " & Tot
'Scrivi String(40," ")& DataEstrazione(Ini)&" - "& DataEstrazione(fin)
Scrivi
Scrivi "----------------------------------------------------------------------------------------------------",4
Scrivi
Dim ambata(2),Ru(2)',ambo(1)
Dim Ini,fin
Dim posta(2)
posta(1) = 1
'posta(2) = 1 ' Giocata per Ambo se Attiva
'Ambata: 5° Estratto di Bari + 39
'1- Abbinamento per Ambo: 1° Estratto di Napoli + 2° Estratto di Napoli + 86
'2 - Abbinamento per Ambo: 2° Estratto di Bari + 5° Estratto di Roma + 26
'3 - Abbinamento per Ambo: 3° Estratto di Bari + 3° Estratto Nazionale + 32
Ini = EstrazioneFin - 73
fin = EstrazioneFin
For es = Ini To fin
Tot = fin - Ini + 1
'---------NOTA..........: Se Non Usi Indice Mensile Verifica Esito Per Ogni Estrazione
'If IndiceMensile(es) = 1 Then ' E' da Attivare Se Usi Indice Mensile
k = k + 1
ambata(1) = Fuori90(Estratto(es,VE_,2) + Estratto(es,TO_,3))
ambata(2) = Vert(ambata(1))
'ambo1(1) = Fuori90(Estratto(es,BA_,5) + 41)
'ambo2(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,RO_,5) + 2)
'ambo3(1) = ambo1(1)
'ambo3(2) = Fuori90(Estratto(es,BA_,3) + Estratto(es,NZ_,3) + 3)
'------------------------------------------------ Da Quì scegli le Ruote
Ru(1) = 9
Ru(2) = 10
ImpostaGiocata 1,ambata,Ru,posta,6,2
'ImpostaGiocata 2,ambo2,Ru,posta,6,2
'ImpostaGiocata 3,ambo3,Ru,posta,6,2
Gioca es,1 ' Se Attivo Vedi solo Gli Esiti Positivi
'Gioca es,,,1 ? Se Attivo evidenzi anche l'estrazione
Scrivi String(100,"=") & " Caso n." & k
'End If
Next
ScriviResoconto
End Sub



Grazie fin da ora.

 

[i legend]

Ciao tot se è il numero delle estrazio i totali , lo calcoli sotto inizio e fine
Dove è ora viene calcolato tante volte la lunghezza del ciclo .
Puoi mettere fuori dal ci lo anche aR(1) e aR(2) ,non cambiano mai.
Il resto non ho capito cosa vuoi ottenere.
Ciao

 

[Xeroxs]

Ciao I-Legend
Ciò che volevo è questo

Script By Xeroxs -- Per Testare Metodi Sommativi
Estrazioni Esaminate : 74
02.01.2020 - 01.08.2020
----------------------------------------------------------------------------------------------------

ed anche se ho chiesto un aiuto non smetto mai di fare modifiche per capire cosa devo fare ed ovvio che potrò sbagliare nel cercare di migliorare piccoli passi ma per me sono importanti,
credo di esserci arrivato mettendo le righe prima del ciclo for
For es = Ini To fin

In quanto non avevo capito che il ciclo for include nel sua regola le righe precedenti e quindi era sbagliato il mio
ragionamento, almeno credo che sia così. è quanto hai scritto lo conferma.

Grazie come sempre

 

[i legend]

Di nulla
Ciao

 

[druid]

Ciao Xeroxs,
i dati di cui hai bisogno per valorizzare le due righe di testo vanno messe prime delle stesse quindi:

Ini = EstrazioneFin - 73
fin = EstrazioneFin
Tot = fin - Ini + 1

di seguito riporti le due righe:

Scrivi "Estrazioni Esaminate : " & Tot
Scrivi DataEstrazione(Ini)&" - "& DataEstrazione(fin)

e cmq prima dell' istruzione

For es = Ini To fin

Spero di essere stato chiaro.

Ciao

 

[Xeroxs]

Certo Druid
Chiarissimo
Grazie anche a Te