' --------> gennaro v1.0, x Elbaz, scritto per SpazioMetria 1.3.40 o superiore
'Ci vorrebbe uno script di ricerca dell'ambo a chiusura tripla, mi spiego con un esempio:
'Martedì a Palermo sono usciti: 87.04.64.31.03;
'noi consideriamo i due consecutivi 03.04 ed andiamo a porre In gioco, dalla volta successiva, la Decina 04.05.06.07.08.09.10.11.12.13 per ambo per 10 colpi Massimo.
'In teoria questo metodo servirebbe per giocare il doppio posizionato secondo un'idea di IB ma volevo verificarlo per l'ambo dato che ad occhio i casi non mancano
Sub Main()
Dim ru(1),vettore(10),num(2),poste(10)
poste(1) = 0
poste(2) = 1
clp = 10
RuoScelta = CInt(InputBox("Su quale ruota elaboro ? ","...Ruota...",1))
ru(1) = RuoScelta
estr = CInt(InputBox("Quante estrazione vuoi controllare? ","...Estrazioni...",120))
UnitoSiNo = CInt(InputBox("Gli ambi di chiusura triplare devono essere uniti ? " & vbCrLf & vbLf & _
"1 = Si " & vbCrLf & vbLf & _
"2 = No " & vbLf,"...Uniti o no...",1))
Select Case UnitoSiNo
Case 1
For es = EstrazioneFin - estr To EstrazioneFin
cg = 0
For p = 1 To 4
num(1) = Estratto(es,RuoScelta,p)
num(2) = Estratto(es,RuoScelta,p + 1)
If Abs(num(1) - num(2)) = 1 Then
Scrivi "Ambo triplare unito : " & Format2(num(1)) & "." & Format2(num(2)) & " -> " & es & " " & DataEstrazione(es) & " " & NomeRuota(RuoScelta) & " " & StringaEstratti(es,RuoScelta,"."),True,,vbGreen
Call Dammi10num(MassimoV(num),vettore)
Scrivi("I 10 numeri in gioco saranno : " & StringaNumeri(vettore,"."))
Call StatisticaFormazione(vettore,ru,2,Ritardo,RitardoMax,IncrRitMax,Frequenza,1,es)
Scrivi("Tieni conto che alla estrazione " & es & " questa formazione ritarda, per ambo, da " & Ritardo & " estrazioni ed ha un RitMax = " & RitardoMax)
cg = cg + 1
ImpostaGiocata cg,vettore,ru,poste,clp,2
Gioca es
End If
Next 'p
Next 'es
Case 2
For es = EstrazioneFin - estr To EstrazioneFin
cg = 0
For p = 1 To 4
num(1) = Estratto(es,RuoScelta,p)
For pp = p + 1 To 5
num(2) = Estratto(es,RuoScelta,pp)
If Abs(num(1) - num(2)) = 1 Then
Scrivi "Ambo triplare : " & Format2(num(1)) & "." & Format2(num(2)) & " -> " & es & " " & DataEstrazione(es) & " " & NomeRuota(RuoScelta) & " " & StringaEstratti(es,RuoScelta,"."),True,,vbGreen
Call Dammi10num(MassimoV(num),vettore)
Scrivi("I 10 numeri in gioco saranno : " & StringaNumeri(vettore,"."))
Call StatisticaFormazione(vettore,ru,2,Ritardo,RitardoMax,IncrRitMax,Frequenza,1,es)
Scrivi("Tieni conto che alla estrazione " & es & " questa formazione ritarda, per ambo, da " & Ritardo & " estrazioni ed ha un RitMax = " & RitardoMax)
cg = cg + 1
ImpostaGiocata cg,vettore,ru,poste,clp,2
Gioca es
End If
Next 'pp
Next 'p
Next 'es
End Select
ScriviResoconto
Call TestoInBandaPassante(Chr(0171) & Chr(0171) & Chr(0171) & Chr(0171) & Chr(0171) & " Scripted by gennaro! " & Chr(169) & _
" 2012 ... San Gennà, pienz'c tu! " & Chr(0187) & Chr(0187) & Chr(0187) & Chr(0187),1,vbYellow,1)
End Sub
Function Dammi10num(idNum,getVett)
For k = 1 To 10
getVett(k) = Fuori90(idNum + k)
Next 'k
End Function
... pare ke fa' quello che chiedi.
