VB.net : Tarikh dan Kalendar Hijrah

-
Membangunkan aplikasi yang boleh memaparkan tarikh hijrah atau apa-apa tarikh dalam kalandar lain agak mudah dalam platform .NET. .NET Framework dibina dengan sokongan untuk globalisasi iaitu sokongan bahasa, bentuk huruf dan simbol-simbol tempatan. .NET framework membekalkan kelas Calendar dan juga implementasi kelas-kelas berikut.

• ChineseLunisolarCalendar
• EastAsianLunisolarCalendar
• GregorianCalendar
• HebrewCalendar
• HijriCalendar
• JapaneseCalendar
• JapaneseLunisolarCalendar
• JulianCalendar
• KoreanCalendar
• KoreanLunisolarCalendar
• PersianCalendar
• TaiwanCalendar
• TaiwanLunisolarCalendar
• ThaiBuddhistCalendar
• UmAlQuraCalendar

Untuk kalendar Hijri, dua algoritma boleh digunakan iaitu HijriCalendar dan UmAlQuraCalendar. Adalah dicadangkan supaya menggunakan algoritma UmAlQuraCalendar kerana ia lebih tepat. Rujukan yang perlu:

Imports System.Globalization
Imports System.Text
Imports System.Threading

Jika perlu, simpan atau backup budaya semasa, iaitu tetapan budaya komputer sebelum larian.

Private budayaAsal As CultureInfo = Thread. _
CurrentThread.CurrentCulture.Clone

Contoh kod aturcara:
Dim teksAr, teksMy As New StringBuilder 'teks output
Dim budaya As New CultureInfo("ar-SA") 'tetap budaya baru untuk thread
Dim hb, bln, thn As Integer
Dim algUmAlQura As Calendar = New UmAlQuraCalendar 'jenis kalendar
'semakan julat tarikh yang disokong, rujuk MSDN
If tarikh >= algUmAlQura.MinSupportedDateTime And _
tarikh <= algUmAlQura.MaxSupportedDateTime Then
hb = algUmAlQura.GetDayOfMonth(tarikh)
bln = algUmAlQura.GetMonth(tarikh)
thn = algUmAlQura.GetYear(tarikh)
Dim NamaBlnAr As String = budaya.DateTimeFormat. _
GetMonthName(bln) 'nombor bulan dalam kalendar
Dim NamaBlnMy As String
Select Case bln 'untuk dapatkan nama dalam bahasa melayu
Case 1 : NamaBlnMy = "Muharam"
Case 2 : NamaBlnMy = "Safar"
Case 3 : NamaBlnMy = "Rabiul Awal"
Case 4 : NamaBlnMy = "Rabiul Akhir"
Case 5 : NamaBlnMy = "Jamadil Awal"
Case 6 : NamaBlnMy = "Jamadil Akhir"
Case 7 : NamaBlnMy = "Rejab"
Case 8 : NamaBlnMy = "Syaaban"
Case 9 : NamaBlnMy = "Ramadhan"
Case 10 : NamaBlnMy = "Syawal"
Case 11 : NamaBlnMy = "Zul Kaedah"
Case Else : NamaBlnMy = "Zul Hijjah"
End Select
teksMy.AppendLine(hb.ToString & " " & NamaBlnMy & _
" " & thn.ToString)
teksAr.AppendLine(hb.ToString & " " & NamaBlnAr & _
" " & thn.ToString)
End If
Thread.CurrentThread.CurrentCulture = _
New CultureInfo("ar-SA")
Dim trAr As String = keNoArab(CInt(tarikh. _
ToString("dd"))) & " " & tarikh.ToString _
("MMMM") & " " & keNoArab(CInt(tarikh. _
ToString("yyyy")))
teksAr.AppendLine(trAr)
TextBoxHijri.Text = teksAr.ToString
TextBoxHijri.Text &= vbCrLf & teksMy.ToString
Thread.CurrentThread.CurrentCulture = budayaAsal


Contoh implementasi dalam program kalendar:




Selamat mencuba.

Ulasan

Catat Ulasan

Catatan popular daripada blog ini

Kenali Windows 7 : perbezaan antara versi-versi

-
Imej
Windows 7 adalah versi terbaru sistem operasi Windows dari Microsoft. Tidak seperti versi sebelumnya, Vista, Windows 7 menawarkan upgrade tambahan dan mensasarkan keserasian maksimum dengan aplikasi dan hardware yang telah disokong Vista. Agenda utama Microsoft tentang Windows 7 adalah untuk menarik kembali ramai pengguna Windows XP yang menolak Vista. Windows 7 menawarkan peningkatan prestasi yang signifikan ke atas versi terdahulu - terutama Windows Vista dan Windows XP. Ia masih berasaskan kernel Vista, tetapi datang dengan peningkatan prestasi substansial dan shell Windows yang direkabentuk semula, sebuah taskbar baru, dan sistem Account Control (UAC) yang kurang menjengkelkan. Terdapat juga pembaikan dalam rangkaian, khususnya pengenalan kepada sistem rangkaian rumah dikenali sebagai HomeGroup. Version-versi Windows 7 Dengan Windows 7, Microsoft masih lagi menawarkan banyak edisi. Namun, Microsoft dijangkakan memfokuskan pasarannya kepada dua edisi-Home Premium dan Profesional,
Baca lagi

Alamat IP Private vs IP Public

-
Imej
Sebelum kita mulakan perbincangan ini, terlebih dahulu ... alamat IP itu apa? Ya! IP itu apa sebenarnya? Tahukah anda alamat IP itu apa? untuk apa? dan di mana ia digunakan? Yang mana satukah IP? wujud dalam gambar ini? Apa itu IP? Bagaimana sepucuk surat yang akan dikirim kepada anda, akan sampai ke tangan anda? Sudah tentu dengan menggunakan alamat. Begitu juga komputer atau apa2 peranti rangkaian di Internet mahupun dalam rangkaian tempatan LAN. Ia mesti mempunyai alamat tertentu dan alamat ini mestilah unik.  IP adalah singkatan kepada Internet Protocol (protokol Internet). Alamat IP pula adalah satu label bernombor yang diberikankan kepada setiap peranti seperti komputer, printer, sever (juga dikenali sebagai nod) yang dipautkan dalam rangkaian komputer yang menggunakan protokol Internet (IP) untuk komunikasi.
Baca lagi

Resolusi dan saiz gambar digital

-
Imej
Penggunaan kamera digital, smartfon atau apa2 telefon berkamera memudahkan kita mengambil gambar dan terus upload ke internet (facebook, blog, bla, bla...). Tetapi gambar berkualiti tinggi terutama daripada kamera digital begitu tidak sesuai untuk terus di upload ke Internet khususnya laman web atau blog atau FB. Kenapa? Ini kerana saiz fail gambar itu mungkin terlalu besar, dalam beberapa mega byte. Ini akan menyebabkan proses uploading dan loading laman web atau Internet umumnya, akan menjadi perlahan atau sangat perlahan. Kesan ini sangat ketara kepada mereka dengan talian internet perlahan dan talian Internet yang dibebani dengan koata2. Sementara itu jika anda jurugambar profesional, anda mungkin mahu membezakan gambar yang dipaparkan di blog/laman web dengan gambar jualan yang berkualiti tinggi.
Baca lagi