Melanjutkan pengembangan dari “Aplikasi iImsakiyah” agar dapat digunakan kembali oleh para pengembang (developer/programmer) lain, saya membuatkan OCX (ActiveX) iImsakiyah.

Beberapa fitur yang disediakan pada OCX ini, diantaranya:

• Menentukan waktu shalat
• Mengkonversi tanggal Masehi ke tanggal Hijriyah

Silakan unduh OCX-nya di files.diajar.com dengan nama “iImsakiyah.ocx.zip”.

Contoh penggunaanya sangat sederhana, seperti contoh berikut ini:

Private Sub Form_Load()
    Me.inoImsakiyah1.FormatTime = "hh:mm"
    Me.Print "Tanggal: " & Me.inoImsakiyah1.HijriDate(Date, "dd MMMM yyyy") & "H"
    Me.Print "Regional: " & Me.inoImsakiyah1.Regional
    Me.Print "Imsak: " & Me.inoImsakiyah1.ImsakTime(Date)
    Me.Print "Subhuh: " & Me.inoImsakiyah1.SubhuhTime(Date)
    Me.Print "Zhuhur: " & Me.inoImsakiyah1.ZhuhurTime(Date)
    Me.Print "Ashar: " & Me.inoImsakiyah1.AsharTime(Date)
    Me.Print "Maghrib: " & Me.inoImsakiyah1.MaghribTime(Date)
    Me.Print "Isya: " & Me.inoImsakiyah1.IsyaTime(Date)

    Me.Print "LongitudeDecimal: " & Me.inoImsakiyah1.LongitudeDecimal
    Me.Print "LatitudeDecimal: " & Me.inoImsakiyah1.LatitudeDecimal
End Sub

« [JQuery] Pengenalan JQuery (bagian 3)   |   [VB Classic] Aplikasi iImsakiyah v1.1.0 »