Per Mike o salvo50

[solare]

Ciao, chiedo agli esperti se è possibile una modifica a questo listato:
Aggiungere la possibilità di selezionare la ricerca per decina naturale.
Grazie

Option Explicit
Sub Main()
Call Scrivi()
Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
Call Scrivi()
Dim numero(90,03),num(01),ruota(1),nn(01)
Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",90))
If N = "" Then Exit Sub
Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,1))
If R = "" Then Exit Sub
Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,5))
If ESTR = "" Then Exit Sub
Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
If TOT = "" Then Exit Sub
Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,5))
If ER = "" Then Exit Sub
Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,2))
If Mostra_OUT = "" Then Exit Sub
Dim Casi : Casi = 00
Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
If Casi < ESTR Then
For P = 01 To 05
a = Estratto(Es,R,P)
If a = N Then 'se trovi N
Casi = Casi + 01
Cont = 00 ' contatore
ix = Es - 01
ixx =(ix - ER) + 01
For axx = ixx To ix
Call info2(Mostra_OUT,R,N,axx) ' estrazioni precedenti
Next
Call info1(Mostra_OUT,Casi,Es,R,N,ER) ' estrazione spia
'Ex = Es - ER '+ 01
For Ess = Es - ER To Es - 01
For Pos = 01 To 05
b = Estratto(Ess,R,Pos)
nn(01) = b
ruota(01) = R
Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
numero(b,01) = b
numero(b,02) = numero(b,02) + 01
numero(b,03) = Rit
Cont = Cont + 01
Next
Next
End If
Next
End If
Next
Call OrdinaMatriceTurbo(numero,- 01,02)
Call Scrivi()
If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI ed in rosso le successive",True,True,,01)
Call Scrivi("NUMERO : " & Format2(N),True,True)
Call Scrivi("RUOTA DI RICERCA : " & SiglaRuota(R),True,True)
Call Scrivi("CASI ESAMI SPIATONATI : " & Format2(Casi),True,True)
Call Scrivi("ESTR.RETROATTIVE : " & Format2(ER),True,True)
Call Scrivi()
Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
Call Scrivi()
Call Scrivi("NUM. | FREQ. | RIT.",True,True)
Call Scrivi()
Dim NR,NSTR,Stringa
For NR = 01 To TOT
Call Scrivi(Format2(numero(NR,01)) & " | " & Format2(numero(NR,02)) & " | " & Format2(numero(NR,03)),True,True)
NSTR = Format2(numero(NR,01))
Stringa = Stringa + NSTR
If NR < TOT Then Stringa = Stringa + "."
Next
Call Scrivi()
Call Scrivi("Stringa numeri rilevatori: " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,n,axx)
If mostra_out = 01 Then Call Scrivi(" " & DataEstrazione(axx) & " " & SiglaRuota(r) & " " & StringaEstratti(axx,r) & " numeri precursori ",True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n,ER)
Dim x
If mostra_out = 01 Then
Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Numero spiato: " & Format2,True,True)
For x = 1 To ER
Call Scrivi(" " & DataEstrazione(es + x) & " " & SiglaRuota(r) & " " & StringaEstratti(es + x,r) & " frequenti dopo spia: ",True,True,,02)
Next
End If
End Function

 

[Mike58]

No !!! Solare in questa tipologia di script non è possibile ottenere le sole decine.
Se un numero dopo spia o prima della spia ha tot presenze non è detto che i compagni della decina abbiano presenze valide.
Mi spiace.

Ciao

 

[solare]

ok grazie