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
    sabato 11 maggio 2024
    Bari
    71
    67
    47
    25
    88
    Cagliari
    24
    54
    06
    42
    02
    Firenze
    12
    33
    75
    30
    68
    Genova
    51
    70
    74
    37
    73
    Milano
    50
    81
    15
    25
    71
    Napoli
    58
    54
    43
    63
    52
    Palermo
    50
    80
    31
    04
    67
    Roma
    26
    57
    85
    89
    05
    Torino
    18
    07
    82
    14
    78
    Venezia
    54
    49
    86
    34
    28
    Nazionale
    51
    07
    24
    90
    75
    Estrazione Simbolotto
    Milano
    43
    23
    31
    10
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto