Richiesta script sulla frequenza 4

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Richiesta script sulla frequenza 4

Messaggio da SeeLe8 » 21/09/2014, 20:39

Ci ho provato, ma non ci riesco,
avrei bisogno di uno script che mi trovi un numero ripetuto almeno 4 (o più) volte nella stessa estrazione
trovata la condizione si metteranno in gioco 2 ambi su tutte/naz

n° ripetuto - n° ripetuto -1 (ambo principale)
n° ripetuto - n° ripetuto +1 (ambo secondario)

esempio
21 agosto
il 48 si ripete sulle ruote di CA-FI-GE-VE

ambi in gioco
48.47
48.49

al 2° colpo 48.47 a BA
al 9° colpo 48.49 a FI


Se nell'estrazione di rilevamento è presente uno dei due ambi... faccio l'esempio:

2 settembre: il 21 si ripete su CA-FI-MI-PA
solo che a Ca è presente l'ambo 21.20

allora si gioca
21.19
21.22

21.19 è uscito al 4° colpo a PA


GRAZIEEEEEEEEEEEEEEEEEEE

:abb:
Ultima modifica di SeeLe8 il 21/09/2014, 20:55, modificato 5 volte in totale.
Immagine

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script sulla frequenza 4

Messaggio da SeeLe8 » 22/09/2014, 21:21

intanto posto una previsione da questo metodo

MILANO - TUTTE
ambo 38.39


:band:
Immagine

Avatar utente
DjNomade
Messaggi: 584
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Richiesta script sulla frequenza 4

Messaggio da DjNomade » 23/09/2014, 23:41

Ho messo mano ad uno di Enplein...vedi se puo' andare...

magari se passa lo corregge.....
Ciauz


Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=23&t=5086&sid=5d511091e3d5f25629d1ba0097970e54#p25677
Sub Main()
Dim cg(5),abb(2),ruota(1),n(1),nm(90,1),posta(2),num(2),num1(2),num2(2)
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ","Inizio",8850))
cl = CInt(InputBox(" Quanti colpi vuoi controllare? ","Colpi",10))
fin=EstrazioneFin
posta(2) = 1 : ruota(1)=11
For es = ini To fin  
Messaggio es
AvanzamentoElab ini,fin,es
g=0 : k=0 : Erase abb : Erase cg
       For i = 1 To 90
       n(1)=i
       nm(i,1)=SerieFreq(es,es,n,ruota,1)
 If nm(i,1)=4 Then
       If nm(i,1)=4 Then   abb(1)=Fuori90(n(1)+1): abb(2)=Fuori90(90+n(1)-1)
       If nm(i,1)=4 Then  cg(1)=n(1)

    num1(1)=n(1):  num1(2)=abb(1): num2(1)=n(1):  num2(2)=abb(2)    
 If SerieFreq(es,es,num1,ruota,2)=1 Then abb(1)=Fuori90(n(1)+2) 
If SerieFreq(es,es,num2,ruota,2)=1 Then abb(2)=Fuori90(90+n(1)-2) 
ColoreTesto 1
Scrivi
Scrivi (String(120,"-"))
Scrivi "Ricerca Frequenze dall'Estrazione: " & DataEstrazione(es) &" / "& es& " all'Estrazione: " & DataEstrazione(es)&" / "&es&_
"  Ruota di ricerca: " & NomeRuota(11),1
Scrivi"Capigioco con freq. =4 : " & StringaNumeri(cg),1
Scrivi"Abbinamenti  : " & StringaNumeri(abb),1
Scrivi
ColoreTesto 0
'imposto le giocate
co = 0

                      
       num(1) = cg(1)
       num(2) = abb(1)
       
       co = co + 1
       ImpostaGiocata co,num,ruota,posta,cl,2 


       num(1) = cg(1)
       num(2) = abb(2)  
         
       co = co + 1
       ImpostaGiocata co,num,ruota,posta,cl,2 

       

Gioca es
End If                               
       Next
        Next               

ScriviResoconto

End Sub

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script sulla frequenza 4

Messaggio da SeeLe8 » 24/09/2014, 16:50

GRAZIEEEEEEEEEEEEEEEEEEEEEEEEEE

anch'io ero partita da un listato di Enplein, ma mi sono bloccata quasi subito :dent:

:abb: :abb:
Immagine

Avatar utente
Tatoo64
Site Admin
Messaggi: 3873
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Richiesta script sulla frequenza 4

Messaggio da Tatoo64 » 27/09/2014, 22:09

GRANDE SEELE............... E BRAVO DJNOMADE............

SEELE MA LO SAI CHE E' IN POSITIVO STO METODO PER LA MISERIA GRANDE.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
Tatoo64
Site Admin
Messaggi: 3873
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Richiesta script sulla frequenza 4

Messaggio da Tatoo64 » 27/09/2014, 22:33

QUESTA SERA SONO IN VENA E MI SONO MESSO A CERCARE UN'EVOLUZIONE AL METODO.

QUANDO SI TROVANO LE QUATTRO AMBATE RIPETUTE SI MOLTIPLICANO PER QUATTRO CON IL FUORI 90 AL NUMERO TROVATO SI SOTTRAE PRIMA 10 E POI 30.

QUESTI TRE NUMERI SI METTONO IN GIOCO CON IL METODO DI SEELE A FORMARE DELLE TERZINE O UNA SESTINA.

ES: 02-09-2014 IL 21 LO TROVIAMO A CA-FI-MI-PA

21*4 = 84 PRIMO ABB.

84-10 = 74 SECONDO ABB.

84-30 = 54 TERZO ABB.

I NUMERI DA METTERE IN GIOCO SONO 21-19 ( IN QUANTO IL 20 E' PRESENTE NELLA STESSA ESTRAZIONE ) E 21-22

RAGGRUPPIAMO IN SESTINA 21-19-22-84-74-54 AL QUARTO COLPO A ROMA (TUTTE) TERNO 21-19-54

ES:21-08-2014 IL 48 LO TROVIAMO A CA-FI-GE-VE

48*4 = 12 ( FUORI 90 ) PRIMO ABB.

12-10 = 02 SECONDO ABB

12-30 = 72 (CICLOMETRICAMENTE) TERZO ABB

I NUMERI DA METTERE IN GIOCO SONO 48-47 E 48-49

RAGGRUPPIAMO IN SESTINA 48-47-49-12-02-72 AL TERZO COLPO A GE 48-12-72 SENZA CONTARE I VARI AMBI SECCHI


SE SI POTESSE MODIFICARE LO SCRIPT INSERENDO ANCHE QUESTA PROCEDURA COSI VEDIAMO QUANTI TERNI SPARA, SPECIALMENTE A TUTTE.
Ultima modifica di Tatoo64 il 27/09/2014, 22:44, modificato 1 volta in totale.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 584
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Richiesta script sulla frequenza 4

Messaggio da DjNomade » 27/09/2014, 22:56

Vedi cosi.........

Codice: Seleziona tutto

    'http://www.pentambo.info/forum/viewtopic.php?f=23&t=5086&sid=5d511091e3d5f25629d1ba0097970e54#p25677
    Sub Main()
    Dim cg(5),abb(6),ruota(1),n(1),nm(90,1),posta(2),poste(5),num(2),num1(6),num2(2)
    ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ","Inizio",8850))
    cl = CInt(InputBox(" Quanti colpi vuoi controllare? ","Colpi",10))
    fin=EstrazioneFin
    posta(2) = 1 :poste(2) = 1 :poste(3) = 1.5 :poste(4) = 0.5 : ruota(1)=11
    For es = ini To fin 
    Messaggio es
    AvanzamentoElab ini,fin,es
    g=0 : k=0 : Erase abb : Erase cg
           For i = 1 To 90
           n(1)=i
           nm(i,1)=SerieFreq(es,es,n,ruota,1)
     If nm(i,1)=4 Then
           If nm(i,1)=4 Then   abb(1)=Fuori90(n(1)+1): abb(2)=Fuori90(90+n(1)-1):abb(3)=Fuori90(n(1)*4): abb(4)=Fuori90(90+Fuori90(n(1)*4)-10): abb(5)=Fuori90(90+Fuori90(n(1)*4)-30)
           If nm(i,1)=4 Then  cg(1)=n(1)

        num1(1)=n(1):  num1(2)=abb(1): num2(1)=n(1):  num2(2)=abb(2)   
     If SerieFreq(es,es,num1,ruota,2)=1 Then abb(1)=Fuori90(n(1)+2)
    If SerieFreq(es,es,num2,ruota,2)=1 Then abb(2)=Fuori90(90+n(1)-2)
    ColoreTesto 1
    Scrivi
    Scrivi (String(120,"-"))
    Scrivi "Ricerca Frequenze dall'Estrazione: " & DataEstrazione(es) &" / "& es& " all'Estrazione: " & DataEstrazione(es)&" / "&es&_
    "  Ruota di ricerca: " & NomeRuota(11),1
    Scrivi"Capigioco con freq. =4 : " & StringaNumeri(cg),1
    Scrivi"Abbinamenti  : " & StringaNumeri(abb),1
    Scrivi
    ColoreTesto 0
    'imposto le giocate
    co = 0

                         
           num(1) = cg(1)
           num(2) = abb(1)
           
           co = co + 1
           ImpostaGiocata co,num,ruota,posta,cl,2


           num(1) = cg(1)
           num(2) = abb(2) 
             
           co = co + 1
           ImpostaGiocata co,num,ruota,posta,cl,2

           num(1) = cg(1)
           num(2) = abb(3)
           
           co = co + 1
           ImpostaGiocata co,num,ruota,posta,cl,2


           num(1) = cg(1)
           num(2) = abb(4) 
             
           co = co + 1
           ImpostaGiocata co,num,ruota,posta,cl,2
           num(1) = cg(1)
           num(2) = abb(5) 
             
           co = co + 1
           ImpostaGiocata co,num,ruota,posta,cl,2
           num1(1) = cg(1)
           num1(2) = abb(1) 
           num1(3) = abb(2)
           num1(4) = abb(3) 
           num1(5) = abb(4)
           num1(6) = abb(5) 
           co = co + 1
           ImpostaGiocata co,num1,ruota,poste,cl,4

    Gioca es
    End If                               
           Next
            Next               

    ScriviResoconto

    End Sub

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script sulla frequenza 4

Messaggio da SeeLe8 » 27/09/2014, 23:00

bravissimo Tattoo!!
ottima collaborazione
:su: :su: :good: :good:

e come sempre GRANDE DJ!

:abb:
Immagine

Avatar utente
Tatoo64
Site Admin
Messaggi: 3873
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Richiesta script sulla frequenza 4

Messaggio da Tatoo64 » 28/09/2014, 12:31

Grazie Dj..........

domanda ma lo script tiene conto della vincita a TUTTE anche se esce su una delle ruote di rilevamento??

E' possibile avere i nomi delle ruote dove sono ripetute le ambate, del tipo

Capigioco con freq. =4 : 62 a seguono i nomi delle 4 ruote



GRAZIE
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 584
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Richiesta script sulla frequenza 4

Messaggio da DjNomade » 28/09/2014, 13:43

Sicuramente si.... pero' credo ci voglia lo zampino di Enplein :preg:

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite