Novità

richiesta script

mari66

mari66

Super member
avrei bisogno di uno script in cui devo inserire una distanza fra due estratti che devo variare di volta in volta ,che mi calcoli il diametrale e la chiusura a 90.faccio un esempio estr.del 22/03 86-36 firenze dist 50 quindi 86-5=81 36-5=31
90-81=9 90-36=54 e che mi indichi le ruote su cui escono i numeri,in questo caso 81-31-9-54 e' possibile?dovrei avere anche la possibilita' di sceglire la ruota .grazie
 
Ultima modifica:
B

Baffoblu

Guest
mari66 ha scritto:
avrei bisogno di uno script in cui devo inserire una distanza fra due estratti che devo variare di volta in volta ,che mi calcoli il diametrale e la chiusura a 90.faccio un esempio estr.del 22/03 86-36 firenze dist 50 quindi 86-5=81 36-5=31
90-81=9 90-36=54 e che mi indichi le ruote su cui escono i numeri,in questo caso 81-31-9-54 e' possibile?dovrei avere anche la possibilita' di sceglire la ruota .grazie
Clicca per espandere...


Scusa mari66, ma proprio non riesco a seguire
quello che spieghi.....


tu scrivi :


" il 22/03 a Firenze........."


MA DI QUALE ANNO ????


Ho guardato la ruota di Firenze.....ma

di 86 e 36, proprio non li vedo

in quella data.

Poi.... il 5 da dove lo prendi ?

Anche tutto il resto è piuttosto confuso....

Ricordo che uno script HA BISOGNO

di istruzioni precise al millimetro :

Date...

Ruote...

Estratti...

Posizioni...

combinazione da ricercare....

calcoli esatti da elaborare....

e tutte le informazioni possibili

per la realizzazione dello script.

Se le istruzioni sono imprecise,
lo script stesso sarà impreciso,
se non impossibile da realizzare....
---------------------------------------

Lo so che nella testa di chi ha l'idea

sembra tutto chiaro....

Ma non lo è per chi, quell'idea non la conosce....


ciao



PS : Ti ricordo che la Distanza 50 NON ESISTE !!!

Caso mai la DIFFERENZA 50.....

La massima distanza ciclometrica è di 45 !....

prova a spiegarti meglio con più dettagli....



 
Ultima modifica di un moderatore:
R

Roby

Guest
Tra l'altro vedendo quel -5, sembra che tu non voglia calcolare il diametrale, ma, il diametrale in decina........
 
B

Baffoblu

Guest
Blackmore ha scritto:
Tra l'altro vedendo quel -5, sembra che tu non voglia calcolare il diametrale, ma, il diametrale in decina........
Clicca per espandere...

Me ne sono accorto pure io....

La verità lo script lo già fatto,
ma voglio aspettare mari66
perchè voglio capire cosa modificare
e dove si devono giocare i numeri
o che altro...
:)
 
mari66

mari66

Super member
mi scuso avete ragione ho notato ,l'estrazione a cui mi riferisco e' quella del 22/03/2012 e la ruta e' quella di venezia non firenze,ed effettivamente mi riferivo alla differenza non alla distanza ,al momento ho controllato solo le ruote di bari e cagliari e ho notato che quando esce un ambo differenza 30(ma lo scorso anno era 40 ,per questo mi serve lo scipt,per accertarmi con che differenza si hanno maggiori esiti) nelle estrazioni succesive si presenta l'ambo(ma anche ambata in pochi colpi),purtroppo la posizione degli estratti non ve la so dire.se controllate noterete che uno dei numeri che vien fuori dai conteggi(pero' devo capire ancora bene quale maggiormente) esce accompagato dai numeri della prima decina ,e non solo dando ambo ma anche terno e quaterna,o col 90. lo script appunto mi serve per verificare meglio e per controllare se questo aviene anche sulle altre ruote.vi ringrazio per la disponibilita' e la pazienza:rolleyes:
 
B

Baffoblu

Guest
mari66 ha scritto:
mi scuso avete ragione ho notato ,l'estrazione a cui mi riferisco e' quella del 22/03/2012 e la ruta e' quella di venezia non firenze,ed effettivamente mi riferivo alla differenza non alla distanza ,al momento ho controllato solo le ruote di bari e cagliari e ho notato che quando esce un ambo differenza 30(ma lo scorso anno era 40 ,per questo mi serve lo scipt,per accertarmi con che differenza si hanno maggiori esiti) nelle estrazioni succesive si presenta l'ambo(ma anche ambata in pochi colpi),purtroppo la posizione degli estratti non ve la so dire.se controllate noterete che uno dei numeri che vien fuori dai conteggi(pero' devo capire ancora bene quale maggiormente) esce accompagato dai numeri della prima decina ,e non solo dando ambo ma anche terno e quaterna,o col 90. lo script appunto mi serve per verificare meglio e per controllare se questo aviene anche sulle altre ruote.vi ringrazio per la disponibilita' e la pazienza:rolleyes:
Clicca per espandere...



Allora, Il listato che vedrai sotto
fa esattamente quello che segue :

< Ti fa scegliere le seguenti cose >

- La ruota.

- La differenza voluta.

- Le estrazioni da analizzare.

- I colpi di gioco.

---------------------------

- va a cercare l'ambo con
la differenza inserita.

- calcola i Diametrali in Decina
dei due elementi dell'ambo.

- calcola i complementari a 90
(" che tu chiami "chiusura 90 " )
dei 2 Diametrali in Decina.

- In totale ricava 4 numeri,
(tu non hai specificato quale sia l'ambata)
Quindi te li mette in gioco tutti e 4 per Ambata ed Ambo,
su ognuna delle 11 ruote.
( non gioca a tutte, ma proprio su ogni singola ruota...
cosi puoi fare le dovute conclusioni).

:)

---------------------------------------



Codice: 
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim poste(10)
    Dim r
    Dim di
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(4)
    poste(1) = 1
    poste(2) = 1
    ruote(1) = r1
    r = CInt(InputBox(" Scegli la ruota ",,"1"))
    di = CInt(InputBox(" Inserire la Differenza voluta ",,"50"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For r1 = 1 To 11
            If r1 = 11 Then
                r1 = 12
            End If
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    a = Estratto(idEstr,r,p1)
                    b = Estratto(idEstr,r,p2)
                    If Differenza(a,b) = di Then
                        c = DiametraleD(a)
                        d = DiametraleD(b)
                        e = ComplAdX(c)
                        f = ComplAdX(d)
                        n(1) = c
                        n(2) = d
                        n(3) = e
                        n(4) = f
                        ruote(1) = r1
                        co = co + 1
                        ColoreTesto 0
                        Scrivi String(100,"°") & " Caso n°" & co,1
                        ColoreTesto 1
                        Scrivi DataEstrazione(idEstr) & " - " & "Ambo ricerca : " & a & " - " & b & " - " & "Differenza : " & di & " Trovato a " & SiglaRuota(r) & " *** " & " Numeri :   " & c & " - " & d & " - " & e & " - " & f,1
                        ColoreTesto 0
                        Scrivi String(100,"°"),1
                        ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
                        Gioca idEstr,1
                    End If
                    If ScriptInterrotto Then Exit For
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" IDEA BY mari66 <> LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
 
B

Baffoblu

Guest
Questo script invece, ti controlla
tutti gli ambi con tutte le differenze
possibili....







Codice: 
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim poste(10)
    Dim r
    Dim di
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(4)
    poste(1) = 1
    poste(2) = 1
    ruote(1) = r1
    r = CInt(InputBox(" Scegli la ruota ",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"30"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For di = 1 To 89
            For r1 = 1 To 11
                If r1 = 11 Then
                    r1 = 12
                End If
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        a = Estratto(idEstr,r,p1)
                        b = Estratto(idEstr,r,p2)
                        If Differenza(a,b) = di Then
                            c = DiametraleD(a)
                            d = DiametraleD(b)
                            e = ComplAdX(c)
                            f = ComplAdX(d)
                            n(1) = c
                            n(2) = d
                            n(3) = e
                            n(4) = f
                            ruote(1) = r1
                            co = co + 1
                            ColoreTesto 0
                            Scrivi String(100,"°") & " Caso n°" & co,1
                            ColoreTesto 1
                            Scrivi DataEstrazione(idEstr) & " - " & "Ambo ricerca : " & a & " - " & b & " - " & "Differenza : " & di & " Trovato a " & SiglaRuota(r) & " *** " & " Numeri :   " & c & " - " & d & " - " & e & " - " & f,1
                            ColoreTesto 0
                            Scrivi String(100,"°"),1
                            ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco
                            Gioca idEstr,1
                        End If
                        If ScriptInterrotto Then Exit For
                    Next
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" IDEA BY mari66 <> LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
 
mari66

mari66

Super member
grazie mille baffoblu,mi scuso se non ho specificato l'ambata in realta' non la so neanche io qual'e' e' una cosa che ho notato guardando le estrazioni,non sono molto pratica ora provero' con varie distanze.:D
 
R

rosa962

Advanced Member
ciao BAFFOBLU

in questo listato in quale punto del codice
mettere la differenza di un mio studio ?
 
Ultima modifica:
R

Roby

Guest
rosa962 ha scritto:
ciao BAFFOBLU

in questo listato in quale punto del codice
mettere la differenza di un mio studio ?
Clicca per espandere...

Qui -------> For di = 1 To 89
Se vuoi trovare una differenza specifica, tipo differenza 25
fai così ------> For di = 25 To 25
Per la differenza 10....
For di = 10 To 10
Etc.. Etc..
Ciao
 
mari66

mari66

Super member
Grazie,ho controllato alcune ruote es napoli differenza 60 vengono fuori parecchi ambi,no forse non era napoli :p....boh al momento non ricordo
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 30 aprile 2024
    Bari
    08
    67
    03
    02
    46
    Cagliari
    67
    01
    87
    84
    47
    Firenze
    31
    56
    40
    53
    50
    Genova
    03
    19
    45
    47
    25
    Milano
    71
    48
    51
    12
    13
    Napoli
    45
    19
    49
    76
    56
    Palermo
    58
    74
    86
    37
    67
    Roma
    26
    79
    47
    38
    58
    Torino
    32
    71
    39
    84
    80
    Venezia
    52
    31
    22
    42
    19
    Nazionale
    06
    83
    47
    20
    41
    Estrazione Simbolotto
    Genova
    03
    05
    45
    40
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto