Data-Management-Project/Form1.frm at master · Arjun96/Data-Management-Project · GitHub

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
VERSION 5.00
Begin VB.Form frmMain
   Caption         =   "Form1"
   ClientHeight    =   12540
   ClientLeft      =   7320
   ClientTop       =   1665
   ClientWidth     =   13260
   LinkTopic       =   "Form1"
   ScaleHeight     =   12540
   ScaleWidth      =   13260
   Begin VB.CommandButton cmdExit
      Caption         =   "Exit"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   4980
      TabIndex        =   3
      Top             =   6960
      Width           =   3015
   End
   Begin VB.CommandButton cmdRules
      Caption         =   "Rules"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   5040
      TabIndex        =   2
      Top             =   5520
      Width           =   3015
   End
   Begin VB.CommandButton cmdPlay
      Caption         =   "Play"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   4980
      TabIndex        =   1
      Top             =   4080
      Width           =   3015
   End
   Begin VB.Label Label1
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Guess the number"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1815
      Left            =   1200
      TabIndex        =   0
      Top             =   1200
      Width           =   10575
   End
   Begin VB.Image Image1
      Height          =   18000
      Left            =   -120
      Picture         =   "Form1.frx":0000
      Top             =   0
      Width           =   24000
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()

    End 'ends the program

End Sub

Private Sub cmdPlay_Click()

    If rules = False Then 'checks to see if the user has read the rules

        MsgBox ("Please read the rules before starting the game") 'if they havent it tells you to read the rules
        frmMain.Hide 'hides the main form
        frmRules.Show 'shows the rules form

    ElseIf rules = True Then 'if the user has read the rules this runs

        frmMain.Hide 'hides the main form
        frmGame.Show 'starts the game

    End If


End Sub

Private Sub cmdRules_Click()

    frmMain.Hide 'hides the main form
    frmRules.Show 'shows the rules form

End Sub