Metodo 2/4 più previsione

[vincenzo57]

 

[vincenzo57]

1°colpo ambo 46,51 a TT - CA

 

[vincenzo57]

6°colpo ancora ambo a TT 46, 90 - VE
8°colpo ambo 90, 51 - PA

 

[nancy48]

BRAVISSIMO Vincenzo complimenti

 

[vincenzo57]

Un saluto e grazie, a voi e speriamo ad un buon Natale sempre vincente

 

[vincenzo57]

'Il listato per tale metodo


'https://image.forumfree.it/1/3/1/4/0/5/5/6/1637418860.jpg
'https://oltreillotto.forumfree.it/?t=78819070#lastpost
'20/11/2021
ColoreTesto 2
Scrivi "========== AMBI DISTANZA UGUALE PA-RO IN 2°-4° POS. by Enzob ",1
Scrivi "========== List. by DiNomade ",1
ColoreTesto 0
Sub Main()
Dim n,t,r1,r2,n1,n2,n3,n4,amb(6)
Dim am(4)
Dim am1(4)
Dim am2(4)
Dim am3(6)
Dim am4(4)
Dim ruote(10)
Dim ruota(10),ruote1(10)
Dim posta(5),poste(5),poste1(5)
posta(1) = 1
poste(2) = 1
poste1(2) = 1
poste1(3) = 1
t = 0

k = 9
For es = 9479 To EstrazioneFin

Messaggio DataEstrazione

For r1 = 7 To 7
If r1 = 11 Then r1 = 12
For p1 = 2 To 2
For p2 = 4 To 4

n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)


For r2 = 8 To 8
If r2 = 11 Then r2 = 12
For p3 = 2 To 2
For p4 = 4 To 4
If r1 <> r2 Then
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
so = Distanza(n1,n2)'
so1 = Distanza(n3,n4)'
ruote(1) = r1
ruote(2) = r2
ruote1(1) = r1
ruote1(2) = r2
ruote1(3) = 11
ruote1(4) = 12

If so = so1 Then

amb(1) = Fuori90(Estratto(es,7,4)*2)
amb(2) = Fuori90(Estratto(es,8,4) + Estratto(es,6,2))
amb(3) = Fuori90(Estratto(es,8,4) + Estratto(es,8,4))
amb(4) = Fuori90(Estratto(es,2,3) + Estratto(es,10,3))
amb(5) = Fuori90(Estratto(es,4,4) + Estratto(es,6,5))
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 4
For y = x + 1 To 5
If amb(X) = amb Then amb = Fuori90(amb + 1)
Next
Next
Wend
End If
Rem fine formula



t = t + 1
Scrivi
Scrivi "=============================================================",1
Scrivi " Giocata n° " & Format2(t),1
Scrivi DataEstrazione(es,1),1
Scrivi
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " -- " & StringaEstratti(es,r1) & " " & Format2(n1) & " - " & Format2(n2) & " Pos. [" & Format2(p1) & "-" & Format2(p2) & "] Distanza " & so,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r2),3) & " -- " & StringaEstratti(es,r2) & " " & Format2(n3) & " - " & Format2(n4) & " Pos. [" & Format2(p3) & "-" & Format2(p4) & "] Distanza " & so1,1



Scrivi




co = 0


am4(1) = amb(1)
co = co + 1
ImpostaGiocata co,am4,ruote,posta,k
am2(1) = amb(1)
am2(2) = amb(2)
co = co + 1
ImpostaGiocata co,am2,ruote1,poste,k
am2(1) = amb(1)
am2(2) = amb(3)
co = co + 1
ImpostaGiocata co,am2,ruote1,poste,k
am2(1) = amb(1)
am2(2) = amb(4)
co = co + 1
ImpostaGiocata co,am2,ruote1,poste,k
am2(1) = amb(1)
am2(2) = amb(5)
co = co + 1
ImpostaGiocata co,am2,ruote1,poste,k


am3(1) = amb(2)
am3(2) = amb(3)
am3(3) = amb(4)
am3(4) = amb(5)
co = co + 1
ImpostaGiocata co,am3,ruote1,poste1,k


Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next

ScriviResoconto
End Sub