x MIKE58 proviamo questo

[samsung444]

metodo
ricava un terno secco sulla ruota di Cagliari
da giocare per 12 estrazioni

Iter Operativo:

Ad ogni quinta estrazione del mese si prende in considerazione il 2° estratto di Bari e si somma al fisso +61, il 3° estratto di Bari e si somma al fisso +88 e il 1° estratto di Cagliari e si somma al fisso +50. Se il risultato della somma dovesse venire superiore a 90 si sottrae 90 allo stesso numero. Il risultato dovrà essere giocato su Cagliari per 12 estrazioni per ambo e terno.

Riepilogando i calcoli da effettuare alla quinta estrazione del mese sono:

2° Ba +61

3° Ba +88

1° Ca +50

qrazie per realizzare lo script tempo permettendo
grazie

N.B. i metodi che posto sono trovati in rete.
grazie ancora

 

[Mike58]

Certo se ti metto un range + datato i terni ci sono, ma come ti dicevo in altri post, certi metodo erano efficaci al momento della creazione.
Nel passato recente il metodo è passata ad altra vita,

Comunque fai le tue valutazioni.

Ciao

Sub Main
	' x samsung444
	Dim ru(1),nu(3),posta(5)
	posta(2) = 1
	posta(3) = 1
	'2° Ba +61
	'3° Ba +88
	'1° Ca +50
	Ini = EstrazioneFin - 1560
	fin = EstrazioneFin
	For es = Ini To fin
		If IndiceMensile(es) = 5 Then
			k = k + 1
			a = Fuori90(Estratto(es,BA_,2) + 61)
			b = Fuori90(Estratto(es,BA_,3) + 88)
			c = Fuori90(Estratto(es,CA_,1) + 50)
			'--- 1 terno -------------
			nu(1) = a
			nu(2) = b
			nu(3) = c
			'-----------------------------
			ru(1) = 2
			Scrivi String(100,"=") & " Caso n. " & k,1
			ImpostaGiocata 1,nu,ru,posta,12,3
			Gioca es,1
		End If
	Next
	ScriviResoconto
End Sub

 

[samsung444]

Grazie mike58
come sempre hai ragione!
Provo lo stesso
grazie infinite 6 veramente gentile e disponibile.
ciao.

 

[samsung444]

Certo se ti metto un range + datato i terni ci sono, ma come ti dicevo in altri post, certi metodo erano efficaci al momento della creazione.
Nel passato recente il metodo è passata ad altra vita,

Comunque fai le tue valutazioni.

Ciao

Sub Main
	' x samsung444
	Dim ru(1),nu(3),posta(5)
	posta(2) = 1
	posta(3) = 1
	'2° Ba +61
	'3° Ba +88
	'1° Ca +50
	Ini = EstrazioneFin - 1560
	fin = EstrazioneFin
	For es = Ini To fin
		If IndiceMensile(es) = 5 Then
			k = k + 1
			a = Fuori90(Estratto(es,BA_,2) + 61)
			b = Fuori90(Estratto(es,BA_,3) + 88)
			c = Fuori90(Estratto(es,CA_,1) + 50)
			'--- 1 terno -------------
			nu(1) = a
			nu(2) = b
			nu(3) = c
			'-----------------------------
			ru(1) = 2
			Scrivi String(100,"=") & " Caso n. " & k,1
			ImpostaGiocata 1,nu,ru,posta,12,3
			Gioca es,1
		End If
	Next
	ScriviResoconto
End Sub

ciao mirko58
ascolta eseguendo lo script perche' mi elabora fino a questa previsione?
------------------
Estrazione generatrice del pronostico 08884 [ 95 - 12/08/2014]
G 0001 Numeri in gioco : 77.70.10 su CA per Ambo,Terno
Interrotta per raggiunta durata
---------------------------------
e non mi visualizza fino all'ultima utile
e le previsioni giocabili?
grazie ancora
ciao.

 

[claudio8]

scusa se intervengo, ma.......

Hai chiesto la 5a del mese.

If IndiceMensile(es) = 5 Then ... questa condizione non si è ancora verificata, la prossima estr. sarà la 5a del mese.

Deduciamo che non ha neanche i numeri x fare la previsione e metterla in gioco. Devi attendere l'estrazione di giovedi 11

Ciao

 

[Mike58]

Ciao Samsung444, giustamente Claudio ti ha dato una prima soluzione che la prossima previsione ancora non è esistente.
Poi non vedi le giocate in quanto non c'è ne sono di positive.
Per comodità in script con un range ampio noi usiamo filtrare in output solo i casi di esito positivo.
Se invece vuoi vedere le giocate correggi la stringa
Gioca es,1 togliengo il (,1) cosi da lasciare il Gioca es e cosi vedrai anche tutte le relative giocate fino all'ultima estrazione.


Ciao

 

[samsung444]

Ok grazie a entrambi ,ho capito.