Altra richiesta per script sui gemelli

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

Altra richiesta per script sui gemelli

Messaggio da SeeLe8 » 01/11/2014, 13:27

Anche per questo ci ho provato ma mi sono incaprettata :dent:

Avrei bisogno di uno script che mi trovi questa condizione

Esempio:

18 settembre
PA: 37.66.73.1.61
BA: 1.17.67.68.61

sulla ruota di PA c'è un numero gemello e un numero avente la stessa decina del numero gemello
bisogna rintracciare un numero uguale isotopo con la stessa decina
si porrà in gioco il numero gemello che viene fuori dall'unione delle unità dei due numeri uguali
In questo caso l'11 in posizione 2° e 5°
al 3° colpo ambata 11 a PA

altro sempio invece con le unità

16 settembre
TO 60.85.83.62.55
CA 52.85.30.40.4

ambata 88 in 2° e 5°
5° colpo ambata 88 a CA fuori posizione
7° colpo ambata 88 a CA in 5° posizione

Esempio con ZERATI:

13 settembre
NAZ: 55.50
TO: 50
l'ambata in questo caso è 90

funziona anche se i numeri aventi la stessa decina e unità non sono uguali, ma in questo modo si avrebbero 2 ambate su 2 ruote e i casi sarebbero infiniti,
però si potrebbe provare lo stesso ad avere uno script?

esempio:
9 ottobre
FI 77.72
BA 42

ambate in gioco 74.47
al 2° colpo doppia ambata 47 a BA e FI


GRAZIEEEEEEEEEEEEEEEEE :abb:


Non so se può esserti utile quello che stavo facendo...
Innanzitutto non mi trova tutti i casi (non riesco a capire il perchè)
e poi trova il numero isotopo con la cadenza uguale, non riesco a digli che va bene anche se è uguale la decina

Codice: Seleziona tutto

Sub Main()
Dim ru(2)
Dim ru1(10)
Dim nn(4),nn1(4)
Dim posta(5),poste(2)
posta(1) = 1
poste(2) = 2
co = 0
ini = InputBox("Estrazione iniziale: ",,EstrazioneFin - 200)
fin = InputBox("Estrazione finale: ",,EstrazioneFin)
For es = ini To fin
Messaggio(es)
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1+1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)

If Gemello(a)= True And Cadenza(a)=Cadenza(b) And a<>b Then 

For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p3= 1 To 5
c = Estratto (es,r2,p3)

If c = b Then 
If p3=p2 Or p3=p1 Then

nn(1) = Fuori90(Decina(b)&Decina(c))

ru(1)=r1
ru(2)=r2

Scrivi "---------------------------------------------------------------"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(a) & "." & Format2(b) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > < " & Format2(c)


ImpostaGiocata 1,nn,ru,posta,12,1

Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ColoreTesto 1
ScriviResoconto
End Sub
Ultima modifica di SeeLe8 il 01/11/2014, 14:10, modificato 2 volte in totale.
Immagine

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

Re: Altra richiesta per script sui gemelli

Messaggio da SeeLe8 » 01/11/2014, 13:31

In gioco:

estraz del 25 ottobre

MI: 16.89.48.22.26
BA: 16.10.52.12.26

ambata 66 pos 4°-5°

studierò qualcosa per gli abbinamenti
Ultima modifica di SeeLe8 il 01/11/2014, 13:43, modificato 1 volta in totale.
Immagine

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: Altra richiesta per script sui gemelli

Messaggio da luca92 » 01/11/2014, 14:01

Brava Seele!

:appl: :appl: :appl:






Ciao
Luca

:abb:
Immagine




Immagine







Immagine

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

Re: Altra richiesta per script sui gemelli

Messaggio da SeeLe8 » 01/11/2014, 14:11

grazie luca, ma aspettiamo di vedere il resoconto dello script :dent:
Immagine

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

Re: Altra richiesta per script sui gemelli

Messaggio da DjNomade » 01/11/2014, 15:05

Intanto controlla questo......

Ciauz


Codice: Seleziona tutto

    Sub Main()
    Dim ru(2)
    Dim ru1(10)
    Dim nn(4),nn1(4)
    Dim posta(10),poste(2)
   
    poste(2) = 2
    co = 0
    ini = InputBox("Estrazione iniziale: ",,EstrazioneFin - 200)
    fin = InputBox("Estrazione finale: ",,EstrazioneFin)
    For es = ini To fin
    Messaggio(es)
    For r1 = 1 To 12
If r1=11 Then r1=12
    For p1 = 1 To 5
    For p2 = 1 To 5
    a = Estratto(es,r1,p1)
    b = Estratto(es,r1,p2)

    If Gemello(a)= True And (Cadenza(a)=Cadenza(b)Or Decina(a)=Decina(b)) And a<>b Then

    For r2 = 1 To 12
    If r2 = 11 Then r2 = 12
    For p3= 1 To 5
    c = Estratto (es,r2,p3)

    If c = b And r1<>r2 Then
    If p3=p2 Or p3=p1 Then

 If Cadenza(a)=Cadenza(b) Then amb = Fuori90(Decina(b)&Decina(c))
  If Decina(a)=Decina(b) Then amb = Fuori90(Cadenza(b)&Cadenza(c)) 
  If cadenza(b)=0 And cadenza(c)=0 Then amb =90
 
    ru(1)=r1
    ru(2)=r2

    Scrivi "---------------------------------------------------------------"
    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(a) & "." & Format2(b) & " >"
    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > < " & Format2(c)

Erase posta
 posta(1) = 1
posta(p1+5) = 1:posta(p2+5) = 1
   nn(1) = amb

    ImpostaGiocata 1,nn,ru,posta,12

    Gioca es
    End If
    End If
    Next
    Next
    End If
    Next
    Next
    Next
    Next
    ColoreTesto 1
    ScriviResoconto
    End Sub

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

Re: Altra richiesta per script sui gemelli

Messaggio da SeeLe8 » 01/11/2014, 15:32

OTTIMOOOOOOOOOOOO !!

:abb: :abb: :abb:
Immagine

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

Re: Altra richiesta per script sui gemelli

Messaggio da SeeLe8 » 01/11/2014, 15:52

Ho ridotto i casi considerando solo quelli in cui i due numeri uguali sono isotopi,
ho tolto la sorte di estratto determinato ed ho aggiunto 3 abbinamenti...
ora il resoconto è in positivo perchè c'è stato un terno a ruota (caso raro), però gli esiti non sono male
anche se la quartina si sfalda prevalentemente a tutte.

Codice: Seleziona tutto

        Sub Main()
        Dim ru(2)
        Dim ru1(10),rt(10)
        Dim nn(4),nn1(4),nn2(4)
        Dim posta(10),poste(3), postee(3)

        poste(2)=2
poste(3)=1
        co = 0
        ini = InputBox("Estrazione iniziale: ",,EstrazioneFin - 100)
        fin = InputBox("Estrazione finale: ",,EstrazioneFin)
        For es = ini To fin
        Messaggio(es)
        For r1 = 1 To 12
    If r1=11 Then r1=12
        For p1 = 1 To 5
        For p2 = 1 To 5
        a = Estratto(es,r1,p1)
        b = Estratto(es,r1,p2)

        If Gemello(a)= True And (Cadenza(a)=Cadenza(b)Or Decina(a)=Decina(b)) And a<>b Then

        For r2 = 1 To 12
        If r2 = 11 Then r2 = 12
        For p3= 1 To 5
        c = Estratto (es,r2,p3)

        If c = b And r1<>r2 Then
        If p3=p2 Then

     If Cadenza(a)=Cadenza(b) Then amb = Fuori90(Decina(b)&Decina(c))
      If Decina(a)=Decina(b) Then amb = Fuori90(Cadenza(b)&Cadenza(c))
      If Cadenza(b)=0 And Cadenza(c)=0 Then amb =90
     
        ru(1)=r1
        ru(2)=r2
rt(1)=r1
 rt(2)=r2
 rt(3)=11

        Scrivi "---------------------------------------------------------------"
        Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(a) & "." & Format2(b) & " >"
        Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > < " & Format2(c)

    Erase posta
    posta(1) = 1.5
 ' posta(p1+5) = 1:posta(p2+5) = 1
       nn(1) = amb

        ImpostaGiocata 1,nn,ru,posta,12,1
nn1(1)=amb
nn1(2)=Vert(b)
nn1(3)=ComplAdX(a)
nn1(4)=ComplAdX(b)
ImpostaGiocata 2,nn1,rt,poste,12,2

        Gioca es,1

        End If
        End If
        Next
        Next
        End If
        Next
        Next
        Next
        Next
        ColoreTesto 1
        ScriviResoconto
        End Sub

Ultima modifica di SeeLe8 il 01/11/2014, 21:51, modificato 1 volta in totale.
Immagine

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: Altra richiesta per script sui gemelli

Messaggio da luca92 » 01/11/2014, 21:28

SeeLe8 ha scritto:grazie luca, ma aspettiamo di vedere il resoconto dello script :dent:


:laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: Sono stato precipitoso! Immagine



:laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug:




Di sicuro arriveranno Terni, Quaterne e Cinquine secche... vedrai! :su:



... ma anche se fossero Ambate a Tutte... a caval donato nun se guarda in bocca!!! :su: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug:




... Anche se io ho smesso per il momento di giocare...





Grazie oltre che a Seele anche a DjNomade per lo Script! :su:









Ciao
Luca

:abb:
Ultima modifica di luca92 il 01/11/2014, 21:29, modificato 1 volta in totale.
Immagine




Immagine







Immagine

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

Re: Altra richiesta per script sui gemelli

Messaggio da Tatoo64 » 02/12/2014, 12:50

Gran bella idea............. appena ho tempo mi butto anche io con gli abbinamenti, se posso darti un IMPUT prova con le distanze.


Seele mi da errore su questa stringa

nn1(3)=ComplAdX(a)
Ultima modifica di Tatoo64 il 02/12/2014, 13:15, modificato 1 volta in totale.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

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

Re: Altra richiesta per script sui gemelli

Messaggio da SeeLe8 » 02/12/2014, 22:08

su spaziometria gira...
prova così

Codice: Seleziona tutto

           Sub Main()
            Dim ru(2)
            Dim ru1(10),rt(10)
            Dim nn(4),nn1(4),nn2(4)
            Dim posta(10),poste(3), postee(3)

            poste(2)=2
    poste(3)=1
            co = 0
            ini = InputBox("Estrazione iniziale: ",,EstrazioneFin - 100)
            fin = InputBox("Estrazione finale: ",,EstrazioneFin)
            For es = ini To fin
            Messaggio(es)
            For r1 = 1 To 12
        If r1=11 Then r1=12
            For p1 = 1 To 5
            For p2 = 1 To 5
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)

            If Gemello(a)= True And (Cadenza(a)=Cadenza(b)Or Decina(a)=Decina(b)) And a<>b Then

            For r2 = 1 To 12
            If r2 = 11 Then r2 = 12
            For p3= 1 To 5
            c = Estratto (es,r2,p3)

            If c = b And r1<>r2 Then
            If p3=p2 Then

         If Cadenza(a)=Cadenza(b) Then amb = Fuori90(Decina(b)&Decina(c))
          If Decina(a)=Decina(b) Then amb = Fuori90(Cadenza(b)&Cadenza(c))
          If Cadenza(b)=0 And Cadenza(c)=0 Then amb =90
         
            ru(1)=r1
            ru(2)=r2
    rt(1)=r1
     rt(2)=r2
     rt(3)=11

            Scrivi "---------------------------------------------------------------"
            Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(a) & "." & Format2(b) & " >"
            Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " > < " & Format2(c)

        Erase posta
        posta(1) = 1.5
     ' posta(p1+5) = 1:posta(p2+5) = 1
           nn(1) = amb

            ImpostaGiocata 1,nn,ru,posta,12,1
    nn1(1)=amb
    nn1(2)=Vert(b)
    nn1(3)=Fuori90(90-a)
    nn1(4)=Fuori90(90-b)
    ImpostaGiocata 2,nn1,rt,poste,12,2

            Gioca es,1

            End If
            End If
            Next
            Next
            End If
            Next
            Next
            Next
            Next
            ColoreTesto 1
            ScriviResoconto
            End Sub
Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite