السلام عليكم
بأذن الله سوف اشرح عرض التاريخ الميلادى والهجرى والوقت الحصرى بالتفصيل
فى هذا الدرس
بسم الله نبدأ
نفتح مشروع جديد على فيجول بيسك دوت نت
ونختار مشروع جديد ونضع له اى اسم
من شريط الادوات نختار timer و StatusStrip
من خصائص التايمر
enabled = true
interval = 1000
ومن StatusStrip نعمل 5 ليبل باسم lbl1 lbl2 lbl3 lbl4 lbl5
من الخاصيه text للليبل الثانى والرابع نكتب علمه اسلاش هذه /
اما باقى اليبل الاول و ثالث و الخامس نحذف اسم الليبل من الخاصيه تكست
وهذه الخواص ستكون كالتالى
التاريخ الميلادى / التاريخ الهجرى / الوقت الحصرى
واقصد بالوقت الحصرى اى الوقت اى يرى فيه عداد الثوانى والدقائق
Me.lbl1.Text = TimeOfDay
هذا الكود يعرض الوقت لكنه ثابت دون عداد الدقائق والثوانى
الان نذهب لكتابه الكود
سوف نستند فى الكود التاري الهجرى والذى يدرج مع اعدادات الوينوز عندما نختار
اللغه العربيه
فى تنصيب الويندوز تكون هناك علامه خاصه بالتاريخ الهجرى فى بلد السعوديه
لذلك سوف ننادى عليها من السيستم بالكود
الان من المشروع اضغط على التايمر لكاتبه هذا الكود
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim HCal AsNew System.Globalization.HijriCalendar
Dim strDate AsString
Dim strTime
strTime = HCal.GetType()
System.Threading.Thread.CurrentThread.CurrentCultu re = New System.Globalization.CultureInfo("ar-EG")
Dim ci AsNew System.Globalization.CultureInfo("ar-sa")
Dim dt As DateTime = DateTime.Now
lbl1.Text = Format(Now, "dd--MMMMM--yyyy")
lbl3.Text = dt.ToString("dd--MMMMM--yyyy", ci)
lbl5.Text = Format(Now, "hh:mm:ss tt")
EndSub
ملحوظه لتجميل شكل التواريخ يمكن تلون خط الليبل الثانى والرابع بلون اخر كفاصل واضح /
يوجد مثال فى المرفقات لفهم الموضوع اكثر
اتمنى ان يكون درس مفيد
تحياتى لكم جميعا
و السلام عليكم ورحمه الله وبركاته