ambo diametrale CA-FI

[lottomoney]

Buonasera
volevo sottoporre questo metodo per la trasformazione in script dato che la ricerca manuale ha dato buoni risultati.
Ricercare nelle ruote di CAGLIARI e FIRENZE un ambo diametrale in qualsiasi posizione (ognuno x singola ruota).
Esaudita questa condizione sommare i due ambi ed il risultato ottenuto sarà l'ambata da mettere in gioco sulle due ruote
anche in 1a, 4a e 5a posizione.
Grazie anticipate per chi si vuole impegnare.
lottomoney

[Master]

Buonasera lottomoney

Controlli se questo va bene

Codice: Seleziona tutto

Sub Main()
Scrivi "AMBI Distanza 45 lottomoney",1
Scrivi
Dim ambata(1),ruota(2),pt(10)
pt(6)=1: pt(9)=1 : pt(10)=1
pt(1) = 1
stra = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","Estrazioni",500)
k = CInt(InputBox("QUANTI COLPI ?","Colpi",9))
ini = EstrazioneFin - Stra
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
r1 = 2 : r2 = r1 + 1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1):n2 = Estratto(es,r1,p2)
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3):n4 = Estratto(es,r2,p4)
If Distanza(n1,n2) = 45 And Distanza(n3,n4) = 45 Then
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2) & " > Distanza < " & Format2(Distanza(n1,n2)),1
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo < " & Format2(n3) & "." & Format2(n4) & " > Distanza < " & Format2(Distanza(n3,n4)),1
Scrivi : ruota(1) = r1 : ruota(2) = r2
'----------------------------------------
ambata(1) = Fuori90(n1+n2+n3+n4)
ImpostaGiocata 1,ambata,ruota,pt,k
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub


[lottomoney]

Buonasera Master
purtroppo ho spiegato male io la condizione di gioco in quanto dovrebbe essere presa in considerazione la ricerca dell'ambo diametrale e la messa in gioco per ogni singola ruota tra Cagliari e Firenze e non in abbinamento come rirulta dal listato.
esempio:
Estrazione del 09/04/2015:
Cagliari 20 - 56 - 28 - 11 - 41 = 56+11= 67
Firenze 73 - 28 - 13 - 72 - 45 = 73+28= 101 = 11
Ambate da mettere in gioco 67 e 11 sulle ruote di CA e FI.

Estrazione del 26/01/2016:
Cagliari 2 - 7 - 52 - 55 - 68 = 7+52 = 59
Ambata da mettere in gioco 59 sulle ruote di CA e FI

Scusa se non sono stato chiaro inizialmente. Grazie.
lottomoney

[Master]

Salve lottomoney
Lo script modificato con le nuove condizioni
(Wow!! il resoconto è positivo)
grazie lottomoney

Codice: Seleziona tutto

Sub Main():ColoreTesto 2
Scrivi "AMBO Distanza 45 CA FI richiesta lottomoney (Forum Lottopassion)",1
ColoreTesto 0 :Scrivi
Dim ambata(1),ruota(2),pt(10)
pt(1) = 1 : pt(6) = 1: pt(9) = 1 : pt(10) = 1
stra = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","Estrazioni",200)
k = CInt(InputBox("QUANTI COLPI ?","Colpi",9))
ini = EstrazioneFin - Stra
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 2 To 3
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1):n2 = Estratto(es,r1,p2)
If Distanza(n1,n2) = 45 Then
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2) & " > Distanza < " & Format2(Distanza(n1,n2)),1
Scrivi : ruota(1) = 2 : ruota(2) = 3
'----------------------------------------
ambata(1) = Fuori90(n1 + n2)
ImpostaGiocata 1,ambata,ruota,pt,k,1
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 

[lottomoney]

Grazie a te Master, sempre gentilissimo

P.S.: Pensa che l'esempio che ti ho inserito ha dato un ambo su Cagliari 67-11 al 4° colpo