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
    venerdì 10 ottobre 2025
    Bari
    50
    79
    52
    88
    45
    Cagliari
    38
    69
    86
    25
    05
    Firenze
    86
    43
    66
    38
    31
    Genova
    33
    13
    45
    77
    09
    Milano
    01
    22
    59
    31
    54
    Napoli
    65
    70
    14
    53
    71
    Palermo
    51
    67
    82
    74
    84
    Roma
    46
    18
    33
    88
    08
    Torino
    78
    20
    23
    05
    65
    Venezia
    58
    33
    40
    51
    89
    Nazionale
    90
    74
    51
    41
    40
    Estrazione Simbolotto
    36
    37
    35
    21
    31
Indietro
Alto