Tutorial VB tambahan modul 3 "Selisih Tanggal"

KONSEP
Aplikasi ini berfungsi sebagai mesin penghitung selisih tanggal dalam satuan tahun, bulan, minggu dan haari.
Untuk menggunakan aplikasi penghitungan selisih ini, sebelumnya kita harus menginputkan tanggal awal dan tanggal akhir yang ingin dihitung selisihnya.
Setelah tanggal awal dan akhir di input, perhitungan selisih dapat dilakukan dengan menekan tombol hitung sehingga akan muncul selisih tahun, bulan, minggu, dan hari. Selain itu akan muncul juga Selisih tanggal tersebut secara total yang menunjukkan selisih x tahun yang lebihnya diinterpretasikan dalam x bulan dan x hari.
Untuk melakukan input dengan tanggal yang berbeda, dapat dilakukan dengan memencet tombol refresh terlebih dahulu kemudian input ulang tanggal awal dan akhir.

TUTORIAL

Berikut merupakan contoh form design penghitungan selisih tanggal yang dibuat menggunakan vb:

Dibawah ini merupakan langkah-langkah pembuatannya menggunakan visual basic 2010:

1. Buka Visual Basic 2010 >> New Project >> Windows Forms Application >> OK.
2. Buat desain seperti gambar dengan memasukkan komponen button,  listbox, dan label dalam form 1 design. Dan buat komponen button,  date time picker, textbox dan label dalam form 1 design
3. Pada form 1 tulis listing sebagai berikut :

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim date1 As Date

        Dim date2 As Date

      

        date1 = Convert.ToDateTime(DateTimePicker1.Value)

        date2 = Convert.ToDateTime(DateTimePicker2.Value)

        TextBox4.Text = DateDiff("d", date1, date2)

        TextBox3.Text = DateDiff("w", date1, date2)

        TextBox2.Text = DateDiff("m", date1, date2)

        TextBox1.Text = DateDiff("yyyy", date1, date2)

        TextBox5.Text = DateDiff("yyyy", date1, date2)

        TextBox6.Text = TextBox2.Text Mod 12

        TextBox7.Text = TextBox4.Text Mod 30

Keterangan : ketika button 3 (hitung) diclick, maka pada textbox 1,2,3,4 akan muncul selisih tahun, bulan, minggu, dan hari. Dan pada textbox 5,6,7 akan muncul total selisih tanggal yang diinputkan pada date time picker 1 dan 2

        TextBox5.Visible = True

        TextBox6.Visible = True

        TextBox7.Visible = True

        Label6.Visible = True

        Label14.Visible = True

        Label16.Visible = True

    End Sub

Keterangan : ketika button 3 (hitung) diclick, maka pada textbox 5,6,7 baru akan muncul pada form.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        Label6.Visible = False

        Label14.Visible = False

        Label16.Visible = False

    End Sub

Keterangan : ketika button 1 (refresh) diclick, maka text pada textbox 1,2,3,4,5,6,7 yang merupakan selisih tahun, bulan, minggu, dan hari akan hilang dan total selisih tanggal juga akan tersembunyi

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

Keterangan : ketika button 2 diclick, maka akan keluar dari aplikasi

4. Jika semua listing code sudah diisikan, tekan F5 untuk menjalankan program kasir. Jika terjadi error, mungkin ada kesalahan dalam memasukkan listing code.
5. File > Save All, untuk menyimpan program secara keseluruhan.