Tabellone estratti DETERMINATI: ritardi di rigo

[FABIO60]

Il seguente script crea un TABELLONE degli estratti DETERMINATI

Sub Main()
Dim ru(1)
Dim a1(1)
Dim a2(1)
Dim a3(1)
Dim a4(1)
Dim a5(1)
ini = EstrazioneFin - 700
fin = EstrazioneFin
r = 8
ru(1) = r
For es = ini To EstrazioneFin
Scrivi "RC " & FormatSpace(fin - es,5) & "|1| ",0,0
n = Estratto(es,r,1)
a1(1) = Estratto(es,r,1)
a2(1) = Estratto(es,r,2)
a3(1) = Estratto(es,r,3)
a4(1) = Estratto(es,r,4)
a5(1) = Estratto(es,r,5)
If SerieFreq(es + 1,fin,a1,ru,6) > 0 And es < fin Then a1(1) = ".."
If SerieFreq(es + 1,fin,a2,ru,7) > 0 And es < fin Then a2(1) = ".."
If SerieFreq(es + 1,fin,a3,ru,8) > 0 And es < fin Then a3(1) = ".."
If SerieFreq(es + 1,fin,a4,ru,9) > 0 And es < fin Then a4(1) = ".."
If SerieFreq(es + 1,fin,a5,ru,10) > 0 And es < fin Then a5(1) = ".."
Scrivi Format2(a1(1)) & " |2| "& Format2(a2(1)) & " |3| "& Format2(a3(1)) & " |4| "& _
Format2(a4(1)) & "|5| "& Format2(a5(1)) & " |"
Next
Scrivi
Scrivi "TABELLONE estratti DETERMINATI ruota di " & NomeRuota(r)
Scrivi " al " & DataEstrazione(fin)
End Sub


A questo Tabellone possiamo aggiungere delle statistiche di rigo (ritardo attuale e storico)
specifiche per ciascuna delle 5 posizioni, limitatamente ai righi da RC 0 a RC 29




Per ritardo di rigo intendo la quantità di esiti negativi consecutivi verificatisi
giocando a colpo per estratto determinato il numero presente(SE PRESENTE) in quella posizione


Script: VEDERE MESSAGGIO 7





A me sembrano interessanti i seguenti estratti

(è una segnalazione, non sono proposte di gioco,
i numeri in "gioco" cambiano ad ogni estrazione)


Roma rigo RC 7 colonna 2 (numero in gioco per un colpo 22 in 2^ pos.)

Torino rigo RC 1 colonna 2 (numero in gioco per un colpo estratto 22 in 2^ pos.)

Venezia rigo RC 1 colonna 2 (numero in gioco per un colpo estratto 3 in 2^ pos.)

Bari rigo RC 1 colonna 3 (numero in gioco per un colpo estratto 69 in 3^ pos.)

Saluti

 

[vincenzo4221]

Bravissimo e generoso Fabio, "giungono a fagiolo"...in concomitanza con mie richieste al forum nell'argomento....ma x più righe ( 2° script) non si potrebbe fare qualcosa?

 

[Lady Oscar]

Su VL7 da i seguenti errori ...

 

[vincenzo4221]

si usa su spaziometria....scusami ma era il primo programma su cui dovevi provare ad utilizzarlo..

 

[FABIO60]

Per Lady Oscar :come detto da vincenzo lo script è per spaziometria, in ogni caso se c'è, togli

Option Explicit

Per Vincenzo : quanto chiedi non so farlo

ATTENZIONE il Tabellone del secondo script contiene numeri ripetuti nella stessa colonna:

devo correggerlo, le segnalazioni rimangono ugualmente valide

Saluti

 

[FABIO60]

ATTENZIONE il Tabellone del secondo script contiene numeri ripetuti nella stessa colonna:

Ho tolto i numeri nel secondo script, rimasti ritardi attuali e storici,

 

[FABIO60]

Rimesso numeri al Tabellone

Sub Main()
Dim ru(1),ruota(1)
Dim a1(1),a2(1),a3(1),a4(1),a5(1)
Dim max(90,6),rita(90,5)
Dim num(1)
rr = 8
ruota(1) = rr
eini = 3950'EstrazioneFin - 1300
efin = EstrazioneFin
Scrivi NomeRuota(rr)
Scrivi "Ritardi ATTUALI e STORICI di rigo per singole posizioni DETERMINATE"
Scrivi "dal" & DataEstrazione(eini) & " al " & DataEstrazione(efin)
x = 0
y = 30
Scrivi "da rigo " & x & " a rigo " & y
Scrivi
For ep = x To y
AvanzamentoElab x,y,ep
For p = 1 To 5
For i = eini To efin
num(1) = Estratto(i -(ep + 1),rr,p)
If SerieFreq(i - ep,i - 1,num,ruota,5 + p) = 0 And SerieFreq(i,i,num,ruota,5 + p) = 1 Then
rita(ep,p) = 0
Else
If SerieFreq(i - ep,i - 1,num,ruota,5 + p) = 0 And SerieFreq(i,i,num,ruota,5 + p) = 0 Then
rita(ep,p) = rita(ep,p) + 1
If max(ep,p) < rita(ep,p) Then max(ep,p) = rita(ep,p)
End If
End If
Next
Next
Next
Scrivi "rigo" & Space(7),0,0
For w = 1 To 5
Scrivi " num rit sto" & Space(5),0,0
Next
Scrivi
For es = eFin - y To eFin
Scrivi "RC " & FormatSpace(efin - es,5) & "|1| ",0,0
r = rr
ru(1) = r
a1(1) = Estratto(es,r,1)
a2(1) = Estratto(es,r,2)
a3(1) = Estratto(es,r,3)
a4(1) = Estratto(es,r,4)
a5(1) = Estratto(es,r,5)
If SerieFreq(es + 1,efin,a1,ru,6) > 0 And es < efin Then a1(1) = ".."
If SerieFreq(es + 1,efin,a2,ru,7) > 0 And es < efin Then a2(1) = ".."
If SerieFreq(es + 1,efin,a3,ru,8) > 0 And es < efin Then a3(1) = ".."
If SerieFreq(es + 1,efin,a4,ru,9) > 0 And es < efin Then a4(1) = ".."
If SerieFreq(es + 1,efin,a5,ru,10) > 0 And es < efin Then a5(1) = ".."
Scrivi Format2(a1(1)) & " " & FormatSpace(rita(efin - es,1),4) & " " & FormatSpace(max(efin - es,1),4) & "|2| " _
& Format2(a2(1)) & " " & FormatSpace(rita(efin - es,2),4) & " " & FormatSpace(max(efin - es,2),4) & "|3| " _
& Format2(a3(1)) & " " & FormatSpace(rita(efin - es,3),4) & " " & FormatSpace(max(efin - es,3),4) & "|4| " _
& Format2(a4(1)) & " " & FormatSpace(rita(efin - es,4),4) & " " & FormatSpace(max(efin - es,4),4) & "|5| " _
& Format2(a5(1)) & " " & FormatSpace(rita(efin - es,5),4) & " " & FormatSpace(max(efin - es,5),4) & "||"
Next
End Sub