Controlla questo
Ciauz
- Codice: Seleziona tutto
'02-05-2021
'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=16038&sid=f15516e9885f9bc96f20ecc9a56f21d8#p16038
Sub Main()
'cerca ambi consecutivi
Dim nu(90),ru(2),num(6),num2(4),poste(5),rt(2),posta(3),nu1(2),num1(1)
poste(2) = 3
posta(1) = 1
quante = CInt(InputBox("Quante estrazioni vuoi analizzare","Quante estrazioni",50))
Ini = EstrazioneFin - quante
fin = EstrazioneFin
colpi = 13
Scrivi " BARI SUPER BY NUNZIO65 *** ",0,0
Scrivi" Ricerca ambo consecutivo ",0,0
ColoreTesto 2
Scrivi " Listed by DjNomade ",1
ColoreTesto 0
For es = Ini To fin
Messaggio "Estrazioni esaminate " & es & " ---> script by DjNomade"
Call AvanzamentoElab(Ini,fin,es)
co = 0
For r = 1 To 1
For p = 1 To 4
For pp = p + 1 To 5
nu(1) = Estratto(es,r,p)
nu(2) = Estratto(es,r,pp)
dis=Distanza(nu(1),nu(2))
If dis = 1 And r=1 Then
co = co + 1
Scrivi String(130,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),0,0
ColoreTesto 7
Scrivi " ( ambo consecutivo " & StringaNumeri(nu) & " )",0,0
ColoreTesto 1
Scrivi" - Posiz. " & p & "/" & pp,1
Scrivi String(120,"=") & " Caso n° " & co
a=Fuori90(Cadenza(Estratto(es,9,2))+48)
a1=Fuori90(Figura(Estratto(es,7,4))+52)
a2=Fuori90(Figura(Estratto(es,4,4))+06)
a3=Fuori90(Diametrale(Estratto(es,4,3))+01)
rt(1) = r
rt(2) = r1
'------- calcolo numeri --------------------
num1(1) = a
ImpostaGiocata 1,num1,rt,posta,colpi
num(1) = a
num(2) = a1
ImpostaGiocata 2,num,rt,poste,colpi
num(1) = a
num(2) = a2
ImpostaGiocata 3,num,rt,poste,colpi
num(1) = a
num(2) = a3
ImpostaGiocata 4,num,rt,poste,colpi
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub