Penggunaan Timer dan DateTimePicker pada Visual Basic

Timer dan DateTimePicker pada Visual Basic biasanya digunakan untuk memunculkan Data jam dan tanggal yang akan ditampilkan didalam form yang mana kita tinggal memilih cukup dengan Klik Saja. Hal ini sangat memudahkan user dalam memilih tanggal. bayangkan untuk mengisi tanggal jika menggunakan TextBox maka kita akan menginput tanggal tersebut yang akan menyebabkan terjadi kesalahan format tanggal.

Pada kesempatan kali ini saya akan berikan beberapa contoh sederhana dari penggunaan Timer dan DateTimePicker pada VB.Net.

CONTOH PERTAMA
1. Buatlah project baru, desain Form dan atur properti sesuai dengan gambar di bawah

Object	Properties	Nilai
Form1	Text	Timer dan DateTimePicker 1
DateTimePicker1	Name Enabled Interval	Dttanggal True 1000
Label1	Name Text	Label1 Label1
Label2	Name Text	Label2 Label2
TextBox1	Text	-
Button1	Text	Proses
Timer1	Name	Timer1

2. Double klik pada Form1, kemudian ketikkan kode berikut

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DTtanggal.Format = DateTimePickerFormat.Short

        DTtanggal.CustomFormat = "dddd,dd/mm/yyyy,yy"

        DTtanggal.Value = Format(Now)

End Sub

3. Double klik pada Timer1, ketikkan kode berikut :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = Format(Now, "h:mm:ss tt")

        Label2.Text = Format(Now, "hh:mm:ss")

End Sub

4. Double klik pada Button1, kemudian ketikkan kode berikut :

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

        TextBox1.Text = Label1.Text

End Sub

5. Terakhir, simpan project dan jalankan program.

CONTOH KEDUA
Pada contoh ke-dua ini kita akan membuat program yang menampilkan jarak antara dua buah tanggal dengan menggunakan DateTimePicker. Berikut penampakannya :

Langkah-langkah nya :
1. Buat project baru dan desain Form dan atur properties seperti gambar di bawah ini

Object	Properties	Nilai
Form1	Text/Name	Form1
DateTimePicker1	Name	D1
DateTimePicker2	Name	D2
Label1	Name/Text	Label1
Button1	Text	Proses

2. Double klik pada Form1, kemudian ketikkan kode berikut

Public Class Form1

    Dim hari

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        D1.Format = DateTimePickerFormat.Custom

        D1.CustomFormat = "dd MMMM yyyy"

        D1.Value = Format(Now)

        D2.Format = DateTimePickerFormat.Custom

        D2.CustomFormat = "dd MMMM yyyy"

        D2.Value = Format(Now)

        Label1.Text = "Jarak dari kedua tanggal adalah 0 hari"

        Dim a As Integer

        For a = 0 To 100 Step +1

            Me.Opacity = a / 100

            Me.Refresh()

        Next

    End Sub

3. Double klik pada Button1, kemudian ketikkan kode berikut

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

        hari = DateDiff(DateInterval.Day, CDate(D1.Text), CDate(D2.Text))

        If Format(hari) = 0 Then

            Label1.Text = "Jarak dari kedua tanggal adalah 0 hari"

            Exit Sub

        ElseIf Format(hari) < 0 Then

            Label1.Text = "Jarak dari kedua tanggal adalah " + Format(hari, "#,#") + "hari"

            Exit Sub

        ElseIf Format(hari) > 0 Then 'Jika hasil selisih hari yang di peroleh lebih besar dari 0           

            Label1.Text = "Jarak dari kedua tanggal adalah " + Format(hari, "#,#") + " hari"

        End If

End Sub

4. Simpan Project, kemudian jalankan Program.

CONTOH KETIGA
Jika pada contoh kedua di atas kita menampilkan jarak antara dua buah tanggal dalam hitungan hari, kali ini kita akan menampilkan jarak antara dua buah tanggal dalam hitungan bulan pada DateTime Picker.
Berikut penampakan nya :

Langkah-langkah nya :
1. Buat project baru, Untuk desain Form dan Properties sama dengan contoh kedua di atas, yang membedakan hanya kode programnya.
2. Double klik pada Form1, kemudian ketikkan kode berikut

Public Class Form1

    Dim bulan

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        D1.Format = DateTimePickerFormat.Custom

        D1.CustomFormat = "dd MMMM yyyy"

        D1.Value = Format(Now)

        D2.Format = DateTimePickerFormat.Custom

        D2.CustomFormat = "dd MMMM yyyy"

        D2.Value = Format(Now)

        Label1.Text = "Jarak dari kedua tanggal adalah 0 bulan"

        Dim a As Integer

        For a = 0 To 100 Step +1

            Me.Opacity = a / 100

            Me.Refresh()

        Next

   End Sub

3. Double klik pada Button1, kemudian ketikkan kode berikut

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

        bulan = DateDiff(DateInterval.Month, CDate(D1.Text), CDate(D2.Text))

        If Format(bulan) = 0 Then

            Label1.Text = "Jarak dari kedua tanggal adalah 0 bulan"

            Exit Sub

        ElseIf Format(bulan) < 0 Then

            Label1.Text = "Jarak dari kedua tanggal adalah " + Format(bulan, "#,#") + " bulan"

            Exit Sub

        ElseIf Format(bulan) > 0 Then

            Label1.Text = "Jarak dari kedua tanggal adalah " + Format(bulan, "#,#") + " bulan"

        End If

End Sub

4. Simpan Project, kemudian jalankan program.

CONTOH KEEMPAT
Pada contoh keempat kita akan menampilkan jarak dua bulan setelah tanggal yang dipilih pada DateTimePicker.
Berikut penampakannya :

Langkah-langkah nya :
1. Buat Project baru, untuk desain Form dan Properties nya hampir sama dengan contoh kedua di atas, bedanya di sini kita hanya memakai satu DateTimePicker saja.
2. Double klik pada Form1, kemudian ketikkan kode berikut ini

Public Class Form1

    Dim bulan

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        D1.Format = DateTimePickerFormat.Custom

        D1.CustomFormat = "dd MMMM yyyy"

        D1.Value = Format(Now)

        Label1.Text = "Dua bulan sesudah tanggal diatas adalah "

        Dim a As Integer

        For a = 0 To 100 Step +1

            Me.Opacity = a / 100

            Me.Refresh()

        Next

    End Sub

3. Double klik pada Button1, kemudian ketikkan kode berikut

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

        bulan = DateAdd(DateInterval.Month, 2, D1.Value)

        Label1.Text = "Dua bulan sesudah tanggal diatas adalah " + Format(bulan, "dd/MM/yyyy")

End Sub

4. Simpan Project, kemudian jalankan program.

Itulah beberapa contoh Penggunaan Timer dan DateTimePicker pada Visual Basic dari saya, semoga bermanfaat.