metodo BARI CAGLIARI 11^ ESTRAZIONE MENSILE

[barone]

All'11^ estrazione mensile giocare si BARI e CAGLIARI la seguente previsione per 9 colpi.
ambata ...................3° di GE+14
abbinamento ambo...5° di TO+25
abbinamento terno....1° di MI+04
abbinamento quater...4°di BA+18
abbinamento cinq.....5° di VE+26

si possono anche giocare tutti i cinque numeri per la sorte di ambo terno quaterna e cinquina.
casi esaminati 15 - ambi vinti 37 - terni 22 - quaterne 10 - cinquine 2
meditate gente meditate............a breve sarà disponibile lo script per coloro che non amano la matematica.
previsione in corso dal 26 gennaio 2016 per 9 colpi ruote BA - CA:-
ambata 61 abbinamenti:- 1 - 50 - 6 - 47 in bocca al lupo.......

 

[barone]

ecco lo script del metodo.............

Sub main()
Scrivi
ColoreTesto 1
Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
Scrivi "programma ideato dal Barone di Aversa"
Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
Scrivi
Dim posta(5)
Dim pst(5)
Dim ruote(10)
Dim rt(10)
Dim ma(10)
Dim mb(10)
posta(1)=1 'posta ambata
pst(2)=1 'posta ambo
pst(3)=1 'posta terno
pst(4)=0.40
pst(5)=0.10
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)=11 Then ' scelta indice mensile 11^=undicesima del mese
a=Estratto(es,4,3)
b=Estratto(es,9,5)
c=Estratto(es,5,1)
d=Estratto(es,1,4)
e=Estratto(es,10,5)
f=Estratto(es,10,5)
ColoreTesto 1 :Scrivi "------------------11^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 (GE_)&" "& StringaEstratti (es,4)&" - "& SiglaRuota (TO_)&" "& StringaEstratti (es,9)&" - "& SiglaRuota (MI_)&" "& StringaEstratti (es,5)&" <<calcolo previsione>>:-"
ColoreTesto 1:Scrivi"<<Ambata(3°GE+14)Abbinamenti(5°TO+25)(1°MI+4)(4°BA+18)(5°VE+26)>>"
Scrivi
i=Fuori90((a)+14) 'ambata
l=Fuori90((b)+25)'abbinamenti
m=Fuori90((c)+4)
n=Fuori90((d)+18)
o=Fuori90((e)+26)
ruote(1)=1 'scelta ruota di gioco
ruote(2)=2
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)=i 'ambata in gioco
ImpostaGiocata 1,ma,ruote,posta,k
mb(1)=i
mb(2)=l
mb(3)=m
mb(4)=n
mb(5)=o
ImpostaGiocata 2,mb,ruote,pst,k
ImpostaGiocata 3,mb,rt,pst,k
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub



scusatemi ho postato il metodo due volte........