Novità

Se si può uno Script Tabella dei 90 numeri

Paki144

Super member
Ciao Forum ciao a tutti
Una richiesta agli esperti chi può,
per favore se si può uno Script per poter avere una Tabella dei 90 numeri, che ad ogni estrazione
nella tabella dei 90 numeri
la casella di ogni numero ci sia un trattino "-" dei numeri estratti.
iniziando dai 5 estratti delle 18 estrazioni precedenti per
arrivare all'ultima attuale estrazione.
Se si potrebbe scegliere la ruota.
Per una ricerca visiva andando a esclusioni degli estratti.
Grazie
P.s. allego un immagine esempio20201202_013844-01.jpeg
 
Ultima modifica:

Paki144

Super member
Ciao claudio grazie per avermi letto
cerco di poter spiegare avendo
le estrazioni a sinistra guardando il foglio (display) e scelto una sola ruota con date estrazioni e numeri, se si può avere di fianco destro una tabella dei 90 numeri nelle 18 estrazioni che sarebbe a destra delle estrazioni di sinistra.

Sinistra---------------------Destra
18^ Data Rt Nm | 01 02 03 04 05
17^ Data Rt Nm | 06 07 08 09 10
16^ Data Rt Nm | 11 12 13 14 15
15^ Data Rt Nm | 16 17 18 19 20
----- ------ --- ---- |
1^ Data Rt Nm |
0^ Data Rt Nm | 86 87 88 89 90
- - - - - - - - - - - - - - - - - - - - - - - - - -
nella Tabella di destra dalla 18^ estrazione precedente di Sinistra man mano che escono i 5 estratti dalla 18^ estrazione in automatico sulla tabella di destra vengono segnati con un trattino(-) o un vuoto e scendere fino all'estrazione attuale.
le estrazioni a Sinistra visibili e attuali, invece sulla Tabella di Destra i numeri da 1 a 90 segnati con un trattino o un vuoto quelli che sono stati estratti.

01 02 03 04 05
06 07 08 09 10
11 12 13 14 15
.... .... .... .... ....
85 86 87 84 85
86.87.88.89.90

si vedranno solo i numeri non usciti nelle 18 estrazioni. Possibilmente la Tabella di Destra in modo da trovarsi sempre in linea orizzontalmente con l'ultima estrazione attuale a Sinistra. Per poter avere un quadro attuale (Tabella di Destra) dei numeri non ancora usciti in 18 Estrazioni.

Claudio Grazie
per il tuo tempo che spendi per me.
Saluti
 
Ultima modifica:

Paki144

Super member
Ciao Claudio
Grazie per il tuo aiuto a te e
gli altri collaboratori.
Saluti
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao visto la richiesta irrisolta, ti metto una mia versione.

Codice:
Sub Main
   Dim Nu(5),Nn(5),Ru(1),fr(5),T,V
   Quante = InputBox("Quante estrazioni controllo",,9)
   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","Pres Progress","Analitico Assenti","Assenti Progress","Verifica Ultimo Esito")
   Call InitTabella(T)
   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
         If EstrattoFrequenza(r,Nu(n),Ini,fin) > 0 Then Nu(n) = "--"
         If EstrattoFrequenza(r,fr(n),Ini,fin) = 0 Then fr(n) = "--"
         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),kk,StringaNumeri(Nu,,1),k,esa)
      Call AddRigaTabella(V)
      If ritC = 0 Then Call SetColoreCella(7,7,5)
      '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





 

Zetrix

Advanced Premium Member
ciao mike grazie per la tabella che ai realizzato per paki144
ti volevo chiedere se era possibile scrivere i numeri che si sono
ripetuti cioe i numeri doppioni se si possono metterli in tabella oppure a parte
cosi vediamo quali sono i numeri piu frequenti che si sono verificati
nella ruota di ricerca
ho allegato la tabella e fatte alcune aggiustative dei colori
grazie mike

buona serata
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Zetrix prova cosi

Codice:
Sub Main
   Dim Nu(5),Nn(5),Ru(1),fr(5),T,V,aN(5)
   Quante = InputBox("Quante estrazioni controllo",,9)
   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)
   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)
      '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
 

Zetrix

Advanced Premium Member
ciao mike grazie per la modifica dello script vorrei aggiungere stringaestratti
al posto di fre ma non so perche mi da errore lo script puoi vedere un po te

ti allego lo script

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,"Numeri","Ritardo","Numeri Sortiti","Estratti","NumeriRipetuti","Presenti","Numeri Assenti","Assenti","Ultima Sortita","Data")
Call InitTabella(T)
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,id)
V = Array(V,StringaNumeri(Nn,,1),ritC,StringaNumeri(fr,,1),StringaEstratti(Ru),StringaNumeri(aN),kk,StringaNumeri(Nu,,1),k,esa,DataEstrazione(id))
Call AddRigaTabella(V)
If ritC = 0 Then Call SetColoreCella(1,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(3,RGB(0,71,171),6)
If ritC = 0 Then Call SetColoreCella(5,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(7,RGB(0,71,171),6)
If ritC = 0 Then Call SetColoreCella(9,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(10,RGB(0,71,171),6)
'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
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Zetrix devi leggere help del codice.
StringaEstratti
StringaEstratti





Function StringaEstratti(IdEstrazione, Ruota, Optional Separatore = ".", Optional tipogioco As Integer = 0, Optional idArchivio = 0) As String

Descrizione
Ottiene una stringa data dalla concatenazione dei numeri usciti su una data ruota in tale estrazione
Note
Valore di ritorno
Torna una stringa data dalla concatenazione dei numeri usciti su una data ruota in tale estrazione , i numeri vengono separati dal carattere separatore
Parametri

IdEstrazioneIl numero identificativo dell'estrazione da 1 a estrazioni totali nell'archivio
RuotaIdentificativo della ruota
Optional Separatore = "."Carattere separatore per suddividere le sottostringhe
Optional tipogioco As Integer = 0Non usato
Optional idArchivio = 0Indentificativo dell'archivio da usare

quindi hai bisogno di una estrazione identificariva e la ruota (non Vettore)
io ti ho messo
StringaEstratti(fin-ritC,r)
estrazione identificativa = estrazionefin-Ritardo,ruota(r)
Ciao

Codice:
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,"Numeri","Ritardo","Numeri Sortiti","Estratti","NumeriRipetuti","Presenti","Numeri Assenti","Assenti","Ultima Sortita","Data")
Call InitTabella(T)
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,id)
V = Array(V,StringaNumeri(Nn,,1),ritC,StringaNumeri(fr,,1),StringaEstratti(fin-ritC,r),StringaNumeri(aN),kk,StringaNumeri(Nu,,1),k,esa,DataEstrazione(id))
Call AddRigaTabella(V)
If ritC = 0 Then Call SetColoreCella(1,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(3,RGB(0,71,171),6)
If ritC = 0 Then Call SetColoreCella(5,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(7,RGB(0,71,171),6)
If ritC = 0 Then Call SetColoreCella(9,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(10,RGB(0,71,171),6)
'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
 

Zetrix

Advanced Premium Member
grazie mike della modifica dello script ho visto però che non scrive tutte le stringhe estratti

Estrazioni Inizio... [09840] [112] 29.10.2020
Estrazione Fine..... [09857] [129] 09.12.2020
Totali Estrazioni... 18
Ruota in Esame...... Bari


io vorrei che lo script mi scrivesse da inizio e fine tutti i numeri estratti
 

Zetrix

Advanced Premium Member
Sub Main

Scrivi : ColoreTesto 1 : Scrivi "1 Ambata su BA Alla 1° Estrazione del Mese"
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(1),pt(5)
Dim anum(5)

pt(1) = 1 ' -> per estratto
'pt(2) = 1 ' -> per ambo
'pt(3) = 1 ' -> per terno
'pt(4) = 1 ' -> per quaterna
'pt(5) = 1 ' -> per cinquina


co = 5 '-> colpi di gioco
rt(1) = BA_ '-> ruota di gioco

ini = EstrazioneFin - 80
fin = EstrazioneFin

For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 1 Then ' ->1 estrazione del mese

Scrivi String(70,"-")



anum(1) = Fuori90((Decina(Estratto(es,BA_,5))) + (Cadenza(Estratto(es,BA_,5)) + 58))

'anum(2) = Fuori90(Estratto(es,BA_,5) + 58)
'anum(3) = Fuori90(Estratto(es,CA_,1) + 18)
'anum(4) = Fuori90(Estratto(es,FI_,1) + 25)
'anum(5) = Fuori90(Estratto(es,GE_,2) + 18)



ImpostaGiocata 1,anum,rt,pt,co,0
Gioca es,1,,1
End If
Next


End Sub


x gabby ho questo listato con i sommativi vedi se va bene
 

Mike58

Advanced Member >PLATINUM PLUS<
grazie mike della modifica dello script ho visto però che non scrive tutte le stringhe estratti

Estrazioni Inizio... [09840] [112] 29.10.2020
Estrazione Fine..... [09857] [129] 09.12.2020
Totali Estrazioni... 18
Ruota in Esame...... Bari


io vorrei che lo script mi scrivesse da inizio e fine tutti i numeri estratti
Zetrix quello che cerchi è una altra cosa e ci vorrebbe lo script ad oc.
Ci puoi arrivare, devi avere chiaro il costrutto da seguire e all'occasione usare i codici magari anche consultanto help in linea.

Io come ho detto in altre occasioni mi diletto a fare qualche script di natura statistica, ma poi ricorreggere all'infinito e per vari scopi lo stesso script mi toglie la voglia.

Ciao come sopra ci puoi arrivare in proprio.
 

lotto_tom75

Advanced Premium Member
Ciao Zetrix devi leggere help del codice.
StringaEstratti
StringaEstratti





Function StringaEstratti(IdEstrazione, Ruota, Optional Separatore = ".", Optional tipogioco As Integer = 0, Optional idArchivio = 0) As String

Descrizione
Ottiene una stringa data dalla concatenazione dei numeri usciti su una data ruota in tale estrazione
Note
Valore di ritorno
Torna una stringa data dalla concatenazione dei numeri usciti su una data ruota in tale estrazione , i numeri vengono separati dal carattere separatore
Parametri

IdEstrazioneIl numero identificativo dell'estrazione da 1 a estrazioni totali nell'archivio
RuotaIdentificativo della ruota
Optional Separatore = "."Carattere separatore per suddividere le sottostringhe
Optional tipogioco As Integer = 0Non usato
Optional idArchivio = 0Indentificativo dell'archivio da usare

quindi hai bisogno di una estrazione identificariva e la ruota (non Vettore)
io ti ho messo
StringaEstratti(fin-ritC,r)
estrazione identificativa = estrazionefin-Ritardo,ruota(r)
Ciao

Codice:
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,"Numeri","Ritardo","Numeri Sortiti","Estratti","NumeriRipetuti","Presenti","Numeri Assenti","Assenti","Ultima Sortita","Data")
Call InitTabella(T)
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,id)
V = Array(V,StringaNumeri(Nn,,1),ritC,StringaNumeri(fr,,1),StringaEstratti(fin-ritC,r),StringaNumeri(aN),kk,StringaNumeri(Nu,,1),k,esa,DataEstrazione(id))
Call AddRigaTabella(V)
If ritC = 0 Then Call SetColoreCella(1,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(3,RGB(0,71,171),6)
If ritC = 0 Then Call SetColoreCella(5,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(7,RGB(0,71,171),6)
If ritC = 0 Then Call SetColoreCella(9,RGB(0,128,128),6)
If ritC = 0 Then Call SetColoreCella(10,RGB(0,71,171),6)
'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

Ciao Mike58 complimenti anche per questa tua ennesima chicca 😮 :D (y). Ho provato ad implementarci la tabella colorata per scegliere di visualizzare i numeri voluti anzichè i 90 di default ma senza esito. Mi potresti indicare come poterlo fare? :unsure: Grazie 👋 :)
 

Mike58

Advanced Member >PLATINUM PLUS<
Tom, grazie per i complimenti ma non posso credere che non riesci a mettere la scelta numeri.
I miei 2 cicli for servono per creare l'algoritmo delle cinquine consecutive.
Basta far 1 ciclo for per i numeri scelti e modifivare anche il contenitore del numero vettore.

Ad ogni modo ecco lo script con le modifiche

Codice:
Sub Main
   Dim Nu(1),Nn(1),Ru(1),fr(1),T,V,aN(1),NumeriScelti
   Quante = InputBox("Quante estrazioni controllo",,9)
   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
   '----------------------------
   Call ScegliNumeri(NumeriScelti)
   '----------------------------
   Scrivi "Numeri scelti : " & StringaNumeri(NumeriScelti),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)
   'For c = 0 To 17
   kk = 0 : k = 0
   '------------------------------
      For n = 1 To UBound(NumeriScelti)
      '---------------------------
      
         Nu(1) = NumeriScelti(n)
         fr(1) = NumeriScelti(n)
         Nn(1) = NumeriScelti(n)
         aN(1) = NumeriScelti(n)
         If EstrattoFrequenza(r,Nu(1),Ini,fin) > 0 Then Nu(1) = "--"
         If EstrattoFrequenza(r,fr(1),Ini,fin) = 0 Then fr(1) = "--"
         If EstrattoFrequenza(r,aN(1),Ini,fin) < 2 Then aN(1) = "--"
         fre = SerieFreq(Ini,fin,Nn,Ru,1)
         If Nu(1) <> "--" Then k = k + 1
         If fr(1) <> "--" Then kk = kk + 1
         ritC = RitardoCombinazione(Ru,Nn,1)
      
      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)
      'Scrivi StringaNumeri(Nn,,1) & " <> " & StringaNumeri(Nu,,1) & vbTab & rsl & vbTab & ritC & vbTab & k
      'k = 0
      'kk = 0
      Next
   'Next
   CreaTabella
   Scrivi "Tabella By Mike58",1,,,,3
End Sub

Poi è chiaro che si può fare anche la statistica della intera combinazione, ma questo è meglio che lo fai Tu !!!

Ciao
 

Zetrix

Advanced Premium Member
va bene mike non a molta importanza ma volevo fare un altro script con gli estratti
per ogni ruota vedrò se riesco a fare qualche aggiustative dei colori dello script per rendere
meglio le ricerche dei numeri estratti
For n = 1 To UBound(NumeriScelti)

ho visto che ai aggiunto anche questa stringa interessante se si vuole
scegliere una lunghetta di numeri

ciao
 

lotto_tom75

Advanced Premium Member
Tom, grazie per i complimenti ma non posso credere che non riesci a mettere la scelta numeri.
I miei 2 cicli for servono per creare l'algoritmo delle cinquine consecutive.
Basta far 1 ciclo for per i numeri scelti e modifivare anche il contenitore del numero vettore.

Ad ogni modo ecco lo script con le modifiche

Codice:
Sub Main
   Dim Nu(1),Nn(1),Ru(1),fr(1),T,V,aN(1),NumeriScelti
   Quante = InputBox("Quante estrazioni controllo",,9)
   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
   '----------------------------
   Call ScegliNumeri(NumeriScelti)
   '----------------------------
   Scrivi "Numeri scelti : " & StringaNumeri(NumeriScelti),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)
   'For c = 0 To 17
   kk = 0 : k = 0
   '------------------------------
      For n = 1 To UBound(NumeriScelti)
      '---------------------------
    
         Nu(1) = NumeriScelti(n)
         fr(1) = NumeriScelti(n)
         Nn(1) = NumeriScelti(n)
         aN(1) = NumeriScelti(n)
         If EstrattoFrequenza(r,Nu(1),Ini,fin) > 0 Then Nu(1) = "--"
         If EstrattoFrequenza(r,fr(1),Ini,fin) = 0 Then fr(1) = "--"
         If EstrattoFrequenza(r,aN(1),Ini,fin) < 2 Then aN(1) = "--"
         fre = SerieFreq(Ini,fin,Nn,Ru,1)
         If Nu(1) <> "--" Then k = k + 1
         If fr(1) <> "--" Then kk = kk + 1
         ritC = RitardoCombinazione(Ru,Nn,1)
    
      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)
      'Scrivi StringaNumeri(Nn,,1) & " <> " & StringaNumeri(Nu,,1) & vbTab & rsl & vbTab & ritC & vbTab & k
      'k = 0
      'kk = 0
      Next
   'Next
   CreaTabella
   Scrivi "Tabella By Mike58",1,,,,3
End Sub

Poi è chiaro che si può fare anche la statistica della intera combinazione, ma questo è meglio che lo fai Tu !!!

Ciao

Grazie mille mito! 👋🙂
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto