Novità

Tabellone estratti DETERMINATI: ritardi di rigo

FABIO60

Super member
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
 
Ultima modifica:
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?
 
Ultima modifica:
Su VL7 da i seguenti errori ...

34o7z9z.png
 
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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17

Ultimi Messaggi

Indietro
Alto