Visual Basic 6.0

Visual Basic 6.0

Slip18

Q.1) Write a VB Program to move a command button by using timer control. [Marks 15]

Solution

Private Sub Form_Load()
Command1.Visible = True
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
End Sub

Private Sub Timer1_Timer()
If Command1.Visible Then
Command2.Visible = True
End If

If Command2.Visible Then
Command3.Visible = True
End If

If Command3.Visible Then
Command4.Visible = True
End If

If Command4.Visible Then
Command1.Visible = True
End If
End Sub

Output

Q.2) Write a VB program, i.e. menu driven that facilitates following task in a hotel

1. Reserves a room for a date

2. Cancel the reservation

3. Checkout, print bill on the checkout

4. List of all booked rooms.

Assume that the hotel contains 5 rooms [25 Marks]

Solution

Same as Slip14 (Reservation And Cancellation Airline)