modifica script

[giuseppina]

salve, gentilmente vorrei sapere se qualcuno possa modificare questo script: in pratica lo script va bene, solo non mi compare il resoconto finale dei numeri analizzati.
gentilmente vorrei sapere se qualcuno di voi mi può aiutare.
grazie in anticipo e questo è lo script.

Sub Main()
ImpostaArchivio10ELotto(1)
Dim Nn(10)
QT = InputBox("Quanti Numeri","Numeri",6)
ScegliNumeri(Nn)
Ini = EstrazioniArchivioDL - 10
Fin = EstrazioniArchivioDL
Scrivi "........ Da " & DataEstrazioneDL(Ini) & " a " & DataEstrazioneDL(fin),1
Scrivi
Scrivi " Evidenzia numeri giocati sulla combinazione 10 e lotto ",1
Scrivi"------------------------------------------------------------"
ColoreTesto 2
Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
ColoreTesto 0
Scrivi"------------------------------------------------------------"
For Es = Ini To Fin
tot = 0
Scrivi DataEstrazioneDL(es) & " ",0,0
Scrivi "[" & Es & "] ",0,0
For P = 1 To 20
ColoreTesto 1
For x = 1 To Qt
If EstrattoDL(Es,P) = Nn(x) Then
ColoreTesto 2
tot = tot + 1
End If
Next
Scrivi Format2(EstrattoDL(Es,P)),1,0
ColoreTesto 0
Scrivi ".",0,0

Next
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1
ColoreTesto 0
Next
Scrivi
Scrivi"--------------------------------------------------------------"
End Sub

 

[keeper]

questo script dovrebbe essere di mike58
e questo è il resoconto
evidenzia in rosso i numeri
........ Da 09.01.2014 a 01.02.2014

Evidenzia numeri giocati sulla combinazione 10 e lotto
------------------------------------------------------------
Numeri in gioco 81.82.83.84.85.86
------------------------------------------------------------
09.01.2014 [8793] 08.09.12.13.14.38.39.42.43.44.47.48.55.66.69.71.72.80.81.86. - Punteggio max -> 2
11.01.2014 [8794] 02.08.11.19.30.35.38.41.42.47.48.55.56.57.59.62.72.77.82.90. - Punteggio max -> 1
14.01.2014 [8795] 01.03.04.10.12.28.31.33.35.37.43.44.49.54.64.66.67.75.86.87. - Punteggio max -> 1
16.01.2014 [8796] 06.10.12.15.16.21.33.34.36.44.55.66.73.74.77.79.82.84.85.86. - Punteggio max -> 4
18.01.2014 [8797] 03.05.07.15.18.23.27.33.36.43.45.48.52.55.57.62.74.75.76.86. - Punteggio max -> 1
21.01.2014 [8798] 04.08.10.11.12.16.21.30.40.41.42.48.57.64.65.67.68.71.75.85. - Punteggio max -> 1
23.01.2014 [8799] 04.06.07.13.18.20.25.29.31.33.44.45.47.52.56.58.60.63.69.72. - Punteggio max -> 0
25.01.2014 [8800] 14.16.22.24.40.41.42.44.49.52.55.59.63.66.68.72.73.76.77.87. - Punteggio max -> 0
28.01.2014 [8801] 05.08.09.10.13.16.25.36.38.41.46.47.50.57.63.69.72.74.75.82. - Punteggio max -> 1
30.01.2014 [8802] 04.12.18.19.26.30.33.34.42.50.57.61.66.73.74.78.80.84.85.88. - Punteggio max -> 2
01.02.2014 [8803] 02.06.08.11.13.20.25.27.29.34.35.43.44.52.60.67.80.82.87.88. - Punteggio max -> 1

--------------------------------------------------------------

 

[giuseppina]

salve.
lo so come funziona e quale è il resoconto. ma quello che dici tu è quello parziale estrazione per estraziome. a me servirebbe anche quello totale, sommando tutte le estrazioni il valore finale.

 

[arcor]

ciao giuseppina scusa se approfitto del tuo post per chiedere una modifica al listato che hai postato volevo chiedere agli scripter se è possibile modificarlo per il lotto con la stessa ricerca numerigrazie

 

[keeper]

non serve per il lotto c'è spaziometria

 

[giuseppina]

salve.
gentilmente un altro aiuto per gli scripter:
vorrei modificare questo script di Donatella ed analizzare solo esito ambata determinata a bari in prima posizione.

questo lo script:
Sub Main()
Scrivi "Ambata di Donatella "
Dim n1(1),nn1(2),nn2(3),ruota(2)
Dim posta(1),poste(3),postee(3)
posta(1) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 0.5
ruota(1) = 1
k = 13
casi = 1
Ini = EstrazioneIni + 4440
fin = EstrazioneFin
For es = ini To Fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 12 Then
a = Estratto(es,1,1)
b = Estratto(es,1,2)
c = Estratto(es,1,3)
d = Estratto(es,2,1)
e = Estratto(es,2,2)
f = Estratto(es,2,3)
g = Differenza(a,b)
h = Differenza(d,e)
i = Differenza(a,c)
l = Differenza(d,f)
Scrivi String(100,"-")
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " "
Scrivi DataEstrazione(es,2) & " < " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " "
Scrivi Format2(g) & " + " & Format2(h) & " = " & Format2(Fuori90(g + h))
Scrivi Format2(i) & " + " & Format2(l) & " = " & Format2(Fuori90(i + l))
n1(1) = Fuori90(g + h)
ImpostaGiocata 1,n1,ruota,posta,k,1
Scrivi String(100,"-") & " caso n° " &(casi)
casi = casi + 1
Gioca es,True,,1
End If
Next
Scrivi String(100,"-")
Scrivi " Ambata di Donatella "
Scrivi String(100,"-")
ScriviResoconto
End Sub

grazie a tutti per il vostro aiuto

 

[Mike58]

Ciao Giuseppina,per le giocate in posizione determinata, devi impostare la postaVettore (10), dove da 6 a 10 rappresentano le posizioni determinate.
Nel tuo caso PostaD(6) = 1 e richiamarla con imposta giocata.

Sub Main()
 Scrivi "Ambata di Donatella "
 Dim n1(1),nn1(2),nn2(3),ruota(2)
 Dim posta(1),poste(3),postee(3),postaD(10)
 posta(1) = 1
 poste(2) = 1
 postee(2) = 1
 postee(3) = 0.5
postaD(6) = 1
 ruota(1) = 1
 k = 13
 casi = 1
 Ini = EstrazioneIni + 4440
 fin = EstrazioneFin
 For es = ini To Fin
 Messaggio es
 AvanzamentoElab Ini,fin,es
 If IndiceMensile(es) = 12 Then
 a = Estratto(es,1,1)
 b = Estratto(es,1,2)
 c = Estratto(es,1,3)
 d = Estratto(es,2,1)
 e = Estratto(es,2,2)
 f = Estratto(es,2,3)
 g = Differenza(a,b)
 h = Differenza(d,e)
 i = Differenza(a,c)
 l = Differenza(d,f)
 Scrivi String(100,"-")
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " "
 Scrivi DataEstrazione(es,2) & " < " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " "
 Scrivi Format2(g) & " + " & Format2(h) & " = " & Format2(Fuori90(g + h))
 Scrivi Format2(i) & " + " & Format2(l) & " = " & Format2(Fuori90(i + l))
 n1(1) = Fuori90(g + h)
 'ImpostaGiocata 1,n1,ruota,posta,k,1
ImpostaGiocata 2,n1,ruota,postaD,k,1
 Scrivi String(100,"-") & " caso n° " &(casi)
 casi = casi + 1
 Gioca es,True,,1
 End If
 Next
 Scrivi String(100,"-")
Scrivi " Ambata di Donatella "
 Scrivi String(100,"-")
ScriviResoconto
 End Sub

 

[giuseppina]

salve MIke58, un ringraziamento per la tua disponibilità a modificare il listato ed anche per la spiegazione tecnica di come farlo.
grazie di cuore.