Novità

raccolta script ambo a tutte

keeper

keeper

Advanced Member >PLATINUM PLUS<
Sub Main()
' matematica sommativa applicata a lotto ambo in terzina
Dim rt(2) 'la ruota è una (1)
Dim nr(3) ' i nr in gioco sono 3

Dim pta(2) ' la puntata che faccio è l'ambo

pta(2) = 1 'la puntata sull'ambo(2) è di 1 euro
rt(1) = 1 ' la ruota che è una (1) è 1 ovvero BA
rt(2) = 11 ' la ruota è tutte
k = 5 ' i Kolpi in gioco sono 5
For n = 8000 To EstrazioneFin
If IndiceMensile(n) = 1 Then 'i conti li faccio sulla prima estrazione del mese
ng = 0
nr(1) = Fuori90(Estratto(n,1,1) + 51)'prendo il 4° estratto della 1^ estraz del mese di BA e aggiungo 51
nr(2) = (nr (1) + 3)'prendo il numero ricavato estratto della 1^ estraz del mese di BA e aggiungo 3
nr (3) = (nr (1) + 5) ' prendo il numero ricavato estratto della 1^ estr del mese di BA e aggiungo 5
'i tre num così ricavati li metto in gioco per ambo a tutte
ImpostaGiocata 1,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
Gioca n
End If
Next
ScriviResoconto
End Sub
 
Ciao keeper, anch'io voglio regalarvi un metodo
di 1 ambo secco su tutte le ruote
Ieri sera ha dato la vincita di doppio ambo su Na e Ve
Con la speranza che continui a vincere anche il prossimo mese......


Scrivi : Scrivi "Alla 6°estrazione del mese giochiamo 1 Ambo Secco su TUTTE le Ruote""By Blackmore"

Sub main()
Dim n1(2),n2(2),pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=8 'colpi di gioco
rt(1)=11 '1a ruota di gioco

ini=EstrazioneFin -130
fin=EstrazioneFin
co=0

For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=6 Then '1a estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1

'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,3,2)'<<--- questo è il 2^estr. di Firenze!!!

'------------------------------Ambo
nn(1)=Fuori90 (a+56)
nn(2)=Fuori90 (a+85)

ImpostaGiocata 1,nn,rt,pta,clp,2

Gioca es

End If
Next

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

End Sub



Blackmore
 
Ciao speriamo che se ne aggiungano altri . posso chiederti una cortesia ne ho postato un'altro nel post di claudi8 superclik potresti correggerlo e postarlo qui
 
NON MI PARE CHE PRENDI IL 4° estratto, dallo script si legge estratto(n,1,1) quindi il 1° estratto.


X Keeper, senza voler polemizzare, esprimo la mia.

SE consideriamo solo gli "ambi a tutte in terzina", come da titolo.
il resoconto che leggiamo, ance se sbagliato nelle bollette vincenti
(bug x LUIGI), ci da su tutte n. 16 vincite di ambi in terzina( +
una doppia) che pagano nette 7.83 euro x un totale di incasso di 133.16 euro a fronte di 110 euro di bollette giocate. La giocata è in attivo di 23 euro ( questo è positivissimo).
In 29 mesi, belin (esclamazione), caro keeper, in tutti questi mesi non consumando le scarpe per recarmi in ricevitoria, avrei ottenuto un risparmio maggiore della giocata.

Occorrerebbe qualcosa di piùcostante nelle vincite, 3 ambi a tutte le 10 ruote x 5 colpi = 1 anbo a ruota x 150 estrazioni.

Vuoi mettere la soddisfazione dell' "ambo secco a ruota"

Ciao

Non penso che sia difficile da trovare =
 
quote:Originally posted by Blackmore


Ciao keeper, anch'io voglio regalarvi un metodo
di 1 ambo secco su tutte le ruote
Ieri sera ha dato la vincita di doppio ambo su Na e Ve
Con la speranza che continui a vincere anche il prossimo mese......


Scrivi : Scrivi "Alla 6°estrazione del mese giochiamo 1 Ambo Secco su TUTTE le Ruote""By Blackmore"

Sub main()
Dim n1(2),n2(2),pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=8 'colpi di gioco
rt(1)=11 '1a ruota di gioco

ini=EstrazioneFin -130
fin=EstrazioneFin
co=0

For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=6 Then '1a estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1

'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,3,2)'<<--- questo è il 2^estr. di Firenze!!!

'------------------------------Ambo
nn(1)=Fuori90 (a+56)
nn(2)=Fuori90 (a+85)

ImpostaGiocata 1,nn,rt,pta,clp,2

Gioca es

End If
Next

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

End Sub



Blackmore
Clicca per espandere...


BRAVO.. e' tutto un' altro c...e ( come dicono in piemonte )

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

Ps; :D:D però ... potevi postarlo prima :D:D
 
ECCOTI ACCONTENTATO caro keeper

Codice: 
Sub Main()
' un solo ambo da giocare a tutte metodo sommativo
Dim rt(3) 'le ruote sono due (2)
Dim nr(2) ' i nr in gioco sono 2

Dim pta(2) ' la puntata che faccio è l'ambo
pta(2) = 1 'la puntata sull'ambo (2) è di 1 euro
'rt(1) = 1 ' la ruota è bari 
'rt (2) = 8 ' la ruota è roma
rt (3) = 11 ' la ruota è tutte
k = 7 ' i colpi in gioco sono 7
For n = 8000 To EstrazioneFin
If IndiceMensile(n) = 1 Then 'i conti li faccio sulla prima estrazione del mese
ng = 0
nr(1) = Fuori90(Estratto(n,1,1) * 80)'prendo il 1° estratto della 1^ estraz del mese di BA 
nr(2) = Fuori90(Estratto(n,8,5) + 35)'prendo il 5° estratto della 1^ estraz del mese di RO 
'i due numeri così ricavati li metto in gioco per ambo a tutte, 
ImpostaGiocata 2,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 1
Gioca n
End If
Next
ScriviResoconto
End Sub

Comunque funziona a tratti e no è di mio gusto, ciao
Claudio
 
caro claudio8 grazie ma sappi che io non so sviluppare degli script cononsco solo pochi comandi. nel primo script dove mi dici che predo il n.1 e non il 4 è vero ho scritto male il secondo non è di tuo gradimento e va bene ma almeno smettila di fare il maestrino e collabora un pò stai proprio prendendo l'atteggiamento di unj capoclasse sai cosa faccio alla prossima riunione di classe ti mando elephant
 
Keeper lascia perdere il capoclasse, concentrati sugli script, ci sono nel forum i video lezioni di Luigi, se non li hai visti fallo,
sono un ottima base per cominciare a capire.
Tu che sei giovane , senza grilli per la testa puoi imparare facilmente, ameno che tu non sia un :D:D somaro :D:D:D

Se ti interessa la matematica sommativa devi cercare sul web gli script che cercano le basi ( 1° estratto di Ba + fisso x ) e gli esiti. Con i tentativi manuali non andrai molto lontano.

Ciao
 
grazie sai non lo sapevo
cmq ho 38 anni credo sia ancoraq giovane ih..oh..ih..ho...
 
Il metodo è molto discontinuo, (2 casi positivi negli ultimi 10), se lo avesse trovato 2 anni fa avremmo vinto ogni mese per 9 mesi di fila
, comunque mai dire mai
A volte vorrei postarli anche qui, ma so che non è la sezione adatta e non so se qualcuno li giocherebbe

Blackmore
 
Contribuisco anch'io con questo vecchio metodo (non conosco l'autore), che gioca 4 ambi su Tutte
dopo l'uscita del numero spia 47 su Cagliari.
Codice: 
Sub main()
Dim rt(1),pta(2),nr(4),ambo(4)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",200))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",14))
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es

sp=47	'numero spia
r=2	'su Cagliari

For p=1 To 5
a=Estratto(es,r,p)
If a=sp Then

rt(1)=11
pta(2)=1
ng=0

cap=Fuori90(Estratto(es,1,1)+58)
nr(1)=Fuori90(Estratto(es,5,1)+50)
nr(2)=Fuori90(Estratto(es,6,1)+10)
nr(3)=Fuori90(Estratto(es,7,1)+33)
nr(4)=Fuori90(Estratto(es,8,1)+18)
For x=1 To 4
ambo(1)=cap
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next

co=co+1
Scrivi String(70,"=")&" caso n° "&co,1
Scrivi DataEstrazione(es)&"	"& NomeRuota(r)&" [ "& StringaEstratti(es,r)&" ] Numero spia "&(sp),1
Scrivi Space(12)&String(58,"="),1
Scrivi

Gioca es
End If
Next
Next
ScriviResoconto
End Sub
ciauz
:)

Fortuna non omnibus aeque.
 
quote:Originally posted by Blackmore

Il metodo è molto discontinuo, (2 casi positivi negli ultimi 10), se lo avesse trovato 2 anni fa avremmo vinto ogni mese per 9 mesi di fila
, comunque mai dire mai
A volte vorrei postarli anche qui, ma so che non è la sezione adatta e non so se qualcuno li giocherebbe

Blackmore
Clicca per espandere...

MI riferivo allo script postato a questo link

http://forum.lottoced.com/topic.asp?TOPIC_ID=133637

X Thauk
cosa ne pensi dello script al link indicato ?
 
quote:Originally posted by Blackmore

Il metodo è molto discontinuo, (2 casi positivi negli ultimi 10), se lo avesse trovato 2 anni fa avremmo vinto ogni mese per 9 mesi di fila
Blackmore
Clicca per espandere...
Mi spieghi come fai a trovare gli etratti ed i fissi per la costruzione degli ambi da giocare?
Hai un programma specifico?

Grazie
 
quote:Originally posted by Blackmore

Mamma mia, non ci capisco nulla, troppo complicato, a parte che mi da errore di sintassi alla riga 27 (ma poco importa)
Qui ci vuole uno davvero bravo, io i listati li modifico solo
Ho capito in realtà cosa cerchi ma non so che dirti, io uso solo la sommativa


Blackmore
Clicca per espandere...
VISTO


Praticamente li imposti e verifichi se sono validi o fa da solo le ricerche per trovarli ?


Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Il metodo di blackmore e insito nel programma .... andate
su metodi sommativi fate un po di prove, prima o poi vi imbattere
su una percentuale come questa e sostituite firenze e l'indice mensile con quello che ha parametri che riterrete più opportuni
sulla falsariga dello script di blackmore
seguite questi passaggi......

furbix1.jpg

furbix.jpg
 
In poche parole, tu scegli la ruota di gioco che vuoi, le condizioni, (colpi tipo di gioco, estrazione mensile, spia etc) e lui fa tutto se non trova quello che cerchi modifichi i colpi o la ruota di ricerca o quella di gioco etc etc e si va avanti a tentativi, una volta trovato il metodo che soddisfa le tue esigenze fai lo script per vedere la statistica nello specifico e poi metti in gioco la previsione...

Blackmore
 
Esatto Filotto, il mio metodo è proprio quello, l'ho ricavato proprio così

Blackmore
 
X Filotto, conosco questa parte del programma, però pensavo che lui avesse qualche specifico costruttore.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto