Sub Main()
'individuare in 1ª e 2ª posizione, un ambo in distanza 8
'la somma dei due numeri ci darà l'ambata
'Nota: *quando l'ambata ricavata risulta essere presente
'nell'estrazione di calcolo, fare +1 all'ambata stessa.
'i diametrali dei due numeri saranno gli abbinamenti della terzina (A e B)
'i vertibili di A e B saranno i due abbinamenti principali
Scrivi "Richiesta metodo distanza 8 di Imaging"
Scrivi "https://forum.lottoced.com/threads/per-favore-serve-listato.2200145/#post-2334367"
Dim Ini,fin,ce,r1,n1,n2,am1,am2,ab1,ab2
Dim nu1(1),nu2(2),n3(3),a(1),fr,casi,K
Dim ruota(2),ru(1)
Dim posta(1),poste(2)
poste(2) = 1 : posta(1) = 1
ce = InputBox("Quante estrazioni vuoi analizzare?","ESTRAZIONI",150)
K = InputBox("Quanti colpi di gioco?","COLPI ",9)
fin = EstrazioneFin
Ini = fin - ce
For es = Ini To fin
AvanzamentoElab Ini,fin,es
For r1 = 1 To 10
n1 = Estratto(es,r1,1)
n2 = Estratto(es,r1,2)
If Distanza(n1,n2) = 8 Then
a(1) = Fuori90(n1 + n2)
am1 = Diametrale(n1) : am2 = Diametrale(n2)
ab1 = Vert(am1) : ab2 = Vert(am2)
casi = casi + 1:Scrivi String(75,"="),1
ColoreTesto 1
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " > < " & Format2(n1) & "-" & Format2(n2) & " > "
ru(1) = r1
fr = SerieFreq(es,es,a,ru,1)
If fr = 1 Then Scrivi "Ambata " & a(1) & " presente nell'estrazione di calcolo, fatto + 1 ",1
ColoreTesto 0
If fr = 1 Then a(1) = a(1) + 1
Scrivi String(65,"-") & " caso n° " &(casi)
ruota(1) = r1 :ruota(2) = RuotaDiametrale(r1)
nu1(1) = a(1) : ImpostaGiocata 1,nu1,ruota,posta,K
nu2(1) = nu1(1)
nu2(2) = ab1 :ImpostaGiocata 2,nu2,ruota,poste,K
nu2(2) = ab2 :ImpostaGiocata 3,nu2,ruota,poste,K
n3(1) = a(1) :n3(2) = am1 :n3(3) = am2
ImpostaGiocata 4,n3,ruota,poste,K
Gioca es,1
End If
Next
Next
ScriviResoconto,0
End Sub
ho fatto le modifiche, ma manca sempre la condizione della presenza Ambata nell'estrazione, cioè il +1 L'unione fa la forza, piano piano forse ci arriviamo, grazie a tutti per l'aiuto.
