Visual Basic.NET How to Program (PDF)

Chapter 8 Object-Based Programming 319
13 ' Label and TextBox for minute
14 Friend WithEvents lblSetMinute As Label
15 Friend WithEvents txtSetMinute As TextBox
16
17 ' Label and TextBox for second
18 Friend WithEvents lblSetSecond As Label
19 Friend WithEvents txtSetSecond As TextBox
20
21 ' Labels for outputting time
22 Friend WithEvents lblOutput1 As Label
23 Friend WithEvents lblOutput2 As Label
24
25 ' Button for adding one second to time
26 Friend WithEvents cmdAddSecond As Button
27
28 Dim time As New CTime3()
29
30 ' Visual Studio .NET generated code
31
32 ' update time display
33 Private Sub UpdateDisplay()
34 lblOutput1.Text = "Hour: " & time.Hour & "; Minute: " & _
35 time.Minute & "; Second: " & time.Second
36
37 lblOutput2.Text = "Standard time is: " & _
38 time.ToStandardString & "; Universal Time is: " _
39 & time.ToUniversalString()
40 End Sub ' UpdateDisplay
41
42 ' invoked when user presses Add Second button
43 Protected Sub cmdAddSecond_Click( _
44 ByVal sender As System.Object, _
45 ByVal e As System.EventArgs) Handles cmdAddSecond.Click
46
47 ' add one second
48 time.Second = (time.Second + 1) Mod 60
49 txtSetSecond.Text = time.Second
50
51 ' add one minute if 60 seconds have passed
52 If time.Second = 0 Then
53 time.Minute = (time.Minute + 1) Mod 60
54 txtSetMinute.Text = time.Minute
55
56 ' add one hour if 60 minutes have passed
57 If time.Minute = 0 Then
58 time.Hour = (time.Hour + 1) Mod 24
59 txtSetHour.Text = time.Hour
60 End If
61
62 End If
63
64 UpdateDisplay()
65 End Sub ' cmdAddSecond_Click
Fig. 8.7 Graphical user interface for class CTime3 (part 2 of 3).