---
title: "GraphicEvents in control system touch panel"
canonical: "https://docs.cuesystem.com/space/CVCAPPLETS/284819528/GraphicEvents%20in%20control%20system%20touch%20panel"
format: markdown
---
The following example describes how to display information about an ongoing meeting on the control system panel.

```visualbasic
Private Process Page1_PushButton2_OnPush( ) Link Page1.PushButton2.OnPush
Var txt As Text [500]	
Var enter As Text [10] := "\000A"
Var RoomState As Text[30]
Var Sensor As Text [30]
Var meetinginfo As Namespace "CUE.Applet.ReservationSystemControlIntegration.1".MeetingInfoStructure
	
ReservationSystemControlIntegration1.GetMeetingInfo(meetinginfo)

Select meetinginfo.RoomState
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_FREE_NO_UPCOMMING_MEETING // 0
	RoomState := "FREE NO UPCOMMING MEETING"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_FREE_SOME_UPCOMMING_MEETING // 1
	RoomState := "FREE SOME UPCOMMING MEETING"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED // 2
	RoomState := "OCCUPIED"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED_BEFORE_MEETING // 3
	RoomState := "OCCUPIED BEFORE MEETING"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED_UNCONFIRMED // 4
	RoomState := "OCCUPIED_UNCONFIRMED"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED_BEFORE_MEETING_UNCONFIRMED // 5	
	RoomState := "OCCUPIED BEFORE MEETING_UNCONFIRMED"	
End Select

Select meetinginfo.OccupancySensorState
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.OCCUPANCY_SENSOR_STATE_UNKNOWN // 0
	Sensor := "STATE UNKNOWN"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.OCCUPANCY_SENSOR_STATE_FREE // 1
	Sensor := "STATE FREE"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.OCCUPANCY_SENSOR_STATE_OCCUPIED // 2
	Sensor := "STATE OCCUPIED"
End Select

FormatText(txt," 
Subject:{t}{t} 
Organizer:{t}{t} 
Roomstate: {t}{t} 
StartTime: {#}{t} 
EndTime: {#}{t} 
TimeToStart: {:}{t} 
TimeToEnd: {:}{t} 
Occupied: {l}{t} 
OccupancySensorState: {t}{t} 
MaxExtendTime:{:}",
meetinginfo.Subject,enter,
meetinginfo.Organizer,enter,
RoomState,enter,
meetinginfo.StartTime,enter,
meetinginfo.EndTime,enter,
meetinginfo.TimeToStart,enter,
meetinginfo.TimeToEnd,enter,
meetinginfo.IsOccupied,enter,
Sensor,enter,
meetinginfo.MaxExtendTime)

Page1.StaticText1.SetText(txt)
End Process
```


The following example describes how to display information about a nearest meeting on the control system panel.

```visualbasic
Private Process Page1_PushButton3_OnPush( ) Link Page1.PushButton3.OnPush
Var txt As Text [500]	
Var enter As Text [10] := "\000A"
Var RoomState As Text[30]
Var meetinginfo As Namespace "CUE.Applet.ReservationSystemControlIntegration.1".NearestMeetingInfoStructure
	
ReservationSystemControlIntegration1.GetNearestMeetingInfo(meetinginfo)

Select meetinginfo.RoomState
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_FREE_NO_UPCOMMING_MEETING // 0
	RoomState := "FREE NO UPCOMMING MEETING"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_FREE_SOME_UPCOMMING_MEETING // 1
	RoomState := "FREE SOME UPCOMMING MEETING"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED // 2
	RoomState := "OCCUPIED"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED_BEFORE_MEETING // 3
	RoomState := "OCCUPIED BEFORE MEETING"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED_UNCONFIRMED // 4
	RoomState := "OCCUPIED_UNCONFIRMED"
Case Namespace "CUE.Applet.ReservationSystemControlIntegration.1".ReservationSystemControlIntegration.ROOM_STATE_OCCUPIED_BEFORE_MEETING_UNCONFIRMED // 5	
	RoomState := "OCCUPIED BEFORE MEETING_UNCONFIRMED"	
End Select

FormatText(txt,"Subject:{t}{t} Organizer:{t}{t} Roomstate: {t}{t} StartTime: {#}{t} EndTime: {#}{t}", meetinginfo.Subject,enter,meetinginfo.Organizer,enter,RoomState,enter,meetinginfo.StartTime,enter,meetinginfo.EndTime,enter)

Page1.StaticText2.SetText(txt)
End Process
```