Novità

un aiuto per uno script 10elotto 5min.

lestodante

Junior Member
gentili amici c'è qualcuno che mi può aiutare a sviluppare uno script
per una ricerca nel gioco del 10 e lotto 5 min
dove:
imposto un numero e voglio sapere quali numeri sono usciti nell'estrazione successiva
naturalmente i numeri da ricercari (fino a dieci) li devo digitare io.
grazie
leostodante.
 
Ciao Lestodante,ho visto che questa richiesta l'hai fatto in tutte le sezioni e non c'è stata risposta dai giocatori 5min.
Perciò ho sviluppato un pò quello che mi sembra di capire dalla tua richiesta che dopo spia verificare i numeri da te immessi.

Prova se così è questa soluzione.

Codice:
Sub Main()
 ImpostaArchivio10ELotto(2)
 Dim num(10),nu(1),sorte(10)
 SP = CInt(InputBox("Quale spia ",,37))
 so = CInt(InputBox("Quale sorte verificare...",,2))
 cl = CInt(InputBox("Quanti colpi verificare...",,6))
 dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI  2=NO",,2)
 ScegliNumeri(num)
 For k = 1 To UBound(num)
  num(k) = num(k)
 Next
 Scrivi "Verifica dopo numero SPIA l'esito in x.. colpi dei Numeri..." & StringaNumeri(num),1
 Scrivi
 nu(1) = sp
 fin = EstrazioniArchivioDL
 ini = fin - 100
 ReDim atitoli(6)
 atitoli(1) = " DATA ESTR. "
 atitoli(2) = " SPIA "
 atitoli(3) = " ESITO "
 atitoli(4) = " STRINGA ESITO"
 atitoli(5) = "N° Colpi"
 atitoli(6) = " NUMERI IN GIOCO "
 Call InitTabella(atitoli,1,,3,5)
 For es = ini To fin
  If SerieFreqDL(es,es,nu,1) = 1 Then
   Messaggio es
   AvanzamentoElab Ini,fin,es
   Call VerificaEsitoDL(num,es + 1,so,cl,retesito,retcolpi,retestratti,retidestr)
   ReDim avalori(6)
   avalori(1) = GetInfoEstrazioneDL(es)
   avalori(2) = SP
   avalori(3) = retesito
   avalori(4) = retestratti
   avalori(5) = retcolpi & "°"
   avalori(6) = StringaNumeri(num)
   Call AddRigaTabella(avalori,,,2)
  End If
 Next
 CreaTabella
 If dett = 1 Then
  Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
  fin = EstrazioniArchivioDL
  Ini = fin - 100
  nu(1) = sp
  For es = Ini To fin
   If SerieFreqDL(es,es,nu,1) = 1 Then
    ImpostaGiocataDL 1,num,1,6
    gs = GetSpesa(True)
    gv = GetVincita(True)
    gg = GetGuadagno(True)
    Scrivi String(125,"="),1
    ColoreTesto 1
    Scrivi "Uscita numero SPIA..." & SP & "  Nell'estrazione del..." & GetInfoEstrazioneDL(es),1
    ColoreTesto 0
    Scrivi String(125,"="),1
    GiocaDL es
    gs = GetSpesa(True)
    gv = GetVincita(True)
    gg = GetGuadagno(True)
    Scrivi"Spesa Parziale....." & gs
    Scrivi"Vincite Parziale..." & gv
    Scrivi"Guadagno Parziale.." & gg
   End If
  Next
  ScriviResocontoDL
 End If
 If dett = 2 Then
  TestoInBandaPassante(" Listed by Mike58 "),1,3,0
 End If
End Sub
 
ERROR.jpg Grazie MIke58 era proprio quello che cercavo, ora ci studio un po sopra e poi posterò una sintesi della mia ricerca, volevo dirti se alla fine digito 1 (vedere il dettaglio) mi da un errore, di cui ti allego immagine. di nuovo grazie Lestodante
 
Ciao, Lestodante, ho visto l'errore è un codice che funziona solo con le ultime versioni di spaziometria devi aggionare l'ultima versione ora esiste la 1.3.77
altrimenti spunta i codici con apice in modo da non farli calcolare ma in questo modo perdi una istruzione molto utile al fine delle giocate.
dovresti vedere questo.

=============================================================================================================================
Uscita numero SPIA...75 Nell'estrazione del...[14669] [ 77] 14.08.2012
=============================================================================================================================
Estrazione generatrice del pronostico 14669 [ 77 - 14/08/2012]
G 0001
Numeri in gioco : 73.74.75.76.77
V N. [73.74.75.76.77 ] [.. .. .. .. .. .. .. .. .. .. .. .. 73 76 77 .. .. .. .. .. ] C. 1 14670 [ 78 - 14/08/2012]
N. [73.74.75.76.77 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 73 .. .. .. ] C. 2 14671 [ 79 - 14/08/2012]
V N. [73.74.75.76.77 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 75 77 .. .. .. ] C. 3 14672 [ 80 - 14/08/2012]
V N. [73.74.75.76.77 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. 75 76 .. .. .. .. ] C. 4 14673 [ 81 - 14/08/2012]
N. [73.74.75.76.77 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 77 .. .. .. ] C. 5 14674 [ 82 - 14/08/2012]
N. [73.74.75.76.77 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ] C. 6 Zero punti 14675 [ 83 - 14/08/2012]
Interrotta per raggiunta durata

Spesa Parziale.....6
Vincite Parziale...6
Guadagno Parziale..0
=============================================================================================================================
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 ottobre 2025
    Bari
    89
    74
    27
    47
    37
    Cagliari
    78
    13
    22
    83
    44
    Firenze
    56
    79
    68
    59
    75
    Genova
    74
    40
    71
    57
    18
    Milano
    88
    11
    33
    07
    84
    Napoli
    53
    25
    49
    83
    85
    Palermo
    49
    25
    85
    20
    11
    Roma
    14
    50
    75
    10
    13
    Torino
    43
    67
    36
    72
    73
    Venezia
    88
    55
    26
    59
    37
    Nazionale
    15
    49
    18
    21
    20
    Estrazione Simbolotto
    18
    24
    21
    32
    33

Ultimi Messaggi

Indietro
Alto