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
    martedì 01 luglio 2025
    Bari
    71
    66
    48
    42
    76
    Cagliari
    84
    70
    23
    69
    43
    Firenze
    50
    21
    30
    11
    69
    Genova
    89
    41
    50
    80
    67
    Milano
    41
    59
    67
    03
    60
    Napoli
    87
    63
    51
    42
    07
    Palermo
    56
    87
    76
    27
    09
    Roma
    41
    26
    50
    22
    77
    Torino
    36
    83
    80
    65
    05
    Venezia
    45
    77
    76
    81
    71
    Nazionale
    72
    06
    03
    08
    07
    Estrazione Simbolotto
    Nazionale
    34
    27
    08
    12
    17
Indietro
Alto