Novità

un piccolo presente :)

G

genios

Advanced Member >PLATINUM<
Ilegend si potrebbe avere il tabellone per singola ruota con quantità teorica e quantità reale .

ciao Eugenio
 
silop2005

silop2005

Advanced Member >PLATINUM<
genios ha scritto:
Ilegend si potrebbe avere il tabellone per singola ruota con quantità teorica e quantità reale .

ciao Eugenio
Clicca per espandere...
=================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao genios ,
======================
in attesa che risponda il bravo iLegend
e controlla le piccole modifiche che ho fatto io al suo script,
prova questo su UNA RUOTA ( lo avevo fatto per me) :
Codice: 
'https://forum.lottoced.com/threads/tabellone-analitico.2194715/post-2244570
' script di iLegend

Option Explicit
Sub Main
   Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni")
   If Quest = 7 Then Exit Sub
   Dim IdEstr,Ini,M,E,P,Rit,sE,Pres,QT,qNR,sca,nEstr
   Dim acolC(2)
   Dim R
   Dim aPiuRit(1)  ' silop al posto di 11 ho messo 1 per UNA SOLA RUOTA 
   For R = 9 To 9  ' silop una ruota
      If R = 11 Then R = 12
      M = M + 1
      aPiuRit(M) = EstrattoRitardoTurbo(R,PiuRitardatarioTurbo(EstrazioneFin,R))
   Next
   Dim qE:qE = MassimoV(aPiuRit)
   Ini = EstrazioneFin - qE
   qE = - 1
   '
   Call GetTestoTab
   M = 0
   acolC(1) = vbWhite
   For IdEstr = EstrazioneFin To Ini Step - 1
      qE = qE + 1
      Scrivi IdEstr,1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Scrivi FormattaStringa(qE,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      Scrivi "|",1,0,vbWhite,,3
      Pres = 0:M = 0
      QT = Round(QuantitaTeoricaCombAlRitX(qE),5)
      For R = 9 To 9  ' silop una ruota
               If dispari(R) Then acolC(1) = vbWhite:acolC(2) = RGB(0,101,149):Else acolC(1) = vbWhite:acolC(2) = RGB(38,40,37)
         If R = 11 Then R = 12
         M = M + 1
         sE = "":nEstr = 0
         For P = 1 To 5
            E = Estratto(IdEstr,R,P)
            Rit = EstrattoRitardoTurbo(R,E)
            If Rit = qE Then E = Format2(E) :Pres = Pres + 1:nEstr = nEstr + 1:Else E = ".."
            sE = sE & E & " "
         Next
         sE = RimuoviLastChr(sE," ")
         If nEstr > QT And qE <> aPiuRit(M) Then
            acolC(1) = RGB(209,209,236)
         ElseIf qE = aPiuRit(M) Then
            acolC(1) = RGB(255,196,196)
         End If
         Scrivi sE,,0,acolC(1),acolC(2)
         Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Next
      qNR = Round(QT*1,3) ' silop ho modificato 11 con 1 (una sola ruota)
      sca = Round(Pres - qNR,2)
      If sca > 0 Then sca = "+" & sca
      Scrivi "  " & Format2(Pres) & "  ",1,0,RGB(211,250,245)
      Scrivi "|",,0
      Scrivi FormatSpace(qNR,6,1) & "  ",,0,RGB(255,217,217)
      Scrivi "|",,0
      If sca < 0 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(255,117,117),vbWhite
      ElseIf sca >= 0 And sca < 5 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(171,171,214),vbWhite
      Else
         Scrivi FormatSpace(sca,5,1),1,,RGB(145,223,147)
      End If
   Next
End Sub
Sub GetTestoTab
   Dim R,p
   Scrivi "    |   |",,0,RGB(249,249,249)
   For R = 9 To 9  ' silop una ruota
        If R = 11 Then R = 12
      Scrivi Space(14) & "|",,0,RGB(249,249,249)
   Next
   Scrivi "                     ",,,RGB(254,248,182)
   Scrivi "CONC|R.C|",,0,RGB(247,247,247)
   For R = 9 To 9  ' silop una ruota
       If R = 11 Then R = 12
      Scrivi Space(6) & SiglaRuota(R) & Space(6) & "|",,0,RGB(247,247,247)
   Next
   Scrivi "  Q.N |  Q.T   | SCT ",,,RGB(254,247,158)
   Scrivi "    |   |",,0,RGB(245,245,245)
   For R = 9 To 9  ' silop una ruota

  
      If R = 11 Then R = 12
      Scrivi Space(14) & "|",,0,RGB(245,245,245)
   Next
   Scrivi "                     ",,,RGB(254,245,139)
End Sub
==========================================
Ho fatto anche per TUTTE.
x iLegend : sei riuscito ad aggiornare gli archivi di SPMT con silop ?
perché io non ho cambiato niente sul mio spazio, è tutto come prima del virus.
======================
Buona giornata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
 
i legend

i legend

Premium Member
Si silop grazie, non so perchè ma l errore non si è piu riprodotto
Ho due giorni di ferie,appena trovo un momento nel pomeriggio provo a postare il tabellone in una forma piu dinamica magari, anche qualcosa in piu ;) ma non prometto nulla , perche essendo fuori esercizio non so se riesco a fare quello che ho in mente :)
se ti capita di sentire luigi , facci sapere se sta bene e portagli i miei saluti perfavore
Grazie mille :)
 
i legend

i legend

Premium Member
Ciao tom ho ricontrollato
pensavo che avessi sbagliato nel metodo raccolta dati (joe è un maestro io no ), ma non ho riscontrato l errore

se altri che lo prendono controllano magari abbiamo qualche dato in piu
nessuna modifica al codice
NON SI GARANTISCE LA CORRETTEZZA DEI DATI
Codice: 
Option Explicit
' NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI
' CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA
Sub Main
   If MessaggioInfo = False Then Exit Sub
   Dim aColRibb
   Dim PiuRitRu,RitRu,MaxRitTT,Ub
   ReDim aRuVer(0) ' scelgo le ruote su cui effettuare le analisi
   Call ScegliMyRuote(aRuVer)
   Ub = UBound(aRuVer) :If Ub < 1 Then Exit Sub
   ReDim aRit(Ub,2)
   ReDim aNumEstr(Ub,90)
   Call ResetTimer
   Call GetMaxRitTab(aRuVer,aRit,PiuRitRu,RitRu,MaxRitTT)
   aColRibb = RGB(236,235,246)
   Dim spTit:If Ub = 11 Then spTit = 195 : Else spTit = 194
   Scrivi FormatSpace("  Numeri più ritardatari per ruota  ( NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI, CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA)",spTit),1,,RGB(40,148,255),vbWhite,2.5
   Call SetColorSezione(aColRibb)
   If Ub <= 6 Then
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   Else
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,6,aRit,PiuRitRu,RitRu,MaxRitTT)
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,7,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   End If
   Call SetColorSezione(RGB(255,255,245))
   '
   Call GetTestoTab(aRuVer)
   Call GetOutPutTabelloneAnalitico(Ub,aRuVer,MaxRitTT,aRit)
   Call GetTestoTab(aRuVer)
   Scrivi "         Elaborato in : " & TempoTrascorso,1,,,RGB(128,0,0)
End Sub
Function MessaggioInfo()
   MessaggioInfo = True
   Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & " NON MODIFICARE DA SE I PARAMETRI" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni versione beta 0_1")
   If Quest = 7 Then MessaggioInfo = False
End Function
Sub ScegliMyRuote(aRuVer)
   ReDim aVoci(10)
   ReDim aVociSel(10)
   Dim k,m
   For k = 0 To 10
      m = m + 1
      If m = 11 Then m = 12
      aVoci(k) = NomeRuota(m)
   Next
   m = 0
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Ruota/e di Verifica") >= 0 Then
      For k = 0 To UBound(aVoci)
         If aVociSel(k) Then
            m = m + 1
            ReDim Preserve aRuVer(m)
            aRuVer(m) = k + 1
            If aRuVer(m) = 11 Then aRuVer(m) = 12
         End If
      Next
   End If
End Sub
Sub GetMaxRitTab(aRuVer,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim R
   MaxRitTT = 0
   For R = 1 To UBound(aRuVer)
      NumPiuRit = PiuRitardatarioTurbo(EstrazioneFin,aRuVer(R))
      RitRu = EstrattoRitardoTurbo(aRuVer(R),NumPiuRit,EstrazioneFin - 350,EstrazioneFin)
      aRit(R,1) = NumPiuRit
      aRit(R,2) = RitRu
      If MaxRitTT < RitRu Then MaxRitTT = RitRu
   Next
End Sub
Sub GetRibbonPiuRitardatari(acolrib,aRuVer,Lb,Ub,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim i,R,Ucs,k
   Dim aCol(2),aColRu(2),aColNu(2),aColTit(2)
   Scrivi Space(1),,0,,,4
   k = 0
   For i = Lb To Ub
      k = k + 2
      If pari(i) Then
         aColTit(1) =(RGB(140,140,198) - k*7)
         aColTit(2) =(RGB(241,241,248) - k*7)
      Else
         aColTit(1) = RGB(153,193,30) - k*7
         aColTit(2) = RGB(255,255,255) - k*7
      End If
      Scrivi " " & FormatSpace("Ruota",10) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("Estr",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("RcMx",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi Space(1),,0,,,4
   For R = Lb To Ub
      If aRit(R,2) <> MaxRitTT Then
         Ucs = 0
         aCol(1) = RGB(255,255,255)
         aCol(2) = RGB(250,37,96)
         aColRu(1) = RGB(255,255,255)
         aColRu(2) = RGB(0,64,128)
         aColNu(1) = RGB(255,255,245)
         aColNu(2) = RGB(0,64,0)
      Else
         Ucs = 1
         aCol(1) = RGB(250,37,96)
         aCol(2) = RGB(255,255,255)
         aColRu(1) = aCol(1)
         aColRu(2) = aCol(2)
         aColNu(1) = aCol(1)
         aColNu(2) = aCol(2)
      End If
      Scrivi " " & FormatSpace(NomeRuota(aRuVer(R)),10) & " ",Ucs,0,aColRu(1),aColRu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,1),4,1) & " ",Ucs,0,aColNu(1),aColNu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,2),4,1) & " ",Ucs,0,aCol(1),aCol(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi
End Sub
Sub GetTestoTab(aRuVer)
   Dim R,p
   Scrivi "    |   |",,0,RGB(236,235,247)
   For R = 1 To UBound(aRuVer)
      Scrivi Space(14) & "|",,0,RGB(236,235,247)
   Next
   Scrivi "                     ",,,RGB(254,248,182)
   Scrivi "CONC|R.C|",,0,RGB(235,234,244)
   For R = 1 To UBound(aRuVer)
      Scrivi Space(6) & SiglaRuota(aRuVer(R)) & Space(6) & "|",,0,RGB(235,234,244)
   Next
   Scrivi "  Q.N |  Q.T   | SCT ",,,RGB(254,247,158)
   Scrivi "    |   |",,0,RGB(234,233,241)
   For R = 1 To UBound(aRuVer)
      Scrivi Space(14) & "|",,0,RGB(234,233,241)
   Next
   Scrivi "                     ",,,RGB(254,245,139)
End Sub
Sub GetOutPutTabelloneAnalitico(ub,aRuVer,MaxRitTT,aRit)
   ReDim aNum(ub,90)
   Dim IdEstr,nRigo,R,Pres,m,qt,Se,nEstr,p,E,qNr,sca
   Dim scaLim
   Dim aColC(2)
   Dim Ini:Ini = EstrazioneFin - MaxRitTT
   nRigo = - 1
   For IdEstr = EstrazioneFin To Ini Step - 1
      nRigo = nRigo + 1
      Scrivi IdEstr,1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Scrivi FormattaStringa(nRigo,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      Scrivi "|",1,0,vbWhite,,3
      Pres = 0:m = 0
      qt = Round(QuantitaTeoricaCombAlRitX(nRigo),5)
      For R = 1 To ub
         If dispari(R) Then aColC(1) = vbWhite:aColC(2) = RGB(0,101,149):Else aColC(1) = vbWhite:aColC(2) = RGB(38,40,37)
         m = m + 1
         Se = "":nEstr = 0
         For p = 1 To 5
            E = Estratto(IdEstr,aRuVer(R),p)
            ' metodo raccolta numeri di Joe91
            If aNum(R,E) = 0 Then
               ' cekko i numeri appena estratti e non li riutilizzo nell output
               aNum(R,E) = 1
               E = Format2(E)
               Pres = Pres + 1 ' PRESENZE TOTALI RUOTE
               nEstr = nEstr + 1 ' NUMERI PRESENTI NELLA RUOTA SINGOLA
            Else
               E = ".."
            End If
            Se = Se & E & " "
         Next
         Se = RimuoviLastChr(Se," ")
         If nEstr > qt And nRigo <> aRit(R,2) Then
            aColC(1) = RGB(209,209,236)
         ElseIf nRigo = aRit(R,2) Then
            aColC(1) = RGB(255,196,196)
         End If
         Scrivi Se,,0,aColC(1),aColC(2)
         Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Next
      qNr = Round(qt*ub,3)
      sca = Round(Pres - qNr,2)
      If sca > 0 Then sca = "+" & sca
      Scrivi "  " & Format2(Pres) & "  ",1,0,RGB(211,250,245)
      Scrivi "|",,0
      Scrivi FormatSpace(qNr,6,1) & "  ",,0,RGB(255,217,217)
      Scrivi "|",,0
      If sca < 0 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(255,117,117),vbWhite
      ElseIf sca >= 0 And sca <= 3 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(171,171,214),vbWhite
      Else
         Scrivi FormatSpace(sca,5,1),1,,RGB(145,223,147)
      End If
   Next
End Sub

tab1.png
i dati a membrano coincidere con il tabellone analitico
sei su archivio reale lotto?
cosi capiamo dove potrebbe esserci l errore se ce
 
Ultima modifica:
lotto_tom75

lotto_tom75

Advanced Premium Member
i legend ha scritto:
Grazie tom
Se l utilizzi o fai qualche pro a dimmi se funzia per favore .
Notte a tutti
Clicca per espandere...

Ciao mitico, a me sembra fantastico. Solo che non utilizzo quasi mai il tab analitico... Tant'è che ti faccio subito una domanda forse totalmente ultra banale. Ho provato ad analizzare la ruota di NAPOLI. A proposito... spettacolare la possibilità di analizzare le singole ruote! ???? Ad ogni modo mi evidenzia il 22 con rcmx 57. Ma non dovrebbe evidenziare come rcmx il 24 con il valore di ritardo 83? O segue una logica di filtro del tutto diversa? :) Ciao e ancora complimenti per tutte le tue meravigliose chicche programmatiche e ricerche lotto ludiche che gentilmente condividi con tutti noi! ?? ?
 
Alien.

Alien.

Advanced Premium Member
Ottimo ma come si può usare per un pronostico ?
Si potrebbe evidenziare gli stessi numeri uguali dall'estrazione 1 fino indietro
ad un certo punto si trovano 3/5/7 ecc numeri uguali usciti in 2 o più ruote e mettere in gioco quelli e vediamo cosa succede ? che se pò fà.
 
Ultima modifica:
i legend

i legend

Premium Member
Alien. ha scritto:
Ottimo ma come si può usare per un pronostico ?
Si potrebbe evidenziare gli stessi numeri uguali dall'estrazione 1 fino indietro
ad un certo punto si trovano 3/5/7 ecc numeri uguali usciti in 2 o più ruote e mettere in gioco quelli e vediamo cosa succede ? che se pò fà.
Clicca per espandere...
Ciao Alien
Ho esaudito una richiesta. Il suo utilizzo migliore sono sicuro che altri utenti saranno felici di aiutarti.
Sul che se po fa? Non ho capito cosa mi hai chiesto.
Oggi è il mio ultimo giorno di ferie. Se mi spieghi cosa ti serve ,se riesco provo ad accontentarti.
P.s: se mi chiedi lo script che fa vincere a colpo ad ogni estrazione,

Ti dico subito che hai sbagliato o pianeta o persona
?????
 
silop2005

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao ilegend ,
======================
provato tutto OK
ottimo, grazie.
======================
Buona giornata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
 
lotto_tom75

lotto_tom75

Advanced Premium Member
Alien. ha scritto:
Ottimo ma come si può usare per un pronostico ?
Si potrebbe evidenziare gli stessi numeri uguali dall'estrazione 1 fino indietro
ad un certo punto si trovano 3/5/7 ecc numeri uguali usciti in 2 o più ruote e mettere in gioco quelli e vediamo cosa succede ? che se pò fà.
Clicca per espandere...

Un es. di utilizzo potrebbe essere quello che hai detto alien.
Oppure io provo per adesso a monitorare i valori di scarto maggiori... prediligendo teoricamente condizioni di isocronia o isofrequenza eventuali... per identificare possibili micro lunghette x p1 o superiori ecc... Anche questa ennesima chicca del grandissimo ilegend in sostanza può tornare utile in mille e uno modi ;)
 
lotto_tom75

lotto_tom75

Advanced Premium Member
lotto_tom75 ha scritto:
Un es. di utilizzo potrebbe essere quello che hai detto alien.
Oppure io provo per adesso a monitorare i valori di scarto maggiori... prediligendo teoricamente condizioni di isocronia o isofrequenza eventuali... per identificare possibili micro lunghette x p1 o superiori ecc... Anche questa ennesima chicca del grandissimo ilegend in sostanza può tornare utile in mille e uno modi ;)
Clicca per espandere...

Guarda ad es. il caso di NA di questa sera... Con scarto max 1,93 su NAPOLI dal fantastico tabellone analitico intelligente super potenziato di ilegend risultavano isocroni con ra 27 i numeri: 12-26-61 e il 12 è caduto sulla stessa ruota presa in esame casualmente a colpo questa sera... :)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto