Prego se si può uno Script

[Paki144]

Buonasera a tutti Forum LottoCed
Se si può vorrei uno script provo a spiegare :
In un pannello di 90 numeri da 1 a 90
Per Esempio in questo modo:
- - - - - - - - - - - -
01.02.03.04.05
06.07.08.09.10
11.12.13.14.15.
16.17.18.19.20
21.22.23.24.25
26.27.ecc..
31.32.ecc..
36.37.ecc..
41.42.ecc..
46.47.ecc..
51.52.ecc..
56.57.ecc..
61.62.ecc..
66.67.ecc..
71.72.ecc..
76.77.ecc..
81.82.83.84.85
86.87.88.89.90
- - - - - - - - - - - -
che in un arco di 18 Estrazioni mi tolga dal pannello i numeri usciti
in modo che si vedano soltanto quelli che Non sono Usciti in quella Ruota
magari se si può scegliere la Ruota
La ricerca dovrebbe partire dalla 18^ Estrazione fino all'Estrazione attuale.
se fosse possibile poter spostarsi dalla penultima fino alla 18^ Estrazione
per la visualizzazione del pannello dei numeri che Non Sono Usciti sulla Ruota.
Grazie
Saluti

 

[Mike58]

Ciao Paki, uno script così, mi pare di avertelo già fatto.
Infatti ne ho uno già pronto che porta la descrizione del tuo nick.
Comunque rispecchia la tua richiesta.
Te lo posto.

Sub Main
   Dim Nu(5),Nn(5),Ru(1),fr(5),T,V,aN(5)
   Quante = InputBox("Quante estrazioni controllo",,18)
   Ini = EstrazioneFin - Quante + 1
   fin = EstrazioneFin
   r = ScegliRuota
   Ru(1) = r
   Scrivi "Estrazioni Inizio... " & GetInfoEstrazione(Ini),1
   Scrivi "Estrazione Fine..... " & GetInfoEstrazione(fin),1
   Scrivi "Totali Estrazioni... " & fin - Ini + 1,1
   Scrivi "Ruota in Esame...... " & NomeRuota(r),1
   Scrivi
   T = Array(T,"Combinazione","Ritardo x 1","Analitico Presenti","N.Presenze","NumeriRipetuti","Pres Progress","Analitico Assenti","Assenti Progress","Verifica Ultimo Esito")
   Call InitTabella(T,,,,,"Arial Black")
   For c = 0 To 17
      For n = 1 To 5
         Nu(n) =(5*c) + n
         fr(n) =(5*c) + n
         Nn(n) =(5*c) + n
         aN(n) =(5*c) + n
         If EstrattoFrequenza(r,Nu(n),Ini,fin) > 0 Then Nu(n) = "--"
         If EstrattoFrequenza(r,fr(n),Ini,fin) = 0 Then fr(n) = "--"
         If EstrattoFrequenza(r,aN(n),Ini,fin) < 2 Then aN(n) = "--"
         fre = SerieFreq(Ini,fin,Nn,Ru,1)
         If Nu(n) <> "--" Then k = k + 1
         If fr(n) <> "--" Then kk = kk + 1
         ritC = RitardoCombinazione(Ru,Nn,1)
      Next
      Call VerificaEsito(Nn,Ru,fin - ritC,1,,,,,esa)
      V = Array(V,StringaNumeri(Nn,,1),ritC,StringaNumeri(fr,,1),fre,StringaNumeri(aN),kk,StringaNumeri(Nu,,1),k,esa)
      Call AddRigaTabella(V)
      If ritC = 0 Then Call SetColoreCella(9,7,5)
      Call SetColoreCella(7,3,1)
      'Scrivi StringaNumeri(Nn,,1) & " <> " & StringaNumeri(Nu,,1) & vbTab & rsl & vbTab & ritC & vbTab & k
      'k = 0
      'kk = 0
   Next
   CreaTabella
   Scrivi "Tabella By Mike58",1,,,,3
End Sub

 

[Paki144]

Grazie!!! Mike58 è perfetto
Grazie di cuore
Buona serata
Saluti

 

[i legend]

Ciao, già fatto da mike

 

[Paki144]

Grazie ILEGEND di avermi letto
e per l'interessamento.
Saluti

 

[Paki144]

.