Kata Baru

Tentang Pikiran, Perkataan, dan Perbuatan

Penerapan Perumusan Hari Libur Keagamaan pada VB Classic


Pembaca, beberapa perumusan untuk menghitung hari libur di Indonesia, yaitu: Kristen, Hindu, Buddha, dan China sudah saya ulas. Sebelum beranjak ke perumusan menghitung hari libur Islam, saya akan menulis lebih dulu bagaimana cara menggunakan perumusan-perumusan tersebut. Karena metoda yang digunakan untuk menghitung hari libur Islam berbeda dengan metoda penghitungan yang sudah dituliskan sebelumnya.


Baiklah, kita akan mencoba menerapkan perumusan pada sebuah form. Ketika Anda membuat suatu project menggunakan bahasa VB6, Anda akan mendapatkan sebuah form yang secara default diberi nama “Form1”. Silakan ubah nama form menjadi “frmCalendar”. Setelah itu, tambahkan sebuah tombol (CommandButton), kemudian ketikkan kode di bawah ini:

Private Sub Command1_Click()
    Dim intYear As Integer
    intYear = Year(Date)

    Call Kristen(intYear)
    Call Hindu(intYear)
    Call Buddha(intYear)
    Call China(intYear)

    Dim strPesan As String

    strPesan = "Tahun: " & intYear & vbCrLf
    strPesan = strPesan & "Wafat Isa Al Masih: " & _
               Format(WafatIsa, "d MMM yyyy") & vbCrLf
    strPesan = strPesan & "Kenaikan Isa Al Masih: " & _
               Format(KenaikanIsa, "d MMM yyyy") & vbCrLf
    strPesan = strPesan & "Nyepi: " & _
               Format(Nyepi, "d MMM yyyy") & vbCrLf
    strPesan = strPesan & "Waisak: " & _
               Format(Waisak, "d MMM yyyy") & vbCrLf
    strPesan = strPesan & "Imlek: " & _
               Format(Imlek, "d MMM yyyy") & vbCrLf

    MsgBox strPesan, vbInformation, "Kalender"
End Sub

Kemudian masukkan module-module yang sudah dibuat sebelumnya. Jalankan program, klik tombol pada form!

Tampilan Hasil

Tampilan Hasil

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: