Richiesta Listat0

[ducadecor]

Chiedo gentilmente se si può fare, ai programmatori un listato che trovi doppia coppia numeri consecutivi in verticale

esempio ruota FI 34 78
ruota PA 35 77


non mi interessa se sono isotopi o no

grazie anticipatamente

ciao

 

[Roby]

Sub main()
tmp=InputBox("Quante estrazioni controllo?",,10) 
fin=EstrazioneFin 
ini=fin-tmp
For es=ini To fin
For r=1 To 10
For rr=r+1 To 12
If rr=11 Then rr=12
For p=1 To 4
For p1=p+1 To 5
For pp=1 To 4
For pp1=pp+1 To 5
a=Estratto(es,r,p) 
b=Estratto(es,r,p1)
c=Estratto(es,rr,pp) 
d=Estratto(es,rr,pp1)
If c=a+1 And d=b+1 Or c=a-1 And d=b-1 Or c=a+1 And d=b-1 Or c=a-1 And d=b+1 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&"  ---> "&Format2(a)&" - "&Format2(b)
Scrivi Left(NomeRuota(rr),2)&" "& StringaEstratti(es,rr)&"  ---> "&Format2(c)&" - "&Format2(d)
Scrivi"*****************************************************************"   
End If
Next
Next
Next
Next
Next
Next
Next
End Sub

 

[ducadecor]

che velocità. Grazie della tua disponibilità Meteus

già provato tutto okay

grazie ancora

un saluto