|
' ******************************************************************************
' **
' ** Yahoo Finance Managed
' ** Written by Marius Häusler 2010
' ** It would be pleasant, if you contact me when you are using this code.
' ** Contact: YahooFinanceManaged@gmail.com
' ** Project Home: http://code.google.com/p/yahoo-finance-managed/
' **
' ******************************************************************************
' **
' ** Copyright 2010 Marius Häusler
' **
' ** Licensed under the Apache License, Version 2.0 (the "License");
' ** you may not use this file except in compliance with the License.
' ** You may obtain a copy of the License at
' **
' ** http://www.apache.org/licenses/LICENSE-2.0
' **
' ** Unless required by applicable law or agreed to in writing, software
' ** distributed under the License is distributed on an "AS IS" BASIS,
' ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' ** See the License for the specific language governing permissions and
' ** limitations under the License.
' **
' ******************************************************************************
Namespace Finance
''' <summary>
''' Serializable. Stores informations about one historic trading period (day, week or month).
''' </summary>
''' <remarks></remarks>
<Serializable()> _
Public Class HistQuoteData
Private mValues(4) As Double
Private mVolume As Long
Private mTradingDate As Date
''' <summary>
''' The startdate of the period.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property TradingDate() As Date
Get
Return mTradingDate
End Get
Set(ByVal value As Date)
mTradingDate = value
End Set
End Property
''' <summary>
''' The traded volume.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Volume() As Long
Get
Return mVolume
End Get
Set(ByVal value As Long)
mVolume = value
End Set
End Property
''' <summary>
''' The first value in trading period.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Open() As Double
Get
Return mValues(0)
End Get
Set(ByVal value As Double)
mValues(0) = value
End Set
End Property
''' <summary>
''' The highest value in trading period.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property High() As Double
Get
Return mValues(1)
End Get
Set(ByVal value As Double)
mValues(1) = value
End Set
End Property
''' <summary>
''' The lowest value in trading period.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Low() As Double
Get
Return mValues(2)
End Get
Set(ByVal value As Double)
mValues(2) = value
End Set
End Property
''' <summary>
''' The last value in trading period.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Close() As Double
Get
Return mValues(3)
End Get
Set(ByVal value As Double)
mValues(3) = value
End Set
End Property
''' <summary>
''' The last value in trading period in relation to share splits.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property CloseAdjusted() As Double
Get
Return mValues(4)
End Get
Set(ByVal value As Double)
mValues(4) = value
End Set
End Property
End Class
End Namespace
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.