Novità

Domandina agli esperti

ananda

ananda

Advanced Member >PLATINUM PLUS<
Salve. Guardando il tabellone analitico, come si fa a sapere la data di ultima uscita di un ambo di una coppia sincrona dal ritardo 40 in poi? C'è uno script che può aiutarmi?
Grazie
 
lotto_tom75

lotto_tom75

Advanced Premium Member
ananda ha scritto:
Salve. Guardando il tabellone analitico, come si fa a sapere la data di ultima uscita di un ambo di una coppia sincrona dal ritardo 40 in poi? C'è uno script che può aiutarmi?
Grazie
Clicca per espandere...

Ciao ananda non intendi questo vero?


nonintendiquestovero.jpg

nell'esempio non ci sono coppie sincrone ma è tanto per capire... 👋 :)
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
Ciao tom. SI credo di sì. Come sai le coppie sincrone spesso si sfaldano con l'uscita di uno dei due numeri. A volte però esce l'ambo. Ecco vorrei sapere, ad esempio adesso, da quante estrazioni non esce un ambo di questo tipo, dal ritardo 40 in su.
Spero di essere stato chiaro.
In che senso non ci sono coppie sincrone? Quelle cerchiate non sono coppie sincrone? o_O A meno che tu non intenda con coppie sincrone quelle sula stessa riga ma su due ruote diverse. Una doppia coppia insomma... Allora in questo caso qui non ci sono. Io intendo i sincroni di 2° livello. Insomma le coppie che hai evidenziato tu.
Grazie
 
lotto_tom75

lotto_tom75

Advanced Premium Member
ananda ha scritto:
Ciao tom. SI credo di sì. Come sai le coppie sincrone spesso si sfaldano con l'uscita di uno dei due numeri. A volte però esce l'ambo. Ecco vorrei sapere, ad esempio adesso, da quante estrazioni non esce un ambo di questo tipo, dal ritardo 40 in su.
Spero di essere stato chiaro.
In che senso non ci sono coppie sincrone? Quelle cerchiate non sono coppie sincrone? o_O A meno che tu non intenda con coppie sincrone quelle sula stessa riga ma su due ruote diverse. Una doppia coppia insomma... Allora in questo caso qui non ci sono. Io intendo i sincroni di 2° livello. Insomma le coppie che hai evidenziato tu.
Grazie
Clicca per espandere...

Si intendevo quelle.

Ad ogni modo per rilevare la data del ritardo voluto (ra >= 40 ecc...) ti ho leggermente modificato questo spettacolare script di ilegend che mi pare lui abbia chiamato "tabellone analitico intelligente" o qualcosa di simile... aggiungendovi appunto solo la data di estrazione accanto ad ogni ritardo del tabellone. Guarda un pò se ti può essere utile.

Codice: 
Option Explicit
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni by lotto_tom75
' 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 GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(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

Questa versione invece ti evidenzia in giallo il numero di elementi voluti a partire dal ritardo minimo voluto, che viene a sua volta evidenziato in giallo e scritta rossa nella colonna dei ritardi.

Codice: 
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni ed evidenziazione in giallo della quantità dei numeri voluti a partire dal ritardo voluto by lotto_tom75

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 Valorediritardovoluto
   Valorediritardovoluto = CInt(InputBox("ritardo voluto ",,40))
  
   Dim qualenumerodielementivuoievidenziare
   qualenumerodielementivuoievidenziare = CInt(InputBox("quale numero di elementi vuoi evidenziare in giallo (da 1 a 5) ",,2))
  
   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,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   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,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   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 GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(IdEstr),1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      If Valorediritardovoluto = nRigo Then
      Scrivi FormattaStringa(nRigo,"000"),True,0,vbYellow,vbRed,5   'RGB(237,254,205),RGB(128,0,0),5
      Else
      Scrivi FormattaStringa(nRigo,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      End If
      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
        
         If nEstr = qualenumerodielementivuoievidenziare And nRigo  >=  Valorediritardovoluto   Then
         Scrivi Se,,0,vbYellow,vbRed,2
         Else
       Scrivi Se,,0,aColC(1),aColC(2)
       End If
        
        
         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

👋:)
 
Ultima modifica:
i legend

i legend

Premium Member
lotto_tom75 ha scritto:
Ad ogni modo per rilevare la data del ritardo voluto (ra >= 40 ecc...) ti ho leggermente modificato questo spettacolare script di ilegend che mi pare lui abbia chiamato "tabellone analitico intelligente" o qualcosa di simile... aggiungendovi appunto solo la data di estrazione accanto ad ogni ritardo del tabellone. Guarda un pò se ti può essere utile.
Clicca per espandere...
Ciao Tom
non scrivo mai il mio nome sugli script.
Non lo ritengo importante.
Ma se viene modificato ritengo sia corretto scrivere,
"modificato da : " nuovo autore"
Spero che tu sia in accordo con me .
Buona notte a tutti.
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
lotto_tom75 ha scritto:
Si intendevo quelle.

Ad ogni modo per rilevare la data del ritardo voluto (ra >= 40 ecc...) ti ho leggermente modificato questo spettacolare script di ilegend che mi pare lui abbia chiamato "tabellone analitico intelligente" o qualcosa di simile... aggiungendovi appunto solo la data di estrazione accanto ad ogni ritardo del tabellone. Guarda un pò se ti può essere utile.

Codice: 
Option Explicit
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni by lotto_tom75
' 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 GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(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

Questa versione invece ti evidenzia in giallo il numero di elementi voluti a partire dal ritardo minimo voluto, che viene a sua volta evidenziato in giallo e scritta rossa nella colonna dei ritardi.

Codice: 
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni ed evidenziazione in giallo della quantità dei numeri voluti a partire dal ritardo voluto by lotto_tom75

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 Valorediritardovoluto
   Valorediritardovoluto = CInt(InputBox("ritardo voluto ",,40))
 
   Dim qualenumerodielementivuoievidenziare
   qualenumerodielementivuoievidenziare = CInt(InputBox("quale numero di elementi vuoi evidenziare in giallo (da 1 a 5) ",,2))
 
   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,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   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,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   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 GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(IdEstr),1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      If Valorediritardovoluto = nRigo Then
      Scrivi FormattaStringa(nRigo,"000"),True,0,vbYellow,vbRed,5   'RGB(237,254,205),RGB(128,0,0),5
      Else
      Scrivi FormattaStringa(nRigo,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      End If
      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
       
         If nEstr = qualenumerodielementivuoievidenziare And nRigo  >=  Valorediritardovoluto   Then
         Scrivi Se,,0,vbYellow,vbRed,2
         Else
       Scrivi Se,,0,aColC(1),aColC(2)
       End If
       
       
         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

👋:)
Clicca per espandere...
Grazie mille Tom e Legend.
Spero di capirci qualcosa.
Buona giornata.🌞🌞🌞
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
Ho eseguito lo script. A quanto vedo mi restituisce il tabellone analitico evidenziando le coppie sincrone su ogni ruota. O sbaglio?
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
Mi sono spiegato male. Quello che chiedevo era: dal ritardo 40 in poi, quando è stata l'ultima volta che è uscito un ambo sincrono? Per ambo sincrono intendo una coppia di numeri sincroni su una ruota, come ad esempio l'attuale 27.77 a TO.
Per esempio se domani esce l'ambo 27.77 a TO, il contatore si azzera.
Inoltre sarebbe interessante sapere il valore teorico di uscita di un ambo sincrono da un certo ritardo in poi.
Tempo fa lessi un post di Mat che parlava proprio di questo.
Grazie

ananda ha scritto:
Salve. Guardando il tabellone analitico, come si fa a sapere la data di ultima uscita di un ambo di una coppia sincrona dal ritardo 40 in poi? C'è uno script che può aiutarmi?
Clicca per espandere...
 
Ultima modifica:
ananda

ananda

Advanced Member >PLATINUM PLUS<
Ecco il post di cui parlavo,, in cui intervieni anche tu Tom.

AMBI da ritardo 48 in sù

Ciao a tutti, riporto una statistica interessante, che richiede poco dispendio economico per il gioco del lotto, sperando però che l'esito avvenga comunque in tempi brevi. Qualche anno fa avevo riportato qualcosa di simile per una fascia di ritardo diversa, ma simile, che poi si sfaldò. In...
forum.lottoced.com
 
M

Mat

Advanced Member >PLATINUM<
Ciao a tutti,
x Ananda
il post a cui ti riferisci a suo tempo lo scrissi io.
Per la situazione attuale della fascia di ritardo da 40 in sù allego file pdf con tutte le sortite d'ambo sulle 10 ruote che chiedi dal 01/01/1946.
L'ultimo ambo è sortito a CA con i numeri 31-84 che erano entrambi a ritardo 50.
Nella tabella le prime 5 colonne riportano i numeri sortiti alle date indicate, le altre 5 colonne sono i rispettivi ritardi alla sortita degli estratti.
Con la colonna Rit ci sono i ritardi tra una sortita e l'altra alle 10 ruote.
Con l'ultima colonna ci sono la quantità di numeri in gioco quando sono avvenuti gli sfaldamenti.
Ciao a tutti,
Matteo
 

Allegati

  • Nuovo documento di testo1.pdf
    141,3 KB · Visite: 18
lotto_tom75

lotto_tom75

Advanced Premium Member
Ciao ananda, adesso forse ho capito cosa ti necessiterebbe.. ovvero una sorta di script verificatore per gli eventuali sfaldamenti in ambo delle coppie sincrone di liv2 più ritardate e con ra minimo di 40 estrazioni... Spero che qualche scripter con la S maiuscola come Mike o lo stesso legend possa aiutarti. 👋🙂
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
Ciao Mat. Un piacere leggerti.
Grazie per il documento.
Ad Aprile-Maggio ho fatto 2 ambi secchi seguendo questa tua ricerca.
Mat ha scritto:
Ciao a tutti,
x Ananda
il post a cui ti riferisci a suo tempo lo scrissi io.
Per la situazione attuale della fascia di ritardo da 40 in sù allego file pdf con tutte le sortite d'ambo sulle 10 ruote che chiedi dal 01/01/1946.
L'ultimo ambo è sortito a CA con i numeri 31-84 che erano entrambi a ritardo 50.
Nella tabella le prime 5 colonne riportano i numeri sortiti alle date indicate, le altre 5 colonne sono i rispettivi ritardi alla sortita degli estratti.
Con la colonna Rit ci sono i ritardi tra una sortita e l'altra alle 10 ruote.
Con l'ultima colonna ci sono la quantità di numeri in gioco quando sono avvenuti gli sfaldamenti.
Ciao a tutti,
Matteo
Clicca per espandere...
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
lotto_tom75 ha scritto:
Ciao ananda, adesso forse ho capito cosa ti necessiterebbe.. ovvero una sorta di script verificatore per gli eventuali sfaldamenti in ambo delle coppie sincrone di liv2 più ritardate e con ra minimo di 40 estrazioni... Spero che qualche scripter con la S maiuscola come Mike o lo stesso legend possa aiutarti. 👋🙂
Clicca per espandere...
Speriamo. Grazie Tom ☀️
Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.
 
joe

joe

Advanced Member >PLATINUM PLUS<
ananda ha scritto:
Speriamo. Grazie Tom ☀️
Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.
Clicca per espandere...

Più che difficile direi impossibile !

Anche perchè ha già scritto Matteo che saluto e ringrazio.

21/12/1946 MI 81.11 Rit 44
27/12/1947 VE 86.20 Rit 46
08/05/1948 CA 32.26 Rit 69
09/10/1948 GE 20.30 Rit 48
01/10/1949 RO 18.81 Rit 51
25/08/1951 BA 74.90 Rit 42
29/08/1953 FI 63.50 Rit 46
... omesso ...
03/09/2022 FI 10.47 Rit 42
06/09/2022 RO 39.68 Rit 77
24/09/2022 FI 19.78 Rit 45
18/10/2022 MI 37.77 Rit 45
26/11/2022 GE 87.26 Rit 54
09/03/2023 VE 78.41 Rit 60
16/03/2023 MI 18.53 Rit 57
05/10/2023 PA 70.68 Rit 55
17/10/2023 RO 28.01 Rit 46
28/10/2023 CA 31.84 Rit 51

In corso ...

MI 51.44 RC 45
NA 60.32 RC 49
NA 15.47 RC 44
PA 25.41 RC 46
PA 47.06 RC 43
RO 84.73 RC 55
TO 27.77 RC 62

Agg. al 03/11/2023

Tutto da verificare.

:)
 
M

Mat

Advanced Member >PLATINUM<
Ciao a tutti,
x Ananda
hai detto <<Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.>>
Come ho già detto, nella penultima colonna del file, con Rit. ci sono incolonnati tutti i ritardi registrati dall' 01/01/1946 nelle sortite di questi ambi.
Attualmente abbiamo ritardo 4, perché sono passate 4 estrazioni dall'ultima sortita d'ambo su CA tra tutte le 10 ruote.
I tre ritardi precedenti sono in successione 99-6-6.

In questo momento gli ambi giocabili sono
Milano
44.51 (ritardo 46)

Napoli
15.47 (ritardo 45)
32.60 (ritardo 50)

Palermo
06.47 (ritardo 44)
25.41 (ritardo 47)

Roma
73.84 (ritardo 56)

Torino
27.77 (ritardo 63)

Le ruote con ritardo più elevato sono:
Torino rit. 1411
Bari rit. 1216

Si tratta di ritardi lontani dai massimi storici a ruota.

Anche se la ruota Nazionale l'avevo esclusa dal file si potrebbe darci un pochino d'attenzione per il ritardo attuale pari a 1313 estraz. ed inoltre il precedente ritardo pari a 1098: due ritardi consecutivi elevati.

Se poi interessa conoscere una fascia attualmente in evidenza a ruota e con una quantità di casi nettamente più elevata, abbiamo nella fascia da ritardo 25 in sù due ruote con ritardi elevati:
BARI con ritardo 595
TORINO " " 462
Max storico a ruota dal 1871 abbiamo VE con 684 estraz.

Non si tratta di ritardi attuali eccezionali però si potrebbe anche ipotizzare un gioco con le due ruote di BA e TO fino alla sortita di un ambo.
Sarebbe un gioco ristretto e quindi l'attesa potrebbe anche durare più delle speranze.
Comunque per chi fosse interessato, in questo momento per il concorso di domani questi sono gli ambi giocabili:

BARI
45.88 (ritardo 28)
41.58 (ritardo 34)

TORINO
88.89 (ritardo 34)
61.76 (ritardo 35)
27.77 (ritardo 63)

Spero di aver chiarito qualcosa, un saluto a tutti,
Matteo
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
joe ha scritto:
Più che difficile direi impossibile !

Anche perchè ha già scritto Matteo che saluto e ringrazio.

21/12/1946 MI 81.11 Rit 44
27/12/1947 VE 86.20 Rit 46
08/05/1948 CA 32.26 Rit 69
09/10/1948 GE 20.30 Rit 48
01/10/1949 RO 18.81 Rit 51
25/08/1951 BA 74.90 Rit 42
29/08/1953 FI 63.50 Rit 46
... omesso ...
03/09/2022 FI 10.47 Rit 42
06/09/2022 RO 39.68 Rit 77
24/09/2022 FI 19.78 Rit 45
18/10/2022 MI 37.77 Rit 45
26/11/2022 GE 87.26 Rit 54
09/03/2023 VE 78.41 Rit 60
16/03/2023 MI 18.53 Rit 57
05/10/2023 PA 70.68 Rit 55
17/10/2023 RO 28.01 Rit 46
28/10/2023 CA 31.84 Rit 51

In corso ...

MI 51.44 RC 45
NA 60.32 RC 49
NA 15.47 RC 44
PA 25.41 RC 46
PA 47.06 RC 43
RO 84.73 RC 55
TO 27.77 RC 62

Agg. al 03/11/2023

Tutto da verificare.

:)
Clicca per espandere...
Ciao Joe. Io ci ho provato...
Comunque devo avere qualche buco in archivio perchè ho altre coppie!
Grazie
 
M

Mat

Advanced Member >PLATINUM<
Ciao Joe,
sono giusti i ritardi che riporti; i miei ritardi sono alla data del 04/11/2023.
Ciao,
Matteo
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
Mat ha scritto:
Ciao a tutti,
x Ananda
hai detto <<Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.>>
Come ho già detto, nella penultima colonna del file, con Rit. ci sono incolonnati tutti i ritardi registrati dall' 01/01/1946 nelle sortite di questi ambi.
Attualmente abbiamo ritardo 4, perché sono passate 4 estrazioni dall'ultima sortita d'ambo su CA tra tutte le 10 ruote.
I tre ritardi precedenti sono in successione 99-6-6.

In questo momento gli ambi giocabili sono
Milano
44.51 (ritardo 46)

Napoli
15.47 (ritardo 45)
32.60 (ritardo 50)

Palermo
06.47 (ritardo 44)
25.41 (ritardo 47)

Roma
73.84 (ritardo 56)

Torino
27.77 (ritardo 63)

Le ruote con ritardo più elevato sono:
Torino rit. 1411
Bari rit. 1216

Si tratta di ritardi lontani dai massimi storici a ruota.

Anche se la ruota Nazionale l'avevo esclusa dal file si potrebbe darci un pochino d'attenzione per il ritardo attuale pari a 1313 estraz. ed inoltre il precedente ritardo pari a 1098: due ritardi consecutivi elevati.

Se poi interessa conoscere una fascia attualmente in evidenza a ruota e con una quantità di casi nettamente più elevata, abbiamo nella fascia da ritardo 25 in sù due ruote con ritardi elevati:
BARI con ritardo 595
TORINO " " 462
Max storico a ruota dal 1871 abbiamo VE con 684 estraz.

Non si tratta di ritardi attuali eccezionali però si potrebbe anche ipotizzare un gioco con le due ruote di BA e TO fino alla sortita di un ambo.
Sarebbe un gioco ristretto e quindi l'attesa potrebbe anche durare più delle speranze.
Comunque per chi fosse interessato, in questo momento per il concorso di domani questi sono gli ambi giocabili:

BARI
45.88 (ritardo 28)
41.58 (ritardo 34)

TORINO
88.89 (ritardo 34)
61.76 (ritardo 35)
27.77 (ritardo 63)

Spero di aver chiarito qualcosa, un saluto a tutti,
Matteo
Clicca per espandere...
Grazie Mat. Ma come ricavi i ritardi di cui parli?
 
M

Mat

Advanced Member >PLATINUM<
Ciao Ananda,
i dati che riporto non sono frutto di miei script, ma di programmi non più in vendita e non disponibili, che mi sono procurato con amicizie oppure a pagamento in oltre 25 anni di utilizzo PC.
Ciao,
Matteo
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 maggio 2024
    Bari
    63
    35
    59
    12
    69
    Cagliari
    13
    07
    23
    24
    38
    Firenze
    35
    80
    90
    76
    73
    Genova
    11
    54
    27
    06
    20
    Milano
    07
    72
    48
    37
    15
    Napoli
    65
    87
    82
    50
    35
    Palermo
    13
    88
    44
    67
    24
    Roma
    31
    05
    47
    33
    46
    Torino
    39
    57
    84
    82
    09
    Venezia
    09
    23
    49
    53
    63
    Nazionale
    37
    43
    26
    48
    81
    Estrazione Simbolotto
    Milano
    26
    07
    17
    44
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto