Se si può uno Script Tabella dei 90 numeri

Paki144 · 2 Dicembre 2020

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 esempio

claudio8 · 2 Dicembre 2020

Prova a scrivere cosa deve fare lo script. Vediamo se riesci a costruirlo con qualche aiuto.

Paki144 · 2 Dicembre 2020

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

Paki144 · 2 Dicembre 2020

Ciao Claudio
Grazie per il tuo aiuto a te e
gli altri collaboratori.
Saluti

Mike58 · 7 Dicembre 2020

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

Paki144 · 7 Dicembre 2020

Ciao Mike58, va benissimo Grazieee!!!
Grazie ancora per il tuo tempo alla mia richiesta. Saluti

Zetrix · 9 Dicembre 2020

Zetrix · 9 Dicembre 2020

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 · 9 Dicembre 2020

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 · 10 Dicembre 2020

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

=(5*c) + n
fr

=(5*c) + n
Nn

=(5*c) + n
aN

=(5*c) + n
If EstrattoFrequenza(r,Nu

,Ini,fin) > 0 Then Nu

= "--"
If EstrattoFrequenza(r,fr

,Ini,fin) = 0 Then fr

= "--"
If EstrattoFrequenza(r,aN

,Ini,fin) < 2 Then aN

= "--"
fre = SerieFreq(Ini,fin,Nn,Ru,1)

If Nu

<> "--" Then k = k + 1
If fr

<> "--" 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 · 10 Dicembre 2020

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

IdEstrazione	Il numero identificativo dell'estrazione da 1 a estrazioni totali nell'archivio
Ruota	Identificativo della ruota
Optional Separatore = "."	Carattere separatore per suddividere le sottostringhe
Optional tipogioco As Integer = 0	Non usato
Optional idArchivio = 0	Indentificativo 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

gabby · 10 Dicembre 2020

per mike 58 cortesemente prodotto cifre (1° estrazione del mese 5° di bari+58) grazie

Zetrix · 10 Dicembre 2020

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 · 10 Dicembre 2020

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 · 10 Dicembre 2020

zetrix ha scritto:
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 · 10 Dicembre 2020

Mike58 ha scritto:
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

IdEstrazione Il numero identificativo dell'estrazione da 1 a estrazioni totali nell'archivio
Ruota Identificativo della ruota
Optional Separatore = "." Carattere separatore per suddividere le sottostringhe
Optional tipogioco As Integer = 0 Non usato
Optional idArchivio = 0 Indentificativo 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

. 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?

Grazie

Mike58 · 10 Dicembre 2020

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 · 10 Dicembre 2020

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 · 10 Dicembre 2020

Mike58 ha scritto:

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!

Se si può uno Script Tabella dei 90 numeri

Super member

Premium Member

Super member

Super member

Advanced Member >PLATINUM PLUS<

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member