TUTORIAL
TEKNOLOGI INFORMATIKA
MICROSOFT
VISUAL BASIC 2010
“Membuat
Program Aplikasi Formulir Reservasi Industrial Luxury Hotel ”
1. Judul Program
Formulir
Reservasi Industrial Luxury Hotel
2. Tujuan danManfaatProgram
Tujuan program ini dibuat yaitu untuk mempermudah calon tamu hotel
dalam melakukan reservasi.Calontamuhanyaperlumenginputkandatanyasendiridansecaraotomatiskomputerakanmenyimpannya.
Manfaatdari program
aplikasiiniadalahmengefesiensikanwaktudantenagamanusiadalammelakukanreservasi
hotel.
3.
Deskripsi Program
Program initerdiriatas 6
form. Form1sebagaipembukaan, form2-form5 sebagaitempatmenginput data, sedangkan
form6 sebagaipenutupan.Apabila data pada Form2 hingga Form5 belumlengkapterisi,
maka user tidakdapatmelanjutkanke form selanjutnya.Pada form6, user
dapatmelakukanreservasiulangataumenyelesaikanreservasi.Berikutpenjelasansingkatdaritiapform
:
·
Form 1
Form 1 sebagai halaman awal dalam pengisian formulir
reservasi hotel. Form 1 berisi ucapan selamat datang kepada tamu hotel.
·
Form 2
Form 2 merupakan form untuk pengisian identitas tamu
hotel, seperti nama lengkap, jenis kelamin, tanggal lahir, alamat, negara, dan
nomer telepon.
·
Form 3
Form 3 sebagai tempat memasukkan data berupa kartu
identitas yang akan digunakan untuk reservasi dan kendaraan yang digunakan oleh
tamu.
·
Form 4
Form 4 berisi
tentang cabang hotel yang digunakan untuk menginap, tanggal check in, tanggal
check out, tipe kamar, jumlah orang yang menginap, serta lantai tempat
menginap.
·
Form 5
Form 5 menjelaskan berbagai fasilitas beserta biaya yang
ditawarkan oleh Industrial Luxury Hotel.
·
Form 6
Form 6 berisi ucapan terima kasih karena telah melakukan
reservasi.
4. Sasaran
Program
Sasaran program iniadalahsemuamasyarakat
yang inginmelakukanreservasi di Industrial Luxury Hotel.
5. Konsep
yang digunakan
Konsep yang digunakanpada program
iniyaitu :
1. Membuka
program Visual Basic 2010
2. Klik
New Project, makaakanmuncultampilansebagaiberikut :
3. Pada
Windows Form Application, klik OK kemudianakanmuncultampilansebagaiberikut:
4. Gunakanfungsi-fungsipada
toolbox seperti Button, CheckBox, ComboBox, DateTimePicker, Label, LinkLabel,
RadioButton, danTextBox.
5. Buat5
form barusehinggamencapai form6. Berikutcaramenambah form: Project > Add
windows form > windows form > Add
6.
Buat tool padakeenam
form tersebut. Berikuttampilankeenam form tersebut.
7.
Setelahituatur
properties pada toolbox yang digunakan:
KOMPONEN
|
PROPERTIES
|
KETERANGAN
|
FORM 1
|
Name
Text
|
Form 1
Welcome to Industrial Luxury Hotel
|
Label 1
|
Name
Text
|
Label 1
Welcome to
|
Label 2
|
Name
Text
|
Label 2
Industrial Luxury Hotel
|
Label 3
|
Name
Text
|
Label 3
for
reservation, please click
|
LinkLabel 1
|
Name
Text
|
LinkLabel 1
Here
|
Form 2
|
Name
Text
|
Form 2
Identity
Guest
|
Label 1
|
Name
Text
|
Label 1
First Name
|
TextBox 1
|
Name
Text
|
TextBox 1
|
Label 2
|
Name
Text
|
Label 2
Last Name
|
TextBox 2
|
Name
Text
|
TextBox 2
|
Label 3
|
Name
Text
|
Label 3
Gender
|
RadioButton 1
|
Name
Text
|
RadioButton
1
Male
|
RadioButton 2
|
Name
Text
|
RadioButton 2
Female
|
Label 4
|
Name
Text
|
Label 4
Date of
Birth
|
ComboBox 1
|
Name
Text
|
ComboBox 1
Month
|
ComboBox 2
|
Name
Text
|
ComboBox 2
Day
|
ComboBox 3
|
Name
Text
|
ComboBox 3
Year
|
Label 5
|
Name
Text
|
Label 5
Address
|
TextBox 3
|
Name
Text
|
TextBox 3
|
Label 6
|
Name
Text
|
Label 6
Country
|
ComboBox 4
|
Name
Text
|
ComboBox 4
Select One
|
Label 7
|
Name
Text
|
Label 7
Phone Number
|
TextBox 6
|
Name
Text
|
TextBox 6
|
Label 8
|
Name
Text
|
Label 8
Identity of
Guest
|
Button 1
|
Name
Text
|
Button 1
Home
|
Button 2
|
Name
Text
|
Button 2
Next
|
Form 3
|
Name
Text
|
Form 3
ID & Vehicle Information
|
Label 1
|
Name
Text
|
Label 1
ID
Information
|
Label 2
|
Name
Text
|
Label 2
Number of ID Card
|
TextBox 1
|
Name
Text
|
TextBox 1
|
Label 3
|
Name
Text
|
Label 3
ID Card
|
RadioButton 1
|
Name
Text
|
RadioButton
1
KTP
|
RadioButton 2
|
Name
Text
|
RadioButton 2
Passport
|
RadioButton 3
|
Name
Text
|
RadioButton
3
KTM
|
Label 4
|
Name
Text
|
Label 4
Vehicle Type
|
ComboBox 1
|
Name
Text
|
ComboBox 1
Select One
|
Label 5
|
Name
Text
|
Label 5
Vehicle Information
|
Label 6
|
Name
Text
|
Label 6
Vehicle
Model
|
TextBox 4
|
Name
Text
|
TextBox 4
|
Label 7
|
Name
Text
|
Label 7
Plate Number
|
TextBox 3
|
Name
Text
|
TextBox 3
|
Button 1
|
Name
Text
|
Button 1
Next
|
Button 2
|
Name
Text
|
Button 2
Back
|
Form 4
|
Name
Text
|
Form 4
ID &
Vehicle Information
|
Label 1
|
Name
Text
|
Label 1
Check In
|
DateTimePicker 1
|
Name
Text
|
DateTimePicker
1
|
Label 2
|
Name
Text
|
Label 2
Check Out
|
DateTimePicker 2
|
Name
Text
|
DateTimePicker
2
|
Label 3
|
Name
Text
|
Label 3
Room Type
|
RadioButton 1
|
Name
Text
|
RadioButton1
Single
|
RadioButton2
|
Name
Text
|
RadioButton2
Double
|
Label 4
|
Name
Text
|
Label 4
Adults
|
ComboBox 2
|
Name
Text
|
ComboBox 2
0
|
Label 5
|
Name
Text
|
Label 5
Children
|
ComboBox 1
|
Name
Text
|
ComboBox 1
0
|
Label 6
|
Name
Text
|
Label 6
Floor
|
ComboBox 4
|
Name
Text
|
ComboBox 4
0
|
Label 8
|
Name
Text
|
Label 8
Branch
|
ComboBox 5
|
Name
Text
|
ComboBox 5
Choose City
|
Button 1
|
Name
Text
|
Button 1
Back
|
Button 2
|
Name
Text
|
Button 2
Next
|
Form 5
|
Name
Text
|
Form 5
Range Price
and Facility
|
Label 1
|
Name
Text
|
Label 1
Range Price and Facility
|
RadioButton 1
|
Name
Text
|
RadioButton1
Rp
500.000,00 - Rp 999.999,00
|
Label 2
|
Name
Text
|
Label 2
Bed room, Breakfast, AC
|
RadioButton 2
|
Name
Text
|
RadioButton
2
Rp
1.000.000,00 - Rp 1.999.999,00
|
Label 6
|
Name
Text
|
Label 6
Bed room, free breakfast, AC, free Wi-Fi
|
RadioButton3
|
Name
Text
|
RadioButton
3
Rp 2.000.000,00
- Rp 2.999.999,00
|
Label 5
|
Name
Text
|
Label 5
Bed room, free breakfast, AC, free Wi-Fi, karaoke
|
RadioButton 4
|
Name
Text
|
RadioButton
4
Rp
3.000.000,00 - Rp 3.999.999,00
|
Label 4
|
Name
Text
|
Label 4
Bed room, free breakfast, AC, free Wi-Fi, karaoke, swimming pool
|
RadioButton 5
|
Name
Text
|
RadioButton
5
Rp
4.000.000,00 - Rp 5.000.000,00
|
Label 3
|
Name
Text
|
Label 3
Bed room, free breakfast, AC, free Wi-Fi, karaoke, swimming pool, gym
center
|
Button 1
|
Name
Text
|
Button 1
Finish
|
Button 2
|
Name
Text
|
Button 2
Back
|
Form 6
|
Name
Text
|
Form 6
Thank You :)
|
Label 1
|
Name
Text
|
Label 1
Thanks for your reservation
|
Label 2
|
Name
Text
|
Label 2
Industrial
Luxury Hotel with full of pride
|
Button 1
|
Name
Text
|
Button 1
Exit
|
9. Untukmengganti
style pada toolbox (background toolbox, font), klik toolbox yang hendakdiganti
style nya, pilihproperties – font(huruf) - backcolor (background toolbox) – forecolor (warnatulisan toolbox).
10. Listing code Program AplikasiFormulir Reservasi
Industrial Luxury Hotel besertapenjelasan:
LISTING PROGRAM
Form1
PublicClassForm1
PrivateSub
LinkLabel1_LinkClicked_1(ByVal sender AsSystem.Object, ByVal e AsSystem.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Form2.Show()
Me.Hide()
EndSub
Penjelasan:
Apabilakitaklik LinkLabel1, maka Form2
akanmunculkarena listingForm2.Show()
sedangkan Form1 akantersembunyikarena listingMe.Hide()
PrivateSub Form1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
HandlesMyBase.Load
Me.Text = "Welcome to Industrial Luxury Hotel"
EndSub
EndClass
Penjelasan:
Listing tersebutmengubahnama
form menjadi “Welcome to Industrial Luxury Hotel”
Form2
PublicClassForm2
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button1.Click
Form1.Show()
Me.Hide()
EndSub
Penjelasan:
Apabilakitaklik LinkLabel1, maka Form1
akankembalimunculkarena listingForm1.Show()
sedangkan Form2 akantersembunyikarena listingMe.Hide()
PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button2.Click
If TextBox1.Text = ""Or
TextBox2.Text = ""Or TextBox3.Text = ""Or TextBox6.Text = ""Or ComboBox1.Text = ""Or ComboBox2.Text = ""Or ComboBox3.Text = ""Or ComboBox4.Text = ""Or (RadioButton1.Checked = FalseAnd
RadioButton2.Checked = False) Then
MsgBox("Maaf,
data belumlengkapterisi")
Else :Form3.Show()
Me.Hide()
EndIf
EndSub
Penjelasan:
Kita menggunakanfungsi if pada form ini.
Apabilacalontamubelummenginputkansemua data yang diperlukan, makaakanmuncul
Message Box bertuliskan “Maaf, data belumlengkapterisi” sehinggacalontamudiharuskanmenginputsemua
data yang diperlukan. Apabilasemua data telahlengkapterisi, maka Form3
akanmunculsedangkan Form2 akantersembunyi.
PrivateSub Form2_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
HandlesMyBase.Load
Me.Text = "Identity of Guest"
EndSub
EndClass
Penjelasan:
Listing tersebutmengubahnama
form menjadi “Identity of Guest”
Form3
PublicClassForm3
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button1.Click
If TextBox1.Text = ""Or
TextBox3.Text = ""Or TextBox4.Text = ""Or (RadioButton1.Checked = FalseAnd
RadioButton2.Checked = FalseAnd
RadioButton3.Checked = False) Or ComboBox1.Text = ""Then
MsgBox("Maaf,
data belumlengkapterisi")
Else :Form4.Show()
Me.Hide()
EndIf
EndSub
Penjelasan:
Kita menggunakanfungsi if pada form ini.
Apabilacalontamubelummenginputkansemua data yang diperlukan, makaakanmuncul
Message Box bertuliskan “Maaf, data belumlengkapterisi”
sehinggacalontamudiharuskanmenginputsemua data yang diperlukan. Apabilasemua
data telahlengkapterisi, maka Form4 akanmunculsedangkan Form3 akantersembunyi.
PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button2.Click
Form2.Show()
Me.Hide()
EndSub
Penjelasan:
Apabilakitaklik Button2, maka Form2
akankembalimunculkarena listingForm2.Show()
sedangkan Form3 akantersembunyikarena listingMe.Hide()
PrivateSub Form3_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
HandlesMyBase.Load
Me.Text = "ID & Vehicle Information"
EndSub
EndClass
Penjelasan:
Listing tersebutmengubahnama
form menjadi “ID & Vehicle Information”
Form4
PublicClassForm4
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button1.Click
Form3.Show()
Me.Hide()
EndSub
Penjelasan:
Apabilakitaklik Button1, maka Form3
akankembalimunculkarena listingForm3.Show()
sedangkan Form4 akantersembunyikarena listingMe.Hide()
PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button2.Click
If ComboBox1.Text = ""Or
ComboBox2.Text = ""Or ComboBox4.Text = ""Or ComboBox5.Text = ""Or (RadioButton1.Checked = FalseAnd
RadioButton2.Checked = False) Or DateTimePicker1.Checked = FalseOr
DateTimePicker2.Checked = FalseThen
MsgBox("Maaf,
data belumlengkapterisi")
Else :Form5.Show()
Me.Hide()
EndIf
EndSub
Penjelasan:
Kita menggunakanfungsi if pada form ini.
Apabilacalontamubelummenginputkansemua data yang diperlukan, makaakanmuncul
Message Box bertuliskan “Maaf, data belumlengkapterisi” sehinggacalontamudiharuskanmenginputsemua
data yang diperlukan. Apabilasemua data telahlengkapterisi, maka Form5
akanmunculsedangkan Form4 akantersembunyi.
PrivateSub Form4_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
HandlesMyBase.Load
Me.Text = "Form Reservation"
EndSub
EndClass
Penjelasan:
Listing tersebutmengubahnama
form menjadi “Form Reservation”
Form5
PublicClassForm5
PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button2.Click
Form4.Show()
Me.Hide()
EndSub
Penjelasan:
Apabilakitaklik Button2, maka Form4
akankembalimunculkarena listingForm4.Show()
sedangkan Form5 akantersembunyikarena listingMe.Hide()
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button1.Click
If RadioButton1.Checked =
FalseAnd RadioButton2.Checked = FalseAnd RadioButton3.Checked = FalseAnd RadioButton4.Checked = FalseAnd RadioButton5.Checked = FalseThen
MsgBox("Maaf,
data belumlengkapterisi")
Else :Form6.Show()
Me.Hide()
EndIf
EndSub
Penjelasan:
Kita menggunakanfungsi if pada form ini.
Apabilacalontamubelummenginputkansemua data yang diperlukan, makaakanmuncul
Message Box bertuliskan “Maaf, data belumlengkapterisi”
sehinggacalontamudiharuskanmenginputsemua data yang diperlukan. Apabilasemua
data telahlengkapterisi, maka Form6 akanmunculsedangkan Form5 akantersembunyi.
PrivateSub Form5_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
HandlesMyBase.Load
Me.Text = "Range Price and Facility"
EndSub
EndClass
Penjelasan:
Listing tersebutmengubahnama
form menjadi “Range Price and Facility”
Form6
PublicClassForm6
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button1.Click
Close()
EndSub
Penjelasan:
Listing tersebutmenunjukkanapabilakitakliktombol
Button1 maka program akantertutup.
PrivateSub Form6_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
HandlesMyBase.Load
Me.Text = "Thank you :)"
EndSub
Penjelasan:
Listing tersebutmengubahnama
form menjadi “Thank You :)”
PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles Button2.Click
DimctlAsControl
ForEachctlInForm2.Controls
IfTypeOfctlIsTextBoxThenctl.Text = ""
Next
ForEachctlInForm2.Controls
IfTypeOfctlIsComboBoxThenctl.Text = ""
Next
ForEachctlInForm3.Controls
IfTypeOfctlIsTextBoxThenctl.Text = ""
Next
ForEachctlInForm3.Controls
IfTypeOfctlIsComboBoxThenctl.Text = ""
Next
ForEachctlInForm4.Controls
IfTypeOfctlIsTextBoxThenctl.Text = ""
Next
ForEachctlInForm4.Controls
IfTypeOfctlIsComboBoxThenctl.Text = ""
Next
Form1.Show()
Me.Hide()
EndSub
EndClass
Penjelasan:
ForEachctlInForm2.Controls IfTypeOfctlIsTextBoxThenctl.Text = ""berfungsiuntukmengosongkansemua
data pada textbox di Form2. Begitujugapada listingForEachctlInForm2.Controls IfTypeOfctlIsComboBoxThenctl.Text
= "" berfungsiuntukmengosongkansemua
data padacombobox di Form2. Listing-listing berikutnyauntukmengosongkansemua
data pada textbox maupuncomboboxpada form3 dan form4.
Untuk melihat tutorial secara lengkap, silakan download di sini
Untuk download program, silakan klik di sini
Untuk melihat tutorial secara lengkap, silakan download di sini
Untuk download program, silakan klik di sini
Tidak ada komentar:
Posting Komentar