un piccolo presente :)

genios · 1 Giugno 2020

Ilegend si potrebbe avere il tabellone per singola ruota con quantità teorica e quantità reale .

ciao Eugenio

silop2005 · 2 Giugno 2020

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

ciao Eugenio

=================================

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.

======================

A presto

Silop

i legend · 2 Giugno 2020

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 · 3 Giugno 2020

Ciao a tutti
Dopo cena do un occhiata.
Provo ad utilizzare il metodo di raccolta numeri di joe.
Mi piace proprio.

A dopo.

i legend · 3 Giugno 2020

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

i dati a membrano coincidere con il tabellone analitico
sei su archivio reale lotto?
cosi capiamo dove potrebbe esserci l errore se ce

i legend · 3 Giugno 2020

Grazie tom
Se l utilizzi o fai qualche pro a dimmi se funzia per favore .
Notte a tutti

lotto_tom75 · 3 Giugno 2020

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

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! ?? ?

i legend · 3 Giugno 2020

Ciao tom .grazie controllo , potrebbe essere un bug.

i legend · 3 Giugno 2020

in basso a sinistra sei su archivioreale lotto?
grazie per le verifiche

i legend · 3 Giugno 2020

tom è questo il tab che ti risultava?

i legend · 3 Giugno 2020

riprova a rilanciare il tuo script cambiando l archivio

Alien. · 4 Giugno 2020

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à.

lotto_tom75 · 4 Giugno 2020

i legend ha scritto:
Vedi l'allegato 2199293
tom è questo il tab che ti risultava?

? Era esattamente quello il prb... A volte la rotellina del mouse fa strani scherzi!!! ?

Ribadisco... sei il ?

???? 'Notte

Xeroxs · 4 Giugno 2020

Grazie i legend
Da Parte mia davvero un Ottimo Tabellone e la scelta Ruota Aiuta nelle Ricerche.

i legend · 4 Giugno 2020

Grazie xerox e grazie Tom
Aspetto ulteriori feedback dagli altri utenti ?

i legend · 4 Giugno 2020

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à.

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 · 4 Giugno 2020

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.

======================

A presto

Silop

lotto_tom75 · 4 Giugno 2020

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à.

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 · 4 Giugno 2020

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

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...

Alien. · 5 Giugno 2020

I legend che si potrebbe esportare in excel ? grazie.

un piccolo presente :)

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Premium Member

Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member