-
Notifications
You must be signed in to change notification settings - Fork 1
/
frmSettings.frm
160 lines (153 loc) · 4.56 KB
/
frmSettings.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
VERSION 5.00
Begin VB.Form frmSettings
Caption = "Random Subject Settings"
ClientHeight = 3030
ClientLeft = 8865
ClientTop = 4950
ClientWidth = 4560
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4560
Begin VB.CommandButton cmdSettingSave
Caption = "Save"
Height = 615
Left = 1440
TabIndex = 2
Top = 2160
Width = 1215
End
Begin VB.ComboBox cmbEndTime
Height = 315
Left = 2520
TabIndex = 1
Text = "End Time"
Top = 960
Width = 1335
End
Begin VB.ComboBox cmbStartTime
Height = 315
Left = 840
TabIndex = 0
Text = "Start Time"
Top = 960
Width = 1215
End
Begin VB.Label lblAWESOME
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Settings"
BeginProperty Font
Name = "Small Fonts"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 480
TabIndex = 6
Top = 0
Width = 3615
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "and"
Height = 255
Left = 2160
TabIndex = 5
Top = 960
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Between"
Height = 255
Left = 120
TabIndex = 4
Top = 960
Width = 735
End
Begin VB.Label lbltextblock
BackStyle = 0 'Transparent
Caption = "Choose time period of random subject:"
Height = 375
Left = 240
TabIndex = 3
Top = 600
Width = 2775
End
Begin VB.Shape Shape1
BackColor = &H00FFFFC0&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 975
Left = 120
Top = 600
Width = 4215
End
End
Attribute VB_Name = "frmSettings"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StartTime As Integer
Dim EndTime As Integer
Dim StartDay As Integer
Dim EndDay As Integer
Private Sub cmdSettingSave_Click()
'Check if end time is larger than start time
If (cmbEndTime.ListIndex - cmbStartTime.ListIndex) < 0 Then
MsgBox "End Time must be after Start Time!"
Else
'Save the settings
StartTime = cmbStartTime.ListIndex + 1
EndTime = cmbEndTime.ListIndex + 1
SaveSetting "shantnu", "timetable", "StartTime", StartTime
SaveSetting "shantnu", "timetable", "EndTime", EndTime
'Display Confirmation Message
MsgBox "Settings Saved"
'Close the form
frmSettings.Hide
End If
End Sub
Private Sub Form_Load()
'Add values to start Time combobox
cmbStartTime.AddItem "0701-0800"
cmbStartTime.AddItem "0801-0900"
cmbStartTime.AddItem "0901-1000"
cmbStartTime.AddItem "1001-1100"
cmbStartTime.AddItem "1101-1200"
cmbStartTime.AddItem "1201-1300"
cmbStartTime.AddItem "1301-1400"
cmbStartTime.AddItem "1401-1500"
cmbStartTime.AddItem "1501-1600"
cmbStartTime.AddItem "1601-1700"
cmbStartTime.AddItem "1701-1800"
cmbStartTime.AddItem "1801-1900"
cmbStartTime.AddItem "1901-2000"
cmbStartTime.AddItem "2001-2100"
cmbStartTime.AddItem "2101-2200"
cmbStartTime.AddItem "2201-2300"
cmbStartTime.AddItem "2301-0000"
'Add values to end time combobox
cmbEndTime.AddItem "0701-0800"
cmbEndTime.AddItem "0801-0900"
cmbEndTime.AddItem "0901-1000"
cmbEndTime.AddItem "1001-1100"
cmbEndTime.AddItem "1101-1200"
cmbEndTime.AddItem "1201-1300"
cmbEndTime.AddItem "1301-1400"
cmbEndTime.AddItem "1401-1500"
cmbEndTime.AddItem "1501-1600"
cmbEndTime.AddItem "1601-1700"
cmbEndTime.AddItem "1701-1800"
cmbEndTime.AddItem "1801-1900"
cmbEndTime.AddItem "1901-2000"
cmbEndTime.AddItem "2001-2100"
cmbEndTime.AddItem "2101-2200"
cmbEndTime.AddItem "2201-2300"
cmbEndTime.AddItem "2301-0000"
End Sub