Terni in script è possibile

[milanese]

Sono nuovo del forum e facendo delle ricerche carta e penna sui terni a ruota ho trovato delle uscite in pochi colpi, per capire se c'è la possibilità di altre vincite o almeno di scremare il gioco avrei bisogno di uno script che poi tutti noi verifichiamo e se possibile miglioriamo, ringrazio chi si interesserà a questa mia idea.



Posto la mia ricerca per poter capire come fare i calcoli.


Trovare su di una ruota due numeri consecutivi

Sommarli = 1°capogioco

Sommare le due unità del capogioco = 2°capogioco

Chiusura a 90 dei numeri consecutivi = i primi abbinamenti

Vertibili dei due abbinamenti = i secondi abbinamenti

Giocare sulla ruota dei numeri consecutivi e la sua gemella.(se c'è la possibilità di scegliere le ruote per ulteriori controlli)



Uscita reale per comprendere meglio i calcoli:

2 Gen 15: VE 87-88

87+88= 85 (1°capogioco)
8+5= 13 (2°capogioco)
chiusura a 90 dell'87= 3
chiusura a 90 dell'88= 2
vertibile del 3= 30
vertibile del 2= 20

In gioco a VE/BA:
85-2-3
85-20-30
13-2-3
13-20-30

al 3° colpo terno secco a Venezia 85-20-30

 

[Master]

Se non ci sono errori..

Sub Main()
Scrivi "Terni in script è possibile di milanese forum lottoced "
Dim ru(10)
Dim ru1(10)
Dim nn(10),n1(10)
'Dim posta(5)
Dim poste(5)
poste(2) = 1
poste(3) = 1
'posta(1) = 1
'posta(2) = 1
co = 0
tmp = InputBox("Quante estrazioni controllo?","ESTRAZIONI",100)
ruo = CInt(InputBox("Scegli la 2a ruota di gioco" & Chr(13) & "1 =Gemella  2= Diametrale 3=Consecutiva" & Chr(13) & " 0=Tutte le ruote","2 RUOTA",1))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",10))
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 12
If r = 11 Then r = 12		
For p = 1 To 4
For pp = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,pp)
If Distanza(a,b) = 1 Then
d = Fuori90(a + b)
e = Decina(d) + Cadenza(d)				
co = co + 1					
ru(1) = r
ColoreTesto 1
If ruo = 1 Then ru(2) = RuotaGemella(r) 
If ruo = 2 Then ru(2) = RuotaDiametrale(r)
If ruo = 3 Then ru(2) = r + 1	
If ruo = 0 Then ru(2) = 11		
ColoreTesto 0	
'nn(1) = d
'nn(2) = e
'ImpostaGiocata 1,nn,ru,posta,clp,1
n1(1) = d : n1(2) = 90 - a : n1(3) = 90 - b
ImpostaGiocata 2,n1,ru,poste,9,3
n1(1) = d : n1(2) = Vert(90 - a) : n1(3) = Vert(90 - b)
ImpostaGiocata 3,n1,ru,poste,clp,3
n1(1) = e : n1(2) = 90 - a : n1(3) = 90 - b
ImpostaGiocata 4,n1,ru,poste,clp,3
n1(1) = e : n1(2) = Vert(90 - a) : n1(3) = Vert(90 - b)
ImpostaGiocata 5,n1,ru,poste,clp,3
Scrivi "---------------------------------------------------------------"&"  Caso n° " & co
ColoreTesto 2
Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(r),5) & "  " & StringaEstratti(es,r) & "    " & Format2(a) & " - " & Format2(b),1
Scrivi
ColoreTesto 0
Gioca es,1
Scrivi
End If	
Next 		
Next
Next
Next
ScriviResoconto
End Sub

 

[milanese]

Grazie molte Master ottimo lavoro.