alla 1^ del mese si gioca su CAGLIARI e TORINO

[barone]

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 segue script.....

 

[barone]

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

 

[Luca74]

(Untitled)

grazie mille

 

[fata65]

ciao barone lo scripit da errore 0),poste6(10)

 

[Remoto]

[No message]

 

[claudio8]

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.

 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.

 

[angela s.]

Mi scusi signor barone....ma i conteggi si fanno alla prima estrazione del mese o all' ultima? Grazie

 

[giorgioantonio]

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

 

[NEM]

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.

 

[giorgioantonio]

Salve Nem, grazie dell'aiuto risposta e naturalmente più logica.
Vediamo se si promuove per un programma al 10elotto serale.
Ciao

 

[robertos]

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

 

[angela s.]

Salve ho tirato fuori la nuova previsione ca to 46 73 59 66 32

 

[Alien.]

ciao, scusate ma mi da errore:


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


quel poste6? perchè?

 

[Joe91]

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

 

[NEM]

03/03 ambata CA 59
12/03 ambate a CA 46 e TO 59

 

[NEM]

Vi segnalo che il 26 marzo ha dato l'ambo a Torino 46-32

 

[NEM]

alla prima estrazione di aprile ( 02/04/2016):

16

51

30

6

18