Main Frm
VERSION 5.00
Begin VB.Form frm_Menu
BackColor = &H00C00000&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 8865
ClientLeft = 45
ClientTop = 45
ClientWidth = 4680
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8865
ScaleWidth = 4680
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer1
Interval = 10
Left = 4185
Top = 2565
End
Begin VB.CommandButton cmd_Exit
Caption = "Exit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 1260
TabIndex = 0
Top = 8055
Width = 1995
End
Begin VB.Label lbl_Title
Alignment = 2 'Center
BackColor = &H00C00000&
Caption = "Label3"
BeginProperty Font
Name = "Lucida Handwriting"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 1725
Left = 810
TabIndex = 1
Top = 3465
Width = 2895
End
End
Attribute VB_Name = "frm_Menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'this form is used mainly for the touch screen part
' (1)using a timer, it polls the parallel port every 10 milliseconds
' using the function ReadX(),
' (2)when there is a value found, there has been a touch event and
' would then proceed to obtain the Y coordinate ReadY()
' (3)with this information, the next step is to check which floor is currently
' visible.
' (4)With the current floor known, next step is to determine what event the user
' wants to happen. Either to display the description of the room or
' change to a different floor, depending on where the user pressed the screen
Option Explicit
Private Sub cmd_Exit_Click()
Unload frm_1stfloor
Unload frm_2ndFloor
Unload frm_3rdFloor
Unload frm_enter
Unload frm_Menu
End
End Sub
Private Sub Form_Load()
frm_Menu.Top = 0
frm_Menu.Left = 0
frm_Menu.Width = Screen.Width / 4
frm_Menu.Height = Screen.Height
cmd_Exit.Top = frm_Menu.Height * 10 / 11
cmd_Exit.Left = frm_Menu.Width / 5
cmd_Exit.Width = frm_Menu.Width * 3 / 5
cmd_Exit.Height = frm_Menu.Height / 20
lbl_Title.Top = frm_Menu.Height / 5
lbl_Title.Left = 0
lbl_Title.Width = frm_Menu.Width
lbl_Title.Height = frm_Menu.Height / 4
lbl_Title.Caption = "Faura Map"
End Sub
Private Sub Timer1_Timer()
Dim Xcoordinate, Ycoordinate As Integer
Xcoordinate = ReadX
If Xcoordinate <> 0 Then
Ycoordinate = ReadY
If frm_enter.Visible Then
If (Xcoordinate = 4 Or Xcoordinate = 5) And Ycoordinate = 7 Then
Call frm_enter.cmd_enter_Click
Exit Sub
End If
End If
If frm_1stfloor.Visible Then
Select Case Xcoordinate
Case 1
Select Case Ycoordinate
Case 1
Call frm_1stfloor.cmd_F118_Click
Case 2
Call frm_1stfloor.cmd_F118_Click
Case 3
Call frm_1stfloor.cmd_F117_Click
Case 4
Call frm_1stfloor.cmd_F116_Click
Case 5
Call frm_1stfloor.cmd_F115_Click
Case 6
Call frm_1stfloor.cmd_F115_Click
Case 7
Call frm_1stfloor.cmd_F114_Click
Case 8
Call frm_1stfloor.cmd_F113_Click
End Select
Case 2
Select Case Ycoordinate
Case 8
Call frm_1stfloor.cmd_F111_Click
End Select
Case 3
Select Case Ycoordinate
Case 7
Call frm_1stfloor.cmd_2ndFloor_Click
Exit Sub
Case 8
Call frm_1stfloor.cmd_F110_Click
End Select
Case 4
Select Case Ycoordinate
Case 7
Call frm_1stfloor.cmd_2ndFloor_Click
Exit Sub
End Select
Case 5
Select Case Ycoordinate
Case 7
Call frm_1stfloor.cmd_3rdFloor_Click
Exit Sub
Case 8
Call frm_1stfloor.cmd_F109_Click
End Select
Case 7
Select Case Ycoordinate
Case 1
Call frm_1stfloor.cmd_F101_Click
Case 7
Call frm_1stfloor.cmd_F107_Click
Case 8
Call frm_1stfloor.cmd_F108_Click
End Select
Case 8
Select Case Ycoordinate
Case 1
Call frm_1stfloor.cmd_F102_Click
Case 2
Call frm_1stfloor.cmd_F103_Click
Case 3
Call frm_1stfloor.cmd_F104_Click
Case 4
Call frm_1stfloor.cmd_F105_Click
Case 5
Call frm_1stfloor.cmd_F105_Click
Case 6
Call frm_1stfloor.cmd_F106_Click
Case 7
Call frm_1stfloor.cmd_F107_Click
Case 8
Call frm_1stfloor.cmd_F108_Click
End Select
End Select
End If
If frm_2ndFloor.Visible Then
Select Case Xcoordinate
Case 1
Select Case Ycoordinate
Case 1
Call frm_2ndFloor.cmd_F229_Click
Case 2
Call frm_2ndFloor.cmd_F228_Click
Case 3
Call frm_2ndFloor.cmd_F227_Click
Case 4
frm_2ndFloor.lbl_Description.Caption = " " _
& " F225/F226 " _
& " " _
& " Technical Support Group"
Case 5
Call frm_2ndFloor.cmd_F224_Click
Case 6
Call frm_2ndFloor.cmd_F223_Click
Case 7
frm_2ndFloor.lbl_Description.Caption = " " _
& " F222/F221 " _
& " " _
& " Technical Support Group"
Case 8
Call frm_2ndFloor.cmd_F220_Click
End Select
Case 2
Select Case Ycoordinate
Case 1
Call frm_2ndFloor.cmd_F229_Click
Case 8
Call frm_2ndFloor.cmd_F219_Click
End Select
Case 3
Select Case Ycoordinate
Case 1
Call frm_2ndFloor.cmd_F230_Click
Case 7
Call frm_2ndFloor.cmd_1stFloor_Click
Exit Sub
Case 8
frm_2ndFloor.lbl_Description.Caption = " " _
& " F218/F217 " _
& " " _
& " Faculty Comfort Rooms"
End Select
Case 4
Select Case Ycoordinate
Case 7
Call frm_2ndFloor.cmd_1stFloor_Click
Exit Sub
End Select
Case 5
Select Case Ycoordinate
Case 1
Call frm_2ndFloor.cmd_F201_Click
Case 7
Call frm_2ndFloor.cmd_3rdFloor_Click
Exit Sub
Case 8
Call frm_2ndFloor.cmd_F216_Click
End Select
Case 6
Select Case Ycoordinate
Case 1
Call frm_2ndFloor.cmd_F202_Click
Case 8
Call frm_2ndFloor.cmd_F216_Click
End Select
Case 7
Select Case Ycoordinate
Case 1
Call frm_2ndFloor.cmd_F203_Click
End Select
Case 8
Select Case Ycoordinate
Case 1
Call frm_2ndFloor.cmd_F204_Click
Case 2
Call frm_2ndFloor.cmd_F205_Click
Case 3
Call frm_2ndFloor.cmd_F206_Click
Case 4
Call frm_2ndFloor.cmd_F207_Click
Case 5
Call frm_2ndFloor.cmd_F208_Click
Case 6
frm_2ndFloor.lbl_Description.Caption = " " _
& " F209/F210/F211 " _
& " " _
& " Computer Science Department"
Case 7
frm_2ndFloor.lbl_Description.Caption = " " _
& "F212/F213/F214/F215 " _
& " " _
& " Computer Science Faculty Room"
Case 8
frm_2ndFloor.lbl_Description.Caption = " " _
& "F212/F213/F214/F215 " _
& " " _
& " Computer Science Faculty Room"
End Select
End Select
End If
If frm_3rdFloor.Visible Then
Select Case Xcoordinate
Case 1
Select Case Ycoordinate
Case 1
Call frm_3rdFloor.cmd_F325_Click
Case 2
Call frm_3rdFloor.cmd_F324_Click
Case 3
Call frm_3rdFloor.cmd_F323_Click
Case 4
Call frm_3rdFloor.cmd_F323_Click
Case 5
Call frm_3rdFloor.cmd_F322_Click
Case 6
Call frm_3rdFloor.cmd_F321_Click
Case 7
Call frm_3rdFloor.cmd_F320_Click
Case 8
Call frm_3rdFloor.cmd_F318_Click
End Select
Case 2
Select Case Ycoordinate
Case 1
Call frm_3rdFloor.cmd_F326_Click
End Select
Case 3
Select Case Ycoordinate
Case 1
Call frm_3rdFloor.cmd_F327_Click
Case 7
Call frm_3rdFloor.cmd_1stFloor_Click
Exit Sub
Case 8
frm_3rdFloor.lbl_Description.Caption = " " _
& " F316/F315/F314 " _
& " " _
& " Faculty Comfort Rooms and" _
& " Storage Room"
End Select
Case 4
Select Case Ycoordinate
Case 7
Call frm_3rdFloor.cmd_1stFloor_Click
Exit Sub
End Select
Case 5
Select Case Ycoordinate
Case 1
Call frm_3rdFloor.cmd_F301_Click
Case 7
Call frm_3rdFloor.cmd_2ndFloor_Click
Exit Sub
Case 8
Call frm_3rdFloor.cmd_F313_Click
End Select
Case 6
Select Case Ycoordinate
Case 1
Call frm_3rdFloor.cmd_F302_Click
Case 8
Call frm_3rdFloor.cmd_F312_Click
End Select
Case 7
Select Case Ycoordinate
Case 1
Call frm_3rdFloor.cmd_F303_Click
Case 8
Call frm_3rdFloor.cmd_F311_Click
End Select
Case 8
Select Case Ycoordinate
Case 1
Call frm_3rdFloor.cmd_F304_Click
Case 2
Call frm_3rdFloor.cmd_F305_Click
Case 3
Call frm_3rdFloor.cmd_F305_Click
Case 4
frm_3rdFloor.lbl_Description.Caption = " " _
& " F306/F307 " _
& " " _
& " Instrumentation Laboratory" _
& " and ECCE Faculty Room"
Case 5
Call frm_3rdFloor.cmd_F308_Click
Case 6
Call frm_3rdFloor.cmd_F309_Click
Case 7
Call frm_3rdFloor.cmd_F310_Click
Case 8
Call frm_3rdFloor.cmd_F311_Click
End Select
End Select
End If
End If
End Sub
|