Computer Programming Concepts and Visual Basic David I. Schneider

SOLUTION:
Coding is simplified by using a control array of labels to hold the food names and a control array of text
boxes to hold the amount input by the user. In the following template, the label captions have been
assigned an initial value “(food name)” so that the labels can be seen. The five nutrients of interest and
the actual names and nutrient values of the foods to be used in building a meal are read from the data file
NUTTABLE.TXT.
Object Property Setting
frmMeal Caption Nutrition in a
Meal
lblFood() Caption (food name)
Index 0 – 9
lblQnty Caption Quantity in Meal
txtQnty() Text (blank)
Index 0 – 9
cmdAnalyze Caption Analyze Meal
Nutrition
picAnalysis
Dim nutName(1 To 5) As String ‘nutrient names
Dim nutTable(1 To 10, 1 To 5) As Single ‘nutrient values for each food
Private Sub cmdAnalyze_Click()
‘Determine the nutritional content of a meal
Dim quantity(1 To 10) As Single ‘amount of food in meal
Call GetAmounts(quantity())
Call ShowData(quantity())
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer, foodName As String
‘Fill arrays; assign label captions
Open “NUTTABLE.TXT” For Input As #1
For i = 1 To 5
Input #1, nutName(i)
Next i
For i = 1 To 10
Input #1, foodName
lblFood(i - 1).Caption = foodName
For j = 1 To 5
Input #1, nutTable(i, j)
Next j
Next i
Close #1
End Sub
Private Sub GetAmounts(quantity() As Single)
Dim i As Integer
‘Obtain quantities of foods consumed
For i = 1 To 10 quantity(i) = Val(txtQnty(i - 1).Text)
Next i
End Sub
Private Sub ShowData(quantity() As Single)
Dim col As Integer, row As Integer
Two-Dimensional Arrays 199