Novità

cortesemente chi riesce ad aiutarmi per questo listato?

herat

Advanced Member
Buongiorno a tutti, è possibile eseguire un listato che evidenzia un numero che si trova nella stessa posizione di ritardo (prime 10 o 20) su due o piu ruote?
Per esempio, dopo l'estrazione dell'8 di agosto su RO-TO il secondo ritardatario su entrambe le ruote è 44 , su BA.FI il secondo ritardatario su entrambe le ruote è 11, su MI-NA il terzo ritardatario su entrambe le ruote è 58.

RO RITARDATARI (DAL + RITARDATO AL MENO) 32-44-15-14-75.....
TO RITARDATARI (DAL + RITARDATO AL MENO) 81-44-86-07-35....
Lo script dovrebbe intercettare queste condizioni di ritardo su singolo numero su stessa posizione di ritardo su due ruote e meglio ancora 2 numeri su 2 posizioni di ritardo su 2 ruote (esempio non reale BA-FI 57 secondo ritardatario su entrambe le ruote e BA-FI 85 quinto ritardatario su entrambe le ruote.
ESEMPIO NON REALE
BA RITARDATARI (DAL + RITARDATO AL MENO) 30-57-16-17-85.....
FI RITARDATARI (DAL + RITARDATO AL MENO) 81-57-76-08-85....

Infine lo script dovrebbe mettere in gioco i numeri trovati per la sorte di estratto (se singolo) e ambo (se 2 o piu) sulle due ruote per 18 estrazioni

Grazie mille anticipatamente agli utenti che riusciranno ad esaudire questa richiesta da appassionata fuori di testa del lotto:p:p:p:p
 

herat

Advanced Member
Scusatemi ancora, facendo delle ricerche ho trovato questo script che in parte fa quello che cerco io

Sub main()
Dim nu(5)
ColoreTesto 1
Scrivi Space (30)&"NUMERI DISPOSTI SECONDO LA LORO POSIZIONE DI RITARDO",1,1
fin=EstrazioneFin
ini=fin-10
For es=ini To fin
For r=1 To 11:if r=11 Then r=12
ColoreTesto 2
Scrivi
Scrivi
Scrivi SiglaRuota (r)&" ",1,0
For i=1 To 90
re=NumeroPosRit (es-1 ,r,i)
ColoreTesto 0
Scrivi Format2(re),1,0
Scrivi "("&i&")",0,0
Next
Next
Next
End Sub


Per completare l'opera servirebbe una funzione che vada ad evidenziare i numeri uguali che si trovano nelle stesse posizioni dinamiche su due o piu ruote.
Sarebbe straordinario avere la funzione impostagiocata per vedere l'andamento nellr 18 estrazioni successive
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Non sono riuscito a capire cos'è la posizione di ritardo, avevo pensato alle 5 posizioni di ogni estrazione, ma non è così, perche nello script le posizioni sono 90, quindi per poterti aiutare dovrei prima capire cos'è la posizione di ritardo, lo script postato da te è della BRAVISSIMA Cinzia, ti posto un altro script di Cinzia sempre sullo stesso tema


Codice:
'POSIZIONI DI RITARDO(Cinzia)
Sub Main()
Dim nu(5)
Scrivi Space(15) & "EVIDENZIAZIONE POSIZIONI DI RITARDO NUMERI SORTITI",1,1
fin = EstrazioneFin
ini = fin - 10
   For es = ini To fin
    Scrivi
      Scrivi
        Scrivi
        ColoreTesto 1
        Scrivi "Estrazione n." & es & " ",1,1
           For r = 1 To 11:If r = 11 Then r = 12
             ColoreTesto 0
               Scrivi
                 Scrivi Space(2) & SiglaRuota(r) & " ",0,0
                  For i = 1 To 90
             re = NumeroPosRit(es - 1,r,i)
          For p = 1 To 5
  nu(p) = Estratto(es,r,p)
      If nu(p) = re Then
      x = 5
      If Decina(i) = x Then
ColoreTesto 2
Scrivi Format2(re) & "(" & FormatSpace(i,2,1) & ") ",0,0
   Else
 If i <> x Then
ColoreTesto 0
Scrivi Format2(re) & "(" & FormatSpace(i,2,1) & ") ",0,0
End If
  End If
   End If
     Next
       Next
         Next
           Next
              End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Ragionamento mio
Forse i numeri tra parentesi non sono le posizioni, ma il ritardo, ma allora perche se metto un numero superiore a 90 non lo calcola?
 

herat

Advanced Member
Gentilissimo Salvo50, ti ringrazio per l'interesse,
Tutto parte dalle posizioni di ritardo ma per andare a cercare quello che mi interessa, e per rendere la cosa piu semplice, lo script dovrebbe:
1) ordinare dal piu grande al piu piccolo ritardo di ognuna delle 11 ruote (anche solo i primi 10/20 invece di tutti i 90 ritardi)
2) evidenziare se ci sono numeri uguali in posizioni uguali (su due o piu ruote)
3) mettere in gioco i numeri ricavati per 18 estrazioni come estratto

Faccio un esempio attuale dei primi 10 ritardatari di RO e TO

RO 32-44-15-14-81-38-85-62-36-11
TO 81-44-86-07-35-32-03-75-25-66

Lo script , se è possibile, deve andare a vedere se nelle stesse posizioni di ritardo su due o piu ruote ci sono numeri uguali, nel caso di RO-TO la seconda posizione di ritardo è occupata su entrambe le ruote dal 44 che si mette in gioco sulle stesse per 18 colpi

Grazie ;)
 

i legend

Premium Member
ciao a tutti
provate a vedere se fa quanto richiesto, altrimenti passo la palla
mi sono cimentato nello script , solo per mostrare una possibile strada a Salvo ,sicuramente si potrebbe fare di meglio ma la stanchezza fisica e mentale e la mancanza di tempo , mi impediscono di concentrarmi.
pertanto NON GARANTISCO LA CORRETTEZZA DEI DATI IN OUTPUT
ciao salvo :)
Codice:
Option Explicit
' script richiesto da utente herat su lottoced forum
' lo script è da verificare , pertanto non si garantisce la correttezza DEI RISULTATI
'SALVO ERRORI ED OMISSIS ECCO LO SCRIPT
Sub Main
   Dim R,p,e,IdTro
   Dim Rit,piuRit
   Dim Fin:Fin = EstrazioneFin
   Dim nRit :nRit = CInt(InputBox("inserisci un numero compreso tra 1 e 90","Quanti ritardatari vuoi confrontare?",20))
   If isNumeroValidoLotto(nRit) = False Then Exit Sub
   ReDim aNum(12,nRit)
   Scrivi "Script richiesto da utente herat su lottoced forum"
   Scrivi "Lo script è da verificare , pertanto non si garantisce la correttezza DEI RISULTATI"
   Scrivi "SALVO ERRORI ED OMISSIS ECCO LO SCRIPT"
   Scrivi
   Scrivi "Situazione al : " & GetInfoEstrazione(Fin)
   Scrivi
   Call GeneraAnaliticoTurbo2(Fin)
   For R = 1 To 12
      If R = 11 Then R = 12
      piuRit = EstrattoRitardoTurbo(R,PiuRitardatarioTurbo(Fin,R))
      IdTro = 0
      For Rit = piuRit To 0 Step - 1
         For p = 1 To 5
            e = TabelloneAnaliticoTurbo(Rit,R,p)
            If e Then
               IdTro = IdTro + 1
               If IdTro > nRit Then Exit For
               aNum(R,IdTro) = e
            End If
         Next
      Next
   Next
   Dim aTab,i,aApp(1)
   Dim bRet,j
   Dim Tit:Tit = "  IdRit     BA   CA   FI   GE   MI   NA   PA   RO   TO   VE   NZ "
   Scrivi FormatSpace(" ",Len(Tit)),,,RGB(58,147,218)
   Scrivi Tit,1,,RGB(58,147,218),RGB(252,253,254)
   Scrivi FormatSpace(" ",Len(Tit)),,,RGB(58,147,218)
   For e = 1 To nRit
      Scrivi FormatSpace(e,5,1) & "  ",1,0,RGB(58,147,218),RGB(252,253,254)
      Scrivi " | ",,0,vbWhite,vbWhite,3
      aTab = Array(0,aNum(1,e),aNum(2,e),aNum(3,e),aNum(4,e),aNum(5,e),aNum(6,e),aNum(7,e),aNum(8,e),aNum(9,e),aNum(10,e),aNum(12,e))
      ReDim aN(0)
      If NumeriRipetutiRilevatiV(aTab,aN)Then
         For i = 1 To UBound(aTab)
            bRet = False
            For j = 1 To UBound(aN)
               If Int(aN(j)) = Int(aTab(i)) Then bRet = True: Exit For
            Next
            If bRet Then
               Scrivi " " & Format2(aTab(i)) & " ",1,0,RGB(171,241,107),RGB(67,129,12)
               Scrivi " ",,0
            Else
               Scrivi " " & Format2(aTab(i)) & " ",1,0,,RGB(140,140,140)
               Scrivi " ",,0
            End If
         Next
         Scrivi
      Else
         For i = 1 To UBound(aTab)
            Scrivi " " & Format2(aTab(i)) & " ",1,0,,RGB(140,140,140)
            Scrivi " ",,0
         Next
         Scrivi
      End If
   Next
End Sub
 

herat

Advanced Member
Carissimo iLEGEND, i dati sono esatti, ti ringrazio tantissimo
.
Una domanda, lo script non si potrebbe modificare con una funzione impostagiocata per vedere l'andamento delle previsioni ricavte nei 18 colpi successivi?
Grazie mille
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao ILegend,

Ti ringrazio, molto istruttivo lo script, finalmente dai tuoi commenti sono riuscito a capire cosa rappresenta il numero tra parentesi,
riguardo alla richiesta di Herat penso che lo script dovrebbe andare bene, evidenzia i ritardi uguali
 
Ultima modifica:

i legend

Premium Member
herat;n2185524 ha scritto:
Carissimo iLEGEND, i dati sono esatti, ti ringrazio tantissimo
.
Una domanda, lo script non si potrebbe modificare con una funzione impostagiocata per vedere l'andamento delle previsioni ricavte nei 18 colpi successivi?
Grazie mille

Ciò herat mi fa piacere che i dati siano esatti :)

Per quanto riguarda la tua domanda , non so se sia meglio modificare questo o ripensare uno nuovo.
ma ripeto ,mi sono cimentato solo per salvo visto la gentilezza e la disponibilità che dimostra verso gli utenti. Mi spiace non poterti accontentare.

X salvo
se hai bisogno di interpretare qualche passaggio chiedi pure.
ciao a tutti .:)
 

i legend

Premium Member
herat;n2184907 ha scritto:
Buongiorno a tutti, è possibile eseguire un listato che evidenzia un numero che si trova nella stessa posizione di ritardo (prime 10 o 20) su due o piu ruote?
Per esempio, dopo l'estrazione dell'8 di agosto su RO-TO il secondo ritardatario su entrambe le ruote è 44 , su BA.FI il secondo ritardatario su entrambe le ruote è 11, su MI-NA il terzo ritardatario su entrambe le ruote è 58.

RO RITARDATARI (DAL + RITARDATO AL MENO) 32-44-15-14-75.....
TO RITARDATARI (DAL + RITARDATO AL MENO) 81-44-86-07-35....
Lo script dovrebbe intercettare queste condizioni di ritardo su singolo numero su stessa posizione di ritardo su due ruote e meglio ancora 2 numeri su 2 posizioni di ritardo su 2 ruote (esempio non reale BA-FI 57 secondo ritardatario su entrambe le ruote e BA-FI 85 quinto ritardatario su entrambe le ruote.
ESEMPIO NON REALE
BA RITARDATARI (DAL + RITARDATO AL MENO) 30-57-16-17-85.....
FI RITARDATARI (DAL + RITARDATO AL MENO) 81-57-76-08-85....

Infine lo script dovrebbe mettere in gioco i numeri trovati per la sorte di estratto (se singolo) e ambo (se 2 o piu) sulle due ruote per 18 estrazioni

Grazie mille anticipatamente agli utenti che riusciranno ad esaudire questa richiesta da appassionata fuori di testa del lotto:p:p:p:p

Herat non c e di che.
mi sono limitato solo ad evidenziare i dati per facilitare la ricerca .
Se dovessi riuscire a trovare il tempo ,( ma non prometto nulla) ,e non interviene nessun altro , proverò ad esaudire la tua richiesta .
ciao :)
 

herat

Advanced Member
i legend;n2185528 ha scritto:
Herat non c e di che.
mi sono limitato solo ad evidenziare i dati per facilitare la ricerca .
Se dovessi riuscire a trovare il tempo ,( ma non prometto nulla) ,e non interviene nessun altro , proverò ad esaudire la tua richiesta .
ciao :)

GRAZIE ANCORA CARISSIMO!:):):):)

Scusa la sfacciataggine di questa folle appassionata, potresti aiutarmi (quando puoi, senza impegno) nello script delle spie concatenate del quale ho aperto un topic?
Grazie
 

jp4

Advanced Member >PLATINUM<
ciao,
come sviluppo dell'idea di Herat proporrei la creazione di un nuovo script

in output vedrei una tabella delle 90 posizioni
ma i calcoli devono essere fatti considerando solo una posizione per volta
e considerando valide per il conteggio del ritardo, solo le estrazioni in cui, nella suddetta singola posizione, è presente la condizione richiesta da Herat, cioè un qualsiasi numero ma presente in due o più ruote.
Sarebbe utile:
1) conteggiare la "frequenza di presenze di questi casi" nella posizione e
2) conteggiare il ritardo di sfaldamento nella posizione .(si conta il ritardo tra uno sfaldamento e l'altro di un numero presente in una coppia di ruote)

in pratica
Si potrà tentare il gioco quando il ritardo di sfaldamento (di una qualsiasi coppia di ruote nella posizione) è elevato. Si giocherà il numero uguale sulle due ruote interessate.
La previsione è rafforzata quando: anche il ritardo di sfaldamento della posizione a tutte è elevato (basterebbe ritardo 8)
 

herat

Advanced Member
jp4;n2185668 ha scritto:
ciao,
come sviluppo dell'idea di Herat proporrei la creazione di un nuovo script

in output vedrei una tabella delle 90 posizioni
ma i calcoli devono essere fatti considerando solo una posizione per volta
e considerando valide per il conteggio del ritardo, solo le estrazioni in cui, nella suddetta singola posizione, è presente la condizione richiesta da Herat, cioè un qualsiasi numero ma presente in due o più ruote.
Sarebbe utile:
1) conteggiare la "frequenza di presenze di questi casi" nella posizione e
2) conteggiare il ritardo di sfaldamento nella posizione .(si conta il ritardo tra uno sfaldamento e l'altro di un numero presente in una coppia di ruote)

in pratica
Si potrà tentare il gioco quando il ritardo di sfaldamento (di una qualsiasi coppia di ruote nella posizione) è elevato. Si giocherà il numero uguale sulle due ruote interessate.
La previsione è rafforzata quando: anche il ritardo di sfaldamento della posizione a tutte è elevato (basterebbe ritardo 8)

Ottima proposta caro jp4, un caro saluto e buon ferragosto a tutti :)
 

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