Mini Booking System in VB.Net with Full Source Code | Free to Download
2021 Mini Booking System in vb.net is a complete tutorial for a simple school project.
Email Address - [email protected]
fb - https://bit.ly/32pYIFi
Website
https://www.sourcecodester.com/
https://itsourcecode.com/
Song: Creative Minds - Bensound (No Copyright Music Vlog Library)
Music promoted by No Copyright Music Vlog Library.
**You can DONATE any amount to see more source code that is free to download**
https://www.paypal.me/janobe04
GCash #: +639668655561
-----------------------------------------------------
Please play the full video and do not skip to know how to setup and what are the functionalities of the system.
------------------------------------------------------------------
If you are new in my channel, please subscribe and click the notification bell to keep you updated once I upload a new video.
https://bit.ly/2LPn9Wu
Working Source Code
***********************
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With ComboBox1.Items
.Add("Standard Room with TV And Electric fan (2 person)")
.Add("Family Room with TV And Electric fan (6 person)")
.Add("Deluxe Room with TV And Aircondition (6 person)")
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim totalprice As Double
Dim personPrice As Double = Val(TextBox2.Text) * 100
totalprice = Val(TextBox1.Text) + personPrice
TextBox3.Text = totalprice
Dim change As Double
change = Val(TextBox4.Text) - Val(TextBox3.Text)
TextBox5.Text = change
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ComboBox1.Text = "Select a Room"
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
Try
Dim change As Double
change = Val(TextBox4.Text) - Val(TextBox3.Text)
TextBox5.Text = change
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class