Rabu, 14 November 2012

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

Tidak ada komentar:

Posting Komentar