**** ULTIMA DEL MESE IN GIOCO SOLO 2 AMBI SECCHI*****

[vecchione]

**** ultima del mese in gioco solo 2 ambi secchi*****

Data inizio Ricerca: 28/8/2014
Data fine Ricerca: 31/1/2015
Ruota di Ricerca: Ba
Ruota/e di Gioco: Ba -TUTTE-
Colpi di gioco: 6
Combinazioni in gioco: 2 ambi secchi
Estrazione di calcolo: ultima estrazione mensile
Previsioni Giocabili: 6
Previsioni Vincenti: 5(83,33%)
Previsioni Negative: 0 (0%)
Previsioni in Gioco: 1
Ambi vinti: 5 (100%)
Tempo medio di attesa per ambo: 2,6
Calcolo delle combinazioni:
1° Ambo: 1° Ba + 10 ** 1° Ba + 72
2° Ambo: 1° Ba + 15 ** 1° Ba + 33

Si è applicata la regola del fuori 90
INIZIO GIOCO* MARTEDI 3 FEBBRAIO 2015*
LA PREVISIONE CALCOLATA VA GIOCATA DA QUESTA SERA E PER SEI COLPI,DA GIOCARE A BARI E TUTTE LE RUOTE
Inizio di gioco: Prossima estrazione
Colpi ancora in gioco: 6
Ruota\e di gioco: Ba- TUTTE-
Ambi da giocare: 46-18 / 51-69


ALLA PRIMA VINCITA IL GIOCO SI FERMA

 

[roy]

ciao,nella speranza che possa essere d'aiuto

Sub Main()
TestoInBandaPassante "***** LISTATO BY ROY ****** ",1,3,0
Dim poste(2)
Dim ruote(3)
Dim am(4)
poste(2) = 1
so = CInt (InputBox("quale estrazione?","estrazione",1))
K = 6
fin = EstrazioneFin
ini = EstrazioneFin - 120
For es = ini To fin
If IndiceMensile(es +1) = so Then
a = Fuori90(Estratto(es,1,1)+ 10)
b = Fuori90(Estratto(es,1,1)+ 72)
c = Fuori90(Estratto(es,1,1)+ 15)
d = Fuori90(Estratto(es,1,1)+ 33)
casi = casi + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "-METODO VECCHIONE--  LISTATO ROY -- COLPI 6 ---",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ruote(1) = 1
ruote(2) = 11
'ruote(3) = 12
am(1) = a
am(2) = b
ImpostaGiocata 1,am,ruote,poste,K
am(1) = c
am(2) = d
ImpostaGiocata 2,am,ruote,poste,K
Gioca es,True
End If
Next
ColoreTesto 0
TestoInBandaPassante "******* LISTATO BY ROY ******* ",1,3,0
ScriviResoconto
End Sub

 

[LUNARES]

NELLO SCRIPT RISCONTRO QUALCHE ERRORE :- NELLO SPECIFICO RICHIAMA ERRORE RIGA 30 next mancante ( ma le righe sono meno).........QUINDI PER FARLO FUNZIONARE SU SPAZIOMETRIA..ho eseguito questa correzione:_


dopo End if ho aggiunto
Next
ScriviResoconto
End Sub

e funziona tutto a meraviglia........

Grazie

 

[LUNARES]

Grazie anche al Signor Vecchione per i suoi preziosissimi consigli

 

[roy]

ciao lunares,grazie ho copiato male....ora gira bene...

 

[vecchione]

CIAO!!! A BARI è RISULTATO SOLO IL 51 MENTRE SU TUTTE ABBIAMO VINTO L'AMBO SECCO A COLPO PRECISAMENTE AMBO SECCO 51-69 TORINO AUGURI A TUTTI I VINCITORI

 

[isabel]

Bravissimo, come sempre! Isabel

 

[LUNARES]

BRAVISSIMO SIGNOR VECCHIONE.....

 

[lallina]

bravo Antonio

 

[fermino]

bravo Vecchione funziona davvero anche io ho giocato e vinto su tutte 51-69 peccato per bari solo il 51

 

[roy]

complimenti......

 

[frankobaldo]

grazie mille al Sig.Vecchione