sistema per BA e CA 6a estr.

[Roby]

Sistema per ba e ca trovato in un altro forum.
====================================================================
Salve ragazzi

Vi propongo un metodino che funziona da piu' di due anni ovvero dal 03/01/2004..

Per quanto ancora funzionerà non lo so...pero' tentar non nuoce...Ovviamente usando sempre la solita necessaria prudenza...

Ruota/e di gioco: BA/CA

Estrazione di calcolo: 6° estrazione del mese

Periodo di gioco: 11 colpi

Calcolo delle combinazioni:

1° Ambo: 1° Ba + 58 ** 1° Fi + 73
2° Ambo: 1° Ba X 48 ** 2° Naz + 50
3° Ambo: 1° Ba + 16 ** 3° Mi + 28
4° Ambo: 1° Ba + 80 ** 3° Naz + 7

Previsioni Giocabili: 32
Previsioni Vincenti: 31(96,88%)
Previsioni Negative: 0 (0%)
Previsioni in Gioco: 1
Ambi vinti: 31 (100%)
Tempo medio di attesa per ambo: 5,4

Previsione in corso:

BA/CA: 35-73 / 66-1 / 83-81 / 57-3

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Ecco il listato


Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2)=1.5
ruote(1)=1
ruote(2)=2
k=14
y=2
For n=7301 To EstrazioneFin
If IndiceMensile=6 Then
ng=0
numeri1(1)=Fuori90(Estratto(n,1,1)+58)
numeri1(2)=Fuori90(Estratto(n,3,1)+73)

EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1)=Fuori90(Estratto(n,1,1)*48)
numeri1(2)=Fuori90(Estratto(n,12,2)+50)

EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1)=Fuori90(Estratto(n,1,1)+16)
numeri1(2)=Fuori90(Estratto(n,5,3)+28)

EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
numeri1(1)=Fuori90(Estratto(n,1,1)+80)
numeri1(2)=Fuori90(Estratto(n,12,3)+7)

EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a=1 To ng
For b=1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

=====================================================================
Ciao max

 

[GREEN]

UN GRAZIE PER DARCI LA POSSIBILITA' DI CONOSCERE NUOVI METODI E FARNE TESORO, GRAZIE[][]

GREEN