Buongiorno sig Rubino, attendere non è un problema e la settimana prossima cerco di chiarire meglio il concetto.
La ringrazio di avermi risposto.
cordiali saluti
Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. .
Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
La ringrazio di avermi risposto.
cordiali saluti
R
Rubino
Guest
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' 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]
''' 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:
R
Rubino
Guest
eccolo questa sera 52 58 TUTTE/CAGLIARI..
miaomiaomiciomicio
Member
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
R
Rubino
Guest
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
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:
R
Rubino
Guest
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
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
R
Rubino
Guest
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.
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.
Buon pomeriggio sig RubinoX 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
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
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
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
R
Rubino
Guest
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
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
GRAZIE sig. Rubino per i complimenti , ma il merito è tutto Suo che mette a disposizione sia il Suo tempo che la Sua bravura.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
cordiali saluti
R
Rubino
Guest
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
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
Grazie di queste informazioni, il 76 un buon numero, con il 9.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
Provavo il 12 come ritardatario a tt e come abbinamenti lo script ridava il 28 e 19 , adesso rimescoliamo e.........
cordiali saluti
R
Rubino
Guest
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
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
R
Rubino
Guest
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
ora diventa importante,
credo cadrà a BARI/PALERMO nelle posizioni 2-5-4
R
Rubino
Guest
l'estratto 02 non dovrebbe deludere, entro fine mese
è interessante per il differenziale a CAGLIARI/GENOVA
è interessante per il differenziale a CAGLIARI/GENOVA
R
Rubino
Guest
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.
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.
R
Rubino
Guest
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
FIRENZE contiene l'ambo secco 63 87 uno degli ambi mancanti al top su 5 ruote fisse
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 | |
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 18 aprile 2024Bari1339147078Cagliari6765038763Firenze8590196778Genova6081393313Milano9001831188Napoli1812802919Palermo5083402412Roma7448756537Torino8046442730Venezia7016720389Nazionale8922068713Estrazione Simbolotto
Genova
2821432517
