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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto