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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto