Konsep
Pada umumnya untuk penggunaan aplikasi reservasi tempat
membutuhkan dua data tanggal, namun pada penerapannya untuk memudahkan user dalam
menentukan jangka waktu maka pada Data yang dibandingkan langsung berupa waktu
(dd/mm/yyyy). Maka digunakan fungsi DateTimePicker untuk Toolbarnya namun untuk
fungsi penjumlahan dan pengurangan, DateTimePicker tidak dapat dihitung tanpa
fungsi khusus. Atas dasar itu Aplikasi Penghitung Selisih Tanggal ini berfungsi
untuk menyelesaikan solusi tersebut dengan menggunakan fungsi Convert.ToDateTime.
Dimana nantinya hasil output akan dikonversikan dalam bentuk hari, minggu dan
tahun
Tutorial 1
(Cara Pembuatan)
No
|
Komponen
|
Properties
|
Keterangan
|
1
|
Button1
|
Name
Text
|
Button1
Hitung Selisih
|
2
|
Button2
|
Name
Text
|
Button2
Refresh
|
3
|
Button3
|
Name
Text
|
Button3
Keluar
|
4
|
Label1
|
Name
Text
|
Label1
Tanggal Awal
|
5
|
Label2
|
Name
Text
|
Label2
Tanggal Sekarang
|
6
|
Label3
|
Name
Text
|
Label3
Selisih Hari
|
7
|
Label4
|
Name
Text
|
Label4
Selisih Minggu
|
8
|
Label5
|
Name
Text
|
Label5
Selisih Tahun
|
9
|
Label6
|
Name
Text
|
Label6
Hari
|
10
|
Label7
|
Name
Text
|
Label7
Minggu
|
11
|
Label8
|
Name
Text
|
Label8
Tahun
|
12
|
Textbox1
|
Name
Text
|
Textbox1
|
13
|
Textbox2
|
Name
Text
|
Textbox2
|
14
|
Textbox3
|
Name
Text
|
Textbox3
|
15
|
Textbox4
|
Name
Text
|
Textbox4
|
18
|
DateTimePicker1
|
Name
Text
|
DateTimePicker1
|
19
|
ToolStripMenuItem1
|
Name
Text
|
ToolStripMenuItem1
Menu
|
20
|
ToolStripMenuItem2
|
Name
Text
|
ToolStripMenuItem2
Help
|
Tutorial 2
Langkah Penggunaan
1.
Buka Aplikasi Selisih Tanggal
2.
Setelah itu Masukkan data Tanggal Awal lalu
setelah itu data Tanggal sekarang pada textbox kedua dengan format ,contoh :”
01 Okt 2011”
3.
Setelah kedua tanggal dipastikan benar, klik
tombol Hitung Selisih maka akan muncul korversi waktu dalam hari, minggu dan
tahun.
4.
Jika ingin mengulang aplikasi klik tombol
refresh dan jika selesai klik tombol Keluar.
5.
Jika user membutuhkan bantuan atau informasi,
dapat mengklik Menu Helpà About us untuk informasi mengenai kelompok 3 dan
Menuà Bantuan
untuk bantuan lebih lanjut.
Tuttorial Pembuatan Selisih Tanggal
1.
Membuka Visual Basic 2010 Dan
membuat form baru, lalu buat tampilan menjadi seperti di bawah ini
2.
Klik dua kali pada form 1
(selisih tanggal), lalu masukan listing sebagai berikut
Dim date1 As Date
Dim
date2 As Date
Dim
difference As TimeSpan
Listing di atas digunakan
untuk pendeklarasikan
3.
Klik dua kali pada tombol
refresh, dan masukan listing sebagai berikut
Private Sub refresh_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End
Sub
Listing di atas digunakan
untuk menggembalikan kondisi seperti semula, atau menghilangkan tulisan yang
ada di setiap textbox
4.
Klik dua kali pada tombol
Hitung, dan masukan listing berikut
Private Sub hitung_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
If
TextBox1.Text = Nothing Then
MsgBox("masukan
tanggal sekarang", MsgBoxStyle.Critical,
"Pringatan")
ElseIf
TextBox1.Text = TextBox1.Text Then
date1 = Convert.ToDateTime(DateTimePicker1.Value)
date2 = Convert.ToDateTime(TextBox1.Text)
difference = date2.Subtract(date1)
TextBox2.Text =
FormatNumber(difference.TotalDays, 0)
TextBox3.Text =
FormatNumber(Val(TextBox2.Text) / 7, 0)
TextBox4.Text =
FormatNumber(Val(TextBox2.Text) / 365, 0)
End If
End
Sub
Listing di atas digunakan
untuk menghitung selisih pada waktu awal dengan waktu sekarang yang nantinya
akan ditampilkan selisih hari pada textbox2, selisih minggu pada textbox 3, dan
selisih tahun pada textbox 4.
5.
Klik dua kali pada Date time
pickter, lalu masukan listing berikut
Private Sub
DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
DateTimePicker1.ValueChanged
Dim
DATE1 As Date
date1 = Convert.ToDateTime(DateTimePicker1.Value)
End Sub
6.
Klik dua kali pada item abaut
us menu, lalu masukan listing sebagai berikut
Private Sub
AboutUsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
AboutUsToolStripMenuItem.Click
Form3.Show()
End
Sub
Listing di atas digunakan
untuk memunculkan form abaut us.
7.
Klik dua kali pada item bantuan
menu, lalu masukan listing sebagai berikut
Private Sub
ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As gs) Handles
ToolStripMenuItem1.Click
If MsgBox("benar anda
butuh bantuan?", MsgBoxStyle.YesNo,
"Help") = MsgBoxResult.Yes
Then
Form2.Show()
End If
End
Sub
Listing diatas
digunakan untuk memunculkan form bantuan setelah user menyetujuinya.
8.
Klik dua kali pada item exit menu,
lalu masukan listing sebagai berikut
Private Sub
ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ExitToolStripMenuItem.Click
Close()
End
Sub
9.
Klik dua kali pada tombol
keluar dan masukan listing sebagai berikut,,
Private Sub keluar_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button3.Click
Close()
End Sub
Listing
diatas diguanakan untuk keluar dari form selisih tanggal
10. Membuka form baru (Form Bantuan)
Pada form ini hanya
menggunakan Webbrowse dan masukan alamat website kami http://threemusketir.blogspot.com ,
karena bantuan dalam penggunakan program ini ada di web kelompok 3.
11. Membuat form About Us
Pada form ini hanya
menggunakan Reach Text Box dan memasukan kalimat tentang kita ke dalamnya.
FLOWCHART SELISIH HARI
Gambar flowchart aplikasi selisih hari
Keterangan:
1. Dimulai
dengan start
2. Tentukan
tanggal awal
3. Masukan
tanggal sekarang
4. Ada
pilihan jika tanggal sekarang terisi maka dapat lanjut, jika tidak terisi
tanggal sekarang maka kembali pada pengisian tanggal sekarang
5. Tekan
tombol hitung
6. Hasil
akan muncul pada textbox berupa selisih hari, selisih minggu, dan selisih tahun
7. Jika
memilih refresh maka akan kembali pada start, jika tidak memilih refresh maka
program berakhir
untuk mendownload aplikasi ini bisa klik disini
Tidak ada komentar:
Posting Komentar