Novità

Di tutto e un po, sistemi lotto e altro

R

Rubino

Guest
sono usciti a colpo

14 39 59 tre punti al 10 e lotto su cinquina che erano abbinamento al 19





ripetere il 19 con gli abbinamenti attesi

Ciclo In corso dal conc. 9759 al conc.9771 Durata attuale 12
Pr. 00 QtNr.03 Comb.19.37.74.

Pr. QtAbb. Comb.
00 05 14.39.59.84.90.
 
Ultima modifica di un moderatore:
edesimone

edesimone

Advanced Member >PLATINUM<
Rubino
10 e lotto per questa sera

io provo con le pr 6 volte 34 78, e 7 volte 20 86 con il fisso 19
19 78 86
19 20 86
19 20 34 78
19 34 78 86
 
R

Rubino

Guest
per curiosita di osservazione della figura 9, che esce spesso
tre ambi a TUTTE
09 18 e 09 63 e 36 73

figura 7 con
16 25 e 16 43
 
R

Rubino

Guest
Riferimenti per i miei prossimi concorsi sono : cap. 17 22 30


oppure figura 6 sulla ruota di ROMA
3 ambi tutte e perchè no ache a ROMA
42 69 * 05 42 * 68 42
 
Ultima modifica di un moderatore:
R

Rubino

Guest
prova per questa sera, solo a colpo.

Simulazione Venus

MILANO/TUTTE 50 23 17 87 75
 
cutoff

cutoff

Advanced Member >PLATINUM<
Su tutte si potrebbe usare il 17 ritardatario, ma se non sono cieco, non ne' vedo col 17:oops: e nemmeno col 37(per Bari)
 
Ultima modifica:
edesimone

edesimone

Advanced Member >PLATINUM<
Io proverei con il 22, questi i terni per tutte.
21 22 39
21 22 42
21 22 52
22 39 42
22 39 52
22 42 52
 
M

miaomiaomiciomicio

Member
Ciao Rubino! Io credo nel 37-52-58 che sto anche giocando su più ruote, preferita Bari, altri Terni sempre con 52-58 ma la mia non iè statistica seguo le convergenze di diversi esperti del lotto, io sono solo un appassionato del lotto. Comunque speriamo di vincere
 
P

pigano65

Member
edesimone ha scritto:
se metti ciclo 100 al posto del 90, mi segnala un bel 59 da abbinare con il 19,37
Dal momento che il 19 è atteso al lotto, lo vedrei sulla ruota di roma 19,59 mettendoci anche 37
Clicca per espandere...
Rubino ha scritto:
ho ritagliato un pezzo di un mio script, che pubblico per chi è interessato a capire qualcosa e a partecipare in qualcosa



richiesta elaborazione estrazione n. 9700 x il capo gioco 57

Vedi l'allegato 2197931
Clicca per espandere...
Buongiorno sig Rubino
per delle prove ,ho usato lo script di cui sopra, che Lei ha messo gentilmente a disposizione . Chiedo, se è possibile e se Vuole, di poter avere la possibilità di un inserimento manuale ,di propri numeri e di quantita voluta.
Esempio, attualmente il ciclo si conclude con la uscita di tutti e 90 numeri e poi fa statistica. Se fosse possibile inserire una trentina di numeri scelti con il ciclo che si concluda alla uscita dei numeri selezionati. Poi ripartire con un nuovo ciclo rispettando tutto il ragionamento che ha dato a questo bellissimo script.
Mi scuso se ho disturbato e la ringrazio anticipatamente per ogni Sua
eventuale decisione.
Cordiali saluti
 
lotto_tom75

lotto_tom75

Advanced Premium Member
Ho provato velocemente a fare la modifica che hai richiesto con l'inserimento della tabella colorata per l'inserimento dei numeri voluti. Controlla insieme a Rubino se non vi sono errori di output o quant altro però. Ciao

Sotto in rosso vi ho evidenziato le poche righe di code modificate per una vostra rapida disamina/verifica di funzionamento.

Codice: 
Option Explicit
Sub Main
   '''Ghio-Evol-Rubino2 "
   Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
   Dim bi,kk,jj,Ini,last,xyz,colonne,Scolonna,kw,jw,a,b,esf,ru,po,ctz,xx,ww
   Dim art(10),provenrif(10,5,1),ambipos(4950,3)
   Scrivi "Ghio-Evol-Rubino2 ",1,2,4
   Scrivi "Rileva i 50 numeri di Estrazione nelle 10 Ruote",1
   Scrivi "-- Verifica Numeri Usciti e Ripetuti nelle 10 Ruote",1
   Scrivi "-- Verifica Ambi/terni/quaterne/cinquine Uscite e provenienza dalla Ruota e posizione ",1
   Scrivi "-- Calcola Ritardo a Tutte ed a Ruota dei singoli Estratti Usciti ",1
   ''''
   nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
   esf = InputBox("dall Estraz.n.",,EstrazioneFin)
   es = esf - 50
   Ini = es
   For jj = 1 To 10
      art(jj) = jj
   Next
   '''''
   '''''
   '''carica arrays sequenza numeri estratti nell'ultima estrazione
   ReDim linea(50),listapos(50)
   For ru = 1 To 10
      For po = 1 To 5
         ctz = ctz + 1
         linea(ctz) = Format2(Estratto(esf,ru,po))
         listapos(ctz) = Format2(ctz)
      Next
   Next

      Dim NUMERIscelti
      Dim anum

      NUMERIscelti = ScegliNumeri(anum)

      For es = es + 1 To EstrazioneFin
      S = 0


      ReDim nr(90,2),NUMERI(60),anrpo(10)

      'ReDim




      For n = 1 To UBound(anum)
         rit = EstrattoRitardo(11,n,3950,es)
         nr(n,1) = rit
         nr(n,2) = n
         If rit = 0 Then
            S = S + 1
            NUMERI(S) = n
         End If
       Next


'
'      For n = 1 To 90
'         rit = EstrattoRitardo(11,n,3950,es)
'         nr(n,1) = rit
'         nr(n,2) = n
'         If rit = 0 Then
'            S = S + 1
'            NUMERI(S) = n
'         End If
'       Next
'
      '''
      Scrivi:ColoreTesto(2)
      Scrivi "Rubino-Ghio-Evol Verifica Lunghette nelle Ripetizioni Immediate ",1,,7,5
      ColoreTesto(0)
      Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1
      If es = EstrazioneFin Then
         Scrivi "Sq.Posizioni " & GetTestoHtml(StringaNumeri(listapos," "),True,vbBlack,5,1)
         Scrivi "Nr.Sequenza  " & GetTestoHtml(StringaNumeri(linea," "),True,vbRed,5,1)
         Scrivi "Nr.Ordinati  " & GetTestoHtml(StringaNumeri(NUMERI,"-"),True,vbBlue,5,1) & " Tot.nr " & S,1
      End If
      ColoreTesto(1)
      ''''
      If es + 1 <= EstrazioneFin Then
         Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " minima dall estraz. " & es + 1 & " / " & DataEstrazione(es + 1),1
         ColoreTesto(0)
         ReDim ruote(1)
         For h = 1 To 10
            ruote(1) = h
            c = 0
            ReDim anrpo(10)
            '''verifica esito al colpo successivo
            Call VerificaEsitoTurbo(NUMERI,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr)
            '''''se negativo prova per più colpi
            If retestratti = "" Then
               retesito = " Neg.InCorso <<"
               Call VerificaEsitoTurbo(NUMERI,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr)
               If retestratti = "" Then
                  retesito = " Neg.InCorso <<"
                  retidestr = EstrazioneFin
                  c = 1
               End If
            End If
            Call StatisticaFormazioneTurbo(NUMERI,ruote,2,retrit,retritmax,,retfre,3950,retidestr)
            If retrit > 0 Then ColoreTesto(2) Else ColoreTesto(0) End If
            If c = 1 Then ColoreTesto(7)End If
            '''''''''''''''''''
            If es <= EstrazioneFin Then
               last = retidestr
               xyz = 0
               If retesito <> " Neg.InCorso <<" Then Call Provenienza(es,NUMERI,S,retestratti,last,provenrif,anrpo,xyz)
               '''''''''''''''''''
               '''sviluppo combinazione delle posizioni
               ReDim nm(xyz)
               If xyz = 2 Then
                  nm(1) = anrpo(1)
                  nm(2) = anrpo(2)
                  '' Scrivi StringaNumeri(nm,".")
                  ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
                  ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
                  ambipos(Format2(nm(1)) & Format2(nm(2)),3) = retidestr
               End If
               If xyz > 2 Then
                  colonne = 0
                  colonne = SviluppoIntegrale(anrpo,2)
                  For kw = 1 To UBound(colonne)
                     Scolonna = ""
                     If ScriptInterrotto Then Exit For
                     For jw = 1 To 2
                        Scolonna = Scolonna & Format2(colonne(kw,jw)) & " "
                        nm(jw) = colonne(kw,jw)
                     Next
                     '' Scrivi StringaNumeri(nm,".")
                     ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
                     ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
                     ambipos(Format2(nm(1)) & Format2(nm(2)),3) = retidestr
                  Next
               End If
               '''''''''''''''''''
               Scrivi SiglaRuota(h) & " ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & " " & retidestr & " colpo " & retidestr - es & " " & retestratti & " " & retesito & " Key.Pos." & StringaNumeri(anrpo,"-"),1
               Call calcolapresenzeposizioni(anrpo,ambipos,xyz)
               Scrivi String(90,"*"):Scrivi
            End If
         Next
         Scrivi String(90,"*")
      End If
   Next
   ColoreTesto(0)
   Scrivi:Scrivi "Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo",1
   Scrivi "Periodo : da " & Ini & " / " & DataEstrazione(Ini) & " a " & esf & " / " & DataEstrazione(esf),1
   Call OrdinaMatrice(ambipos,- 1,1)
   For a = 1 To 49
      For b = a + 1 To 50
         If ambipos(Format2(a) & Format2(b),1) > 0 Then
            xx = Left(ambipos(Format2(a) & Format2(b),2),2)
            ww = Right(ambipos(Format2(a) & Format2(b),2),2)
            Scrivi ambipos(Format2(a) & Format2(b),2) & " Pres." & ambipos(Format2(a) & Format2(b),1) & "   Rc. " & FormattaStringa(esf - ambipos(Format2(a) & Format2(b),3),"000") & "    Ambo Decod. " & GetTestoHtml(linea(Format2(xx)) & "." & linea(Format2(ww)),True,vbRed)
         End If
      Next
   Next
   Scrivi:Scrivi TempoTrascorso,1
End Sub
Function Provenienza(es,numeri,s,retestratti,last,provenrif,anrpo,xyz)
   Dim rr,pp,MatriceEstrRitorno,ff,bi,kk,jj,rittt,ritru,progp
   Dim num(5)
   bi = 4 : kk = 0
   For jj = 1 To 5
      If Mid(retestratti,bi,2) <> ".." Then
         kk = kk + 1
         num(kk) = Mid(retestratti,bi,2)
      End If
      bi = bi + 3
   Next
   ColoreTesto(2)
   Scrivi "Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) " & es & " " & StringaNumeri(num,"-"),1
   ColoreTesto(0)
   '''provenienza estratti
   Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
   progp = 0 : xyz = 0
   For rr = 1 To 10
      For pp = 1 To 5
         progp = progp + 1
         For ff = 1 To kk
            If MatriceEstrRitorno(rr,pp) = Int(num(ff)) Then
               xyz = xyz + 1
               anrpo(xyz) = progp
               provenrif(rr,pp,1) = num(ff)
               rittt = EstrattoRitardoTurbo(11,num(ff),es - 35,last - 1)
               ritru = EstrattoRitardoTurbo(rr,num(ff),es - 300,last - 1)
               Scrivi es & "....." & SiglaRuota(rr) & " Pos. " & pp & " = " & Format2(num(ff)) & "== Pos.Prog." & Format2(progp) & " " & Format2(MatriceEstrRitorno(rr,pp)) & " Rit.TT " & rittt & " Rit.Ruota " & ritru,1,,,10
               ColoreTesto(0)
            End If
         Next
      Next
   Next
End Function
Function calcolapresenzeposizioni(anrpo,ambipos,xyz)
   Scrivi "Sviluppo Posizioni " & StringaNumeri(anrpo,"/") & " Tot.P." & xyz
End Function


Righe modificate

Dim NUMERIscelti
Dim anum

NUMERIscelti = ScegliNumeri(anum)

For es = es + 1 To EstrazioneFin
S = 0

ReDim nr(90,2),NUMERI(60),anrpo(10)
'ReDim

For n = 1 To UBound(anum)
rit = EstrattoRitardo(11,n,3950,es)
nr(n,1) = rit
nr(n,2) = n
If rit = 0 Then
S = S + 1
NUMERI(S) = n
End If
Next

' For n = 1 To 90
' rit = EstrattoRitardo(11,n,3950,es)
' nr(n,1) = rit
' nr(n,2) = n
' If rit = 0 Then
' S = S + 1
' NUMERI(S) = n
' End If
' Next
 
Ultima modifica:
P

pigano65

Member
lotto_tom75 ha scritto:
Ho provato velocemente a fare la modifica che hai richiesto con l'inserimento della tabella colorata per l'inserimento dei numeri voluti. Controlla insieme a Rubino se non vi sono errori di output o quant altro però. Ciao

Sotto in rosso vi ho evidenziato le poche righe di code modificate per una vostra rapida disamina/verifica di funzionamento.

Codice: 
Option Explicit
Sub Main
   '''Ghio-Evol-Rubino2 "
   Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
   Dim bi,kk,jj,Ini,last,xyz,colonne,Scolonna,kw,jw,a,b,esf,ru,po,ctz,xx,ww
   Dim art(10),provenrif(10,5,1),ambipos(4950,3)
   Scrivi "Ghio-Evol-Rubino2 ",1,2,4
   Scrivi "Rileva i 50 numeri di Estrazione nelle 10 Ruote",1
   Scrivi "-- Verifica Numeri Usciti e Ripetuti nelle 10 Ruote",1
   Scrivi "-- Verifica Ambi/terni/quaterne/cinquine Uscite e provenienza dalla Ruota e posizione ",1
   Scrivi "-- Calcola Ritardo a Tutte ed a Ruota dei singoli Estratti Usciti ",1
   ''''
   nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
   esf = InputBox("dall Estraz.n.",,EstrazioneFin)
   es = esf - 50
   Ini = es
   For jj = 1 To 10
      art(jj) = jj
   Next
   '''''
   '''''
   '''carica arrays sequenza numeri estratti nell'ultima estrazione
   ReDim linea(50),listapos(50)
   For ru = 1 To 10
      For po = 1 To 5
         ctz = ctz + 1
         linea(ctz) = Format2(Estratto(esf,ru,po))
         listapos(ctz) = Format2(ctz)
      Next
   Next

      Dim NUMERIscelti
      Dim anum

      NUMERIscelti = ScegliNumeri(anum)

      For es = es + 1 To EstrazioneFin
      S = 0


      ReDim nr(90,2),NUMERI(60),anrpo(10)

      'ReDim




      For n = 1 To UBound(anum)
         rit = EstrattoRitardo(11,n,3950,es)
         nr(n,1) = rit
         nr(n,2) = n
         If rit = 0 Then
            S = S + 1
            NUMERI(S) = n
         End If
       Next


'
'      For n = 1 To 90
'         rit = EstrattoRitardo(11,n,3950,es)
'         nr(n,1) = rit
'         nr(n,2) = n
'         If rit = 0 Then
'            S = S + 1
'            NUMERI(S) = n
'         End If
'       Next
'
      '''
      Scrivi:ColoreTesto(2)
      Scrivi "Rubino-Ghio-Evol Verifica Lunghette nelle Ripetizioni Immediate ",1,,7,5
      ColoreTesto(0)
      Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1
      If es = EstrazioneFin Then
         Scrivi "Sq.Posizioni " & GetTestoHtml(StringaNumeri(listapos," "),True,vbBlack,5,1)
         Scrivi "Nr.Sequenza  " & GetTestoHtml(StringaNumeri(linea," "),True,vbRed,5,1)
         Scrivi "Nr.Ordinati  " & GetTestoHtml(StringaNumeri(NUMERI,"-"),True,vbBlue,5,1) & " Tot.nr " & S,1
      End If
      ColoreTesto(1)
      ''''
      If es + 1 <= EstrazioneFin Then
         Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " minima dall estraz. " & es + 1 & " / " & DataEstrazione(es + 1),1
         ColoreTesto(0)
         ReDim ruote(1)
         For h = 1 To 10
            ruote(1) = h
            c = 0
            ReDim anrpo(10)
            '''verifica esito al colpo successivo
            Call VerificaEsitoTurbo(NUMERI,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr)
            '''''se negativo prova per più colpi
            If retestratti = "" Then
               retesito = " Neg.InCorso <<"
               Call VerificaEsitoTurbo(NUMERI,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr)
               If retestratti = "" Then
                  retesito = " Neg.InCorso <<"
                  retidestr = EstrazioneFin
                  c = 1
               End If
            End If
            Call StatisticaFormazioneTurbo(NUMERI,ruote,2,retrit,retritmax,,retfre,3950,retidestr)
            If retrit > 0 Then ColoreTesto(2) Else ColoreTesto(0) End If
            If c = 1 Then ColoreTesto(7)End If
            '''''''''''''''''''
            If es <= EstrazioneFin Then
               last = retidestr
               xyz = 0
               If retesito <> " Neg.InCorso <<" Then Call Provenienza(es,NUMERI,S,retestratti,last,provenrif,anrpo,xyz)
               '''''''''''''''''''
               '''sviluppo combinazione delle posizioni
               ReDim nm(xyz)
               If xyz = 2 Then
                  nm(1) = anrpo(1)
                  nm(2) = anrpo(2)
                  '' Scrivi StringaNumeri(nm,".")
                  ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
                  ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
                  ambipos(Format2(nm(1)) & Format2(nm(2)),3) = retidestr
               End If
               If xyz > 2 Then
                  colonne = 0
                  colonne = SviluppoIntegrale(anrpo,2)
                  For kw = 1 To UBound(colonne)
                     Scolonna = ""
                     If ScriptInterrotto Then Exit For
                     For jw = 1 To 2
                        Scolonna = Scolonna & Format2(colonne(kw,jw)) & " "
                        nm(jw) = colonne(kw,jw)
                     Next
                     '' Scrivi StringaNumeri(nm,".")
                     ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
                     ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
                     ambipos(Format2(nm(1)) & Format2(nm(2)),3) = retidestr
                  Next
               End If
               '''''''''''''''''''
               Scrivi SiglaRuota(h) & " ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & " " & retidestr & " colpo " & retidestr - es & " " & retestratti & " " & retesito & " Key.Pos." & StringaNumeri(anrpo,"-"),1
               Call calcolapresenzeposizioni(anrpo,ambipos,xyz)
               Scrivi String(90,"*"):Scrivi
            End If
         Next
         Scrivi String(90,"*")
      End If
   Next
   ColoreTesto(0)
   Scrivi:Scrivi "Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo",1
   Scrivi "Periodo : da " & Ini & " / " & DataEstrazione(Ini) & " a " & esf & " / " & DataEstrazione(esf),1
   Call OrdinaMatrice(ambipos,- 1,1)
   For a = 1 To 49
      For b = a + 1 To 50
         If ambipos(Format2(a) & Format2(b),1) > 0 Then
            xx = Left(ambipos(Format2(a) & Format2(b),2),2)
            ww = Right(ambipos(Format2(a) & Format2(b),2),2)
            Scrivi ambipos(Format2(a) & Format2(b),2) & " Pres." & ambipos(Format2(a) & Format2(b),1) & "   Rc. " & FormattaStringa(esf - ambipos(Format2(a) & Format2(b),3),"000") & "    Ambo Decod. " & GetTestoHtml(linea(Format2(xx)) & "." & linea(Format2(ww)),True,vbRed)
         End If
      Next
   Next
   Scrivi:Scrivi TempoTrascorso,1
End Sub
Function Provenienza(es,numeri,s,retestratti,last,provenrif,anrpo,xyz)
   Dim rr,pp,MatriceEstrRitorno,ff,bi,kk,jj,rittt,ritru,progp
   Dim num(5)
   bi = 4 : kk = 0
   For jj = 1 To 5
      If Mid(retestratti,bi,2) <> ".." Then
         kk = kk + 1
         num(kk) = Mid(retestratti,bi,2)
      End If
      bi = bi + 3
   Next
   ColoreTesto(2)
   Scrivi "Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) " & es & " " & StringaNumeri(num,"-"),1
   ColoreTesto(0)
   '''provenienza estratti
   Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
   progp = 0 : xyz = 0
   For rr = 1 To 10
      For pp = 1 To 5
         progp = progp + 1
         For ff = 1 To kk
            If MatriceEstrRitorno(rr,pp) = Int(num(ff)) Then
               xyz = xyz + 1
               anrpo(xyz) = progp
               provenrif(rr,pp,1) = num(ff)
               rittt = EstrattoRitardoTurbo(11,num(ff),es - 35,last - 1)
               ritru = EstrattoRitardoTurbo(rr,num(ff),es - 300,last - 1)
               Scrivi es & "....." & SiglaRuota(rr) & " Pos. " & pp & " = " & Format2(num(ff)) & "== Pos.Prog." & Format2(progp) & " " & Format2(MatriceEstrRitorno(rr,pp)) & " Rit.TT " & rittt & " Rit.Ruota " & ritru,1,,,10
               ColoreTesto(0)
            End If
         Next
      Next
   Next
End Function
Function calcolapresenzeposizioni(anrpo,ambipos,xyz)
   Scrivi "Sviluppo Posizioni " & StringaNumeri(anrpo,"/") & " Tot.P." & xyz
End Function


Righe modificate

Dim NUMERIscelti
Dim anum

NUMERIscelti = ScegliNumeri(anum)

For es = es + 1 To EstrazioneFin
S = 0

ReDim nr(90,2),NUMERI(60),anrpo(10)
'ReDim

For n = 1 To UBound(anum)
rit = EstrattoRitardo(11,n,3950,es)
nr(n,1) = rit
nr(n,2) = n
If rit = 0 Then
S = S + 1
NUMERI(S) = n
End If
Next

' For n = 1 To 90
' rit = EstrattoRitardo(11,n,3950,es)
' nr(n,1) = rit
' nr(n,2) = n
' If rit = 0 Then
' S = S + 1
' NUMERI(S) = n
' End If
' Next
Clicca per espandere...
Sig Lotto_tom75 La ringrazio per la celere risposta e chiedo scusa se mi sono espresso male e di averLe fatto perdere tempo, in quanto intendevo la modifica allo scriptbozza1 del sig. Rubino al #16 di pag1
mi scuso ancora
cordiali saluti
 
R

Rubino

Guest
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
 
Ultima modifica di un moderatore:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

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

Ultimi Messaggi

Alto