اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

Title0.png

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء )

كنت قد بحثت في المنتدى 🔍 (هنا) عن برامج لعرض مواقيت الصلاة ، وقد وجدت الكثير من المواضيع الجميلة والأفكار النيرة في المنتدى لأساتذة وأخوة بذلوا جهداً لا يوصف في مشاركاتهم بهذا الموضوع ، وإلى حد ما أكثرهم قرباً لضبط الأوقات كانت هذه المشاركة .

 

اليوم الفكرة مختلفة قليلاً في هذا المشروع المتواضع والذي لا يحتوي تعقيدات يصعب قراءتها أو التعامل معها في الأكواد . حيث اعتمدت وتوجهت إلى البساطة من حيث عند النقل والدمج ( إلى / في ) أي مشروع . الآن شرح بسيط لبعض تفاصيل المشروع التي سيتم الإعتماد عليها :-

سي

Title1.png سيتم الإعتماد على خطوط الطول والعرض بعد إجراء بعض التعديلات على طريقة احتساب الأوقات . وقد تمت المقارنة مع موقع ( مواقيت الصلاة ) للوصول إلى أقل فارق - إن وُجِد - في المواقيت .

Title1.png سيتم الإعتماد على تقويم أم القرى في أحدى مشاركات أستاذنا @ابوخليل .

Title1.png سيتم اعتماد إظهار الوقت المتبقي لكل موعد صلاة في الشاشة الرئيسية أو المصغرة ( ستضاف لاحقاً ) .

Title1.png سيتم منح الحرية للمستخدم بنوع التذكير لوقت الصلاة ( إشعار برسالة تنبيه داخل البرنامج ، إشعار فوق شريط Taskbar ) .

Title1.png سيتم أيضاً منح الحرية للمستخدم باختيار صوت التنبيه ( أذان كامل ، تكبير ، .... إلخ ) .

Title1.png المزيد من الأمور ستأتي لاحقاً تباعاً في تطويرات وتحديثات جديدة إن شاء الله .

 

Dot.pngصورة لواجهة البرنامج حالياً ، والذي أسميته في الوقت الحالي " صلوات " 🤗 ، ما لم يتم اختيار اسم آخر  Dot.png

 

 

Main_BG.png.fdd74383043a72228ba983e4c88daee8.png

 

 

تم التعديل بتاريخ 01/06/2024  وذلك لاضافة المرفق النهائى 

 

Salatak.zip

تم تعديل بواسطه ابو جودي
اضافة المرفق النهائى بناء على طلب صاحبه
  • Like 6
  • Thanks 1
قام بنشر
57 دقائق مضت, Foksh said:

Title0.png

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء )

كنت قد بحثت في المنتدى 🔍 (هنا) عن برامج لعرض مواقيت الصلاة ، وقد وجدت الكثير من المواضيع الجميلة والأفكار النيرة في المنتدى لأساتذة وأخوة بذلوا جهداً لا يوصف في مشاركاتهم بهذا الموضوع ، وإلى حد ما أكثرهم قرباً لضبط الأوقات كانت هذه المشاركة .

 

اليوم الفكرة مختلفة قليلاً في هذا المشروع المتواضع والذي لا يحتوي تعقيدات يصعب قراءتها أو التعامل معها في الأكواد . حيث اعتمدت وتوجهت إلى البساطة من حيث عند النقل والدمج ( إلى / في ) أي مشروع . الآن شرح بسيط لبعض تفاصيل المشروع التي تم الإعتماد عليها :-

 

Title1.png تم الإعتماد على خطوط الطول والعرض بعد إجراء بعض التعديلات على طريقة احتساب الأوقات . وقد تمت المقارنة مع موقع ( مواقيت الصلاة ) للوصول إلى أقل فارق - إن وُجِد - في المواقيت .

Title1.png تم الإعتماد على تقويم أم القرى في أحدى مشاركات أستاذنا @ابوخليل .

Title1.png تم اعتماد إظهار الوقت المتبقي لكل موعد صلاة في الشاشة الرئيسية أو المصغرة ( ستضاف لاحقاً ) .

Title1.png سيتم منح الحرية للمستخدم بنوع التذكير لوقت الصلاة ( إشعار برسالة تنبيه داخل البرنامج ، إشعار فوق شريط Taskbar ) .

Title1.png سيتم أيضاً منح الحرية للمستخدم باختيار صوت التنبيه ( أذان كامل ، تكبير ، .... إلخ ) .

Title1.png المزيد من الأمور ستأتي لاحقاً تباعاً في تطويرات وتحديثات جديدة إن شاء الله .

 

Dot.pngصورة لواجهة البرنامج حالياً مع الملف المرفق ، والذي أسميته في الوقت الحالي " صلوات " 🤗 ، ما لم يتم اختيار اسم آخر  Dot.png

Salawat.accdb 2.06 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

 

Main_BG.png.fdd74383043a72228ba983e4c88daee8.png

 

 

cooltext455342767203434.png.8f51d0e998c31fed8abc10363ee10c6f.png

طلع عندي هيك

ما في اوقات للصلوات ؟؟

2024-04-20_180223.png.26d8604030ae22cefc2f5e3eb0ab0b70.png

  • Like 1
قام بنشر

أخواني واساتذتي ، ما زال العمل على المشروع قيد التطوير  🤗

  • Like 1
قام بنشر

Title0.png

استكمالاً لما سبق 👆 :-

بطريقة بسيطة سيتم الاعتماد على حساب الجيب العكسي للزوايا باستخدام دالة الرمز الجيبي العكسي (Arcsine)، والتي يُرمز لها بـ ASin . تُستخدم الدالة ASin في الرياضيات لحساب الزاوية التي تمثلها الجيب العكسي لنسبة محددة من الجانب المقابل لزاوية مثلث، عندما يُعرف طول الضلع المقابل لهذه الزاوية . ويتمثل ذلك في المعادلة الرياضية Asin1.png . صورة تعبيرية

وبناءً على هذه المعادلة سيتم احتساب أوقات الصلاة باستخدام معادلات فلكية و جيوغرافية ، ومن ثم سنعيد القيمة الراجعة بتنسيق معين بشكل وقت . حسب المديول التالي ، والذي يعتبر عامود المشروع وقوامه وأساسه :-

 

Option Compare Database
    Const PI As Double = 3.14159265358979

Function ASin(Value As Double) As Double
    If Abs(Value) <> 1 Then
        ASin = Atn(Value / Sqr(1 - Value * Value))
    Else
        ASin = 1.5707963267949 * Sgn(Value)
    End If
End Function
Public Function ACos(ByVal nValue As Double, Optional fRadians As Boolean = True) As Double
        ACos = -Atn(nValue / Sqr(1 - nValue * nValue)) + PI / 2
        If fRadians = False Then ACos = ACos * (PI / 180)
End Function

Function gettimes(lag As Double, lat As Double, tzon As Double, stime As String, method As Integer, Optional dylt As Integer = 0, Optional strdate As Date) As Date
    ' تعريف المتغيرات المستخدمة
    Dim D, L, m, lambda, alpha, noon, alt, UTNoon, localNoon, st, Dec, ar, obl As Double
    
    ' حساب تاريخ اليوم
    D = (367 * Year(strdate)) - Int(((Year(strdate) + Int((Month(strdate) + 9) / 12)) * 7) / 4) + Int(275 * Month(strdate) / 9) + Day(strdate) - 730531.5
    
    ' حساب زاوية الشمس والشروق والغروب
    L = 280.461 + 0.9856474 * D
    L = L - (360 * Int(L / 360))
    m = 357.528 + 0.9856003 * D
    m = m - (360 * Int(m / 360))
    lambda = L + 1.915 * Sin(m * PI / 180) + 0.02 * Sin(2 * m * PI / 180)
    obl = 23.439 - 0.0000004 * D
    
    ' حساب موضع الشمس وزاوية الشروق والغروب
    alpha = Atn(Cos(obl * PI / 180) * Tan(lambda * PI / 180)) * 180 / PI
    alpha = alpha - (360 * Int(alpha / 360))
    alpha = alpha + 90 * (Fix(lambda / 90) - Fix(alpha / 90))
    st = 100.46 + 0.985647352 * D
    st = st - (360 * Int(st / 360))
    Dec = ASin(Sin(obl * PI / 180) * Sin(lambda * PI / 180)) * 180 / PI
    noon = alpha - st
    noon = noon - (360 * Int(noon / 360))
    UTNoon = noon - lag
    localNoon = (UTNoon / 15) + tzon + dylt
    
    ' حساب أوقات الصلاة
Select Case stime
    Case Is = "Fajr"
        ' حساب وقت الفجر
        alt = DLookup("FajrDegree", "PrayerCalculation", "MethodType=" & method & "")
        ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI
        fajr = localNoon - ar / 15
        gettimes = Format(fajr / 24, "hh:nn:ss")
        
    Case Is = "Shrok"
        ' حساب وقت الشروق
        alt = -1
        ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI
        shrouk = localNoon - ar / 15
        gettimes = Format(shrouk / 24, "hh:nn:ss")
        
    Case Is = "Zohr"
        ' حساب وقت الظهر
        gettimes = Format(localNoon / 24, "hh:nn:ss")
        
    Case Is = "Asr1"
        ' حساب وقت العصر (الطريقة الأولى)
        alt = 90 - Atn(1 + Tan(Abs(lat - Dec) * PI / 180)) * 180 / PI
        ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI
        asr = localNoon + ar / 15
        gettimes = Format(asr / 24, "hh:nn:ss")
        
    Case Is = "Asr2"
        ' حساب وقت العصر (الطريقة الثانية)
        alt = 90 - Atn(2 + Tan(Abs(lat - Dec) * PI / 180)) * 180 / PI
        ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI
        asr = localNoon + ar / 15
        gettimes = Format(asr / 24, "hh:nn:ss")
        
    Case Is = "Maghrib"
        ' حساب وقت المغرب
        alt = -1
        ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI
        maghrib = localNoon + ar / 15
        gettimes = Format(maghrib / 24, "hh:nn:ss")
        
    Case Is = "Eshaa"
        ' حساب وقت العشاء
        If method = 4 Then
            alt = -1
            ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI
            maghrib = localNoon + ar / 15
            If Month(CStr(Date)) = 9 Then
                gettimes = Format((maghrib + 2) / 24, "hh:nn:ss")
            Else
                gettimes = Format((maghrib + 1.5) / 24, "hh:nn:ss")
            End If
            
        Else
            alt = DLookup("IshaDegree", "PrayerCalculation", "MethodType=" & method & "")
            ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI
            eshaa = localNoon + ar / 15
            gettimes = Format(eshaa / 24, "hh:nn:ss")
        End If
End Select

End Function

 

يتبع ... 👈

  • Like 2
  • Thanks 1
قام بنشر (معدل)

Title0.png

استكمالاً لما سبق 👆 :-

 

Title1.png سنبدأ اليوم ببدء تصميم الجداول :-

Dot.pngالجدول الأول جدول Country الخاص بالدول التي سيشملها البرنامج لحساب أوقات الصلاة .

Dot.pngالجدول الثاني جدول City الخاص بالمدن المتفرعة لكل دولة في الجدول السابق .

Dot.pngالجدول الثالث جدول Curcity الخاص بإعدادات المدينة الحالية التي سيتم عرض أوقات الصلاة لها . ( إختصار Current City ) .

Dot.pngالجدول الرابع جدول PrayerCalculation الخاص بطريقة الحساب والمذاهب .... الخ . 

 

المرفق في المشاركة التالية 👇

 

 

يتبع ... 👈

تم تعديل بواسطه Foksh
نقل المرفق للمشاركة التالية
  • Moosak pinned this topic
قام بنشر (معدل)

image.png.48138363c3805a845691843f92bcc8d1.png

استكمالاً لما سبق 👆 :-

 

Title1.png تم إنشاء نموذج Setti.gif Settings المسؤول عن تحديد طريقة احتساب أوقات الصلاة والبلد والمدينة .

Title1.png تم البدء بإدراج الأوقات في النموذج الرئيسي Home ، حيث تم الإحتساب بدايةً لوقت شروق الشمس فقط ، وذلك بإضافة جزء من الدالة التي تقوم باحتساب الأوقات بناءً على المديول الرئيسي في المشاركة قبل السابقة 👆.

 

Salawat.accdb

 

يتبع ... 👈

image.png

تم تعديل بواسطه Foksh
  • Like 2
قام بنشر (معدل)

Title0.png

استكمالاً لما سبق 👆 :-

 

Title1.png نستكمل العمل على النماذج متابعة على النموذج الرئيسي 828476040.png  ( Home ).

          Dot.pngسنقوم بإنشاء مربع النص ( Fajr ) الذي سيتم عرض وقت الصلاة فيه ، وسنبدأ بوقت صلاة الفجر وكل ما يتبعه . وهذا السطر سيقوم بمهمة حساب الوقت بناءً على الدالة الرئيسية الموجودة في المديول الرئيسي ( في المشاركة الثانية لي 👆 ) ، وسيتم إضافة السطر التالي في الدالة العامة Salawat الموجودة في النموذج Home .

Me.fajr = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Fajr", Me.tx, dt, mydate), "hh:mm AM/PM")

طبعاً السطر سيقوم بجلب ( خط الطول والعرض وفرق التوقيت عن جرينتش و التوقيت الصيفي حسب الدولة ) للمدينة التي تم تحديدها في نموذج الإعدادات سابقاً ، ويقوم باحتساب الوقت عن طريق الدالة GetTimes من المديول . والنتيجة ستكون كما سيتم عرضه في المرفق التالي 😊

ملاحظة :- وقت الفجر الظاهر سيكون هو وقت الأذان الأول .

Salawat.accdb

يتبع ... 👈

تم تعديل بواسطه Foksh
  • Like 1
قام بنشر (معدل)

Title0.png

استكمالاً لما سبق في النموذج Home 👆 :-

 

          Dot.pngأيضاً سنقوم بإنشاء مربع نص ( Fjr_Eq ) والذي سيتم احتساب وقت الإقامة لصلاة الفجر فيه ، وسيتم أيضاً إضافة سطر هذه الوظيفة في الدالة العامة Salawat الموجودة في النموذج Home ليصبح الكود مع ما سبق كالآتي :-


    Dim mydate As Date, dt As Integer
    mydate = IIf(Me.My_Date = "" Or IsNull(Me.My_Date), Date, Me.My_Date)
    If Me.daylight = True Then dt = 1 Else dt = 0
    Me.fajr = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Fajr", Me.tx, dt, mydate), "hh:mm AM/PM")
    Me.Fjr_Eq = Format(DateAdd("n", 30, CDate(Me.fajr)), "hh:mm AM/PM")
    Me.shrok = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Shrok", Me.tx, dt, mydate), "hh:mm AM/PM")

طبعاً تم إضافة الوقت ما بين الأذان الأول والأذان الثاني ( تقريباً 10 دقائق ) إلى الوقت لما بعد الأذان حتى إقامة الصلاة ( 20 دقيقة للفجر ) وعليه سيصبح مجموع الوقتين ( 30 دقيقة ) بعد موعد الأذان الأول . 

 ملاحظة :- أعمل على مراحل في المشروع حسب وقت الفراغ والضغط في العمل ليس إلا  😅 .

 

Salawat.accdb

 

يتبع ... 👈

تم تعديل بواسطه Foksh
  • Like 2
قام بنشر (معدل)

Title0.png

استكمالاً لما سبق في النموذج Home 👆 :-

 

          Dot.pngنستكمل العمل لضبط الوقت المتبقي لكل صلاة خلال اليوم ، بحيث عندما يحين موعد صلاة الظهر مثلاً يتغير الوقت لإحتساب الوقت المتبقي لصلاة العصر ( وقت تنازلي ) . وهذا العمل من شأن حدث On Timer وعليه فإننا سنخبره انه مقارنة مع الوقت الحالي كم تبقى لحين موعد صلاة الفجر ( على سبيل المثال ) ؟ فسيقوم الكود التالي بحساب جملة الأوقات لكل صلاة وإدراجها في مربع النص الذي سنتحدث عنه وغيره فيما يلي :-

 مربع النص Txt_Pry_Name = عرض اسم الوقت الحالي للصلاة ( فجر , ظهر , عصر , مغرب , عشاء ) .

مربع النص Txt_Time_Count = هنا سيتم عرض الوقت المتبقي لكل صلاة بالتنسيق ( 00:00 بعداد تنازلي ) . وحين يتبقى دقيقة واحدة على موعد الأذان سيصبح العداد الزمني بهذا التنسيق ( 00:00:59 ) ويبدأ بالنزول كل ثانية إلى حين موعد الأذان التالي فسيعود إلى التنسيق السابق ( 00:00 ) .

 

          Dot.pngطبعاً حالياً سيتم عرض رسالة عادية فقط عند دخول وقت الصلاة مفادها ( "حان الآن موعد أذان الفجر" ) . وهذا الكود الذي سيقوم بالمهام التي ذكرتها لكم 

Private Sub Form_Timer()
   
    Dim tfajr As Date, tzohr As Date, tasr As Date, tmagrib As Date, tisha As Date
    Dim dt As Integer
    Dim currentTime As Date, nextPrayerTime As Date, timeLeft As Date
    Dim hoursLeft As Integer, minutesLeft As Integer, secondsLeft As Integer
    Dim fajrTime As Date, Country_Name As String
    
    If Me.daylight = True Then
        dt = 1
    Else
        dt = 0
    End If
    
    tfajr = GetTimes(Me.longitude, Me.latitude, Me.timezone, "fajr", Me.tx, dt, Date)

    currentTime = Time
    fajrTime = CDate(Me.fajr)
    Country_Name = DLookup("[city_name]", "City", "ID=" & [city_name])
    
    If currentTime < fajrTime Then
        Txt_Pry_Name.Value = "الفجر"
        nextPrayerTime = fajrTime
    Else
        Txt_Pry_Name.Value = "الفجر"
        nextPrayerTime = DateAdd("d", 1, fajrTime)
    End If
    
    If currentTime < nextPrayerTime Then
        timeLeft = nextPrayerTime - currentTime
    Else
        timeLeft = DateAdd("h", 24, nextPrayerTime) - currentTime
    End If
    
    hoursLeft = Hour(timeLeft)
    minutesLeft = Minute(timeLeft)
    secondsLeft = Second(timeLeft)
    
    If Me.Txt_Time_Count = "00:00" Then
        Me.Txt_Time_Count = "00:00:59"
        Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") & ":" & Format(secondsLeft, "00")
    Else
        Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00")
    End If
    
    Me.Caption = Country_Name & " " & "بقي لصلاة " & Txt_Pry_Name & " " & Txt_Time_Count & " تقريباً" & " ، في مدينة "
    
    If Time() = tfajr Then
        MsgBox "حان الآن موعد أذان الفجر", , ""
    End If
End Sub

 

Salawat.accdb

يتبع ... 👈

تم تعديل بواسطه Foksh
حذف جملة تجاوز الخطأ لعدم حاجتها 😊
  • Like 1
قام بنشر (معدل)

Title0.png

استكمالاً لما سبق في النموذج Home 👆 :-

 

          Dot.pngنستكمل العمل لضبط الوقت المتبقي ، و اليوم سنضيف وقت صلاة العشاء وما يتبعه كما يلي :-

 في الدالة Salawat داخل النموذج Home ، سنضيف السطرين المسؤولين عن إدراج وقت صلاة العشاء و وقت الإقامة .

    Me.isha = Format(GetTimes(Me.longitude, Me.latitude, Me.timezone, "Eshaa", Me.tx, dt, mydate), "hh:mm AM/PM")
    Me.Ish_Eq = Format(DateAdd("n", 10, CDate(Me.isha)), "hh:mm AM/PM")

حيث سيكون وقت الإقامة 10 دقائق بعد نهاية الأذان .

 

 في حدث Form_Timer للنموذج Home سنقوم بحجز المتغير [ishaTime As Date] من نوع Date لصلاة العشاء وقيمته [ishaTime = CDate(Me.isha)] ، والحدث الذي سيقوم باحتساب الوقت المتبقي لموعد صلاة العشاء ؛ ليصبح الكود للحدث كما يلي :-

Private Sub Form_Timer()
    On Error Resume Next
    
    Dim tfajr As Date, tzohr As Date, tasr As Date, tmagrib As Date, tisha As Date
    Dim dt As Integer
    Dim currentTime As Date, nextPrayerTime As Date, timeLeft As Date
    Dim hoursLeft As Integer, minutesLeft As Integer, secondsLeft As Integer
    Dim fajrTime As Date, zohrTime As Date, Country_Name As String, ishaTime As Date
    
    If Me.daylight = True Then
        dt = 1
    Else
        dt = 0
    End If
    
    tfajr = GetTimes(Me.longitude, Me.latitude, Me.timezone, "fajr", Me.tx, dt, Date)

    currentTime = Time
    fajrTime = CDate(Me.fajr)
    zohrTime = CDate(Me.zohr)
    ishaTime = CDate(Me.isha)
    Country_Name = DLookup("[city_name]", "City", "ID=" & [city_name])
    
    If currentTime < fajrTime Then
        Txt_Pry_Name.Value = "الفجر"
        nextPrayerTime = fajrTime
    ElseIf currentTime < zohrTime Then
        Txt_Pry_Name.Value = "الظهر"
        nextPrayerTime = zohrTime
    ElseIf currentTime < ishaTime Then
        Txt_Pry_Name.Value = "العشاء"
        nextPrayerTime = ishaTime
    Else
        Txt_Pry_Name.Value = "الفجر"
        nextPrayerTime = DateAdd("d", 1, fajrTime)
    End If
    
    If currentTime < nextPrayerTime Then
        timeLeft = nextPrayerTime - currentTime
    Else
        timeLeft = DateAdd("h", 24, nextPrayerTime) - currentTime
    End If
    
    hoursLeft = Hour(timeLeft)
    minutesLeft = Minute(timeLeft)
    secondsLeft = Second(timeLeft)
    
    If Me.Txt_Time_Count = "00:00" Then
        Me.Txt_Time_Count = "00:00:59"
        Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") & ":" & Format(secondsLeft, "00")
    Else
        Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00")
    End If
    
    Me.Caption = Country_Name & " " & "بقي لصلاة " & Txt_Pry_Name & " " & Txt_Time_Count & " تقريباً" & " ، في مدينة "
    
    If Time() = tfajr Then
        MsgBox "حان الآن موعد أذان الفجر", , ""
    End If
End Sub

 

Salawat.accdb

يتبع ... 👈

 

تم تعديل بواسطه Foksh
إضافة المرفق
قام بنشر (معدل)

Title0.png

استكمالاً لما سبق في المشروع 👆 :-

          Dot.pngقد واصلنا العمل بإجراء بعض التعديلات على التصميم ، والأكواد ، وتم إضافة أفكار جديدة ، وأدعوكم لتجربة النسخة الأولى من البرنامج لنظام الـ 64 بت في الوقت الحالي .

          Dot.pngتم إضافة الوضع المصغر فوق شريط المهام في الويندوز . ويتحتوي على 3 أزرار !

  1. الزر الذي سيكون له لونين ( الأخضر و الأحمر ) للخيارات والإعدادات . وطبعاً اللونين دلالة على وضعية شريط عرض الوقت للصلاة . ويتم تغيير الوظيفة من الزر التالي .
  2. الزر ذو اللونين ( الأخضر أو الأحمر ) لتفعيل وضع الشريط المصغر فوق التطبيقات أو خلفها .
  3. زر الإغلاق .

          Dot.pngتم إضافة نافذة تنبيه عند وقت الصلاة مع تنبيه صوتي يتم اختياره من Setti.gif Settings الإعدادات .

          Dot.pngإمكانية تفعيل الوضع المصغر حسب الحاجة أو الوضع الشامل من لوحة Setti.gif Settings الإعدادات أيضاً .

 

Salawat.zip

 

تم تعديل بواسطه Foksh
تعديل المرفق
  • Like 1
قام بنشر

Title0.png

استكمالاً لما سبق في المشروع والإنتهاء منه 👆 :-

          Dot.pngوقد انتهيت ولله الحمد من برنامج صلوات 2024 Salawat ، مع آخر إضافة وهي إتجاه القبلة .

          Dot.pngفي المرفق تم إضافة ملفي صوت أذان بإمتداد Mp3 ، بصوت الشيخ منصور الزهراني و الشيخ ماجد الهمذاني ؛ وتستطيع التغيير حسب الرغبة .

 

File.png

 

Pan.png.45f9842494a6aa7226fe95cd4691ae06.png

Thanks.png

  • Like 1
  • 3 weeks later...
قام بنشر
3 ساعات مضت, Abo-Abd Allah said:

روعه يا بروووف ايه الجمال ده 😛

برضوووو 😂

ربنا يكرمك ، دا من زوءك 🥰

قام بنشر
في 31‏/5‏/2024 at 03:39, ابو جودي said:

عاوز نسخة مفتوحة لحسن هأعيط واخلى الناس تتلم عليك

مهي النسخة المفتوحة موجودة في المشاركة الأخيرة يا صديقي 🤗

من هنا

قام بنشر
19 دقائق مضت, Foksh said:

مهي النسخة المفتوحة موجودة في المشاركة الأخيرة يا صديقي 🤗

من هنا

  • انت بتستعماني يا هرم :mad: لا وبتقول لى صديقى كمان :angry:

النسخة الأخيرة Salawat 2024.accde

والرابط ده بتاع الصوت يا عسل 

اسأل الله تعالى الرحمة والمغفرة لكم ولوالديكم ولأبى وأمى ولكل المسلمين
 

طبعا انا بهزر معاك يا عسل بلاش شغل التلت ورقات وهات المرفق المفتوح بالتى هى احسن

  • Haha 1
قام بنشر
3 دقائق مضت, ابو جودي said:
  • انت بتستعماني يا هرم :mad: لا وبتقول لى صديقى كمان :angry:

النسخة الأخيرة Salawat 2024.accde

والرابط ده بتاع الصوت يا عسل 

اسأل الله تعالى الرحمة والمغفرة لكم ولوالديكم ولأبى وأمى ولكل المسلمين
 

طبعا انا بهزر معاك يا عسل بلاش شغل التلت ورقات وهات المرفق المفتوح بالتى هى احسن

لا بجد والله انا بعتذر ، يبدو ان المشكلة في سيرفر الميديا فاير ، هرفع الملف تاني وارجو استبدال الرابط في المشاركة 😬

  • Thanks 1
قام بنشر

والشئ بالشئ يذكر يا استاذ @Foksh 

انظر الى هذه المضوع لانه مهم جدا جدا ان اردت تقديم اى قاعدة بيانات مشفرة فيما بعد

 

 

  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information