Class DataService
Public Shared Function CreateData() As List(Of DataItem)
Dim data = New List(Of DataItem)()
Dim dt As DateTime = DateTime.Today
data.Add(New DataItem(dt.[Date], 79))
data.Add(New DataItem(dt.[Date].AddDays(-7), 78))
data.Add(New DataItem(dt.[Date].AddDays(-14), 73))
data.Add(New DataItem(dt.[Date].AddDays(-21), 74))
data.Add(New DataItem(dt.[Date].AddDays(-28), 76))
data.Add(New DataItem(dt.[Date].AddDays(-35), 74))
data.Add(New DataItem(dt.[Date].AddDays(-42), 75))
data.Add(New DataItem(dt.[Date].AddDays(-49), 75))
data.Add(New DataItem(dt.[Date].AddDays(-56), 80))
Return data
End Function
End Class
Public Class DataItem
Public Sub New(date__1 As DateTime, sales__2 As Integer)
[Date] = date__1
Sales = sales__2
End Sub
Public Property [Date]() As DateTime
Get
Return m_Date
End Get
Set
m_Date = Value
End Set
End Property
Private m_Date As DateTime
Public Property Sales() As Integer
Get
Return m_Sales
End Get
Set
m_Sales = Value
End Set
End Property
Private m_Sales As Integer
End Class