Novità

Lo sapevate che...

CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Su tutte le ruote (credo, ma occorre uno scripter), ad ogni estrazione,
prendendo i primi 2 numeri estratti, trasformandoli in figure e, unendo quest'ultime, saranno le ambate da porre in gioco della suddetta ruota.
Io come sempre ho scelto la mia: Bari!
....Voi, divertitevi!
 
Ultima modifica:
desideria

desideria

Advanced Member >PLATINUM PLUS<
ora mi metto a controllare ma intanto ti ringrazio e ti auguro felice festa della donna DONNA;)
 
R

Roby

Guest
Quindi giocando su Bari prendi solo i primi 2° estratti di Bari, e metti in gioco le loro figure?
 
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Spariti i posti di Ib....

Vabbè...alcuni esempi:

ESTRAZIONE - sabato 18 febbraio 2012

RUOTA1° estr.2° estr.3° estr.4° estr.5° estr.
Bari 28 35 55 52 53

2+8 = 10 figura 1
3+5 = 8 figura 8

in gioco: 18 - 81 esito al 4° colpo 81 5° colpo 81 su Bari

ESTRAZIONE - martedì 21 febbraio 2012

RUOTA1° estr.2° estr.3° estr.4° estr.5° estr.
Bari 60 7 41 75 55


6+0 = 6 figura 6
0+7 = 7 figura 7
in gioco : 67 - 76 esito al 2° colpo 76 su Bari

x Desi : Auguri anche a te ! :)
 
Ultima modifica:
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Blackmore ha scritto:
Quindi giocando su Bari prendi solo i primi 2° estratti di Bari, e metti in gioco le loro figure?
Clicca per espandere...

No Black, le figure dobbiamo unirle e giocare il risultato e vertibile.
Caruccio, anche perchè vedo che non si fanno neanche attendere molto.
Cmq ho scovato un'altra cosetta esaminando questi "trucchetti", la posto in seguito....
 
R

Roby

Guest
Coco, controlla perchè non sono sicuro di aver capito bene ;)


Codice: 
Sub main()
Scrivi : ColoreTesto 1: Scrivi " ************************* METODO BY COCONUT *************************",1
Scrivi : ColoreTesto 1: Scrivi " ************************ LISTATO - BLACKMORE ************************",1
Scrivi : ColoreTesto 0
Dim aruo(1)
Dim ambata(2)
Dim aposta(10)
aposta(1) = 1
aruo(1) = 1
k = 8
ini=EstrazioneFin - 50
fin=EstrazioneFin
co=0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
fin=EstrazioneFin 
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es

Messaggio (es)
casi=casi+1

Scrivi String (80,"=")&" Caso n° "&casi,1
co=co+1

Scrivi String (80,"=")

ambata(1)= Fuori90(Figura (Estratto(es,1,1))& Figura (Estratto(es,1,2)))
ambata(2)= Vert(ambata(1))

ImpostaGiocata 1,ambata,aruo,aposta,k

Gioca es
 
Next

Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub
 
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
E' perfetto, Blackissimo!

Ovvio ha qualche difettuccio, ogni tanto fa cilecca, ma sfido chi abbia un metodo con esiti positivi al 100% di facile utilizzo e gratis a lungo andare....
 
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Ah!...dimenticavo!!! Il previsionista vincente dal forum "metodi" sarai tu.....col 31 e 64 su Bari!
 
M

morena59

Junior Member
CocoNut ha scritto:
E' perfetto, Blackissimo!

Ovvio ha qualche difettuccio, ogni tanto fa cilecca, ma sfido chi abbia un metodo con esiti positivi al 100% di facile utilizzo e gratis a lungo andare....
Clicca per espandere...
Io, il metodo infallibile nella storia....ce l'ho!!!!!!
eripgi.gif
 
Ultima modifica:
B

Baffoblu

Guest
Se non vi offendete, gli ho dato
un "ottimizzata".
:)




Codice: 
Sub Main()
    Scrivi
    ColoreTesto 1
    Scrivi " ************************* METODO BY COCONUT *************************",1
    Scrivi
    ColoreTesto 1
    Scrivi " ************************ LISTATO - BLACKMORE ************************",1
    Scrivi
    ColoreTesto 0
    Dim aruo(1)
    Dim ambata(2)
    Dim aposta(10)
    aposta(1) = 1
    aruo(1) = r
    k = 12
    ini = EstrazioneFin - 50
    fin = EstrazioneFin
    co = 0
    r = InputBox(" Su quale ruota ?",,1)
    rs = InputBox("Quante estrazioni vuoi controllare?",,100)
    fin = EstrazioneFin
    ini = fin - rs
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        Messaggio(es)
        a = Figura(Estratto(es,1,1))
        b = Figura(Estratto(es,1,2))
        c = Fuori90(a * 10)
        d = Fuori90(c + b)
        ambata(1) = d
        ambata(2) = Vert(ambata(1))
        aruo(1) = r
        co = co + 1
        Scrivi String(80,"=") & " Caso n° " & co,1
        Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambate :   " & ambata(1) & " - " & ambata(2),1
        Scrivi String(80,"=")
        ImpostaGiocata 1,ambata,aruo,aposta,k
        Gioca es,1
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub



X CocoNut

mmmmmm....

conosco questa faccia.......

:):)
 
Ultima modifica di un moderatore:
R

Roby

Guest
Baffoblu ha scritto:
Se non vi offendete, gli ho dato
un "ottimizzata".
:)



Codice: 
Sub Main()
    Scrivi
    ColoreTesto 1
    Scrivi " ************************* METODO BY COCONUT *************************",1
    Scrivi
    ColoreTesto 1
    Scrivi " ************************ LISTATO - BLACKMORE ************************",1
    Scrivi
    ColoreTesto 0
    Dim aruo(1)
    Dim ambata(2)
    Dim aposta(10)
    aposta(1) = 1
    aruo(1) = r
    k = 12
    ini = EstrazioneFin - 50
    fin = EstrazioneFin
    co = 0
    r = InputBox(" Su quale ruota ?",,1)
    rs = InputBox("Quante estrazioni vuoi controllare?",,100)
    fin = EstrazioneFin
    ini = fin - rs
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        Messaggio(es)
        a = Figura(Estratto(es,1,1))
        b = Figura(Estratto(es,1,2))
        c = Fuori90(a * 10)
        d = Fuori90(c + b)
        ambata(1) = d
        ambata(2) = Vert(ambata(1))
        aruo(1) = r
        co = co + 1
        Scrivi String(80,"=") & " Caso n° " & co,1
        Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambate :   " & ambata(1) & " - " & ambata(2),1
        Scrivi String(80,"=")
        ImpostaGiocata 1,ambata,aruo,aposta,k
        Gioca es,1
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub



X CocoNut

mmmmmm....

conosco questa faccia.......

:):)
Clicca per espandere...



Offendersi????? stai scherzando Baffo? :D
In effetti il mio script era abbastanza spartano
Ciao e grazie :)
 
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Baffoblu ha scritto:
Se non vi offendete, gli ho dato
un "ottimizzata".
:)




Codice: 
Sub Main()
    Scrivi
    ColoreTesto 1
    Scrivi " ************************* METODO BY COCONUT *************************",1
    Scrivi
    ColoreTesto 1
    Scrivi " ************************ LISTATO - BLACKMORE ************************",1
    Scrivi
    ColoreTesto 0
    Dim aruo(1)
    Dim ambata(2)
    Dim aposta(10)
    aposta(1) = 1
    aruo(1) = r
    k = 12
    ini = EstrazioneFin - 50
    fin = EstrazioneFin
    co = 0
    r = InputBox(" Su quale ruota ?",,1)
    rs = InputBox("Quante estrazioni vuoi controllare?",,100)
    fin = EstrazioneFin
    ini = fin - rs
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        Messaggio(es)
        a = Figura(Estratto(es,1,1))
        b = Figura(Estratto(es,1,2))
        c = Fuori90(a * 10)
        d = Fuori90(c + b)
        ambata(1) = d
        ambata(2) = Vert(ambata(1))
        aruo(1) = r
        co = co + 1
        Scrivi String(80,"=") & " Caso n° " & co,1
        Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambate :   " & ambata(1) & " - " & ambata(2),1
        Scrivi String(80,"=")
        ImpostaGiocata 1,ambata,aruo,aposta,k
        Gioca es,1
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub



X CocoNut

mmmmmm....

conosco questa faccia.......

:):)
Clicca per espandere...

Grazie mille Baffo, per l'ottimizzazione dello script, nulla togliendo al mitico Blackissimo !
Però...lasciami un po' di curiosità, lo sai che questa è donna, ed oggi è la festa delle " curiose " :cool:
....a cosa ti riferivi con " conosco questa faccia" ?
Era riferito al metodino ?
Se sì, chiedo scusa all'autore originale del metodo,
ma giuro l'ho catturato, come sempre del resto, perchè è il mio modo di " vedere i numeri ",
guardando il quadro estrazionale. Spero di non aver interpretato male....

 
Ultima modifica:
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Black, mi sono giocata l'ambo 31 64 della quartina "Spia 59" nella sezione "metodi" poichè convergente...
e se dovessi vincere tra pochi minuti, ti garantisco il merito sarà tutto tuo,
e non come qualcun'altro possa pensare !
Un abbraccio !
 
M

morena59

Junior Member
......Sempre lei:rolleyes:
Codice: 
Sub Main
    Dim ruote(2)
    Dim posta(10)
    Dim n(4)
    Dim Importi(1,15)
    posta(1) = 1
    ruote(1) = 1
    Ini = 8350
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        AvanzamentoElab Ini,fin,es
        a1 = ControFigura(Estratto(es,10,1))
        a2 = ControFigura(Estratto(es,10,3))
        a3 = ControFigura(Estratto(es,10,5))
        a = Fuori90(a1 & a2 & a3)
        b = ComplAdX(a)
        co = co + 1
        n(1) = a
        n(2) =(b)
        ImpostaGiocata 1,n,ruote,posta,20,1
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* SEMPRE LEI  *°*°* ",1,3,0
    ScriviResoconto
End Sub
 
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Ottimo lavoro, Cicci!

Ora ti chiedo questo script :

Sommare i primi 2 estratti ad ogni estrazione sulla ruota di Bari, risultato e vertibile in gioco su ruota.
 
M

morena59

Junior Member
Ciao Pat,
BARI si presta molto bene a ogni sorte di giochini,
infatti anche questo non è male:rolleyes:
Il problema è coniugare le ambate di ogni giochino
Se si riuscisse in ciò,
sarebbe na strage a ogni estrazione
Codice: 
Sub Main
    Dim ruote(2)
    Dim posta(10)
    Dim n(4)
    Dim Importi(1,15)
    posta(1) = 1
    ruote(1) = 1
    Ini = 8350
    fin = EstrazioneFin
    co = 0
    For es = Ini To fin
        AvanzamentoElab Ini,fin,es
        a1 = Estratto(es,1,1)
        a2 = Estratto(es,1,2)
        a = Fuori90(a1 + a2)
        b = Vert(a)
        co = co + 1
        n(1) = a
        n(2) =(b)
        ImpostaGiocata 1,n,ruote,posta,20,1
        Gioca es
    Next
    Scrivi
    Scrivi String(65,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65," * ")
    TestoInBandaPassante "*°*°* Convergenze del Pantero *°*°* ",1,3,0
    ScriviResoconto
End Sub
 
M

morena59

Junior Member
Cmq noto che,anche qui molto forte il 36/63
tra l'altro appartenenti alla tua amata figura 9
Studia qualcosa di buono che un paio di euro ce li butto
Io vedo molto bene sti numeri:
8-10-36-63-80
 
Ultima modifica:
CocoNut

CocoNut

Advanced Member >PLATINUM PLUS<
Visto che risultati?
Pensa che questo giochino mi è saltato all'occhio qualche estrazione fa' e vedo che da' ottime soddisfazioni !
Volevo fare la richiesta di questo script oggi pomeriggio a Black, ma non ho fatto in tempo a postarla.
Cmq sì, convergente....il 18 - 81 si sposeranno col 63 ed io questo ambo lo porto avanti !
Ah, e spiegami il panterino...chi sarebbe?
 
Ultima modifica:
M

morena59

Junior Member
Se noti,le cinquine estrapolate,molto spesso hanno ambi in figura e in tripla di figura.
Magari se hai tempo,prova a fare delle verifiche con carta e penna formando delle quartine
con le ambate degli script in tuo possesso.Forse potrebbe essere una strada buona:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 maggio 2024
    Bari
    54
    50
    84
    64
    62
    Cagliari
    53
    65
    02
    72
    32
    Firenze
    40
    80
    14
    19
    13
    Genova
    05
    82
    07
    61
    47
    Milano
    86
    37
    62
    02
    55
    Napoli
    86
    23
    73
    74
    31
    Palermo
    78
    01
    57
    33
    47
    Roma
    40
    66
    27
    45
    64
    Torino
    76
    29
    05
    49
    64
    Venezia
    44
    07
    66
    68
    87
    Nazionale
    28
    88
    09
    77
    72
    Estrazione Simbolotto
    Milano
    31
    39
    13
    17
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto