Metodo black - per convergenze -

[Blackmore]

Quando esce un ambo isotopo su ruote consecutive
Mettere in gioco il 90
N.B: SOLO PER CONVERGENZE E/O I VOSTRI ABBINAMENTI...

ESEMPIO:

11.02.2012 - To - 52.30.35.64.22 :AMBO ISOTOPO: 35 - 64
11.02.2012 - Ve - 42.66.35.64.10 :AMBO ISOTOPO: 35 - 64

Ambata 90 al 4° colpo su Venezia


SCRIPT

Sub Main()
	ColoreTesto 0
	Scrivi
	ColoreTesto 1
	Scrivi String(35," ") & " AMBO ISOTOPO SU RUOTE CONSECUTIVE"
	ColoreTesto 0
	Scrivi
	ColoreTesto 1
	Scrivi String(42," ") & " METODO BY BLACKMORE"
	ColoreTesto 0
	Scrivi
	Dim aruo(10)
	Dim anum(1)
	Dim aposta(5)
	aposta(1) = 2
	xxx = CInt(InputBox("Estrazioni di controllo...?",,1600))
	k = InputBox("Colpi di gioco...?",,11)
	co = 0
	For es = EstrazioneFin - xxx To EstrazioneFin
		Messaggio es
		For r = 1 To 10
			For p = 1 To 4
				For p1 = p + 1 To 5
					a = Estratto(es,r,p)
					b = Estratto(es,r,p1)
					r1 = r + 1
					If r1 = 11 Then r1 = 12
					c = Estratto(es,r1,p)
					d = Estratto(es,r1,p1)
					If c = a And d = b Or c = b And d = a Then
						casi = casi + 1
						Scrivi String(85,"=") & " caso n° " & casi,1
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & "  :AMBO ISOTOPO:  " & Format2(a) & " - " & Format2(b)
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & "  :AMBO ISOTOPO:  " & Format2(c) & " - " & Format2(d)
						ColoreTesto 0
						Scrivi String(85,"="),1
						co = co + 1
						aruo(1) = r
						aruo(2) = r1
						anum(1) = 90
						ImpostaGiocata 1,anum,aruo,aposta,k
						Gioca es
					End If
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

 

[korokoro]

black PROVA COL 12