Using ComboBox ,TimeDatePiker dan MonthCalendar in VB 2010

¨       Buat project baru dengan cara File-> New Project

¨       Berinama project  sesuka anda

¨       Buat rancangan form seperti gambar di bawah ini;

Tabel Property Object

¨       Double klik pada area form, ketikkan kode program berikut

        'Mengisi tanggal pada combo tangal

        For i = 1 To 31

            CboTgl.Items.Add(i)

        Next

        'mengisi nama bulan

        CboBln.Items.Add("Januari")

        CboBln.Items.Add("Pebruari")

        CboBln.Items.Add("Maret")

        CboBln.Items.Add("April")

        CboBln.Items.Add("Mei")

        CboBln.Items.Add("Juni")

        CboBln.Items.Add("Juli")

        CboBln.Items.Add("Agustus")

        CboBln.Items.Add("September")

        CboBln.Items.Add("Oktober")

        CboBln.Items.Add("Novemer")

        CboBln.Items.Add("Desember")

        'mengisi combobox dengan tahun

        For i = 2000 To Year(Now)

            CboThn.Items.Add(i)

        Next i

¨       Double klik pada tombol Get Date, ketikkan kode program berikut

 TxtHari.Text = DateDiff("d", DTAwal.Value, DTAkhir.Value) 'selisih jumlah Hari

        TxtBln.Text = DateDiff("M", DTAwal.Value, DTAkhir.Value) 'selisih jumlah Bulan

        TxtThn.Text = DateDiff("yyyy", DTAwal.Value, DTAkhir.Value) 'selisih jumlah Tahun

        TxtMinggu.Text = DateDiff("ww", DTAwal.Value, DTAkhir.Value) 'selisih jumlah Minggu

        TxtQuater.Text = DateDiff("q", DTAwal.Value, DTAkhir.Value) 'selisih per 4 bulan

        TxtJam.Text = DateDiff("h", DTAwal.Value, DTAkhir.Value) 'selisih jumlah Jam

¨       Double klik pada tombol Get Date by Combo, ketikkan kode program berikut

MsgBox((CboBln.SelectedIndex + 1) & "/" & CboTgl.Text & "/" & CboThn.Text)

¨       Double klik pada tombol Tambah, ketikkan kode program berikut

'menjumlahkan hari dengan DateTimePiker
 Dim Tg As Integer

 Tg = TxtTambah.Text

 DTAkhir.Value = DateAdd("M", Tg, DTAwal.Value)

 
 

Tekan tombol F5 untuk melihat hasilnya



Download : Sample Project
Download : E-Book Dasar Visual Basic 2010