Novità

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

antonio65

Super Member >PLATINUM<
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
 
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.

Codice:
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
 
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!!!
 
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
 
Non so vedi se ti è utile cosi, poi fai tu le opportune valutazioni.

Codice:
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
 
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...:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto