Chiedo un consiglio a Mike58 per script eseguito da lui!!!

[antonio65]

Ciao Mike58, siccome non riesco a risolvere un problemino che ho su uno script....nessuno si è prestato fino ad ora....
Sbirciando a destra e sinistra ho trovato questo script e vorrei aggiungere questo parametro: nu1 = Fuori90(Abs(34+ EstrattoDL(n - 1,1))) e non so dove collocarla...mi puoi aiutare?

Sub Main()
ImpostaArchivio10ELotto(2)
Dim Nn(10)
QT = InputBox("Quanti Numeri","Numeri",3)
QN = InputBox("QUANTE ESTRAZIONI",,25)
ScegliNumeri(Nn)
Ini = EstrazioniArchivioDL - QN
Fin = EstrazioniArchivioDL
Scrivi "........ Da " & GetInfoEstrazioneDL(Ini) & " a " & GetInfoEstrazioneDL(fin),1
'Scrivi
Scrivi String(120,"="),1
ColoreTesto 1
Scrivi "Evidenzia numeri giocati sulla combinazione 10 e lotto 5 min ",1
ColoreTesto 0
Scrivi String(120,"-")
ColoreTesto 2
Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
ColoreTesto 0
Scrivi String(120,"-")
For Es = Ini To Fin
tot = 0
Scrivi GetInfoEstrazioneDL(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
If ToT = Int(qt) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena ",1,- 1,3
Else
If Tot = Int(qt - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -1 ",1
Else
If Tot = Int(qt - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -2 ",1
Else
ColoreTesto 7
If Tot <> Int(qt) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0
Next
Scrivi String(120,"-")
Scrivi
Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(1,Nn,1,QN)
Call GiocaDL(fin - QN)
ScriviResocontoDL
End Sub

 

[Mike58]

Ciao Antonio65, purtroppo ho smesso di fare script e poi manca anche il tempo per farli.
Non si capisce se il numero aggiunto è aggiuntivo dei selezionati e comunque è anche errato nelle sua formula, però se ti va bene cosi come lo hai impostato a volte da il giusto risultato.

Sarebbe meglio quando si fanno richieste fare le stesse con tutti i parametri elencati,anzichè postare script da correggere.

Poi non te le prendere oramai gli scripter hanno un periodo di stanca è stato fatto di tutto ma in pochi hanno imparato qualcosina che gli permette di fare semplici operazioni.

Io te lo metto ma non saprei se è quello che chiedi.

Sub Main()
 ImpostaArchivio10ELotto(2)
 Dim Nn(10),nu1(1)
 QT = InputBox("Quanti Numeri","Numeri",3)
 QN = InputBox("QUANTE ESTRAZIONI",,25)
 ScegliNumeri(Nn)
 Ini = EstrazioniArchivioDL - QN
 Fin = EstrazioniArchivioDL
 Scrivi "........ Da " & GetInfoEstrazioneDL(Ini) & " a " & GetInfoEstrazioneDL(fin),1
 'Scrivi
 Scrivi String(120,"="),1
 ColoreTesto 1
 Scrivi "Evidenzia numeri giocati sulla combinazione 10 e lotto 5 min ",1
 ColoreTesto 0
 Scrivi String(120,"-")
ColoreTesto 2
 Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
 ColoreTesto 0
 Scrivi String(120,"-")
For Es = Ini To Fin
 tot = 0
 Scrivi GetInfoEstrazioneDL(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
 If ToT = Int(qt) Then
 Scrivi " - Punteggio max -> " & tot,1,0
 'ColoreTesto 3
 Scrivi " - Attenzione vincita piena ",1,- 1,3
 Else
 If Tot = Int(qt - 1) Then
 ColoreTesto 7
 Scrivi " - Punteggio max -> " & tot,1,0
 ColoreTesto 2
 Scrivi " - Vincita -1 ",1
 Else
 If Tot = Int(qt - 2) Then
 ColoreTesto 7
 Scrivi " - Punteggio max -> " & tot,1,0
 ColoreTesto 2
 Scrivi " - Vincita -2 ",1
 Else
 ColoreTesto 7
 If Tot <> Int(qt) Then Scrivi " - Punteggio max -> " & tot,1
 End If
 End If
 End If
 ColoreTesto 0
nu1(1) = Fuori90(Abs(34+ EstrattoDL(es - 1,1)))'qui metti il tuo codice
 Next
 Scrivi String(120,"-")
Scrivi
 Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"

Call ImpostaGiocataDL(1,Nn,1,QN)
Call ImpostaGiocataDL(2,nu1,1,QN)'qui lo giochi

 Call GiocaDL(fin - QN)
 ScriviResocontoDL
 End Sub

Ciao a stasera

 

[antonio65]

GRAZIE MIKE58 per avermi preso in considerazione...non è quello che cerco il mio è uno script semplice per il gioco 10& lotto 5 minuti...
si tratta di sommare un numero ad uno dei 20 estratti ...esempio supponiamo che nell'estrazione 1 il primo estratto fosse stato 7 io avrei aggiunto +5 quindi il numero da giocare sarebbe stato il 12...semplice....io ho uno script da te modificato però mi inizia la somma un estrazione precedente tutto li...deve iniziare la somma se è estrazione 1 da estrazione 1 etc etc....grazie se mi puoi aiutare ...tutto ciò che mi serve!!!

 

[Mike58]

Come puoi valutare dato il ciclo di estrazioni es, con il tuo algoritmo
fuori90(EstrattoDL(es-1.1) +34) hai chiamato estraz .-1 in posiz. 1 + 34
mentre se vuoi estrazione corrente fai il Fuori90(EstrattoDL(es,1)+34).
lo script è semplice puoi fare tutte le prove che ti servono e puoi anche mettere i sommativi in inputbox. e fare le somme in automatico.

Davvero è + semplice a farsi che dirsi.

Ciao

 

[Mike58]

Non so vedi se ti è utile cosi, poi fai tu le opportune valutazioni.

Sub Main()
 ImpostaArchivio10ELotto(2)
 Dim nu(1),T,V,sommato(1)
 Ini = EstrazioniArchivioDL - 20
 fin = EstrazioniArchivioDL
 pos = CInt(InputBox("Quale posizione voglio sommare",,1))
 somma = InputBox("Quale sommativo voglio fare la somma",,34)
 clp = InputBox("Quanti colpi in verifica",,5)
 T = Array (T,"Info Es","Numeri Estrazione","Sommativo + estratto","Posizione Estratto","Numero Ricavato","Verifica","colpi")
 Call InitTabella(T)
 For es = Ini To fin
  sommato(1) = Fuori90(EstrattoDL(es,pos) + somma)
  Call VerificaEsitoDL(sommato,es + 1,1,clp,esito,colpi,estratti)
  V = Array (V,GetInfoEstrazioneDL(es),StringaEstrattiDL(es),somma & " + " & EstrattoDL(es,pos),pos,StringaNumeri(sommato),estratti,colpi)
  Call AddRigaTabella(V)
 Next
 CreaTabella
End Sub

 

[antonio65]

ti terrò informato quando finirò tutte le ricerche dalla 1 alla 288 x fascia e anche senza fascia....una volta finito metterò le migliori previsioni...grazie ancora infinite...

 

[Mike58]

ok , buon studio e good luck