Novità

Di tutto e un po, sistemi lotto e altro

  • Creatore Discussione Creatore Discussione Rubino
  • Data di inizio Data di inizio
Rubino ha scritto:
buonasera

fino a questo punto è chiaro il ragionamento, ma poi lo script che ho fatto l'altra volta va a fare altre cose
per tutti i 90 numeri della venus, ma non ho capito cosa si vuole esattamente per esempio per una trentina di numeri

questo è l'output per un capogioco qualsiasi 05 di attualità

Codice: 
Rubino-  Studio Urna Tutte
Ricerca Estratti piu' frequenti su Tutte le 10 Ruote negli ultimi 79  concorsi
Periodo : 9701 / 29.10.2019  :   9779 / 09.06.2020
9701 TO cinquina Estratta 49.70.54.05.52.    Cap.g.5
9703 MI cinquina Estratta 11.76.89.05.85.    Cap.g.5
9705 GE cinquina Estratta 11.68.05.56.12.    Cap.g.5
9707 GE cinquina Estratta 05.08.61.46.10.    Cap.g.5
9707 TO cinquina Estratta 65.55.24.05.26.    Cap.g.5
9708 BA cinquina Estratta 77.46.84.05.89.    Cap.g.5
9709 GE cinquina Estratta 77.14.61.05.57.    Cap.g.5
9711 GE cinquina Estratta 27.76.22.05.57.    Cap.g.5
9712 VE cinquina Estratta 74.53.05.13.40.    Cap.g.5
9715 PA cinquina Estratta 32.02.07.05.31.    Cap.g.5
9715 VE cinquina Estratta 82.05.15.07.49.    Cap.g.5
9717 VE cinquina Estratta 42.05.55.78.29.    Cap.g.5
9723 MI cinquina Estratta 80.05.76.02.20.    Cap.g.5
9729 BA cinquina Estratta 40.71.05.51.90.    Cap.g.5
9731 MI cinquina Estratta 05.16.53.03.09.    Cap.g.5
9731 TO cinquina Estratta 56.35.41.17.05.    Cap.g.5
9732 TO cinquina Estratta 81.06.05.90.74.    Cap.g.5
9733 BA cinquina Estratta 74.46.05.36.15.    Cap.g.5
9734 CA cinquina Estratta 05.32.02.72.78.    Cap.g.5
9736 CA cinquina Estratta 05.81.46.82.37.    Cap.g.5
9737 GE cinquina Estratta 05.42.69.58.68.    Cap.g.5
9737 PA cinquina Estratta 54.05.68.43.10.    Cap.g.5
9738 VE cinquina Estratta 36.29.46.40.05.    Cap.g.5
9739 CA cinquina Estratta 69.05.10.09.48.    Cap.g.5
9740 CA cinquina Estratta 10.81.06.52.05.    Cap.g.5
9740 RO cinquina Estratta 61.84.03.05.19.    Cap.g.5
9741 NA cinquina Estratta 05.01.06.71.81.    Cap.g.5
9746 CA cinquina Estratta 05.75.08.13.87.    Cap.g.5
9747 RO cinquina Estratta 13.05.88.64.70.    Cap.g.5
9749 CA cinquina Estratta 54.05.83.24.80.    Cap.g.5
9750 CA cinquina Estratta 66.53.34.70.05.    Cap.g.5
9751 VE cinquina Estratta 44.05.43.26.20.    Cap.g.5
9754 VE cinquina Estratta 53.31.05.33.88.    Cap.g.5
9755 BA cinquina Estratta 05.90.84.34.19.    Cap.g.5
9755 FI cinquina Estratta 85.61.33.67.05.    Cap.g.5
9757 MI cinquina Estratta 05.50.04.19.49.    Cap.g.5
9762 FI cinquina Estratta 05.80.21.22.66.    Cap.g.5
9763 TO cinquina Estratta 53.81.05.33.30.    Cap.g.5
9764 PA cinquina Estratta 68.61.77.78.05.    Cap.g.5
9769 PA cinquina Estratta 67.68.08.05.85.    Cap.g.5
9771 MI cinquina Estratta 49.13.61.05.65.    Cap.g.5

Cinquine trovate sulle 10 Ruote con Cg. 5   Tot.41

Numeri Assenti nelle cinquine estratte...qt.15   Nr. 18-23-25-28-38-39-45-47-59-60-62-63-73-79-86

Distribuzione Presenze Estratti  con CG  5
Pr.  qtn  Combinazioni
0    16   18.23.25.28.38.39.45.47.59.60.62.63.73.79.86.5
1    22   64.72.75.01.87.83.44.41.48.21.35.30.27.37.14.17.16.58.04.50.12.51.
2    28   42.43.71.56.55.03.57.52.67.69.65.66.24.89.26.82.15.88.22.20.34.32.36.09.29.07.11.31.
3    16   78.84.85.19.80.70.06.02.77.90.76.08.74.54.40.33.
4    03   10.13.49.
5    04   46.53.81.68.
6    01   61.
********************************************************************************************


già a questo punto per un capogioco servono conoscere gli estratti che non si sono abbinati in ambo anche quelli
oltre ai trenta inseriti? o non servono?


fino a domenica non posso fare niente.
devi pazientare o qualcuno può fare lui la modifica
Clicca per espandere...
Buongiorno sig Rubino, attendere non è un problema e la settimana prossima cerco di chiarire meglio il concetto.
La ringrazio di avermi risposto.
cordiali saluti
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' dettaglio della cinquine contenenti cap + abbinamenti
If x = 1 Then
If det = "S" Then Scrivi ini & " Estratti " & StringaNumeri(comb," ")
x = 0
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' guarda se ciclo è completato con l'uscita di tutti i numeri richiesti
ctz = 0
For k = 1 To 90
If numeri(k,2) > 0 Then ctz = ctz + 1
Next
If ctz = qtn Then
a = ini
q = q + 1
Scrivi "-----> " & GetTestoHtml(Format2(q),True,vbRed) & " Ciclo Completato da " & da & " : " & a & " Tot.Estraz. " & GetTestoHtml(a - da,True,vbBlue),1
da = a + 1
ReDim numeri(90,2)
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next
Scrivi "Cinquine Totali trovate " & GetTestoHtml(ct,True,vbRed),1
Scrivi "Cicli Totali Rilevati " & GetTestoHtml(q,True,vbRed),1
Scrivi
Scrivi "Ciclo Attuale e relativa Frequenza Abbinamenti tra i numeri richiesti ",1,2,4
Scrivi "Ciclo in Corso " & da & " : " & fine & " da nconc. " & fine - da,1,2,5
Scrivi "Ruota " & NomeRuota(r),1,2,3
Scrivi "Capogioco scelto " & GetTestoHtml(Format2(cg),True,vbRed)
Scrivi "Numeri scelti : " & GetTestoHtml(StringaNumeri(nu,"."),True,vbRed)
Scrivi
'''calcola numeri con pres = 0
''''abbinamenti assenti o con pres attuale uguale a zero
For s = 1 To qtn
For k = 1 To 90
If Int(nu(s)) = Int(numeri(k,2)) Then
nu(s) = 0
End If
Next
Next
''''''''''''''
Assenti = ""
For h = 1 To qtn - 1
If nu(h) <> 0 Then
Assenti = Assenti & Format2(nu(h)) & "."
End If
Next
'''
Call OrdinaMatrice(numeri,- 1,1)
For z = 1 To 15
zq = 10 - z
lista = ""
For k = 1 To 90
If Int(numeri(k,1)) = zq Then
lista = lista & Format2(numeri(k,2)) & "."
End If
Next
If lista <> "" And zq > 0 Then Scrivi "Pres. " & zq & " Num. " & lista,1
Next
Scrivi "Pres. 0 Num. " & Assenti,1
Scrivi:Scrivi "Tempo Elab." & TempoTrascorso,1
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function TUTTE(R,FINE,InI,CG,NU,QTN)
Dim Te,Tee,Tx,Tct,Tj,Tk,Tda,Ta,Tctz,Tdet,Tq,Tz,Tzq,Tlista,TAssenti,Ts,Th
ReDim Tnumeri(90,2)
Scrivi "Ruota " & NomeRuota(R),1,2,3
Scrivi "Periodo da " & InI & " / " & DataEstrazione(InI) & " : al " & FINE & " / " & DataEstrazione(FINE),1
Scrivi "Capogioco scelto " & GetTestoHtml(Format2(CG),True,vbRed)
Scrivi "Numeri scelti : " & StringaNumeri(NU,".")
Scrivi "-------------------------------------------------------------------------------------------------------------",1
Scrivi "Cinquine contenenti il capogioco ",1
Tda = InI
''''''''''''''''''''''''''''''
'''loop estrazioni per trovare le cinquine contenenti capogioco
For InI = InI + 1 To FINE
''
Messaggio(InI)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''LOOP PER TUTTE LE RUOTE
For R = 1 To 10
''''''''loop per calcolare presenze cinquine con capogioco e abbinamenti
ReDim Tcomb(5)
Tx = 0
For Te = 1 To 5
Tcomb(Te) = GetTestoHtml(Format2(Estratto(InI,R,Te)),True,vbBlack)
If Estratto(InI,R,Te) = CG Then
Tx = 1
Tcomb(Te) = GetTestoHtml(Format2(Estratto(InI,R,Te)),True,vbRed)
''''conta presenze e calcola durata del ciclo completo
For Tj = 1 To QTN
For Tee = 1 To 5
If Int(Estratto(InI,R,Tee)) = Int(NU(Tj)) Then
Tnumeri(NU(Tj),1) = Tnumeri(NU(Tj),1) + 1
Tnumeri(NU(Tj),2) = NU(Tj)
End If
Next
Next
Tct = Tct + 1
End If
Next
''
Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' dettaglio della cinquine contenenti cap + abbinamenti
If Tx = 1 Then
If Tdet = "S" Then Scrivi InI & " Estratti " & StringaNumeri(Tcomb," ")
Tx = 0
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' guarda se ciclo è completato con l'uscita di tutti i numeri richiesti
Tctz = 0
For Tk = 1 To 90
If Tnumeri(Tk,2) > 0 Then Tctz = Tctz + 1
Next
If Tctz = QTN Then
Ta = InI
Tq = Tq + 1
Scrivi "-----> " & GetTestoHtml(Format2(Tq),True,vbRed) & " Ciclo Completato da " & Tda & " : " & Ta & " Tot.Estraz. " & GetTestoHtml(Ta - Tda,True,vbBlue),1
Tda = Ta + 1
ReDim Tnumeri(90,2)
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next
Scrivi "Cinquine Totali trovate " & GetTestoHtml(Tct,True,vbRed),1
Scrivi "Cicli Totali Rilevati " & GetTestoHtml(Tq,True,vbRed),1
Scrivi
Scrivi "Ciclo Attuale e relativa Frequenza Abbinamenti tra i numeri richiesti ",1,2,4
Scrivi "Ciclo in Corso " & Tda & " : " & FINE & " da nconc. " & FINE - Tda,1,2,5
Scrivi "Ruota " & NomeRuota(R),1,2,3
Scrivi "Capogioco scelto " & GetTestoHtml(Format2(CG),True,vbRed)
Scrivi "Numeri scelti : " & GetTestoHtml(StringaNumeri(NU,"."),True,vbRed)
Scrivi
'''calcola numeri con pres = 0
''''abbinamenti assenti o con pres attuale uguale a zero
For Ts = 1 To QTN
For Tk = 1 To 90
If Int(NU(Ts)) = Int(Tnumeri(Tk,2)) Then
NU(Ts) = 0
End If
Next
Next
''''''''''''''
TAssenti = ""
For Th = 1 To QTN
If NU(Th) <> 0 Then
TAssenti = TAssenti & Format2(NU(Th)) & "."
End If
Next
'''
Call OrdinaMatrice(Tnumeri,- 1,1)
For Tz = 1 To 15
Tzq = 10 - Tz
Tlista = ""
For Tk = 1 To 90
If Int(Tnumeri(Tk,1)) = Tzq Then
Tlista = Tlista & Format2(Tnumeri(Tk,2)) & "."
End If
Next
If Tlista <> "" And Tzq > 0 Then Scrivi "Pres. " & Tzq & " Num. " & Tlista,1
Next
Scrivi "Pres. 0 Num. " & TAssenti,1
Scrivi:Scrivi "Tempo Elab." & TempoTrascorso,1
End Function



[/code]
 
Ultima modifica di un moderatore:
Finalmente! Preso secco a ruota e tutte, lo stesso in terzina ma doppio e sfiorato il terno secco, avevo con 89 ed è uscito 90,poi anche ambetto sempre a ruota ed altre vincitine su tutte 2 in terzina, 2 in quartina ed una in cinquina. Le spese le ho recuperate, guadagno scarso ma sono lo stesso contento era da quando avevi postato questa previsione che la seguivo. Ora io la gioco ancora per qualche estrazione, solo l ambo questa volta, tu cosa consigli? Poi c'è anche il 37-52 che non è ancora uscito... Grazie Rubino
 
i prossimi 2 ambi secchi da seguire sono

63 87 e 08 11 TUTTE

probabili entro GIUGNO - Luglio

63 87 bcfmt in ristretto probabili BCT - TUTTE
08 11 MNRVnz in ristretto probabili MNV - TUTTE
 
Ultima modifica di un moderatore:
sono in arrivo alcuni numeri o singoli estratti tra questi 16 78 87 e tra 04 11 36

per i terni opterei per tentare su questi 6 A TUTTE
poi se qualcuno ha riferimento preciso per il 16 su quale ruota uscirà e me lo dice, lo ringrazio.

16 20 25
16 20 36
16 20 72
16 25 36
16 25 72
16 36 72
 
questi invece sono terni secchi derivanti dallo studio Quantitativo dei Buchi di Rookie, evoluzione Idea Rubino.

questi 15 terni sono validi fino a Fine Giugno sulla RUOTA TUTTE

21 39 42 * 32 09 63
32 09 18 * 32 18 63
36 16 25 * 36 16 20
36 16 72 * 36 20 25
36 20 72 * 36 25 72
41 45 46 * 41 45 67
41 46 67 * 46 45 67
46 77 59


buona settimana.
 
Rubino ha scritto:
X pigano65



l'ho fatto così, contempla singole ruote ed anche a tutte le 10 ruote unite
credo che va bene, comunque controllare sempre.

buona serata.

Codice: 
Option Explicit
Sub Main
   Dim ini,fine,qtn,cg,r,e,ee,x,ct,j,k,da,a,ctz,det,q,z,zq,lista,Assenti,s,h
   Dim ar(1),nu(90)
   r = InputBox("Ruota",,1)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   qtn = ScegliNumeri(nu)
   cg = CInt(InputBox("Capogioco",,57))
   det = InputBox("Vuoi dettaglio estrazioni ? S/N ",,"N")
   ini = 3949
   ar(1) = r
   ''''''''''''''''''''''''''''''''''''''''''''''''''''
   '''''TUTTE LE RUOTE RICHIAMA FUNCTION TUTTE
   If r = 11 Then
      Call TUTTE(r,fine,ini,cg,nu,qtn)
      Exit Sub
   End If
   ''''''''''''''''''''''''''''''''''''''''''''''''''''
   ReDim numeri(90,2)
   Scrivi "Ruota " & NomeRuota(r),1,2,3
   Scrivi "Periodo da  " & ini & " / " & DataEstrazione(ini) & "  :  al " & fine & " / " & DataEstrazione(fine),1
   Scrivi "Capogioco scelto  " & GetTestoHtml(Format2(cg),True,vbRed)
   Scrivi "Numeri scelti  :  " & StringaNumeri(nu,".")
   Scrivi "-------------------------------------------------------------------------------------------------------------",1
   Scrivi "Cinquine contenenti il capogioco ",1
   da = ini
   '''loop estrazioni per trovare le cinquine contenenti capogioco
   For ini = ini + 1 To fine
      ''
      Messaggio(ini)
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''''''loop per calcolare presenze cinquine con capogioco e abbinamenti
      ReDim comb(5)
      x = 0
      For e = 1 To 5
         comb(e) = GetTestoHtml(Format2(Estratto(ini,r,e)),True,vbBlack)
         If Estratto(ini,r,e) = cg Then
            x = 1
            comb(e) = GetTestoHtml(Format2(Estratto(ini,r,e)),True,vbRed)
            ''''conta presenze e calcola durata del ciclo completo
            For j = 1 To qtn
               For ee = 1 To 5
                  If Int(Estratto(ini,r,ee)) = Int(nu(j)) Then
                     numeri(nu(j),1) = numeri(nu(j),1) + 1
                     numeri(nu(j),2) = nu(j)
                  End If
               Next
            Next
            ct = ct + 1
         End If
      Next
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '''   dettaglio della cinquine contenenti cap + abbinamenti
      If x = 1 Then
         If det = "S" Then Scrivi ini & "   Estratti " & StringaNumeri(comb," ")
         x = 0
      End If
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''' guarda se ciclo è completato con l'uscita di tutti i numeri richiesti
      ctz = 0
      For k = 1 To 90
         If numeri(k,2) > 0 Then ctz = ctz + 1
      Next
      If ctz = qtn Then
         a = ini
         q = q + 1
         Scrivi "----->   " & GetTestoHtml(Format2(q),True,vbRed) & "   Ciclo Completato da " & da & " : " & a & "   Tot.Estraz. " & GetTestoHtml(a - da,True,vbBlue),1
         da = a + 1
         ReDim numeri(90,2)
      End If
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Next
   Scrivi "Cinquine Totali trovate   " & GetTestoHtml(ct,True,vbRed),1
   Scrivi "Cicli Totali Rilevati     " & GetTestoHtml(q,True,vbRed),1
   Scrivi
   Scrivi "Ciclo Attuale e relativa Frequenza Abbinamenti tra i numeri richiesti ",1,2,4
   Scrivi "Ciclo in Corso  " & da & " : " & fine & "    da nconc.  " & fine - da,1,2,5
   Scrivi "Ruota " & NomeRuota(r),1,2,3
   Scrivi "Capogioco scelto  " & GetTestoHtml(Format2(cg),True,vbRed)
   Scrivi "Numeri scelti  :  " & GetTestoHtml(StringaNumeri(nu,"."),True,vbRed)
   Scrivi
   '''calcola numeri con pres = 0
   ''''abbinamenti assenti o con pres attuale uguale a zero
   For s = 1 To qtn
      For k = 1 To 90
         If Int(nu(s)) = Int(numeri(k,2)) Then
            nu(s) = 0
         End If
      Next
   Next
   ''''''''''''''
   Assenti = ""
   For h = 1 To qtn - 1
      If nu(h) <> 0 Then
         Assenti = Assenti & Format2(nu(h)) & "."
      End If
   Next
   '''
   Call OrdinaMatrice(numeri,- 1,1)
   For z = 1 To 15
      zq = 10 - z
      lista = ""
      For k = 1 To 90
         If Int(numeri(k,1)) = zq Then
            lista = lista & Format2(numeri(k,2)) & "."
         End If
      Next
      If lista <> "" And zq > 0 Then Scrivi "Pres. " & zq & "  Num. " & lista,1
   Next
   Scrivi "Pres. 0  Num. " & Assenti,1
   Scrivi:Scrivi "Tempo Elab." & TempoTrascorso,1
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function TUTTE(R,FINE,InI,CG,NU,QTN)
   Dim Te,Tee,Tx,Tct,Tj,Tk,Tda,Ta,Tctz,Tdet,Tq,Tz,Tzq,Tlista,TAssenti,Ts,Th
   ReDim Tnumeri(90,2)
   Scrivi "Ruota " & NomeRuota(R),1,2,3
   Scrivi "Periodo da  " & InI & " / " & DataEstrazione(InI) & "  :  al " & FINE & " / " & DataEstrazione(FINE),1
   Scrivi "Capogioco scelto  " & GetTestoHtml(Format2(CG),True,vbRed)
   Scrivi "Numeri scelti  :  " & StringaNumeri(NU,".")
   Scrivi "-------------------------------------------------------------------------------------------------------------",1
   Scrivi "Cinquine contenenti il capogioco ",1
   Tda = InI
   ''''''''''''''''''''''''''''''
   '''loop estrazioni per trovare le cinquine contenenti capogioco
   For InI = InI + 1 To FINE
      ''
      Messaggio(InI)
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '''''LOOP PER TUTTE LE RUOTE
      For R = 1 To 10
         ''''''''loop per calcolare presenze cinquine con capogioco e abbinamenti
         ReDim Tcomb(5)
         Tx = 0
         For Te = 1 To 5
            Tcomb(Te) = GetTestoHtml(Format2(Estratto(InI,R,Te)),True,vbBlack)
            If Estratto(InI,R,Te) = CG Then
               Tx = 1
               Tcomb(Te) = GetTestoHtml(Format2(Estratto(InI,R,Te)),True,vbRed)
               ''''conta presenze e calcola durata del ciclo completo
               For Tj = 1 To QTN
                  For Tee = 1 To 5
                     If Int(Estratto(InI,R,Tee)) = Int(NU(Tj)) Then
                        Tnumeri(NU(Tj),1) = Tnumeri(NU(Tj),1) + 1
                        Tnumeri(NU(Tj),2) = NU(Tj)
                     End If
                  Next
               Next
               Tct = Tct + 1
            End If
         Next
         ''
      Next
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '''   dettaglio della cinquine contenenti cap + abbinamenti
      If Tx = 1 Then
         If Tdet = "S" Then Scrivi InI & "   Estratti " & StringaNumeri(Tcomb," ")
         Tx = 0
      End If
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      ''''' guarda se ciclo è completato con l'uscita di tutti i numeri richiesti
      Tctz = 0
      For Tk = 1 To 90
         If Tnumeri(Tk,2) > 0 Then Tctz = Tctz + 1
      Next
      If Tctz = QTN Then
         Ta = InI
         Tq = Tq + 1
         Scrivi "----->   " & GetTestoHtml(Format2(Tq),True,vbRed) & "   Ciclo Completato da " & Tda & " : " & Ta & "   Tot.Estraz. " & GetTestoHtml(Ta - Tda,True,vbBlue),1
         Tda = Ta + 1
         ReDim Tnumeri(90,2)
      End If
      ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Next
   Scrivi "Cinquine Totali trovate   " & GetTestoHtml(Tct,True,vbRed),1
   Scrivi "Cicli Totali Rilevati     " & GetTestoHtml(Tq,True,vbRed),1
   Scrivi
   Scrivi "Ciclo Attuale e relativa Frequenza Abbinamenti tra i numeri richiesti ",1,2,4
   Scrivi "Ciclo in Corso  " & Tda & " : " & FINE & "    da nconc.  " & FINE - Tda,1,2,5
   Scrivi "Ruota " & NomeRuota(R),1,2,3
   Scrivi "Capogioco scelto  " & GetTestoHtml(Format2(CG),True,vbRed)
   Scrivi "Numeri scelti  :  " & GetTestoHtml(StringaNumeri(NU,"."),True,vbRed)
   Scrivi
   '''calcola numeri con pres = 0
   ''''abbinamenti assenti o con pres attuale uguale a zero
   For Ts = 1 To QTN
      For Tk = 1 To 90
         If Int(NU(Ts)) = Int(Tnumeri(Tk,2)) Then
            NU(Ts) = 0
         End If
      Next
   Next
   ''''''''''''''
   TAssenti = ""
   For Th = 1 To QTN
      If NU(Th) <> 0 Then
         TAssenti = TAssenti & Format2(NU(Th)) & "."
      End If
   Next
   '''
   Call OrdinaMatrice(Tnumeri,- 1,1)
   For Tz = 1 To 15
      Tzq = 10 - Tz
      Tlista = ""
      For Tk = 1 To 90
         If Int(Tnumeri(Tk,1)) = Tzq Then
            Tlista = Tlista & Format2(Tnumeri(Tk,2)) & "."
         End If
      Next
      If Tlista <> "" And Tzq > 0 Then Scrivi "Pres. " & Tzq & "  Num. " & Tlista,1
   Next
   Scrivi "Pres. 0  Num. " & TAssenti,1
   Scrivi:Scrivi "Tempo Elab." & TempoTrascorso,1
End Function
Clicca per espandere...
Buon pomeriggio sig Rubino
ringraziandole infinitamente per il lavoro svolto.
Sommariamente non potendo effettuare dei controlli
Le indico i vari punti che ho capito:

1) scelta della ruota o tutte (variando 1 0 11) = è OKOK

2) se il ciclo termina con la lunghezza dei nr scelti, senza controllare gli altri nr esclusi e riparta un nuovo ciclo ,controllando sempre e solo quei nr scelti , nel range delle estrazioni imposte = è OKOK

3) indica il ciclo attuale = è OKOK

4) mi da le presenze e questo non so , se si riferiscono all'ultimo ciclo corrente oppure è il risultato totale di tutti i cicli eseguiti.
Se gentilmente potrebbe spiegarmelo, grazie! ..............

5) ho notato che rispetto allo scriptbozza non da i nr che non si sono abbinati al capogioco. Certamente questa è una sciocchezza rispetto
al capolavoro che ha creato e l'intuizione che Lei ha avuto senza nemmeno aspettare qualche mio chiarimento.
Davvero complimenti , poche chiacchiere ma molta competenza.
Se come ho scritto ,potrebbe chiarirmi qualche mio dubbio in merito ai punti elencati sarò contento di leggerla.
Infiniti ringraziamenti
cordiali saluti
 
Buon pomeriggio, sig. Rubino, scusi se disturbo
volevo chiderLe un suo parere su i due ambi sortiti da un test
eseguito con il capogioco 8 , ritardatario a tutte. Dei numeri da me scelti e di quelli che nel ciclo non si sono uniti al capogioco sono 28 e 31.
Quindi due ambi 8-28/ 8-31 a tutte.
Se vuole e se può
Grazie per la sua gentilezza
cordiali saluti
 
Buongiorno sig Ghio
ho visto ,questa era una prova con il capolavoro fatto dal sig Rubino. Effettuando prove , e in effetti ho tentato la intera terzina a tutte . Ho sperato in una autorevole valutazione del Maestro che certamente avrà avuto da fare ,e comunque ringrazio e saluto.
Sarà per qualche altra occasione.
cordiali saluti
 
sistemato il computer rotto.

bravo pigano65 per l'ambo 08 31
uno solo dei mancanti in questo ciclo in corso , ma a colpo .

credo ne arriveranno ancora.

basta avere un capogioco sicuro, in attesa a pochi colpi.
poi bisogna scegliere tra eventuali abbinamenti con presenze 0 o con presenze che piu' piacciono personalmenteed ultimo "" crederci "".

buona giornata
 
Rubino ha scritto:
sistemato il computer rotto.

bravo pigano65 per l'ambo 08 31
uno solo dei mancanti in questo ciclo in corso , ma a colpo .

credo ne arriveranno ancora.

basta avere un capogioco sicuro, in attesa a pochi colpi.
poi bisogna scegliere tra eventuali abbinamenti con presenze 0 o con presenze che piu' piacciono personalmenteed ultimo "" crederci "".

buona giornata
Clicca per espandere...
GRAZIE sig. Rubino per i complimenti , ma il merito è tutto Suo che mette a disposizione sia il Suo tempo che la Sua bravura.
cordiali saluti
 
SEGNALAZIONE:

a Milano a RT=14 è presente una intera cinquina sincrona

è al 84% dei casi favorevoli a questo RT
77.76.54.42.08

contiene l'estratto 08, soggetto di interesse ancora per atre uscite entro fine mese
 
Rubino ha scritto:
SEGNALAZIONE:

a Milano a RT=14 è presente una intera cinquina sincrona

è al 84% dei casi favorevoli a questo RT
77.76.54.42.08

contiene l'estratto 08, soggetto di interesse ancora per atre uscite entro fine mese
Clicca per espandere...
Grazie di queste informazioni, il 76 un buon numero, con il 9.
Provavo il 12 come ritardatario a tt e come abbinamenti lo script ridava il 28 e 19 , adesso rimescoliamo e.........
cordiali saluti
 
CAGLIARI dai cicli di massa dei 90 numeri

4 ambi interessanti che si devono agganciare al nr.85 a cagliari o Tutte le ruote, basta fare una scelta di gioco

ATTUALE RT = 4

estratto 85

abbinamenti 02 15 38 51

85 02 * 85 15 * 85 38 * 85 51
 
l'estratto 85 è rimasto assente anche in questo colpo di questa sera,
ora diventa importante,

credo cadrà a BARI/PALERMO nelle posizioni 2-5-4
 
l'estratto 02 non dovrebbe deludere, entro fine mese

è interessante per il differenziale a CAGLIARI/GENOVA
 
TORINO coppia di estratti 07 83

di somma 90 tipo L1 con vuoto numerico RT=0 NEL RANGE

la coppia si può tentare per estratto ed ambo, per qualche colpo.

poca concentrazione e scarsità di successi ultimamente.!!!
siete stati avvisati.

Rivolgetevi ai Professionisti del Lotto, io sono solamente un autodidatta dilettante.
 
ciao miaomiaomiciomicio


questi sono al Top delle mie previsioni, convergono con il tempo giusto per l'uscita da qualche parte
meritano senz'altro una giocata per alcuni colpi.

guarda queste 2 decine cosa contengono:

BARI 05 06 08 11 17 18 19 26 39 41 RC.21 RX 21 x estratto
firenze 50 53 56 63 68 72 74 83 84 87 RC.16 RX 16 x estratto

ANCHE SE I 2 AMBI DEVONO ESSERE GIOCATI SULLE 5 RUOTE LA COPERTURA PER TUTTE E' MEGLIO EFFETTUARLA
PER IL RECUPERO DI QUALCHE SPICCIOLO


BARI contiene l'ambo secco 08 11 uno degli ambi mancanti al top su 5 ruote fisse

MI | NA | RO | VE | NZ |​



FIRENZE contiene l'ambo secco 63 87 uno degli ambi mancanti al top su 5 ruote fisse

BA | CA | FI | MI | TO |​
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 novembre 2024
    Bari
    35
    16
    24
    41
    85
    Cagliari
    89
    30
    10
    81
    72
    Firenze
    38
    60
    16
    13
    28
    Genova
    52
    15
    80
    08
    53
    Milano
    33
    77
    06
    54
    73
    Napoli
    01
    50
    64
    35
    36
    Palermo
    02
    01
    19
    33
    62
    Roma
    33
    48
    72
    47
    68
    Torino
    62
    28
    18
    75
    31
    Venezia
    03
    54
    27
    14
    71
    Nazionale
    02
    44
    27
    86
    78
    Estrazione Simbolotto
    Torino
    30
    07
    39
    14
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto