منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود- حساب مواقيت الصلاة Prayer Times في الدوت نت 2008 و 2005
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : 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

أتمني الأن أن نري إبداعكم في إنتاج برامج كثيرة عن الصلاة

بالتوفيق
أخوكم عمر