Richista script

Buonasera a tutti e grazie per avermi accetato in questo gruppo. Vorrei richiedere se possibile uno script per un metodo, non mio, che reputo degno di attenzione:

a ricerca va eseguita su numeri distanza 1 o 10 su ruote esclusivamente consecutive

prendo gli ultimi due casi positivi

27-12-2016

firenze 14 prima posizione
genova 24 prima posizione

l'ambata è la somma degli estratti .. in questo caso 14+24= 38
gli abbinamenti sono i numeri di ricerca....
quindi fi-ge---ambata 38---ambi 38-14----38-24------
e potrebbe bastare così.... tenendo conto che se si giocano i due ambi secchi occore
utilizzare l'ambata per recupero.....

ho notato anche che le terzine simmetriche dei numeri di ricerca sono anche loro ottimi
o da utilizzare come abbinamenti oppure utilizzando due quartine....
38-14-44-74
38-24-54-84


questa previsione ha dato a colpo l'ambata 38 e l'ambo 38-14 a Firenze

sempre stessa estrazione 27-12-2016

Palermo 72 quarta posizione
Roma 71 quarta posizione

ambata 53---- ambi 53-71----53-72----

al secondo colpo ambata 53 e ambi 53-71---53-72----Roma

Grazie in anticipo.

Ciao Marco, io uso Spaziometria e funziona bene ed è aggiornato. Non conosco VL7 comumque sono certo che su Spaziometria uno script cosi semplice funziona...Grazie di nuovo.

eccolo Maurizio...costruito x Spaziometria

Sub main()
Dim Ruote(2),Ambata(1),Terzina(3),Quartina1(4),Quartina2(4),posta(1),Poste(3)
posta(1)= 1
Poste(2)=1
Poste(3)=1
Inizio = InputBox("Inizio",,9200)
Fine = EstrazioneFin
Colpi = InputBox("Colpi",,10)
k=0
For es = Inizio To Fine
For r1 = 1 To 9
r2 = r1+1
Ruote(1)= r1
Ruote(2)= r2
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If Distanza(a,b) = 1 Or Distanza(a,b) = 10 Then
k=k+1
Scrivi String(90,"*")&" Caso n° "& k,1
Scrivi DataEstrazione(es)&" "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" "& Format2(a)
Scrivi DataEstrazione(es)&" "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" "& Format2(b)
ColoreTesto 1: Scrivi "Distanza Tra: "& Format2(a)&" e "& Format2(b) &" = "& Distanza(a,b),1: ColoreTesto 0
Scrivi
Ambata(1)= Fuori90(a+b)
ImpostaGiocata 1,Ambata,Ruote,posta,colpi,1
Terzina(1)= Ambata(1)
Terzina(2)= a
Terzina(3)= b
ImpostaGiocata 2,Terzina,Ruote,Poste,Colpi,2
Quartina1(1)= Ambata(1)
Quartina1(2)= a
Quartina1(3)= Fuori90(a+30)
Quartina1(4)= Fuori90(a+60)
ImpostaGiocata 3,Quartina1,Ruote,Poste,Colpi,2
Quartina2(1)= Ambata(1)
Quartina2(2)= b
Quartina2(3)= Fuori90(b+30)
Quartina2(4)= Fuori90(b+60)
ImpostaGiocata 4,Quartina2,Ruote,Poste,Colpi,2
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub

Perfetto, alla grande. Siete fantastici grazieeee!!!