sempre in attesa di cinzia o del nostro maestro joe che saluto cordialmente per la sua umilta ,disponibilita e correttezza che traspare nel 3d ,ho provato a rifare il listato ,e non sapendo creare un sub function per trovare la figura calcolata nella tua maniera diventa lungo e dispendioso,avendo messo un contatore e non conoscendo il motivo il programma non fa il suo dovere. probabile che sia il mio pc ,nel caso contrario tutto bene o a te di completarlo,altra cosa , gli zerati solo il 10 da figura 5 mentre gli altri solito calcolo es 20=7,con la figura 5 come la mettiamo diventa 0 e rigiochiamo il numero ????
nel caso non funge sopra ,in maniera arcana si operera con ogni numero'bari 1 numero 79 il terzo di cagliari era 6 ..(lo faccio piu' semplice supera o.5 per cui tolgo 5)
ok1=0
If Cadenza(b) = 0 Then c =(b - 5) : d = Fuori90(a + c): d1 = Vert(d)k1=1 '<<<<<<<come muoversi con gli zerati 20,30,40,50
If Cadenza(b) <>0 And Figura(b) => 6 Then c =(Figura(b) - 5):d = Fuori90(a + c) : d1 = Vert(d): ok1=1 Else c =(Figura(b) + 5): d = Fuori90(a + c) : d1 = Vert(d): ok1=1'3ca
'If b = 1 Then c =(6) : d = Fuori90(a + c): d1 = Vert(d)
'If b = 2 Then c =(7) : d = Fuori90(a + c): d1 = Vert(d)
'If b = 3 Then c =(8 ) : d = Fuori90(a + c): d1 = Vert(d)
'If b = 4 Then c =(9 ) : d = Fuori90(a + c): d1 = Vert(d)
