Novità

X Rubino

C

chicco3

Advanced Member
Buongiorno Rubino visto che ne abbiamo già parlato sull'altro thread ti allego nr.formazioni dispari e da me ridotta per agganciare l'ambo a tutte.A me serve se possibile uno script dove posso inserire i numeri personali e riuscire a sapere quale ruote si potrà giocare quella cinquina oppure smistarla in ambo e verificare le ruote.Se c'è qualcosa chiedimi pure. Buona giornata chicco e, scusa se ho invaso l'altro thread.
 

Allegati

ciao chicco3

vorrei capire, per te cosa intendi sapere quale ruota si potrà giocare?

e

poi smistarla in ambo e verificare le ruote?

è un dato dell'analisi del passato delle estrazioni o è una fotografia ad oggi, quindi dati statistici.?
perchè in tal caso più del ritardo/massimo e frequenza non abbiamo per decidere la ruota che presupponiamo che sfaldi li l'ambo,
è sempre un dato teorico e ragionamento personale.

esempio: parziale

Codice: 
Chicco3-Lunghetta da Inserire
Verifica sulle 10  Ruote
Calcola Ritardi e Massimi per la sorte almeno dell'ambo
Situazione  all' estrazione n.9647/25.06.2019
Richiesto di calcolare per sorte  =  2
Inserita questa combinazione 3.33.49.53.63
Situazione statistica sulle 10 Ruote
BA  Rit.044   Rmx.210
CA  Rit.015   Rmx.276
FI  Rit.029   Rmx.164
GE  Rit.009   Rmx.245
MI  Rit.031   Rmx.311
NA  Rit.040   Rmx.144
PA  Rit.005   Rmx.220
RO  Rit.019   Rmx.228
TO  Rit.035   Rmx.322
VE  Rit.024   Rmx.215
TT  Rit.005   Rmx.032


se e questo quello che chiedi , anche ti sviluppo tutti gli ambi e  ricalcolo i ritardi sulle 10 ruote

[B][COLOR=#FF0000]ma non credo che e'  questa la tua richiesta

attendo tue risposte.[/COLOR][/B]


sono usciti 3 ambi ultimamente
NA 33 49
MI 03 63
PA 53 33
altrove sono usciti solo singoli numeri

Cattura1.GIF
 
Ultima modifica di un moderatore:
il ritardo di ruota, se è questo quello che intendi, parte da un presupposto di estrazioni precedenti con combinazioni diverse da esaminare ad ogni concorso, e di una certa quantità di estrazioni.

tu alleghi 2 combinazioni nate in due date diverse e numeri diversi, vanno bene,
ma sono a colpo? o in quanti colpi?

come le rilevi queste combinazioni?

hai un programma che te le calcola ad ogni estrazione?
le hai tutte su un file txt?
sono 100-200-1000 che ne so, di queste combinazioni?
 
Ultima modifica di un moderatore:
ciao chicco3

vedi se ti può servire, visto che tu lavori con DISPARI/PARI

Codice: 
Option Explicit
Sub Main
   '''rubino-Chicco3 Numeri tra le 10 ruote ad ogni estrazione
   Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
   Dim rr,pos,z,nu,ele1,ele2,bb,tipo
   Scrivi "Rileva Nr.ad ogni Estrazione tra le 10 Ruote i Numeri usciti o ripetuti ",1
   ColoreTesto(10)
   Scrivi "-- Ritardo di Ruota e' sinonimo di ritardo di colpo, piu ritardo significa piu prob.Teorica di quella Ruota sulle altre  ",1,,1,4
   Scrivi "-- Filtra Numeri Dispari o Pari a scelta ",1
   ColoreTesto(0)
   '''' trova i nr rimasti vergini o non usciti tra tutte le 10 ruote e listali
   '''' trova i nr.usciti e ripetuti tra le 10 ruote e listati
   tipo = InputBox("Scegli Dispari/Pari ",,"D")
   nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
   es = InputBox("dall Estraz.n.",,EstrazioneFin - 10)
   '''''
   For es = es + 1 To EstrazioneFin
      S = 0
      ReDim nr(90,2),NUMERI(60)
      For n = 1 To 90
         rit = EstrattoRitardo(11,n,3950,es)
         '''' dispari
         If dispari(n) = True And tipo = "D" Then
         nr(n,1) = rit
         nr(n,2) = n        
         If rit = 0  Then
            S = S + 1
            NUMERI(S) = Format2(n)
         End If
         End If
         ''''pari
         If pari(n) = True And tipo = "P" Then
         nr(n,1) = rit
         nr(n,2) = n        
         If rit = 0  Then
            S = S + 1
            NUMERI(S) = Format2(n)
         End If
         End If
      Next
      ''' provenienza ruota e posizione estratto
      ele1 = "":ele2 = ""
      ReDim prov(90,2)
      For rr = 1 To 10
         For pos = 1 To 5
            nu = Estratto(es,rr,pos)
            bb = ""
            For z = 1 To S
               If Int(nu) = Int(NUMERI(z)) Then
                  prov(z,1) = rr
                  prov(z,2) = pos
               Exit For
               End If
            Next
         Next
      Next
      ''' prepara per output 2 campi contenente la provenienza
      For bb = 1 To S
      ele1 = ele1 & SiglaRuota(prov(bb,1)) & " "
      ele2 = ele2 & " " & prov(bb,2) & " "
      Next
      '''
      Scrivi:ColoreTesto(2)
      Scrivi "Bepp-Chicco3-10",1
      ColoreTesto(2)
      Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1
      ColoreTesto(0)
      Scrivi "Nr. " & StringaNumeri(NUMERI,"-") & "    Tot.nr " & S,1
      Scrivi "Ru. " & ele1
      Scrivi "Pos " & ele2
      ColoreTesto(1)
      Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " dall estraz.successiva  " & es & " / " & DataEstrazione(es),1
      ColoreTesto(0)
      ReDim ruote(1)
      For h = 1 To 10
         ruote(1) = h
         c = 0
         '''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
         Scrivi SiglaRuota(h) &  "     " & retidestr & " colpo " & retidestr - es & "     " & retestratti & "  " & retesito,1
      Next
      Scrivi String(90,"*")
   Next
   ColoreTesto(0)
   Scrivi:Scrivi TempoTrascorso,1
End Sub
 
x rubino.jpg Ciao Rubino il tuo script è interessante ma sono troppi numeri non servono a me serve quello che ti ho descritto nell'immagine che ti allego. Ti ringrazio ciao chicco
 
Ultima modifica:
ti metto lo script

provalo e soprattutto controlla alcuni dati
poi se c'è qualcosa da sistemare perchè lo vuoi messo in altro modo, domani lo facciamo.

Codice: 
Option Explicit
Sub Main
   '''rubino-Chicco3  Numeri Ricerca Statistica sulle le 10 ruote
   Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
   Dim rr,pos,z,nu,bb,Classe,coltot,ele0,acol,ii,jj
   Dim numeri(90)
   ColoreTesto(10)
   Scrivi " - Rubino-Chicco3-8  ",1,,1,2
   Scrivi "Verifica Risultati di una lunghetta di Numeri Inserita a scelta Utente ",1,,1,4
   Scrivi "-- Idea Numeri Usciti e Ripetuti oppure Non usciti tra le 10 Ruote   ",1,,1,4
   ColoreTesto(0)
   '''' trova i nr rimasti vergini o non usciti tra tutte le 10 ruote e listali
   '''' trova i nr.usciti e ripetuti tra le 10 ruote e listati
   nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
   es = InputBox("dall Estraz.n.",,EstrazioneFin)
   Call ScegliNumeri(numeri)
   S = UBound(numeri)
   '''''
   '''''
   ReDim nr(90,2)
   For n = 1 To 90
      rit = EstrattoRitardo(11,n,3950,es)
      nr(n,1) = rit
      nr(n,2) = n
   Next
   ''' provenienza ruota e posizione estratto
   ele0 = ""
   ReDim prov(90,2)
   For rr = 1 To 10
      For pos = 1 To 5
         nu = Estratto(es,rr,pos)
         For z = 1 To S
            If Int(nu) = Int(numeri(z)) Then
               prov(z,1) = rr
               prov(z,2) = pos
               Exit For
            End If
         Next
      Next
   Next
   ''' prepara per output 2 campi contenente la provenienza
   For bb = 1 To S
      ele0 = ele0 & Format2(numeri(bb)) & "-"
   Next
   '''
   Scrivi
   ColoreTesto(2)
   Scrivi "Numeri Rilevati ed Inseriti nell estrazione " & es & " / " & DataEstrazione(es) & " attesi per l'Uscita su varie ruote ",1
   ColoreTesto(0)
   Scrivi "Nr. " & ele0 & "    Tot.nr " & S,1
   ColoreTesto(1)
   Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " dall estraz.successiva  " & es & " / " & DataEstrazione(es),1
   ColoreTesto(0)
   Scrivi "Ru      Attuale               Verifica Esito",1
   ReDim ruote(1)
   For h = 1 To 11
      ruote(1) = h
      c = 0
      '''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,EstrazioneFin)
      If retrit > 0 Then ColoreTesto(0) Else ColoreTesto(2) End If
      If c = 1 Then ColoreTesto(7)End If
      Scrivi SiglaRuota(h) & "    Rc." & FormattaStringa(retrit,"000") & " / Rx." & FormattaStringa(retritmax,"000") & "   Esito Estr.n.  " & retidestr & " colpo " & Format2(retidestr - es) & "     " & retestratti & "  " & retesito,1
   Next
   Scrivi String(90,"*")
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ColoreTesto(1)
   Scrivi:Scrivi " Sviluppa Ambi secchi -- Situazione a Estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
   ColoreTesto(0)
   Classe = 2
   coltot = InitSviluppoIntegrale(numeri,Classe)
   If coltot > 0 Then
      ''''
      Do While GetCombSviluppo(acol) = True
         ii = ii + 1
         Call Messaggio("Col.Tot. " & coltot & " / Int." & ii)
         If ScriptInterrotto Then Exit Do
         ''''
         ReDim ar(1)
         For jj = 1 To 11
            ar(1) = jj
            Call StatisticaFormazioneTurbo(acol,ar,2,retrit,retritmax,,retfre,3950,EstrazioneFin)
            Scrivi SiglaRuota(jj) & "  Ambo." & StringaNumeri(acol,".") & "  Rc." & FormattaStringa(retrit,"0000") & "  Rx." & FormattaStringa(retritmax,"0000") & "  Fr." & FormattaStringa(retfre,"0000"),1
         Next
         Scrivi "---------------",1
         '''''
      Loop
   End If
   ''''''''''''
   ColoreTesto(0)
   Scrivi:Scrivi TempoTrascorso,1
End Sub
 
Ciao Rubino lo script è ottimo, manca qualcosa appena lo controllo per bene ti faccio sapere, per il momento ti ringrazio.Ciao chicco
 
Buon giorno ....per Rubino e Chicco.......io vi ho seguito in questo magnifico lavoro che avete fatto ........Vi chiedo cortesemente se mi potete aiutare a capire ...come interpretare al meglio lo script e come individuare eventuali ruote di gioco.......scrivo un esempio.......
Estrazione di gioco 11/giugno 2019 inserisco per la ricerca questi sei numeri 1--26--45-46---71 ---90-
questi numeri io li vorrei giocare per la sorte di ambo per le ruote di TORINO E VENEZIA
-- lo script mi da una serie di informazioni......secondo voi...quale parametro dovrei seguire ....
Per poter individuare uno o due AMBI SECCHI DA GIOCARE IN QUESTE DUE RUOTE?
Se non sono stato chiaro posso inserire altre estrazioni con altri numeri .....
Per Rubino..ho letto che devi andare in ferie.....se non puoi rispondere ..aspetto che rientri
Per Chicco.....se ti va possiamo approfondire...meglio ..la ricerca che sto facendo...
Saluti
Serpico...
 
Per Rubino..il creatore dello script di cui sopra.....per cortesia sarebbe possibile...colorare in ROSSO tutti gli ambi che hanno lo stesso RC e RX ....UGUALI?
Faccio sempre esempio per essere piu chiaro:
sempre estrazione dell11.06/2019 inserisco i numeri 01.--26--45---46---71---90-----
vedi FIRENZE AMBO 1--90---- RC.1338-----RX 1338-----
NAPOLI AMBO 26-45....RC..1421....RX....1421....
TORINO....AMBO ..45--71...RC.1342....RX...1342.....
Ecco questo un esempio evidentemente ,,lo script dovra colorare di rosso ..man mano che si verificano anche con gli altri numeri e con le altre estrazioni....IN SOSTANZA PER ME (che ho poca vistA) è UN MODO PER INDIVIDUARE GLI AMBI CHE HANNO QUESTE CARATTERISTICHE...E POI VEDERE COSA SUCCEDE.
Rubino ti chiedo ancora una volta per cortesia se mi puoi ACCONTENTARE ..
Sempre saluti
Serpico
 
Ciao Serpico ottima intuizione. Mi sembra che Rubino è andato in ferie è per questo motivo che non ti risponde. Ciao chicco
 
Ciao Serpico a me va bene collaborare per una eventuale e, clamoroso successo di arrivare non dico tutte le estrazioni ma almeno 2 o 3 ambi al mese.Attualmente solo per poco non riesco a beccare la ruota ma su tutte si riesce a portare a casa solo le spese. Questo è un metodo che lo stò testando da un mese quindi il problema sono proprio le ruote essendo che colpisce al primo o al massimo secondo colpo.Staremo a vedere comunque se qualcuno si vuole unire per un eventuale verifica è bene accetto. Ciao chicco
 
Ciao Rubino.......spero che al tuo ritorno ........potrai esaudire la mia richiesta credo che per te sia una cosa semplice da fare
ti saluto
Serpico
 
Codice: 
Option Explicit
Sub Main
   '''rubino-Chicco3  Numeri Ricerca Statistica sulle le 10 ruote
   Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
   Dim rr,pos,z,nu,bb,Classe,coltot,ele0,acol,ii,jj,vuoi,ctr
   Dim numeri(90)
   ColoreTesto(10)
   Scrivi " - Rubino-Chicco3-8  ",1,,2,5
   Scrivi "Verifica Risultati di una lunghetta di Numeri Inserita a scelta Utente ",1,,1,4
   Scrivi "-- Idea Numeri Usciti e Ripetuti oppure Non usciti tra le 10 Ruote   ",1,,1,4
   ColoreTesto(0)
   '''' trova i nr rimasti vergini o non usciti tra tutte le 10 ruote e listali
   '''' trova i nr.usciti e ripetuti tra le 10 ruote e listati
   nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
   es = InputBox("dall Estraz.n.",,EstrazioneFin)
   vuoi = InputBox("Vuoi elenco solo Ambi (Rc >= Rmax)  S/N ",,"N")
   Call ScegliNumeri(numeri)
   S = UBound(numeri)
   '''''
   '''''
   ReDim nr(90,2)
   For n = 1 To 90
      rit = EstrattoRitardo(11,n,3950,es)
      nr(n,1) = rit
      nr(n,2) = n
   Next
   ''' provenienza ruota e posizione estratto
   ele0 = ""
   ReDim prov(90,2)
   For rr = 1 To 10
      For pos = 1 To 5
         nu = Estratto(es,rr,pos)
         For z = 1 To S
            If Int(nu) = Int(numeri(z)) Then
               prov(z,1) = rr
               prov(z,2) = pos
               Exit For
            End If
         Next
      Next
   Next
   ''' prepara per output 2 campi contenente la provenienza
   For bb = 1 To S
      ele0 = ele0 & Format2(numeri(bb)) & "-"
   Next
   '''
   Scrivi
   ColoreTesto(2)
   Scrivi "Numeri Rilevati ed Inseriti nell estrazione " & es & " / " & DataEstrazione(es) & " attesi per l'Uscita su varie ruote ",1
   ColoreTesto(0)
   Scrivi "Nr. " & ele0 & "    Tot.nr " & S,1
   ColoreTesto(1)
   Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " dall estraz.successiva  " & es & " / " & DataEstrazione(es),1
   ColoreTesto(0)
   Scrivi "Ru      Attuale               Verifica Esito",1
   ReDim ruote(1)
   For h = 1 To 11
      ruote(1) = h
      c = 0
      '''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,EstrazioneFin)
      If retrit > 0 Then ColoreTesto(0) Else ColoreTesto(1) End If
      If c = 1 Then ColoreTesto(11)End If
          Scrivi SiglaRuota(h) & "    Rc." & FormattaStringa(retrit,"000") & " / Rx." & FormattaStringa(retritmax,"000") & "   Esito Estr.n.  " & retidestr & " colpo " & Format2(retidestr - es) & "     " & retestratti & "  " & retesito,1
   Next
   Scrivi String(90,"*")
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ColoreTesto(1)
   Scrivi:Scrivi " Sviluppa Ambi secchi -- Situazione a Estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
   Scrivi "Elenco AMBI solo con RC >= Rmax   ( S/N )...scelto " & vuoi,1
   ColoreTesto(0)
   Classe = 2
   coltot = InitSviluppoIntegrale(numeri,Classe)
   If coltot > 0 Then
      ''''
      Do While GetCombSviluppo(acol) = True
         ii = ii + 1
         Call Messaggio("Col.Tot. " & coltot & " / Int." & ii)
         If ScriptInterrotto Then Exit Do
         ''''
         ReDim ar(1)
         For jj = 1 To 11
            ar(1) = jj
            Call StatisticaFormazioneTurbo(acol,ar,2,retrit,retritmax,,retfre,3950,EstrazioneFin)
            If retrit >= retritmax Then
               ColoreTesto(2)
            Else
               ColoreTesto(0)
            End If
               If retrit >= retritmax And vuoi ="S" Then
               ctr = 1
                  Scrivi SiglaRuota(jj) & "  Ambo." & Format2(acol(1)) & "." & Format2(acol(2))  & "    Rc." & FormattaStringa(retrit,"0000") & "  Rx." & FormattaStringa(retritmax,"0000") & "  Fr." & FormattaStringa(retfre,"0000"),1
               End If
             If vuoi = "N"  Then
               Scrivi SiglaRuota(jj) & "  Ambo." & Format2(acol(1)) & "." & Format2(acol(2)) & "    Rc." & FormattaStringa(retrit,"0000") & "  Rx." & FormattaStringa(retritmax,"0000") & "  Fr." & FormattaStringa(retfre,"0000"),1
            End If
         Next
        If ctr = 0 Then Scrivi "---------------",1
         '''''
      Loop
   End If
   ''''''''''''
   ColoreTesto(0)
   Scrivi:Scrivi TempoTrascorso,1
End Sub
 
Grazie Rubino x lo script x Serpico non è semplice individuare la ruota o ruote. Ti faccio un esempio ieri avevo su tutte la lunghetta 8.62.72.63.75.79 come prova, di questi numeri secondo me i migliori in uscita sono 62 e 63 su tutte sono in equilibrio ciclico.Di questi numeri bisogna individuare la ruota di uscita e abbinargli i rimanenti. Nella speranza che si abbinano.Saluto chicco
 
Ciao Chicco.....io sto lavorando con massimo 6 numeri.....o addirittura con 4....sempre ringraziando Rubino che gentilmente anche se in ferie è stato cosi gentile da fare la modifica ....quindi ora comincio a fare le prove ...a ritroso delle mie previsioni e quindi devo vedere come poter sfruttare al meglio questo script.
ho inserito i numeri che hai gentilmente indicato.................queste potrebbero essere alcune indicazioni che per ora io ti invito a NON GIOCARE perchè siamo in fase di studio.....
SI DEVONO SOLTANTO SEGUIRE NELLA LORO EVOLUZIONE
MILANO....63.75
PALERMO 63.75
MILANO 72.79
NAPOLI 63.79

PER TUTTE LE RUOTE 62.79
PER TUTTE LE RUOTE 8.72
.......SOLO SEGUIRE PER ORA NON GIOCARE....
Io per motivi di famiglia......devo andare fuori sede......appena rientro mi collego e ci aggiorniamo...con lo studio e le prove su questo script.
Al piacere di rileggerti
Saluti
Serrpico
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto