Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Public Type Trucks
- NumberOfAxles As Integer
- AxleWeights(15) As Double
- End Type
- Public Sub DataCollection()
- Dim NumberOfTrucks As Integer
- Truck(10) As Trucks
- Dim i, j, k As Integer
- 'Determine Number of Trucks
- NumberOfTrucks = Cells(6, 8)
- 'Populate Truck Arrays (Trucks 1 to 5)
- k = 0
- For i = 1 To 5
- Truck(i).NumberOfAxles = Cells(9, 4 + 4 * k)
- k = k + 1
- Next i
- k = 0
- For i = 1 To 5
- For j = 1 To Truck(i).NumberOfAxles
- Truck(i).AxleWeights(j) = Cells(31 + j, 3 + 4 * k)
- Next j
- k = k + 1
- Next i
- End Sub
- Public Sub NewSub()
- For i = 1 To Truck(10).NumberOfAxles
- Cells(27 + i, 22) = Truck(10).AxleWeights(i)
- Next i
- End Sub
- Dim global_var As Integer
- '
- Sub doA()
- global_var = global_var + 1
- Debug.Print global_var
- End Sub
- Sub doB()
- global_var = global_var + 10
- Debug.Print global_var
- End Sub
- Sub main()
- doA
- doB
- doA
- End Sub
- Truck(10) As Trucks
- Public Type Trucks
- NumberOfAxles As Integer
- AxleWeights(15) As Double
- End Type
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement