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
    giovedì 03 luglio 2025
    Bari
    33
    40
    47
    65
    61
    Cagliari
    78
    19
    74
    44
    05
    Firenze
    46
    50
    38
    79
    19
    Genova
    72
    48
    47
    66
    34
    Milano
    11
    19
    37
    61
    16
    Napoli
    66
    85
    20
    29
    74
    Palermo
    46
    10
    66
    76
    35
    Roma
    34
    66
    75
    79
    74
    Torino
    27
    33
    40
    59
    10
    Venezia
    50
    26
    68
    07
    30
    Nazionale
    04
    17
    74
    46
    41
    Estrazione Simbolotto
    Nazionale
    34
    03
    11
    07
    32
Indietro
Alto