مشاركة خير: برنامج لتعليم الصلاة... ليكون صدقة جارية لنا جميعًا

[husain alhammadi]

 

السلام عليكم ورحمة الله وبركاته،

أحبائي وإخواني في منتدانا،

كم هو جميل أن نلتقي على الخير ونتعاون عليه! وكم هو أعظم أن نقدم صدقة جارية تبقى بعد رحيلنا. من هذا المنطلق، أود أن أعلن لكم عن إطلاق برنامج لتعليم الصلاة.

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

ما يميز هذا البرنامج؟

• تعليم عملي: يغطي خطوات الصلاة من التكبير إلى التسليم، مع إرشادات مبسطة.

• محتوى موثوق: يعتمد على مصادر شرعية موثوقة لضمان صحة المعلومات.

• مشاركة الأجر: كل من ينشر هذا البرنامج ويدل عليه، سيكون له أجر من استفاد منه، فالخير لا يكتمل إلا بتعاوننا.

أرجو أن يكون هذا العمل في ميزان حسناتنا جميعًا، وأن يجعله الله خالصًا لوجهه الكريم.

جزاكم الله خيرًا.

أخوكم

 

تعليم الصلاة للاطفال.xlsm

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

بداية نسأل الله أن يكون لك الأجر على النية التي تقصدها بنشرك هذه الفكرة .

عند تشغيل الملف تظهر هذه الرسالة :-

وعند النقر على Yes تظهر الرسالة التالية أيضاً :-

 

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة 

بارك الله فيك الاخ  Foksh و زادك الله علما

ارفق لك الملف مرة اخرى 

الصلاة هي ثاني أركان الإسلام وعمود الدين الإسلامي، فإن صَلُحَت صلاة المسلم، صَلُحَت أعماله وعبادته، كما أنَّ الصلاة هي الصلة بين المسلم وربه، وقد شبهها النبي عليه الصلاة والسلام بالنهر الجاري على باب أحدنا يغتسل منه في اليوم والليلة خمس مرات، فلا يبقى من درنه؛ أي لا يبقى من وسخه شيء، فإن التزم المسلم بها، يغفر له الله تعالى ذنوبه الصغائر

يد بيد نجعله من افضل برنامج تعليم الصلاة للاطفال و الكبار . ليكون صدقة جارية للجميع من يساهم 

التطوير مسموح شرط نشرها

تعليم الصلاة للاطفال.xlsm

تم تعديل سبتمبر 25 بواسطه husain alhammadi

[Foksh]

لا جديد عن الملف السابق ، قد يكون الخلل في اكسل عندي 

على العموم بارك الله فيك وزادك الله فضلاً وبركة لما قصدت بهذا العمل .

قد يكون لمن يمر من هنا تجربة يوافيك بها . متمنياً لك النجاح دوماً

[husain alhammadi]

بارك الله فيك الاخ  Foksh 

 عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((والكلمة الطيبة صدقة))؛ الحديث متفق عليه.

[hegazee]

و عليكم السلام و رحمة الله و بركاته

. جزاكم الله خيرا أخي حسين على البرنامج.في ميزان حسناتك

فعلا كم ذكر الاستاذ @Foksh البرنامج كان به عدة ملاحظات و التي تجعله لا يعمل

الملف به ملفات صوتية و فيديو و هي تعمل من جهاز الكمبيوتر الخاص بك و لا يمكن أن تعمل من اي جهاز آخر فمثلا مصدر واحد من الملفات الصوتية هو

C:\Users\husain\OneDrive\سطح المكتب\تجربة\اقامة الصلاة.mp3

.و أيضا البرنامج يستخدم ملفات Active X فلاش التي تم حظرها و عدم استخدامها من مدة و هي تعطي خطأ أنها غير موجودة

 رأي الشخصي أن البوربوينت يصلح أكثر من الاكسيل لهذا البرنامج و الله أعلم

[husain alhammadi]

بارك الله فيك الاخ  hegazee 

ترِيد النَّجاح ثقْ بالله ثمَّ بنفْسك وتَجاهَل منْ يقُـول هَذا صعْب وَهذا مستَحيل ، الثِّقة بِالله هِي عقليَّة العُظَماء.

اتفق معاك بان البوربوينت يصلح أكثر من الاكسيل لهذا البرنامج و لكن ليس مستحيلة و يوجد الاف برنامج البوربوينت و لكن لا يوجد اكسل فنحن نريد التميز و يد بيد سنصل ان شاء الله و لو كل شخص بفكرة سيكتمل بعون الله 

[husain alhammadi]

أرغب في التعبير عن شكري العميق لـ الأستاذ محمد هشام. أنت لست مجرد خبير، بل عمود من أعمدة هذا المنتدى. إن حرصك على تقديم الدعم والمشاركة بمعرفتك بتواضع واحترافية هو أمر يُحتذى به. شكرًا لك على كل معلومة قدمتها، وكل سؤال أجبت عنه، وكل توجيه كان في محله

 

 

Copy of تجربة 4.xlsm

تم تعديل سبتمبر 26 بواسطه husain alhammadi

[husain alhammadi]

• هل يمكن اضاف هذ الكود للملف

  Private Sub CommandButton1_Click()
      Dim uForm As Object
      Dim i As Long
      Dim MyRng As Variant
      Dim Nameform As String
      Dim TempName As Variant
      Dim WaitTime As Double
      
      ' قم بإلغاء On Error Resume Next المبدئية
      
      MyRng = Sheets("Sheet1").Range("A2:B21").Value
      
      Application.Visible = False ' إخفاء التطبيق
      On Error GoTo ErrorHandler ' معالج أخطاء عام لضمان إعادة الإظهار
  
      For i = 1 To UBound(MyRng, 1)
          
          TempName = MyRng(i, 1)
          
          ' معالجة خطأ القراءة لـ WaitTime
          On Error Resume Next
          WaitTime = MyRng(i, 2)
          If Err.Number <> 0 Then WaitTime = -1 ' تعيين قيمة غير صالحة إذا حدث خطأ
          Err.Clear
          On Error GoTo ErrorHandler ' العودة إلى معالج الأخطاء العام
  
          ' التحقق من القيمة وتنقيتها
          If Not IsError(TempName) Then
              Nameform = Trim(CStr(TempName))
          Else
              Nameform = ""
          End If
          
          ' التحقق من الشروط
          If Nameform <> "" And IsNumeric(WaitTime) And WaitTime >= 0 Then
              
              ' معالجة خطأ عدم وجود النموذج
              On Error Resume Next
              Set uForm = UserForms.Add(Nameform)
              If Err.Number <> 0 Then
                  Application.Speech.Speak "خطأ. النموذج غير موجود: " & Nameform, SpeakAsync:=False
                  Err.Clear
                  On Error GoTo ErrorHandler
                  GoTo NextIteration ' تخطي الدورة الحالية
              End If
              On Error GoTo ErrorHandler ' العودة إلى معالج الأخطاء العام
              
              Application.Speech.Speak "عرض النموذج: " & Nameform, SpeakAsync:=False
  
              If Not uForm Is Nothing Then
                  DoEvents
                  uForm.Show 0
                  
                  ' تأكد من أن الوقت لا يتجاوز 60 ثانية بشكل مفرط (اختياري)
                  If WaitTime > 60 Then WaitTime = 60
                  
                  Application.Wait Now + TimeValue("00:00:" & Format(WaitTime, "00"))
                  
                  DoEvents
                  Unload uForm
              End If
              
              Set uForm = Nothing
          End If
          
  NextIteration:
      Next i
      
      ' الخروج الطبيعي
      Application.Visible = True
      Exit Sub
  
  ' معالج الأخطاء الرئيسي
  ErrorHandler:
      Application.Visible = True ' إعادة إظهار التطبيق في حال حدوث خطأ
      MsgBox "حدث خطأ غير متوقع برقم: " & Err.Number & vbCrLf & "الوصف: " & Err.Description, vbCritical, "خطأ في تشغيل الكود"
      
  End Sub

   

Copy of تجربة 4.xlsm