metodino

[tommasog]

gentilmente se si può avere lo scrpit di questo mio metodino:
ultima del mese su BA-CA, sommare la figura dei terzi estratti e del risultato se necessario fare il fuori 9;
del risultato ottenuto fare il complemento a 90 = ambata
per ambo abbinare il + e - 1 e 2 dell'ambata, per recupero giocare anche la cinquina per ambo e terno, tutto sulle due rute di ricavo.
es. ultima estraz. di agosto/11
BA 3° estratto 90 figura 9
CA 3° estratto 79 figura 7
9+7=16 fuori 9=7
90-7= 83 ambata su BA e CA
per ambo 83/81-82-84-85
per ambo e terno 81-82-83-84-85
esito 1° colpo ambo in cinquina su BA 81-82
da giocare per 9 colpi
grazie

 

[DjNomade]

Ciauz controlla questo...

'http://forum.lottoced.com/topic.asp?TOPIC_ID=137694

ColoreTesto 1
Scrivi "                            Ultima mese BA-CA ..tommasog",1
Scrivi
Scrivi "                                   List DjNomade",1
Scrivi
ColoreTesto 0
Sub Main()
	Dim posta(5),poste(5),postee(5)
	Dim ruote(5)
	Dim am(10),am1(10),am2(10)
	posta(1) = 1
	poste(2) = 1
	postee(2) = 1
	postee(3) = 1
	casi = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - 920
	For es = ini To fin
		If IndiceMensile(es + 1) = 1 Then
			a = Estratto(es,1,3)
			b = Estratto(es,2,3)
			ColoreTesto 2
			Scrivi "--Ultima estrazione del mese---------------------------",1
			ColoreTesto 0
			Scrivi " " & Left(NomeRuota(1),9) & " " & CInt(a) & "  " &(3) & "° estratto  ",1
			ColoreTesto 0
			Scrivi " " & Left(NomeRuota(2),9) & " " & CInt(b) & "  " &(3) & "° estratto  ",1
			ruote(1) = 1
			ruote(2) = 2
                  k=9
			c = Figura(Figura(Estratto(es,1,3)) + Figura(Estratto(es,2,3)))
			d = 90 - c 'ambata
			am(1) = d
			ImpostaGiocata 1,am,ruote,posta,k
			am1(1) = d
			am1(2) = Fuori90(d + 1)
			ImpostaGiocata 2,am1,ruote,poste,k
			am1(1) = d
			am1(2) = Abs(d - 1)
			ImpostaGiocata 3,am1,ruote,poste,k
			am1(1) = d
			am1(2) = Fuori90(d + 2)
			ImpostaGiocata 4,am1,ruote,poste,k
			am1(1) = d
			am1(2) = Abs(d - 2)
			ImpostaGiocata 5,am1,ruote,poste,k
			am2(1) = d
			am2(2) = Abs(d - 1)
			am2(3) = Fuori90(d + 1)
			am2(4) = Abs(d - 2)
			am2(5) = Fuori90(d + 2)
			ImpostaGiocata 6,am2,ruote,postee,k
			Gioca es
			casi = casi + 1
		End If
	Next
	Scrivi
	Scrivi
	Scrivi "Numero Totale mesi analizzati : " & CInt(casi)
	ScriviResoconto
	ColoreTesto 1
	Scrivi "                            Ultima mese BA-CA ..tommasog",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[tommasog]

grazie DJ provato, funziona benissimo, se puoi apportare delle migliorie al metodo, meglio ancora
grazie