9. Anexos.
9. Anexos.
9. Anexos.
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
For i = 1 To UBound(CosteSolucion)<br />
.Cells(i + 1, Indice) = CosteSolucion(i)<br />
Next i<br />
End With<br />
End Sub<br />
<strong>9.</strong>2.2.7. Definición de constantes y declaración de variables globales.<br />
Método: Declaraciones.bas.<br />
Option Explicit<br />
Public Type Reg_Arcos<br />
Origen As Long<br />
Destino As Long<br />
Inactivo As Boolean<br />
Posicion As Long<br />
Longitud As Single<br />
End Type<br />
Public Type Reg_Conj<br />
Nodo As Long<br />
Conjunto As Long<br />
End Type<br />
Public Type MatrizAdy<br />
Nodo As Long<br />
Posicion As Long<br />
End Type<br />
Public Type Lista_Ady<br />
numero As Long<br />
Mady() As MatrizAdy<br />
End Type<br />
Public Const ESPACIO = " "<br />
<strong>Anexos</strong>.<br />
50