1、Record a DayAction of one of the following possible values:
Asleep
Getting ready for work
Traveling to work
At work
At lunch
Traveling from work
Relaxing with friends
Getting ready for bed
2、Public Class Form1
'定义枚举类型
'DayAction Enumeration
Private Enum DayAction As Integer
Asleep = 0
GettingReadyForWork = 1
TravelingToWork = 2
AtWork = 3
AtLunch = 4
TravelingFromWork = 5
RelaxingWithFriends = 6
GettingReadyForBed = 7
End Enum
3、'Declare variable
Private CurrentState As DayAction
Add the following code below the variable you just added:
'Hour property
Private Property Hour() As Integer
Get
'Return the current hour displayed
Return dtpHour.Value.Hour
End Get
Set(value As Integer)
'Set the date using the hour passed to this property
dtpHour.Value =
New Date(Now.Year, Now.Month, Now.Day, value, 0, 0)
'Set the display text
lblState.Text = "At " & value & ":00, Richard is "
End Set
End Property
4、Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
'Set the Hour property to the current hour
Me.Hour = Now.Hour
End Sub
5、Private Sub dtpHour_ValueChanged(sender As Object,
e As EventArgs) Handles dtpHour.ValueChanged
'Update the Hour property
Me.Hour = dtpHour.Value.Hour
End Sub
6、执行结果入戏图所示：
1、Set(value As Integer)
'Set the date using the hour passed to this property
dtpHour.Value =
New Date(Now.Year, Now.Month, Now.Day, value, 0, 0)
'Determine the state
If value >= 6 And value < 7 Then
CurrentState = DayAction.GettingReadyForWork
ElseIf value >= 7 And value < 8 Then
CurrentState = DayAction.TravelingToWork
ElseIf value >= 8 And value < 13 Then
CurrentState = DayAction.AtWork
ElseIf value >= 13 And value < 14 Then
CurrentState = DayAction.AtLunch
ElseIf value >= 14 And value < 17 Then
CurrentState = DayAction.AtWork
ElseIf value >= 17 And value < 18 Then
CurrentState = DayAction.TravelingFromWork
ElseIf value >= 18 And value < 22 Then
CurrentState = DayAction.RelaxingWithFriends
ElseIf value >= 22 And value < 23 Then
CurrentState = DayAction.GettingReadyForBed
Else
CurrentState = DayAction.Asleep
End If
'Set the display text
lblState.Text = "At " & value & ":00, Richard is " &
CurrentState
End Set
2、'Set the display text
lblState.Text = "At " & value & ":00, Richard is " &
CurrentState.ToString()
End Set
