buon giorno per chi mi puo aiutare su uno script

[ghio]

sono in cerca di uno script o di qualcuno che riesca a farlo ,provo a fare una richiesta ringraziando anticipatamente tutti.
in sostanza lo script dovrebbe riuscire ad analizzare il ritardo 0 di ogni singola ruota,faccio un esempio per essere più chiaro
il 12/1/2019 i numeri 73-72 -64-27 di venezia anno un ritardo che rispetto a tutte le ruote è pari a 0 cioè erano tutti presenti nell estrazione precedente.
e fino qui basterebbe quardare l archivio estrazione in l8 controllando il ritardo degli estratti su tutte.
sarebbe per me interessante sapere analizzando come detto prima questo ritardo.cioè so che 4 numeri con ritardo zero li ritrovo a venezia solo 8 estrazioni prima il 24/12/2018.
e cosi via ,lo script appunto mi servirebbe per determinare il ritardo storico di tale combinazione.4 numeri o 3numeri su ogni ruota.
ringrazio anticipatamente tutti coloro che vorranno aiutarmi.

 

[Cinzia27]

Ciao, spero che lo script corrisponda alla ricerca.
Cinzia

Sub main()
Dim n(1),ru(1),rur(1)
'Ricerca di Ghio: sortita su ruota di un tot numeri a ritardo 0 su tutte (Cinzia)
q=4'qui fissa la quantità di numeri
rr=11
rur(1)=rr
For r=1 To 10
Scrivi
ru(1)=r
c=0
cc=0
For es=EstrazioneFin-40 To EstrazioneFin ' estrazioni da esaminare
c=0
cc=cc+1
Scrivi DataEstrazione(es)&" "&FormatSpace(es,4,1)&" ",0,0
Scrivi SiglaRuota(r)&" ",0,0
For p=1 To 5
n(1)=Estratto(es,r,p)
If SerieFreq(es-1,es-1,n,rur,1)>0 Then c=c+1:Scrivi n(1)&" ",0,0

Next
If c=q Then
ColoreTesto 1
Scrivi "usciti "&c&" al "&cc&"° colpo ",1
ColoreTesto 0
cc=0
Else
Scrivi
End if
Next
Next
End Sub

 

[ghio]

SCUSI PER IL RITARDO ,ORA LO TESTO E LA RINGRAZIO ANTICIPATAMENTE

 

[ghio]

GRAZIE, QUASI PERFETTO,SOLO UN PROBLEMA CHE CREDO CHE POI PER LEI NON LO SIA,
è POSSIBILE AGGIUNGERE UN RESOCONTO'??
DEI RITARDI.

 

[ghio]

NOTAVO ANCHE CHE AD ESEMPIO FISSANDO I NUMERI A DUE IL LISTATO NON TIRNE CONTO CHE IL RITARDO DELLO STESSO 2 NON è REALE PERCHHE NELL ESTRAZIONE CHE NE ESCONO 3 IN REALTA IL RITARDO DEI 2 SI ANULLA ,UGUALMENTE FISSANDO A 3 NON TIENE CONTO QUANDO NE ESCONO 4 ,GRAZIE E SPERO DI ESSERE STATO CHIARO,

 

[Cinzia27]

GUARDA SE COSI' VA BENE

Sub main()
Dim n(1),ru(1),rur(1)
'Ricerca di Ghio: sortita su ruota di un tot numeri a ritardo 0 su tutte (Cinzia)
q=4'qui fissa la quantità di numeri
qq=5:qq1=10:qq2=15'qui fissa i ritardi minimi
rr=11
rur(1)=rr
For r=1 To 10
Scrivi
ru(1)=r
c=0
cc=0
For es=EstrazioneFin-20 To EstrazioneFin ' estrazioni da esaminare
c=0
cc=cc+1
Scrivi DataEstrazione(es)&" "&FormatSpace(es,4,1)&" ",0,0
Scrivi SiglaRuota(r)&" ",0,0
For p=1 To 5
n(1)=Estratto(es,r,p)
If SerieFreq(es-1,es-1,n,rur,1)>0 Then c=c+1:Scrivi Format2(n(1))&" ",0,0

Next
If c=q Then
ColoreTesto 1
Scrivi "usciti "&c&" al "&cc&"° colpo ",1
If cc>mx Then mx=cc
If cc>=qq Then conta=conta+1
If cc>=qq1 Then conta1=conta1+1
If cc>=qq2 Then conta2=conta2+1
ColoreTesto 0
cc=0
Else
Scrivi
End If
Next
Next
Scrivi
Scrivi "Numero massimo di colpi " &mx
Scrivi "N. colpi >= " &FormatSpace(qq,4,1)&"  " &conta
Scrivi "N. colpi >= " &FormatSpace(qq1,4,1)&"  " &conta1
Scrivi "N. colpi >= " &FormatSpace(qq2,4,1)&"  " &conta2
End Sub

 

[ghio]

SEMBRA DI SI

 

[Cinzia27]

Se metti If c>=q Then al posto di if c=q then hai anche le uscite superiori.
Ciao
Cinzia

 

[ghio]

RIMANE IL FATTO SOLO CHE NON COTTEGGIA SE SI USA 2 AL POSTO DI 4 DOVE FISSA I NUMERI ESEMPIO
02.03.2019 9597 Ve 42 76 usciti 2 al 2° colpo QUESTO NON è REALE IL RIT DICO
28.02.2019 9596 Ve 85 47 84 13 INFATTI L ESTRAZIONE PRIMA
NE SONO USCITI 4 CHE QUINDI CONPRENDONO ANCHE IL 2 GIUSTO
GRAZIE

 

[ghio]

SCUSA RITIRO NON AVEVO LETTO

 

[ghio]

cinzia domanda ma se imposto a 3 e metto il segno di maggiore mi trova i 4 ma non mi conteggia che i 4 numeri danno origine a 3 terni che
poi andrebbero conteggiati è possibile

 

[ghio]

e il ritardo attuale grazieeeeeeee

 

[Cinzia27]

Guarda se va bene.

Sub main()
Dim n(1),ru(1),rur(1)
'Ricerca di Ghio: sortita su ruota di un tot numeri a ritardo 0 su tutte (Cinzia)
q=3'qui fissa la quantità di numeri
qq=5:qq1=10:qq2=15'qui fissa i ritardi minimi
rr=11
rur(1)=rr
For r=1 To 10
Scrivi
ru(1)=r
c=0
cc=0
co=0
For es=EstrazioneFin To EstrazioneFin-20 step -1 ' estrazioni da esaminare
c=0
cc=cc+1
Scrivi DataEstrazione(es)&" "&FormatSpace(es,4,1)&" ",0,0
Scrivi SiglaRuota(r)&" ",0,0
For p=1 To 5
n(1)=Estratto(es,r,p)
If SerieFreq(es-1,es-1,n,rur,1)>0 Then c=c+1:Scrivi Format2(n(1))&" ",0,0

Next

If c>=q Then
co=co+1

ColoreTesto 1
Scrivi "usciti "&c&" al "&cc&"° colpo ",1,0
If co=1 Then Scrivi " Ritardo attuale "& FormatSpace(EstrazioneFin -es,4,1),1 Else Scrivi
If cc>mx Then mx=cc
If cc>=qq Then conta=conta+1
If cc>=qq1 Then conta1=conta1+1
If cc>=qq2 Then conta2=conta2+1
ColoreTesto 0
cc=0
Else
Scrivi
End If

Next

Next
Scrivi
Scrivi "Numero massimo di colpi " &mx
Scrivi "N. colpi >= " &FormatSpace(qq,4,1)&"  " &conta
Scrivi "N. colpi >= " &FormatSpace(qq1,4,1)&"  " &conta1
Scrivi "N. colpi >= " &FormatSpace(qq2,4,1)&"  " &conta2
End Sub

 

[ghio]

cinzia grazie si riesce a far una cosa del genere io sono un ignorante

Resoconto complessivo di 7 giocate
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 56
in corso: 7
casi finali: 49
positivi: 30
negativi: 19
Pronostici generati: 144
Pronostici vincenti: 50 (34,7 %)
Estrazioni di gioco: 707
Tentativi (scontrini giocati): 1818
Vincite (scontrini vincenti): 50 (2,75 %)
Attesa media: 7,14




Resoconto totale giocate
Dettaglio Ruote (Pronostici)

Ruota Vincenti Giocati
---------------------------------
Bari 0 ( 0,00 % ) 112
Cagliari 2 ( 1,11 % ) 180
Firenze 0 ( 0,00 % ) 68
Genova 0 ( 0,00 % ) 56
Milano 3 ( 2,42 % ) 124
Napoli 0 ( 0,00 % ) 168
Palermo 4 ( 2,38 % ) 168
Roma 3 ( 2,68 % ) 112
Torino 0 ( 0,00 % ) 56
Venezia 0 ( 0,00 % ) 112
Tutte 30 ( 9,90 % ) 303
Nazionale 8 ( 2,23 % ) 359
Totale 50 ( 2,75 % ) 1818




Resoconto totale giocate
Resoconto economico

Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
---------------------------------------------------------------
Ambata 0,00 0 0,00 0,00 0,00
Ambo 1.818,00 51 1.675,00 1.574,50 -243,50
Terno 0,00 0 0,00 0,00 0,00
Quaterna 0,00 0 0,00 0,00 0,00
Cinquina 0,00 0 0,00 0,00 0,00
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00 0 0,00 0,00 0,00
E.Det.3 0,00 0 0,00 0,00 0,00
E.Det.4 0,00 0 0,00 0,00 0,00
E.Det.5 0,00 0 0,00 0,00 0,00
Totale: 1.818,00 1.675,00 -143,00 -243,50




Resoconto totale giocate
Dettaglio Successi

Giocata Successi Colpo Perc. Entro
-----------------------------------------
Tutte 7 1 14,0 % 14,0 %
Tutte 5 2 10,0 % 24,0 %
Tutte 3 3 6,0 % 30,0 %
Tutte 3 4 6,0 % 36,0 %
Tutte 3 6 6,0 % 42,0 %
Tutte 15 9 30,0 % 72,0 %
Tutte 5 10 10,0 % 82,0 %
Tutte 2 11 4,0 % 86,0 %
Tutte 1 12 2,0 % 88,0 %
Tutte 2 13 4,0 % 92,0 %
Tutte 4 14 8,0 % 100,0 %

 

[ghio]

va bene anche il tuo se non ti reca disturbo

 

[ghio]

04.04.2019 9611 Ba 83 28 69 72 usciti 4 al 5° colpo, esempio non è giusto perché i numeri con rit 0 erano quelli del 2 aprile quindi sono a rit 0
o faccio confusione io

 

[ghio]

Ogni estrazione ha una sua posizione tra le 43.949.268. La posizione nr. 43949268 è l'ultima possibile ed individua la seguente combinazione:​

86.87.88.89.90. Se si decide di effettuare un pronostico su 8 caselle, tramite il LISTATO andremo a selezionare i numeri ammessi per ogni casella. Se dico che alla casella 1 è ammesso solo il numero 4, alla casella 2 il numero 3, alla casella 3 il numero 9...........alla casella 8 il numero 8, sto di fatto ammettendo una unica combinazione che è la 43949268 ovvero la cinquina 86.87.88.89.90​

Quindi il LISTATO tramite un pronostico svilupperà le combinazioni ammesse, espresse in numeri compresi tra 1 e 43.949.268, per poi trasformarle nelle cinquine da porre in gioco. Questo per un sistema numerico in base 10. ​

è possibile

 

[ghio]

ogni cinquina restituiamo un codice la prima 1.2.3.4.5 avra 0.0.0.0.1 la seconda 1.2.3.4.6 0.0.0.0.2 e cosi via fino all ultima