Per BAFFOBLU

TizianoCiclomet · 10 Aprile 2012

Si BAFFOBLU ora ti rifaccio tutto il procedimento
ma prima ce Barwoman che ti vuole salutare
Ciao BAFFOBLU ME MANNI VIA COMPLETAMENTE
Parto Allinemanto finale percio due numeri 46.56
li sommiamo al 45 con il fuori90 abbiamo 01.11
andiamo a metterli nel Quadrato dal piu piccolo al
piu grande
01 11
56 46
57 ambata primaria piu Multiplo 24 con fuori 90
01 piu 11 uguale 12
01 piu 46 uguale 47
11 piu 56 uguale 67
Lunghetta
11-12-13-46-47-48-66-67-68
Ciao

Baffoblu · 10 Aprile 2012

Allora assodato che la quadratura
va effettuata dal più piccolo
al più grande. OK

Quadratura :

1.2.3.4.
A.B.C.D.
-------------
Calcoli :

A + B.
A + C.
B + D.
-------------

Chiedo conferma

è cosi per tutti ?

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

Invece :

C'è questo tuo esempio
riportato al messaggio #6
che mi porta fuori strada....

Quadratura :

08-09
54-53

A-B
D-C

A + B
08 piu 09 uguale 17

A + C
08 piu 53 uguale 61

B + C
09 piu 53 uguale 62
----------------------------

Perchè nell'ultimo passaggio
fai B + C ?

e non B + D ?

è una tua svista o è giusto ?

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

Devi capire che :

Per continuare lo script
ho bisogno di istruzioni precise !

Toglimi i dubbi una volta per tutte !

Ciao

Saluti a barwoman

TizianoCiclomet · 10 Aprile 2012

Si BAFFOBLU e stata una mia svista il calcolo esatto
e B piu D ed cosi per tutti
Ci risentiamo nel pomeriggio BAFFOBLU Buona
Giornata a Te e a Tutto il Forum
Ps
Vi Vogliamo Bene

Baffoblu · 10 Aprile 2012

Script finale

Giusto !

Questo sostituisce tutte le prove di script
fatte finora e che comunque le ho cancellate
per non creare confusione....

Codice:

Sub Main()
    TestoInBandaPassante "***   IDEA by TIZIANOCICLOMET & BARWOMAN   ***",1,4,1
    ColoreTesto 0
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim r
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(2)
    Dim nu(9)
    posta(1) = 1
    poste(2) = 1
    r = CInt(InputBox(" Scegli la ruota ",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    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)
        ruote(1) = r
        a1 = Estratto(idEstr,r,1)
        a2 = Estratto(idEstr,r,2)
        a3 = Estratto(idEstr,r,3)
        a4 = Estratto(idEstr,r,4)
        a5 = Estratto(idEstr,r,5)
        '-------------------------
        b1 = Abs(a1 - a2)
        b2 = Abs(a2 - a3)
        b3 = Abs(a3 - a4)
        b4 = Abs(a4 - a5)
        '-------------------------
        c1 = Abs(b1 - b2)
        c2 = Abs(b2 - b3)
        c3 = Abs(b3 - b4)
        '-------------------------
        d1 = Abs(c1 - c2)
        d2 = Abs(c2 - c3)
        '-------------------------
        e1 = Fuori90(d1 + 45)
        e2 = Fuori90(d2 + 45)
        '-------------------------
        z1 = Minimo(d1,d2)
        z2 = Minimo(e1,e2)
        g1 = Minimo(z1,z2)
        '-------------------
        q1 = Massimo(d1,d2)
        q2 = Massimo(e1,e2)
        g4 = Massimo(q1,q2)
        '----------------------------------------
        If d1 = g1 And d2 = g4 Then
            g2 = Minimo(e1,e2)
            g3 = Massimo(e1,e2)
        End If
        If d1 = g1 And e1 = g4 Then
            g2 = Minimo(d2,e2)
            g3 = Massimo(d2,e2)
        End If
        If d1 = g1 And e2 = g4 Then
            g2 = Minimo(d2,e1)
            g3 = Massimo(d2,e1)
        End If
        If d2 = g1 And d1 = g4 Then
            g2 = Minimo(e1,e2)
            g3 = Massimo(e1,e2)
        End If
        If d2 = g1 And e1 = g4 Then
            g2 = Minimo(d1,e2)
            g3 = Massimo(d1,e2)
        End If
        If d2 = g1 And e2 = g4 Then
            g2 = Minimo(d1,e1)
            g3 = Massimo(d1,e1)
        End If
        If e1 = g1 And d1 = g4 Then
            g2 = Minimo(d2,e2)
            g3 = Massimo(d2,e2)
        End If
        If e1 = g1 And d2 = g4 Then
            g2 = Minimo(d1,e2)
            g3 = Massimo(d1,e2)
        End If
        If e1 = g1 And e2 = g4 Then
            g2 = Minimo(d1,d2)
            g3 = Massimo(d1,d2)
        End If
        If e2 = g1 And d1 = g4 Then
            g2 = Minimo(d2,e1)
            g3 = Massimo(d2,e1)
        End If
        If e2 = g1 And d2 = g4 Then
            g2 = Minimo(d1,e1)
            g3 = Massimo(d1,e1)
        End If
        If e2 = g1 And e1 = g4 Then
            g2 = Minimo(d1,d2)
            g3 = Massimo(d1,d2)
        End If
        '----------------------------------------
        h1 = Fuori90(g1 + g4)
        h2 = Fuori90(h1 + h1)
        '--------------------
        h3 = Fuori90(g1 + g2)
        h4 = Fuori90(h3 + 01)
        h5 =(h3 - 01)
        '--------------------
        i1 = Fuori90(g1 + g3)
        i2 = Fuori90(i1 + 01)
        i3 =(i1 - 01)
        '--------------------
        l1 = Fuori90(g2 + g4)
        l2 = Fuori90(l1 + 01)
        l3 =(l1 - 01)
        '--------------------
        ruote(1) = r
        n(1) = h1
        n(2) = h2
        nu(1) = h3
        nu(2) = h4
        nu(3) = h5
        nu(4) = i1
        nu(5) = i2
        nu(6) = i3
        nu(7) = l1
        nu(8) = l2
        nu(9) = l3
        EliminaRipetuti nu
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        Scrivi
        ColoreTesto 1
        Scrivi "1° Allineamento  : " & Format2(b1) & " - " & Format2(b2) & " - " & Format2(b3) & " - " & Format2(b4),1
        Scrivi "2° Allineamento  : " & Format2(c1) & " - " & Format2(c2) & " - " & Format2(c3),1
        Scrivi "3° Allineamento  : " & Format2(d1) & " - " & Format2(d2),1
        ColoreTesto 0
        Scrivi "-------------------------------------------------"
        Scrivi Format2(e1) & " - " & Format2(e2) & "  :  Derivati dal + 45"
        Scrivi "-------------------------------------------------"
        ColoreTesto 1
        Scrivi "Quadratura : "
        Scrivi Format2(g1) & " - " & Format2(g2),1
        Scrivi Format2(g4) & " - " & Format2(g3),1
        Scrivi
        ColoreTesto 2
        Scrivi "Ambate : " & Format2(h1) & " - " & Format2(h2),1
        Scrivi "Lunghetta Completa : " & Format2(h3) & " - " & Format2(h4) & " - " & Format2(h5) & " - " & Format2(i1) & " - " & Format2(i2) & " - " & Format2(i3) & " - " & Format2(l1) & " - " & Format2(l2) & " - " & Format2(l3),1
        ColoreTesto 1
        Scrivi "ATTENZIONE ! GLI EVENTUALI NUMERI RIPETUTI VERRANNO ELIMINATI NEI NUMERI IN GIOCO !",1
        ColoreTesto 0
        Scrivi String(90,"="),1
        ImpostaGiocata 1,n,ruote,posta,nColpiDiGioco,1
        ImpostaGiocata 2,nu,ruote,poste,nColpiDiGioco,2
        Gioca idEstr,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

TizianoCiclomet · 10 Aprile 2012

Che dire BAFFOBLU non potro mai RINGRAZIARTI abbastanza e uno
script secondo me Straordinario e se usato nel modo giusto potra
aiutare a fare delle Buone Vincite questo e il mio Augurio per Tutti
gli Appassionati di questo gioco provatelo testatelo e se avete delle
domande da fare non tiratevi indietro Chiedete pure
UN SUPER SUPER SUPER SALUTO BAFFOBLU
Ps
E TRE BACI per BAFFOBLU da Barwoman

Baffoblu · 10 Aprile 2012

TizianoCiclomet ha scritto:
Che dire BAFFOBLU non potro mai RINGRAZIARTI abbastanza e uno
script secondo me Straordinario e se usato nel modo giusto potra
aiutare a fare delle Buone Vincite questo e il mio Augurio per Tutti
gli Appassionati di questo gioco provatelo testatelo e se avete delle
domande da fare non tiratevi indietro Chiedete pure
UN SUPER SUPER SUPER SALUTO BAFFOBLU
Ps
E TRE BACI per BAFFOBLU da Barwoman

Hehehe, sto aspettando la fase 2.......

TizianoCiclomet · 11 Aprile 2012

Ciao BAFFOBLU come promesso se sei pronto metto il secondo Metodo
che sara molto piu rapido visto che consiste in due semplici passaggi in
piu
Fammi sapere
Ps

Il sei mi piaceva cosi

Baffoblu · 11 Aprile 2012

Sono nato pronto......

Spara.....

....prima che mi cala la palpebra....

TizianoCiclomet · 11 Aprile 2012

Per questo Metodo due prendiamo una Cinquina a caso
Nazionale 05.74.11.86.06
Aggingiamo ai cinque numeri della Cinquina il 45
Esempio 05 piu 45 uguale 50
Esempio 74 piu 45 uguale 119 fuori 90 uguale 29
Esempio 11 piu 45 Uguale 56
Esempio 86 piu 45 uguale 131 fuori 90 uguale 41
Esempio 06 piu 45 uguale 51
Allieniamo la nuova Cinquina
50-29-56-41-51
E da questa Cinquina ripeti i stessi passi del
Metodo uno
Vedrai che ci sono dei risultati identici al primo Metodo
alcuni completamente diversi e un terzo tipo di risultati
che ci potranno dare delle indicazioni migliori sulla bonta
di alcune Previsioni
Ciao BAFFOBLU

Baffoblu · 11 Aprile 2012

Ok. domani lo trovi pronto

Adesso ho un occhio "guardillo"

e uno "dormillo"......

Baffoblu · 11 Aprile 2012

...è già domani.....

Codice:

Sub Main()
    TestoInBandaPassante "***  METODO 2 ***  IDEA by TIZIANOCICLOMET & BARWOMAN ____ Script by Baffoblu   ***",1,4,1
    ColoreTesto 0
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim r
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(2)
    Dim nu(9)
    posta(1) = 1
    poste(2) = 1
    r = CInt(InputBox(" Scegli la ruota ",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    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)
        ruote(1) = r
        w1 = Estratto(idEstr,r,1)
        w2 = Estratto(idEstr,r,2)
        w3 = Estratto(idEstr,r,3)
        w4 = Estratto(idEstr,r,4)
        w5 = Estratto(idEstr,r,5)
        '--------------------------
        a1 = Fuori90(w1 + 45)
        a2 = Fuori90(w2 + 45)
        a3 = Fuori90(w3 + 45)
        a4 = Fuori90(w4 + 45)
        a5 = Fuori90(w5 + 45)
        '-------------------------
        b1 = Abs(a1 - a2)
        b2 = Abs(a2 - a3)
        b3 = Abs(a3 - a4)
        b4 = Abs(a4 - a5)
        '-------------------------
        c1 = Abs(b1 - b2)
        c2 = Abs(b2 - b3)
        c3 = Abs(b3 - b4)
        '-------------------------
        d1 = Abs(c1 - c2)
        d2 = Abs(c2 - c3)
        '-------------------------
        e1 = Fuori90(d1 + 45)
        e2 = Fuori90(d2 + 45)
        '-------------------------
        z1 = Minimo(d1,d2)
        z2 = Minimo(e1,e2)
        g1 = Minimo(z1,z2)
        '-------------------
        q1 = Massimo(d1,d2)
        q2 = Massimo(e1,e2)
        g4 = Massimo(q1,q2)
        '----------------------------------------
        If d1 = g1 And d2 = g4 Then
            g2 = Minimo(e1,e2)
            g3 = Massimo(e1,e2)
        End If
        If d1 = g1 And e1 = g4 Then
            g2 = Minimo(d2,e2)
            g3 = Massimo(d2,e2)
        End If
        If d1 = g1 And e2 = g4 Then
            g2 = Minimo(d2,e1)
            g3 = Massimo(d2,e1)
        End If
        If d2 = g1 And d1 = g4 Then
            g2 = Minimo(e1,e2)
            g3 = Massimo(e1,e2)
        End If
        If d2 = g1 And e1 = g4 Then
            g2 = Minimo(d1,e2)
            g3 = Massimo(d1,e2)
        End If
        If d2 = g1 And e2 = g4 Then
            g2 = Minimo(d1,e1)
            g3 = Massimo(d1,e1)
        End If
        If e1 = g1 And d1 = g4 Then
            g2 = Minimo(d2,e2)
            g3 = Massimo(d2,e2)
        End If
        If e1 = g1 And d2 = g4 Then
            g2 = Minimo(d1,e2)
            g3 = Massimo(d1,e2)
        End If
        If e1 = g1 And e2 = g4 Then
            g2 = Minimo(d1,d2)
            g3 = Massimo(d1,d2)
        End If
        If e2 = g1 And d1 = g4 Then
            g2 = Minimo(d2,e1)
            g3 = Massimo(d2,e1)
        End If
        If e2 = g1 And d2 = g4 Then
            g2 = Minimo(d1,e1)
            g3 = Massimo(d1,e1)
        End If
        If e2 = g1 And e1 = g4 Then
            g2 = Minimo(d1,d2)
            g3 = Massimo(d1,d2)
        End If
        '----------------------------------------
        h1 = Fuori90(g1 + g4)
        h2 = Fuori90(h1 + h1)
        '--------------------
        h3 = Fuori90(g1 + g2)
        h4 = Fuori90(h3 + 01)
        h5 =(h3 - 01)
        '--------------------
        i1 = Fuori90(g1 + g3)
        i2 = Fuori90(i1 + 01)
        i3 =(i1 - 01)
        '--------------------
        l1 = Fuori90(g2 + g4)
        l2 = Fuori90(l1 + 01)
        l3 =(l1 - 01)
        '--------------------
        ruote(1) = r
        n(1) = h1
        n(2) = h2
        nu(1) = h3
        nu(2) = h4
        nu(3) = h5
        nu(4) = i1
        nu(5) = i2
        nu(6) = i3
        nu(7) = l1
        nu(8) = l2
        nu(9) = l3
        EliminaRipetuti nu
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        Scrivi
        ColoreTesto 7
        Scrivi "New cinquina 45. : " & a1 & " - " & a2 & " - " & a3 & " - " & a4 & " - " & a5,1
        ColoreTesto 1
        Scrivi "1° Allineamento  :   " & Format2(b1) & " - " & Format2(b2) & " - " & Format2(b3) & " - " & Format2(b4),1
        Scrivi "2° Allineamento  :     " & Format2(c1) & " - " & Format2(c2) & " - " & Format2(c3),1
        Scrivi "3° Allineamento  :       " & Format2(d1) & " - " & Format2(d2),1
        ColoreTesto 0
        Scrivi "-------------------------------------------------"
        Scrivi Format2(e1) & " - " & Format2(e2) & "  :  Derivati dal + 45"
        Scrivi "-------------------------------------------------"
        ColoreTesto 1
        Scrivi "Quadratura : "
        Scrivi Format2(g1) & " - " & Format2(g2),1
        Scrivi Format2(g4) & " - " & Format2(g3),1
        Scrivi
        ColoreTesto 2
        Scrivi "Ambate : " & Format2(h1) & " - " & Format2(h2),1
        Scrivi "Lunghetta Completa : " & Format2(h3) & " - " & Format2(h4) & " - " & Format2(h5) & " - " & Format2(i1) & " - " & Format2(i2) & " - " & Format2(i3) & " - " & Format2(l1) & " - " & Format2(l2) & " - " & Format2(l3),1
        ColoreTesto 1
        Scrivi "ATTENZIONE ! GLI EVENTUALI NUMERI RIPETUTI VERRANNO ELIMINATI NEI NUMERI IN GIOCO !",1
        ColoreTesto 0
        Scrivi String(90,"="),1
        ImpostaGiocata 1,n,ruote,posta,nColpiDiGioco,1
        ImpostaGiocata 2,nu,ruote,poste,nColpiDiGioco,2
        Gioca idEstr,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

TizianoCiclomet · 11 Aprile 2012

Che dire BAFFOBLU un altro Diamante in dono a me e Tutto il Forum
Sei una persona Straordinaria BAFFOBLU
E sono sicuro che tu e tanti altri del Forum saprete usare questi due
Metodi e capirne nessi e connessi
Non potremo mai RINGRAZIARTI abbastanza
Ciao

TizianoCiclomet · 11 Aprile 2012

Da Barwoman Grazie BAFFOBLU ti voglio svelare un piccolo segreto
questi due metodi li abbiamo scritti pero ti do solo un indizio
Gli anni sono il Vertibile del numero che a te piace tanto
Ps
Tre BACI da Barwoman per BAFFOBLU

Baffoblu · 11 Aprile 2012

Ho capito quale è il vertibile del numero che mi piace tanto......

Ma non ho capito la frase " Gli Anni" a cosa si riferisce.

Posso solo intuire, ma posso anche fraintendere........

Già sapete che dormo poco.....

forse faccio troppe cose insieme....

In questo momento sto seguendo il forum,
nello stesso tempo,
mi sto scervellando con un mio script tutto particolare,
ho un auricolare nell'orecchio e sto parlando al telefono
che squilla in continuazione,
sto seguendo dei notiziari esteri (in lingua straniera)
sul satellite, senza perdermi una virgola.

Ciao

TizianoCiclomet · 12 Aprile 2012

Ciao BAFFOBLU lo sai le donne quando si tratta di anni sono
sempre un po cripte e quello che voleva dire era questo
Scritto(Vertibile del numero che ti piace tanto) Anni fa
Ciao BAFFOBLU Buona Giornata a te e a Tutto il Forum

TizianoCiclomet · 12 Aprile 2012

Questa la nostra scelta oggi Peccato un Ambo in Novina
due Ambi in Decina ma va bene anche cosi domani metteremo
anche delle Cedoline Scusate si dimmi Tiziano chissa se qualcuno ha
vinto nel segreto scriptato del suo chissa
Io me lo auguro per Tutti con Tutto il Cuore
Ciao

Baffoblu · 13 Aprile 2012

TizianoCiclomet · 15 Aprile 2012

Prima di Tutto un Super Super Super Saluto a BAFFOBLU e Tre Baci Portafortuna
da Barwoman
Chissa se qualcuno in particolare gli Amanti della ruota
Pugliese e delle Primarie e Secondarie nel segreto del suo Scriptato chissa se
Buona Domenica a Tutto il Forum
Ps
Vi Vogliamo Sempre Piu Bene

Baffoblu · 15 Aprile 2012

TizianoCiclomet ha scritto:
Prima di Tutto un Super Super Super Saluto a BAFFOBLU e Tre Baci Portafortuna
da Barwoman
Chissa se qualcuno in particolare gli Amanti della ruota
Pugliese e delle Primarie e Secondarie nel segreto del suo Scriptato chissa se
Buona Domenica a Tutto il Forum
Ps
Vi Vogliamo Sempre Piu Bene

Ciao a tutti e due

Ho talmente cose da fare che ancora non ho capito
cosa è sto segreto, sono troppo incasinato per
rincorrere indovinelli.....

rosa962 · 15 Aprile 2012

FATECI CAPIRE
già ci sono troppi alieni
e misteriosi in questo forum

ciaoo

Per BAFFOBLU

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member