la distanza 3 isotopa

[violazzurra]

Ciao Emiki ,scusami per il 22 non avevi scritto che lo mollavi perche e' gia uscito?Attenzione i numeri si ripetono di estraz a estraz. sono molto birichini ,ma credo che anche tu lo sai ,poi una news dal metodo di di Anzio somma 91,ho conferma pure io su ruota Firenze e Cagl 11-64/46 ,l'11 sicuro a parte che il numero non ha un ritardo di piu di 23/24 estraz li puo diventare un numero ritardatario ed e meglio non rischiare.Si Eugenio.dj grazie mille sei gentilissimo mi raccomando b.fortuna a tutti perche ne abbiamo diritto tutti un bacio al lupo .

 

[elmiki]

nuova condizione in gioco dal 10/04/12 fi-ge(36-39)

fi-ge 74-76/37-38-36-39

ho 3 convergenze con il 76 a firenze!! ciao a tutti elmiki...

 

[1963franco]

ciao a tutti FRANCESCO57 è un pò che non ti sento tutto bene,ci stai preparando un nuovo metodo vincente come quelli che ci ai fatto vincere
a presto ciao
da franco

 

[elmiki]

ciao 1963franco mi sa che hai scritto sulla mia pagina avrai sbagliato, nn so se francesco57 veda il tuo messaggio qui. ti saluto elmiki

 

[1963franco]

si scusa elmiki lo cancello e lo metto nella sua sezione
grazie e ciao

 

[franca46]

Questo invece è ristretto
Calcola le 2 ambate + 2 Cinquine

Sub Main()
    ColoreTesto 0
    Scrivi
    ColoreTesto 1
    Scrivi String(42," ") & "METODO: DISTANZA 3 ISOTOPA DI ELMIKI",1
    ColoreTesto 1
    Scrivi String(50," ") & "LISTATO BY BLACKMORE",1
    ColoreTesto 0
    Scrivi
    Dim anum(2)
    Dim ruote(10)
    Dim numeri1(10)
    Dim numeri2(10)
    Dim posta(5)
    Dim poste(5)
    posta(1) = 1
    posta(2) = 1
    poste(2) = 1
    poste(3) = 1
    poste(4) = 0.50
    cont = CInt(InputBox("Quante estrazioni controllo?",,50))
    k = InputBox("Inserisci i colpi di gioco",,9)
    co = 0
    For es =(EstrazioneFin - cont) To EstrazioneFin
        Messaggio DataEstrazione(es)
        For r = 1 To 10
            r1 = r + 1
            If r1 = 11 Then r1 = 12
            For p = 1 To 5
                a = Estratto(es,r,p)
                b = Estratto(es,r1,p)
                If Distanza(a,b) = 3 Then
                    If Decina(a) = Decina(b) Then
                        c = Massimo(a,b)
                        d = Minimo(a,b)
                        e = c - 2
                        f = d + 2
                        ruote(1) = r
                        ruote(2) = r1
                        casi = casi + 1
                        ColoreTesto 0
                        Scrivi String(90,"*") & " Caso n° " & casi,1
                        co = co + 1
                        ColoreTesto 2
                        Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & ":  " & StringaEstratti(es,r) & " - NUMERO ISOTOPO STESSA DECINA DISTANZA 3 --->  " & Format2(a)
                        ColoreTesto 2
                        Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & ":  " & StringaEstratti(es,r1) & " - NUMERO ISOTOPO STESSA DECINA DISTANZA 3 --->  " & Format2(b)
                        ColoreTesto 0
                        Scrivi String(90,"*"),1
                        '-----------------------------------------------------------
                        anum(1) = Fuori90(c + e)
                        anum(2) = Fuori90(d + f)
                        ImpostaGiocata 1,anum,ruote,posta,k
                        '-----------------------------------------------------------
                        numeri1(1) = anum(1)
                        numeri1(2) = a
                        numeri1(3) = b
                        numeri1(4) = e
                        numeri1(5) = f
                        ImpostaGiocata 2,numeri1,ruote,poste,k
                        '-----------------------------------------------------------
                        numeri2(1) = anum(2)
                        numeri2(2) = a
                        numeri2(3) = b
                        numeri2(4) = e
                        numeri2(5) = f
                        ImpostaGiocata 3,numeri2,ruote,poste,k
                        '-----------------------------------------------------------
                        Gioca es
                    End If
                End If
            Next
        Next
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub

ciao black , questo listato mi dà errore, gli daresti un'occhiatina??

grazie

 

[Roby]

Ciao Franca, l'ho appena fatto girare e a me non da nessun errore, prova a copiarlo di nuovo
Ma a te dove ti da errore?

****************************************************************************************** Caso n° 56
12.04.2012 - Mi:  11.10.70.21.74 - NUMERO ISOTOPO STESSA DECINA DISTANZA 3 --->  74
12.04.2012 - Na:  10.67.39.37.71 - NUMERO ISOTOPO STESSA DECINA DISTANZA 3 --->  71
******************************************************************************************
gio 12.04.2012  [8520]
  G  1:  MA         56.54            Mi Na    1/9    
     in corso (1° su 9)
  G  2:  ATQ        56.74.71.72.73   Mi Na    1/9    
     in corso (1° su 9)
  G  3:  ATQ        54.74.71.72.73   Mi Na    1/9    
     in corso (1° su 9)
****************************************************************************************** Caso n° 57
14.04.2012 - Ge:  17.81.35.89.07 - NUMERO ISOTOPO STESSA DECINA DISTANZA 3 --->  35
14.04.2012 - Mi:  61.76.38.48.01 - NUMERO ISOTOPO STESSA DECINA DISTANZA 3 --->  38
******************************************************************************************
sab 14.04.2012  [8521]
  G  1:  MA         74.72            Ge Mi    0/9    
     i.c. (9 colpi)
  G  2:  ATQ        74.35.38.36.37   Ge Mi    0/9    
     i.c. (9 colpi)
  G  3:  ATQ        72.35.38.36.37   Ge Mi    0/9    
     i.c. (9 colpi)

 

[franca46]

ciao black forse appunto avevo copiato male. adesso funziona , grazie