2 Taglio della vegetazione - Intro Page - Università degli Studi di ...
2 Taglio della vegetazione - Intro Page - Università degli Studi di ... 2 Taglio della vegetazione - Intro Page - Università degli Studi di ...
Next Next End Select ListaDirezioni(1, i) = somma 'Salva la somma sotto la direzione corrispondente Next End Function 'Resituisce il valore dell'elemento adiacente alla posizione attuale nella direzione corrispondente Function Val(ByVal dir As Byte) As Integer Select Case dir Case 0 Return Nord() 'Restituisce il valore dell'elemento a Nord Case 1 Return Sud() 'Restituisce il valore dell'elemento a Sud Case 2 Return Ovest() 'Restituisce il valore dell'elemento a Ovest Case 3 Return Est() 'Restituisce il valore dell'elemento a Est End Select End Function 'Restituisce il valore dell'elemento a Nord Function Nord() As Integer If Ratt > 0 Then 'Controlla che ci possa essere un elemento a Nord Return MatriceCampo(Ratt - 1, Catt) 'Restituisce il valore dell'elemento a Nord Else Return -2 'Restituisce il valore di quadrato non raggiungibile End If End Function 'Restituisce il valore dell'elemento a Sud Function Sud() As Integer If Ratt < r Then 'Controlla che ci possa essere un elemento a Sud Return MatriceCampo(Ratt + 1, Catt) 'Restituisce il valore dell'elemento a Sud Else Return -2 'Restituisce il valore di quadrato non raggiungibile End If End Function 'Restituisce il valore dell'elemento a Ovest Function Ovest() As Integer If Catt > 0 Then 'Controlla che ci possa essere un elemento a Ovest Return MatriceCampo(Ratt, Catt - 1) 'Restituisce il valore dell'elemento a Ovest Else Return -2 'Restituisce il valore di quadrato non raggiungibile End If End Function 159
'Restituisce il valore dell'elemento a Est Function Est() As Integer If Catt < r Then 'Controlla che ci possa essere un elemento a Est Return MatriceCampo(Ratt, Catt + 1) 'Restituisce il valore dell'elemento a Est Else Return -2 'Restituisce il valore di quadrato non raggiungibile End If End Function End Module 160
- Page 123 and 124: Il foro è praticato in modo da cre
- Page 125 and 126: Anche in questo caso si ha un telai
- Page 127 and 128: Nella figura a sinistra è riportat
- Page 129 and 130: 9.4 Manutenzione Le regole di manut
- Page 131 and 132: 10 Simulatore del sistema di naviga
- Page 133 and 134: utente ad ogni porzione sulla base
- Page 135 and 136: Si veda l’esempio in figura: Si a
- Page 137 and 138: Il campo minato viene caricato. Le
- Page 139 and 140: Tale tendenza è particolarmente ev
- Page 141 and 142: 11.1 Conclusioni 11 Conclusioni e s
- Page 143 and 144: Sono state infine condotte varie an
- Page 145 and 146: Una volta stabiliti dei parametri u
- Page 147 and 148: “Technology and the Landmine Prob
- Page 149 and 150: 14 Produttori consultati http://www
- Page 151 and 152: www.fluidmec.it, Fluidmec S.p.A, Co
- Page 153: APPENDICE A Disegni costruttivi
- Page 158 and 159: Public Class Form1 Inherits System.
- Page 160 and 161: 'Label1 ' Me.Label1.Location = New
- Page 162 and 163: Try 'Prova ad aprire ma tiene conto
- Page 164 and 165: 'Controlla che il punto di partenza
- Page 166 and 167: Loop While max(MatriceCampo) > 0 'I
- Page 168 and 169: Else Return 4 '...altrimenti restit
- Page 170 and 171: 'Resituisce il massimo tra i valori
- Page 172 and 173: If Est() >= 0 And DistH > 0 Then 'S
- Page 176: Public Module PublicVar Public Matr
Next<br />
Next<br />
End Select<br />
ListaDirezioni(1, i) = somma 'Salva la somma sotto la <strong>di</strong>rezione corrispondente<br />
Next<br />
End Function<br />
'Resituisce il valore dell'elemento a<strong>di</strong>acente alla posizione attuale nella <strong>di</strong>rezione corrispondente<br />
Function Val(ByVal <strong>di</strong>r As Byte) As Integer<br />
Select Case <strong>di</strong>r<br />
Case 0<br />
Return Nord() 'Restituisce il valore dell'elemento a Nord<br />
Case 1<br />
Return Sud() 'Restituisce il valore dell'elemento a Sud<br />
Case 2<br />
Return Ovest() 'Restituisce il valore dell'elemento a Ovest<br />
Case 3<br />
Return Est() 'Restituisce il valore dell'elemento a Est<br />
End Select<br />
End Function<br />
'Restituisce il valore dell'elemento a Nord<br />
Function Nord() As Integer<br />
If Ratt > 0 Then 'Controlla che ci possa essere un elemento a Nord<br />
Return MatriceCampo(Ratt - 1, Catt) 'Restituisce il valore dell'elemento a Nord<br />
Else<br />
Return -2 'Restituisce il valore <strong>di</strong> quadrato non raggiungibile<br />
End If<br />
End Function<br />
'Restituisce il valore dell'elemento a Sud<br />
Function Sud() As Integer<br />
If Ratt < r Then 'Controlla che ci possa essere un elemento a Sud<br />
Return MatriceCampo(Ratt + 1, Catt) 'Restituisce il valore dell'elemento a Sud<br />
Else<br />
Return -2 'Restituisce il valore <strong>di</strong> quadrato non raggiungibile<br />
End If<br />
End Function<br />
'Restituisce il valore dell'elemento a Ovest<br />
Function Ovest() As Integer<br />
If Catt > 0 Then 'Controlla che ci possa essere un elemento a Ovest<br />
Return MatriceCampo(Ratt, Catt - 1) 'Restituisce il valore dell'elemento a Ovest<br />
Else<br />
Return -2 'Restituisce il valore <strong>di</strong> quadrato non raggiungibile<br />
End If<br />
End Function<br />
159
Change language