|
ED
|
avaliable
|
RT
|
avaliable
|
Creates a new "RecipeValue" object.
Private Sub CreateRecipeValue(ByRef zRecipe As recipe) 'Declarations Dim zVariable As Variable Dim i As Integer 'Initialization of zVariable with the first "Variable" object within the "Variables" object Set zVariable = thisProject.Variables.Item(0) 'Create new "RecipeValue" object within zRecipe 'zVariable.PvID assigns zVariable to the recipe '22 will be the default value of zVariable zRecipe.Create zVariable.PvID, 22 'For every "RecipeValue" object within zRecipe... For i = 0 To zRecipe.Count - 1 '...output the value Debug.Print i + 1 & ". value: " & zRecipe.Item(i).Value Next i End Sub