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:
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:
Tra l'altro vedendo quel -5, sembra che tu non voglia calcolare il diametrale, ma, il diametrale in decina........
 
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...
:)
 
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:
 
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
 
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
 
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
 
ciao BAFFOBLU

in questo listato in quale punto del codice
mettere la differenza di un mio studio ?
 
Ultima modifica:
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
 
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
    sabato 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto