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.
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.
