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.

Cara Install Android Di VirtualBox

Peralatanyang dibutuhkannya :
1. VirtualBox 4.1.8 (Installer)
2. Android-x86 4.0-r1 eeepc (ISO)

Setelahtersediaperalatan yang dibutuhkan, berikutCara Install Android  Di VirtualBox

Langkah1 : KarenadisinikitamenggunakanVirtualBoxsebagai media untukmenginstalAndroidnya, makaterlebihdahulukita setting padamesinvirtualnya agar dapat Booting lewat Image (ISO) installer Android. Caranyasebagaiberikut.

Penjelasangambar:
1. Klikpadamesin virtual yang sebelumnyatelahkitabuat.
2. Lalumasukpadabagian "Setting"
3. Padabagian "Storage" klik "Empty" laluklik icon berbentuk CD/Disk lalupilih "Choose a virtual CD/DVD" dalamhaliniyaitu ISO Android-x86 4.0-r1 eeepc.

Langkah2 :Setelah ISO instaler Android di mounting pada disk virtual, andatinggalklik "Star" lalumelakukan proses instalasi.

Langkah3 :Tunggubeberapasaatuntukdapatmasukke proses instalasi, makaakantampil windows sepertidibawah.

Penjelasangambar :
1. Padagambarbagianatasandasilahkanpilihjikainginmencobanyaterlebihdahulumakapilih "Live CD" namundisiniMamaKeymembahas Cara Install Android  Di VirtualBox, makapilihlah menu "Install Android-x86 to Hardisk"
2. Setelahandapilih menu tersebutmakaakantampil windows PartisiHardisk, karenamesinvirtualnyabaru di buatmakakitapartisiduluhardiskvirtualnyadenganmemilih menu "Create/Modify partitions" lalu OK.

Langkah4 :Padalangkahiniakandibahastentangmempartisihardisk yang akandigunakanuntuksistemoperasi Android, berikutilustrasinya.

Penjelasangambar :
1. Disituterlihatbesarnyahardisk virtual yang sebelumnyakitabuat.
2. Pilih menu "New" lalu Enter
3. Pilih menu "Primary"
4. Total hardisk yang mau di jadikan primary boot, tinggaldirubahsesuaiseleradengancatatandalamsatuanMegaBite(MB). Jikatidakmau di rubahtinggallangsungtekan Enter.
5. Pilih menu "Bootable" karenaakan di jadikan primary booting nantinya.
6. Terlihat "Flag" bootable makapilih menu "Write" untukmempartisihardiskvirtualnya, laluketik "YES" tanpatandakutipkemudian Enter.
7. Jikasudahselesaiandatinggalpilih "Quit".

PadatahapiniandabarusajaselesaimempartisiHardisk Virtual yang akan di instalsistemoperasi Android.

Langkah5 : Proses Instalasisistemoperasi Android, ilustrasinyasebagaiberikut :

Penjelasangambar :
1. Padagambar 1 sudahterlihathardisk virtual yang telahkitapartisitadi. Pilihlalu "OK"
2.Andadimintauntukmemformattelebihdahulu, makapilih menu "ext3" lalu OK.
3. Akan keluarperingatanbahwa "andaakanmemformatdankehilangansemua data yang adadalamhardisk virtual" pilihsaja OK.
4. Jikadimintamenginstal boot loader pilihsaja YES
5. Jikadimintamneginstal /system directory read-write pilihjuga YES
6.Padagambar 6 proses instalasisedangberlangsung, tunggubeberapasaat.
7. Gambar 7 menunjukanbahwa Android-x86 telahberhasil di instal, makapilihlah reboot lalu OK. Janganlupa un-mount ISO Android-x86nya dengancara "Remove disk from virtual drive".

Langkah6 : Setelah ISO Androidnya di un-mount dari virtual drive, makaakan booting secaraotomatismelaluihardisk virtual, andatunggubeberapasaatlalu setting bahasa, time zone, akungoogle, dll. Sampaitahap Android andatelahselesai di konfigurasidansiapuntuk di gunakan.

Berikutpenampakansistem Android yang berhasilMamaKeypasangpadaVirtualBox.