05-10-12, 01:48 PM
كاتب الموضوع : silverlight
الأخوة الأفاضلفي المرفقات ستجدون كلاس يمكن استخدامه لحساب مواقيت الصلاة Prayer Times
الكود المستخدم مع الفيجوال 2008 يختلف قليلا عن الكود المستخدم مع نسخة الفيجوال 2005 لذلك ستجدون نسختان من الكود أحدهما للإستخدام مع الفيجوال 2008 والأخري للإستخدام مع نسخة الفيجوال 2005 وعليك ان تختار من بينهما ما يناسبك
وهذه هي طريقة بسيطة لكيفية الاستخدام Implementation في الفيجوال 2008 وايضا في الفيجوال 2005
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Calculate Prayer Time
' Fajr, Sunrise, Dhuhr, Asr, Sunset, Maghrib, Isha
Dim pt As New PrayerTimes()
pt.setCalculationMethod(PrayerTimes.Methods.Egypt)
Dim pTimes As String() = pt.getPrayerTimes(DateTime.Now, 30.01R, 31.14R, 3)
Label1.Text = "Fajr"
Label2.Text = "Sunrise"
Label3.Text = "Dhuhr"
Label4.Text = "Asr"
Label5.Text = "Sunset"
Label6.Text = "Maghrib"
Label7.Text = "Isha"
Label8.Text = pTimes(0) ' Fajr
Label9.Text = pTimes(1) ' Sunrise
Label10.Text = pTimes(2) ' Dhuhr
Label11.Text = pTimes(3) ' Asr
Label12.Text = pTimes(4) ' Sunset
Label13.Text = pTimes(5) ' Maghrib
Label14.Text = pTimes(6) ' Isha
End Sub
End Class
أتمني الأن أن نري إبداعكم في إنتاج برامج كثيرة عن الصلاة
بالتوفيق
أخوكم عمر