
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
Option Explicit
Sub Reset()
' La macro Cancella i Dati presenti nel Foglio
' Reset Macro
Range("D3:D53").ClearContents
Range("B2").ClearContents
End Sub
Sub PercorsoIdeale()
'La macro cancella i dati nel foglio eccetto i Km totali e calcola il percorso ideale
Dim KmTot
Dim NumTratte
Dim NumMinTratte
Dim NumZeri
Dim kmMancanti
Dim kmMancantiEsist
Dim VelMax
Dim Soluzione()
Dim Index
KmTot = Range("B2").Value2
Reset
Range("B2").Value2 = KmTot
NumMinTratte = Sqr(1 + 4 * KmTot)
VelMax = Int((Int(NumMinTratte) - 1) / 2)
If Int(NumMinTratte) = NumMinTratte Then
NumTratte = NumMinTratte
NumZeri = 0
kmMancanti = 0
kmMancantiEsist = 0
Else
If Int(NumMinTratte) Mod 2 = 0 Then
NumMinTratte = Int(NumMinTratte) - 1
Else
NumMinTratte = Int(NumMinTratte)
End If
NumZeri = Int((KmTot - (NumMinTratte ^ 2 - 1) / 4) / VelMax)
kmMancanti = KmTot - ((NumMinTratte ^ 2 - 1) / 4) - (NumZeri * VelMax)
If kmMancanti = 0 Then
kmMancantiEsist = 0
Else
kmMancantiEsist = 1
End If
NumTratte = NumMinTratte + NumZeri + kmMancantiEsist
End If
ReDim Soluzione(0 To NumTratte)
For Index = 0 To Int(NumMinTratte / 2) - 1 + kmMancantiEsist
Soluzione(Index) = 1
Next
For Index = Int(NumMinTratte / 2) + kmMancantiEsist To NumTratte - 1
Soluzione(Index) = 0
Next
Soluzione(NumTratte) = ""
If kmMancanti <> 0 Then Soluzione(kmMancanti) = 0
For Index = NumTratte - 1 To NumTratte - Int(NumMinTratte / 2) Step -1
Soluzione(Index) = -1
Next
For Index = 0 To NumTratte
Range("D2").Offset(Index, 0) = Soluzione(Index)
Next
End Sub
|
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw) |
