|
|
| https://superlotto.blogfree.net/?t=3155275...questo è il collegamento per il procedimento.Ecco lo script realizzato qualche anno fà,
e nella speranza di aver fatto cosa gradita, saluto.
Ciao, Enplein.
CODICE Sub main()
Dim ruota(2),ru
Dim amb(2),nr(10),nc(10),ambo1(2),ambo2(2)
Dim lg1(3)
Dim posta(1)
Dim poste1(2)
Dim poste(2)
ColoreTesto 2
Scrivi "Listato da Franco Florindi x Pasquale Robbe (Ripetizione Numerica Costante)"
Scrivi "Versione x LottoPatrik 02/02/2009 "
ColoreTesto 0
posta(1)=5
poste1(2)=2
rs=InputBox("Quante estrazioni vuoi controllare?","F.Florindi",100)
For es = EstrazioneFin - rs To EstrazioneFin
For r=1 To 10 : For p= 1 To 4 : For pp=p+1 To 5
a1=Estratto(es,r,p) : a2=Estratto(es,r,pp)
da=Distanza (a1,a2)
If da=30 Then
g=0 : Erase nr : Erase nc
For rr=1 To 10
If rr<>r Then
b1=Estratto(es,rr,p):b2=Estratto(es,rr,pp)
If b1=a1 Or b1=a2 Or b2=a1 Or b2=a2 Then
If b1=a1 Or b1=a2 Then g=g+1 : nr(g)=b1 : nc(g)=b2 :ru=rr : q=p
If b2=a1 Or b2=a2 Then g=g+1 : nr(g)=b2 : nc(g)=b1 : ru=rr : q=pp
End If
End If
Next
If g=1 Then
If nr(1)=a1 Then amb(1)=a2 : amb(2)=a1
If nr(1)=a2 Then amb(1)=a1 : amb(2)=a2
nx=Abs (nr(1)-nc(1))
ambo1(1)=a1 : ambo1(2)=nx
ambo2(1)=a2 : ambo2(2)=nx
ruota(1)=r
ruota(2)=ru
Scrivi "---------------------------------------------------------------"
Scrivi DataEstrazione (es)&" "& StringaEstratti(es,r)&" "& SiglaRuota (r)&" "& Format2 (a1)&" "&_
Format2 (a2)&" Pos. "&p&" / "&pp& Chr (10) &_
DataEstrazione (es)&" "& StringaEstratti(es,ru)&" "& SiglaRuota (ru)&" "& Format2 (nr(1))&" [ "&_
Format2 (nc(1))&" ]"& " X Abbin. "&nx,1
ColoreTesto 1
Scrivi "Ambata Principale "& amb(1)&" .... Ambata Secondaria "& amb(2)
ColoreTesto 0
ImpostaGiocata 1,amb,ruota,posta,12,1
ImpostaGiocata 2,ambo1,ruota,poste1,12,2
ImpostaGiocata 3,ambo2,ruota,poste1,12,2
For x =1 To 3:For xx=2 To 3
ImpostaInterruzioni x,1,1
ImpostaInterruzioni x,xx,2
Next:Next
Gioca es
End If
End If
Next : Next : Next : Next
ScriviResoconto
End Sub
|
| | |
