Mike58
Advanced Member >PLATINUM PLUS<
Ciao, sono alle prese con un calcolo dello script che non riesco a venirne a capo.
Lo script dovrebbe dopo evidenzia numeri giocati sulla combinazione estratti in questo caso 10 e lotto serale,fare il calcolo del solo punteggio massimo.
Invece sono SI riuscito a far scrivere il punteggio massimo, ma scrive anche gli altri punteggi del ciclo for next, che non vorrei fare scrivere.
Ho provato varie opzioni ma ormai mi sono impallato.
Un grazie agli amici scripter che possono darmi un aiuto.
Lo script dovrebbe dopo evidenzia numeri giocati sulla combinazione estratti in questo caso 10 e lotto serale,fare il calcolo del solo punteggio massimo.
Invece sono SI riuscito a far scrivere il punteggio massimo, ma scrive anche gli altri punteggi del ciclo for next, che non vorrei fare scrivere.
Ho provato varie opzioni ma ormai mi sono impallato.
Un grazie agli amici scripter che possono darmi un aiuto.
Codice:
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
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
Next
Scrivi Format2(EstrattoDL(Es,P)),1,0
ColoreTesto 0
Scrivi "",0,0
If P < 20 Then Scrivi ".",0,0
Next
ColoreTesto 7
Scrivi " - Punteggio max -> ",1,0
For x = 1 To qt
tot = SerieFreqDL(Es,Es,Nn,x)
If Tot = > 0 Then Scrivi tot,1
Next
ColoreTesto 0
Next
Scrivi
Scrivi"--------------------------------------------------------------"
End Sub