Home » Aplikasi sederhana » Membuat Generator Kalender Dengan VB6

Membuat Generator Kalender Dengan VB6

Kali ini Admin akan berbagi sebuah kode yang berfungsi untuk untuk meng-Generate sebuah kalender dengan bulan dan tahun yang Anda inginkan.

Dibawah ini adalah gambar hasil screenshoot kode yang sudah dijalankan :

Generator Kalende vb6

Berikut dibawah ini adalah langkah-langkah pembuatan Generator Kalender dengan menggunakan vb6 :

1. Buka Form VB6 Standar EXE

2. Tambahkan control MSFlexGrid, dengan cara :

Tekan Project >>Component atau CTRL+T , pilih Microsoft FlexGrid Control 6.0 kemudian Apply dan OK

3. Tanamkan MSFlexGrid kedalam Form dan atur lebar dan tinggi sesuai kebutuhan

4. Tambahkan 2 ComboBox dengan masing-masing sebagai berikut :

ComboBox1 dengan Name cmbTahun

ComboBox2 dengan Name cmbBulan

5. Tambahkan 1 CommandButton dengan Name cmdGenerate. 

6. Desainlah Form seperti Gambar dibawah ini :

Desain Form


7. Langkah terakhir adalah ketika kode dibawah ini :

Private Sub cmdGenerate_Click()
    Dim bulan As Integer, tahun As Integer
    Dim tglAwal As Date
    Dim hariAwal As Integer
    Dim jumlahHari As Integer
    Dim i As Integer
    Dim baris As Integer
    Dim kolom As Integer
    
    bulan = cmbBulan.ListIndex + 1
    tahun = Val(cmbTahun.Text)
    
    If tahun < 1 Then
        MsgBox "Tahun tidak valid!", vbExclamation
        Exit Sub
    End If
    
    ' Tanggal awal bulan
    tglAwal = DateSerial(tahun, bulan, 1)
    hariAwal = Weekday(tglAwal, vbSunday) - 1 ' 0=Sunday
    jumlahHari = Day(DateSerial(tahun, bulan + 1, 1) - 1)
    
    ' Bersihkan grid
    For baris = 1 To 6
        For kolom = 0 To 6
            grdKalender.TextMatrix(baris, kolom) = ""
        Next kolom
    Next baris
    
    ' Isi tanggal ke dalam grid
    baris = 1
    kolom = hariAwal
    For i = 1 To jumlahHari
        grdKalender.TextMatrix(baris, kolom) = i
        kolom = kolom + 1
        If kolom > 6 Then
            kolom = 0
            baris = baris + 1
        End If
    Next i
End Sub
Private Sub Form_Load()
'membuat urutan bulan
    cmbBulan.AddItem "Januari"
    cmbBulan.AddItem "Februari"
    cmbBulan.AddItem "Maret"
    cmbBulan.AddItem "April"
    cmbBulan.AddItem "Mei"
    cmbBulan.AddItem "Juni"
    cmbBulan.AddItem "Juli"
    cmbBulan.AddItem "Agustus"
    cmbBulan.AddItem "September"
    cmbBulan.AddItem "Oktober"
    cmbBulan.AddItem "November"
    cmbBulan.AddItem "Desember"
    
'membuat urutan tahun
    Dim tahunSekarang As Integer
    Dim i As Integer

    tahunSekarang = Year(Date) ' ambil tahun saat ini
    
    For i = 1980 To tahunSekarang
        cmbTahun.AddItem i
    Next i

    cmbTahun.ListIndex = cmbTahun.ListCount - 1 ' default ke tahun sekarang

'ambil urutan tahun dan bulan di combobox
    cmbBulan.ListIndex = Month(Date) - 1
    cmbTahun.Text = Year(Date)
    
    ' Siapkan Grid
    With grdKalender
        .Cols = 7
        .Rows = 7
        .FixedRows = 1
        .TextMatrix(0, 0) = "Minggu"
        .TextMatrix(0, 1) = "Senin"
        .TextMatrix(0, 2) = "Selasa"
        .TextMatrix(0, 3) = "Rabu"
        .TextMatrix(0, 4) = "Kamis"
        .TextMatrix(0, 5) = "Jumat"
        .TextMatrix(0, 6) = "Sabtu"
    End With
End Sub

Setelah mengetikan kode seperti diatas jalankan Project Anda kemudian uji dengan memilih tahun dan bulan yang Anda inginkan pada combobox dan tekan Generate, maka akan menampilkan bulan dan tahun yang Anda pilih dalam bentuk kalender.

No comments:

Post a Comment