Public Sub Main() Dim platohuevoconchorizos As Plato 'Los ingredientes que necesitamos Dim ingredientenecesario1 As Ingrediente Dim ingredientenecesario2 As Ingrediente 'Los que vamos a tener que comprar Dim existenciasdeingrediente1 As Ingrediente Dim existenciasdeingrediente2 As Ingrediente 'Todo los ingredientes que voy a tener del mismo plato Dim existenciastotales As New Ingrediente[] 'Ingredientes para hacer un plato de huevos con chorizos ingredientenecesario1 = New Ingrediente("huevos", 2) ingredientenecesario2 = New Ingrediente("chorizos", 200) 'Vamos al mercado a comprar los ingredientes...:-D existenciasdeingrediente1 = New Ingrediente(ingredientenecesario1.nombre, 0) existenciasdeingrediente1.addIngrediente(36) existenciasdeingrediente2 = New Ingrediente(ingredientenecesario2.nombre, 0) existenciasdeingrediente2.addIngrediente(1000) ' Y los aƱadimos a la despensa existenciastotales.Add(existenciasdeingrediente1) existenciastotales.Add(existenciasdeingrediente2) 'Leemos la receta y le aƱadimos los ingredientes que necesita platohuevoconchorizos = New Plato("Huevos con chorizos", ingredientenecesario1, ingredientenecesario2) 'Con los que tenemos en la despensa podemos hacer: Print Subst("Platos que se pueden preparar: &1", platohuevoconchorizos.TotalDePlatos(existenciastotales)) End