Novità

alla 1^ del mese si gioca su CAGLIARI e TORINO

barone

Member
Alla prima estrazione del mese giocare sulle ruote di CA-TO per nove colpi la seguente previsione:-

Ambata:- 5° di FI+ 1° di RO+44
Ambo :-1° di NA+ 3° di RO+13
terno :-2° di FI + 4° di NZ+49
quater. :-4° di NA + 4° di RO+14
cinq. :-5° di CA + 4° di RO+13

Casi 15 dal 4.11.2014 al 2.2.2016 ambate:-38 ambi:-9 terni:-4 quaterne:-3 cinquine:- 2

previsione dal 02.02.2016 ruote CA-TO per colpi 9 ambata 21 per abbinamento:-88-29-44-89 ;);):D segue script.....
 
Signori ecco lo script promesso fate le Vs. verifiche........

Sub main()
Scrivi
ColoreTesto 1
Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
Scrivi "programma ideato dal Barone di Aversa"
Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
Scrivi
Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(10),poste6(10)
Dim pst(5)
Dim ruote(10)
Dim rt(10)
Dim ma(10)
Dim mb(10)
posta(1)=1 '
poste2(6)=1
poste3(7)=1
poste4(8)=1
poste5(9)=1
poste6(10)=1
pst(2)=1
pst(3)=1
pst(4)=1
pst(5)=1
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",200)
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",9))'scelta colpi di gioco
fin=EstrazioneFin 'fine ricerca
ini=EstrazioneFin-rs 'inizio ricerca
For es=ini To fin
If IndiceMensile(es)=1 Then ' scelta indice mensile 1=Prima del mese
a=Estratto(es,3,5)
b=Estratto(es,8,1)
c=Estratto(es,6,1)
d=Estratto(es,8,3)
e=Estratto(es,3,2)
f=Estratto(es,NZ_,4)
x=Estratto(es,6,4)
y=Estratto(es,8,4)
z=Estratto(es,2,5)
ColoreTesto 1 :Scrivi "------------------1°estrazione del mese---------------------------Metodo e listato del Barone di Aversa",1
ColoreTesto 2
co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&" "& SiglaRuota (CA_)&" "& StringaEstratti (es,2)&" - "& SiglaRuota (TO_)&" "& StringaEstratti (es,9)
Scrivi
g=Fuori90(a+b)+44 'ambata
h=Fuori90(c+d)+13 'ambo
i=Fuori90(e+f)+49 'terno
l=Fuori90(x+y)+14 'quaterna
m=Fuori90(z+y)+13 'cinquina
ruote(1)=2 'scelta ruota di gioco
ruote(2)=9
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5
rt(6)=6
rt(7)=7
rt(8)=8
rt(9)=9
rt(10)=10
ma(1)=Fuori90(g)
ImpostaGiocata 1,ma,ruote,pst,k
mb(1)=Fuori90(g)
mb(2)=Fuori90(h)
mb(3)=Fuori90(i)
mb(4)=Fuori90(l)
mb(5)=Fuori90(m)
ImpostaGiocata 2,mb,ruote,pst,k
ImpostaGiocata 5,mb,rt,pst,k
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub
 
Riposto lo script escludendo le giocate su ruote CA e To.
Faccio notare che la giocata su tutte le 8 ruote restanti ( ad esclusione di CA e TO) è pesantemente in perdita, non ne vedo la convenienza.
Codice:
 Sub Main()
    Scrivi
    ColoreTesto 1
    Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
    Scrivi "programma ideato dal Barone di Aversa"
    Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
    Scrivi
    Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(10),poste6(10)
    Dim pst(5)
    Dim ruote(10)
    Dim rt(10)
    Dim ma(10)
    Dim mb(10)
    posta(1) = 1 '
    poste2(6) = 1
    poste3(7) = 1
    poste4(8) = 1
    poste5(9) = 1
    poste6(10) = 1
    pst(2) = 1
    pst(3) = 1
    pst(4) = 1
    pst(5) = 1
    rs = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",200)
    k = CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",9))'scelta colpi di gioco
    fin = EstrazioneFin 'fine ricerca
    ini = EstrazioneFin - rs 'inizio ricerca
    For es = ini To fin
        If IndiceMensile(es) = 1 Then ' scelta indice mensile 1=Prima del mese
            a = Estratto(es,3,5)
            b = Estratto(es,8,1)
            c = Estratto(es,6,1)
            d = Estratto(es,8,3)
            e = Estratto(es,3,2)
            f = Estratto(es,NZ_,4)
            x = Estratto(es,6,4)
            y = Estratto(es,8,4)
            z = Estratto(es,2,5)
            ColoreTesto 1 :Scrivi "------------------1°estrazione del mese---------------------------Metodo e listato del Barone di Aversa",1
            ColoreTesto 2
            co = co + 1
            Scrivi String(65,"=") & " Caso n° " & co
            Scrivi DataEstrazione(es) & " " & SiglaRuota(CA_) & " " & StringaEstratti(es,2) & " - " & SiglaRuota(TO_) & " " & StringaEstratti(es,9)
            Scrivi
            g = Fuori90(a + b) + 44 'ambata
            h = Fuori90(c + d) + 13 'ambo
            i = Fuori90(e + f) + 49 'terno
            l = Fuori90(x + y) + 14 'quaterna
            m = Fuori90(z + y) + 13 'cinquina
            ruote(1) = 2 'scelta ruota di gioco
            ruote(2) = 9
            rt(1) = 1
            'rt(2) = 2
            rt(3) = 3
            rt(4) = 4
            rt(5) = 5
            rt(6) = 6
            rt(7) = 7
            rt(8) = 8
            'rt(9) = 9
            rt(10) = 10
            ma(1) = Fuori90(g)
            'ImpostaGiocata 1,ma,ruote,posta,k ' 'CA e TO x ambata
            mb(1) = Fuori90(g)
            mb(2) = Fuori90(h)
            mb(3) = Fuori90(i)
            mb(4) = Fuori90(l)
            mb(5) = Fuori90(m)
            'ImpostaGiocata 2,mb,ruote,pst,k 'CA e TO da ambo a cinquina
            ImpostaGiocata 5,mb,rt,pst,k  ' su tutte da ambo a cinquina
            Gioca  es,True,False,True
            casi = casi + 1
        End If
    Next
    Scrivi
    Scrivi
    Scrivi "Numero Totale mesi analizzati : " & CInt(casi)
    ScriviResoconto
End Sub
Un saluto, sperando di essere stato di auito.
 
Ultima modifica:
Salve Barone di Aversa,
una semplice domanda: che senso ha giocare una cinquina su tutte oppure 8 ruote?
Cioè se usassi una progressione al terzo gioco gia il capitale da impegnare se non
raddoppia .
Forse mi manca qualche nozione?
Salve
 
giorgioantonio;n1959461 ha scritto:
Salve Barone di Aversa,
una semplice domanda: che senso ha giocare una cinquina su tutte oppure 8 ruote?
Cioè se usassi una progressione al terzo gioco gia il capitale da impegnare se non
raddoppia .
Forse mi manca qualche nozione?
Salve

Salve. Barone indica due ruote per metodo e suggerisce di giocare quaterna e cinquina su tutte ma la base rimangono sempre due ruote.
 
Ciao barone ho un metodo tuo alla 8 del mese si gioca bari Cagliari mi puoi dire se lo sviluppato giusto 78 ambata abbinamenti 15 19 29 74 grazie fammi sapere
 
ciao, scusate ma mi da errore:


Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(1 0),poste6(10)


quel poste6? perchè?
 
Ultima modifica:
Alien.;n1963835 ha scritto:
ciao, scusate ma mi da errore:


Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(1 0),poste6(10)


quel poste6? perchè?


Guarda che ... l'errore è "lo spazio" tra "1" e "Zero" nel numero "10" ...

... in poste5

:)
 
Ultima modifica:
alla prima estrazione di aprile ( 02/04/2016): [TABLE="border: 0, cellspacing: 0"]
[TR]
[TD="width: 86, bgcolor: #ffff99"]16[/TD]
[/TR]
[TR]
[TD="bgcolor: #ffff99"]51[/TD]
[/TR]
[TR]
[TD="bgcolor: #ffff99"]30[/TD]
[/TR]
[TR]
[TD="bgcolor: #ffff99"]6[/TD]
[/TR]
[TR]
[TD="bgcolor: #ffff99"]18[/TD]
[/TR]
[/TABLE]
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto