un aiuto per uno script 10elotto 5min.

[lestodante]

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.

 

[Mike58]

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.

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

 

[lestodante]

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

 

[Mike58]

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
=============================================================================================================================