alla 5^ estrazione mensile si gioca sulle ruote di CAGLIARI e NAPOLI

[barone]

Indice mensile:- 5^ estrazione ruote di gioco CA-NA colpi:-9

1° di PA + 1° di TO + 70 (ambata)
1° di MI X 2° di RO + 34 (1° abbin.)
4° di GE + 2° di MI + 09 (2° abbin.)
2° di FI + 4° di RO+ 71 (3° abbin.)
1° di NA X 4° di VE +87 (4° abbin.)

le operazioni vanno eseguite con il fuori 90.

giocando l'intera cinquina in 15 casi (mesi) ambi:-47 terni:-32 quaterne:-15 cinquine:-3

giocando l'ambata proposta con gli abbinamenti ambate:-40 ambi:-10 terni:-4 quaterne:-3 cinquine:-3

previsione dall'11.02.2016 ruote CA-NA colpi-9 25(ambata) abbin.4-49-83-12

segue script per il momento un abbraccio a tutti alla prossima..........

 

[Luca74]

(Untitled)

wow!!! 2 Terni e una quaterna di media per ogni previsione..

 

[skygirl]

Ottimo complimenti

 

[barone]

Ecco lo script per chi vuole verificare il rendimento delle previsioni:-


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)=5 Then ' scelta indice mensile 1=Prima del mese
a=Estratto(es,7,1)
b=Estratto(es,9,1)
c=Estratto(es,5,1)
d=Estratto(es,8,2)
e=Estratto(es,4,4)
f=Estratto(es,5,2)
x=Estratto(es,3,2)
y=Estratto(es,8,4)
z=Estratto(es,6,1)
za=Estratto(es,10,4)
ColoreTesto 1 :Scrivi "------------------5°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 (NA_)&" "& StringaEstratti (es,6)
Scrivi
g=Fuori90(a+b)+70 'ambata
h=Fuori90(c*d)+34 'ambo
i=Fuori90(e+f)+9 'terno
l=Fuori90(x+y)+71 'quaterna
m=Fuori90(z*za)+87 'cinquina
ruote(1)=2 'scelta ruota di gioco
ruote(2)=6
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
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

Fate attenzione a questo metodo. Saluti a tutti......

 

[skygirl]

Grazie barone per lo script ma purtroppo mi da errore puoi inserirlo come codice vediamo se continua a dare errore

 

[Alien.]

esatto errore::::::::::::im posta(5),poste2(10),poste3(10),poste4(10),poste5(1 0),poste6(10)

 

[avio]

Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(1 0),poste6(10)
Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(1 0),poste6(10) ''''' ok
poste5 va eliminato lo spazio

 

[Luca74]

(Untitled)

ambo e ambata Na bravo... Grazie mille

 

[lucia13]

Salve mi presento , sono Lucia entro poco ed ho letto ora la sua previsione, sarebbe così gentile da consigliarmi, se si deve continuare? Grazie infinite per la risposta ?????????????????

 

[kira]

baroneeeee ......preso l'ambo al 1°cp .....il gioco si ferma o si prosegue???????

GRAZZZZZZZZZZIEEEE

 

[barone]

Signori accolgo volentieri i ringraziamenti di tutti coloro che hanno vinto al primo colpo con questa bella tecnica che ha fornito l'ambata 25 più ambo 25-49 a Napoli purtroppo è sortito il numero 82 invece dell'83 che avrebbe regalato un bel Terno.
NB. ho riparato l'errore dello script.
Chi se la sente può continuare a giocare il metodo fino alla 9^ estrazione di gioco che rimane sempre valido oppure giocare alla prossima previsione.......Bay

 

[Alien.]

Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(1 0),poste6(10)
Dim posta(5),poste2(10),poste3(10),poste4(10),poste5(1 0),poste6(10) ''''' ok
poste5 va eliminato lo spazio

OK PERFETTO......ma si potrebbe mettere in evidenza solo le ruote CA e NA ? GRAZIE.

 

[NEM]

Salve il 10 Marzo era la quinta estrazione del mese e ho calcolato i seguenti numeri:

ambata 32
abbinamenti: 70-24-38-12

sono giusti?

 

[kendariel]

Adoperando lo script sopra il calcolo è esatto ( prudenza è un sommativo)

 

[Luca74]

(Untitled)

continuano a prenderci in giro questi numeri...

 

[Alien.]

ma no è lottomatica che li cambia..........