|
|
| Non trovato ma riadattato. Ciao Sub main()
'Per Vito - numero isotopo con laterale stessa decina
'(Cinzia27)
For es=EstrazioneFin-10 To EstrazioneFin
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=2 To 4
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
aa=Estratto(es,r,p+1)
aa1=Estratto(es,r,p-1)
bb=Estratto(es,r1,p+1)
bb1=Estratto(es,r1,p-1)
If (a=b) And (Decina(a)=Decina(aa)Or Decina(a)=Decina(aa1)Or Decina(b)=Decina(bb)Or Decina(b)=Decina(bb1)) Then
Scrivi DataEstrazione(es)&"-"&FormatSpace(es,4,1)
Scrivi SiglaRuota(r)&" ",0,0
Scrivi Format2(aa1)&" "&Format2(a)&" "&Format2(aa)
Scrivi SiglaRuota(r1)&" ",0,0
Scrivi Format2(bb1)&" "&Format2(b)&" "&Format2(bb)
Scrivi
End If
Next
next
Next
next
End Sub |
| | |
