تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يتم برمجة البرنامج عند نهاية الشهر باصدار صوت او رنين
#1
السلام عليكم
تقبل الله منا ومنكم غفر الله لنا ولكم صالح الاعمال وجعلنا واياكم وسائر المسلمين من المقبولين امين يا رب

اخوتي
اريد كيف اضبط البرنامج عند نهاية الشهر ان كان فيه 29 او 30 او 31 يصدر صوت او رنين
وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
عيد فطر مبارك اخي رشدي
هذا الكود سيجلب نهاية الشهر(اي كم يوم في الشهر الحالي) سواء 28 او 29 او 30 او31 حسب السنة والشهر
نقوم بعمل مقارنة بين تاريخ اليوم في الشهر الحالي مع عدد ايام الشهر فإن كان مساويا ينفذ الكود الذي نريد اكان صوت او رسالة حسبما تريد ويفضل رسالة تظهر في لايبل وستكون طوال اليوم ليراها المستخدم
بينما الصوت سينفذ في الساعة صفر +1 ثانية او تحدد له وقت معين وانا لا أفضله فلربما المستخدم لايفتح البرنامج في نفس التوقيت المحدد لذلك الرسالة على لايبل افضل سيراها المستخدم حتما 
اليك الكود وظفه حسب معطياتك
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
       Dim yer As Integer = Now.Year ' يجلب السنة الحالية
       Dim LastDay As Integer = Date.DaysInMonth(yer, mnth) ' يجلب كم يوم في الشهر الحالي
       ' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة
       If Now.ToString("dd") = LastDay Then
           MsgBox("hello")
       End If
       '============================
       'هذه الاكواد ليس لها علاقة بالكود السابق فقط لاظهار القيم السابقة
       MsgBox(Now.ToString("dd")) ' تاريخ اليو في الشهر
       MsgBox(LastDay) ' تاريخ اليو في الشهر عدد ايام الشهر الحالي
       MsgBox(yer) ' السنة الحالية
       '=============================
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#3
(25-05-20, 01:25 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
عيد فطر مبارك اخي رشدي
هذا الكود سيجلب نهاية الشهر(اي كم يوم في الشهر الحالي) سواء 28 او 29 او 30 او31 حسب السنة والشهر
نقوم بعمل مقارنة بين تاريخ اليوم في الشهر الحالي مع عدد ايام الشهر فإن كان مساويا ينفذ الكود الذي نريد اكان صوت او رسالة حسبما تريد ويفضل رسالة تظهر في لايبل وستكون طوال اليوم ليراها المستخدم
بينما الصوت سينفذ في الساعة صفر +1 ثانية او تحدد له وقت معين وانا لا أفضله فلربما المستخدم لايفتح البرنامج في نفس التوقيت المحدد لذلك الرسالة على لايبل افضل سيراها المستخدم حتما 
اليك الكود وظفه حسب معطياتك
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
       Dim yer As Integer = Now.Year ' يجلب السنة الحالية
       Dim LastDay As Integer = Date.DaysInMonth(yer, mnth) ' يجلب كم يوم في الشهر الحالي
       ' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة
       If Now.ToString("dd") = LastDay Then
           MsgBox("hello")
       End If
       '============================
       'هذه الاكواد ليس لها علاقة بالكود السابق فقط لاظهار القيم السابقة
       MsgBox(Now.ToString("dd")) ' تاريخ اليو في الشهر
       MsgBox(LastDay) ' تاريخ اليو في الشهر عدد ايام الشهر الحالي
       MsgBox(yer) ' السنة الحالية
       '=============================
   End Sub

بارك الله فيك اخي ابراهيم
متالق كالعادة جعلها الله في ميزان حسناتك اخي
ممكن فديو في اليوتوب لفهم الكود
اما بخصوص الكريستور ريبورت لقد شاهدت دورة الاخ مهندس محمد البحراوي شرح وافي وشامل ولقد فهمت العملية الحمد لله وذلك بنصيحتك اخي شكرا لك
الرد }}}
#4
السلام عليكم اخي رشدي
لايوجد اي فيديو يتحدث عن جلب القيم التي ذكرتها لك الكود مشروح واغلبه تعريف متغيرات رقمية وتاريخ
فقظ ابحث عن فيديوهات تتحدث عن اظهار رسالة للمستخدم في وقت او تاريخ معين 
او ابحث عن رسائل اعلام انتهاء تاريخ سلعة او ماشابه من عمليات اظهار رسائل بتاريخ او توقيت
لم اقم بالبحث اسندت هذه المهمة لك لتبحر مع شراعك في الانترنت وتنتصر على الامواج
وفقك الله 
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#5
(25-05-20, 02:00 AM)ابراهيم ايبو كتب : السلام عليكم اخي رشدي
لايوجد اي فيديو يتحدث عن جلب القيم التي ذكرتها لك الكود مشروح واغلبه تعريف متغيرات رقمية وتاريخ
فقظ ابحث عن فيديوهات تتحدث عن اظهار رسالة للمستخدم في وقت او تاريخ معين 
او ابحث عن رسائل اعلام انتهاء تاريخ سلعة او ماشابه من عمليات اظهار رسائل بتاريخ او توقيت
لم اقم بالبحث اسندت هذه المهمة لك لتبحر مع شراعك في الانترنت وتنتصر على الامواج
وفقك الله 

بارك الله فيك اخي ابراهيم
لكن لم افهم الجملة الاتية

        ' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة

انا فهمت اخي اقوم بطرح كم الشهر فيه مثلا
شهر ماي
31 يوم
واليوم عندما 25 يوم في شهر ماي
الفارق
6 ايام
تقصد الفارق لازم يكون 5 باه نعرف انو شهر ماي ام ماذا ؟
وجزاك الله خير
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#6
أخي العزيز ما رايك ان تجرب اذا كان غدا تاريخ اليوم واحد يصدر صوت لا اعلم ولكن اتمنى ان يكون اقتراحي يفيد
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#7
(25-05-20, 07:09 PM)alshandodi كتب : أخي العزيز ما رايك ان تجرب اذا كان غدا تاريخ اليوم واحد يصدر صوت لا اعلم ولكن اتمنى ان يكون اقتراحي يفيد

بارك الله فيك اخي
تقصد لو كان تاريخ اليوم 26/05/2020
و تاريخ نهاية الصلاحية هو 31/05/2020
عند طرح عدد الايام الصلاحية 31 من عدد ايام الشهر 26
نجد 5 ايام وهو رقم الشهر ماي
هل هو مقصودك ؟
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#8
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
لنفترض اننا نجهل كم  يكون عدد ايام الشهر الحالي او اي شهر وهي التي سميتها LastDay 
كود :
Dim LastDay As Integer = Date.DaysInMonth(yer, mnth)
هذه الدالة تجلب كم يوم في الشهر وهي تحتاج الى باراميترين هما رقم السنة ورقم الشهر
وبما اننا دائما نريد الشهر الذي نحن فيه اذا نحتاج الى تعريف متغيرين الاول يجلب رقم السنة والثاني رقم الشهر الحاليين
عبر هذين المتغيرين
كود :
Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
      Dim yer As Integer = Now.Year ' يجلب السنة الحالية
الان اصبح بامكاننا معرفة نهاية الشهر وهي العدد الذي جلبناه من الدالة ونحن الان في الشهر الخامس سيكون عدد ايامه 31 يوم
الان سيتم التحقق من اليوم الحالي(نحن اليوم هو 25) اذا كان مساويا لـ  31 تظهر رسالة وبالطبع ال25 لاتساوي 31 لذلك لن تظهر الرسالة الا في اليوم 31 من هذا الشهر
والشهر القادم هو حزيران عدد ايامه 30 وستظهر الرسالة في 30 
ولو كنا في شهر شباط من هذا العام وهو سنة كبيسة ستظهر الرسالة يوم 29 
وفي العام القادم  سيكون عدد ايام شهر شباط 28 ستظهر الرسالة يوم 28
ببساطة استطعنا تحديد يوم نهاية الشهر ليمكننا المقارنة به مع اليوم الذي نحن فيه عبر هذه الجملة الشرطية
كود :
If Now.ToString("dd") = LastDay Then
          MsgBox("hello")
      End If
اتمنى ان يكون الشرح وافيا
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5
#9
(25-05-20, 08:11 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم 
لنفترض اننا نجهل كم  يكون عدد ايام الشهر الحالي او اي شهر وهي التي سميتها LastDay 
كود :
Dim LastDay As Integer = Date.DaysInMonth(yer, mnth)
هذه الدالة تجلب كم يوم في الشهر وهي تحتاج الى باراميترين هما رقم السنة ورقم الشهر
وبما اننا دائما نريد الشهر الذي نحن فيه اذا نحتاج الى تعريف متغيرين الاول يجلب رقم السنة والثاني رقم الشهر الحاليين
عبر هذين المتغيرين
كود :
Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
      Dim yer As Integer = Now.Year ' يجلب السنة الحالية
الان اصبح بامكاننا معرفة نهاية الشهر وهي العدد الذي جلبناه من الدالة ونحن الان في الشهر الخامس سيكون عدد ايامه 31 يوم
الان سيتم التحقق من اليوم الحالي(نحن اليوم هو 25) اذا كان مساويا لـ  31 تظهر رسالة وبالطبع ال25 لاتساوي 31 لذلك لن تظهر الرسالة الا في اليوم 31 من هذا الشهر
والشهر القادم هو حزيران عدد ايامه 30 وستظهر الرسالة في 30 
ولو كنا في شهر شباط من هذا العام وهو سنة كبيسة ستظهر الرسالة يوم 29 
وفي العام القادم  سيكون عدد ايام شهر شباط 28 ستظهر الرسالة يوم 28
ببساطة استطعنا تحديد يوم نهاية الشهر ليمكننا المقارنة به مع اليوم الذي نحن فيه عبر هذه الجملة الشرطية
كود :
If Now.ToString("dd") = LastDay Then
          MsgBox("hello")
      End If
اتمنى ان يكون الشرح وافيا

بارك الله فيك اخي ابراهيم يا استاذ دمت دعما للمنتدى  شرح مبسط و وافي  وكافي
و جزاك الله عنا خيرا يا رب
يا ريت ديرلنا دورات اخي نستفيد من خبرتك
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#10
الحمد لله والشكر لله
وبارك الله فيك اخي الكريم
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  استخراج الشهر الهجري kebboud 2 258 04-12-23, 07:51 PM
آخر رد: kebboud
  [VB.NET] امثلة علي برمجة RFID MOHAMMED ALZWI 0 208 04-12-23, 11:29 AM
آخر رد: MOHAMMED ALZWI
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 360 03-11-23, 06:50 AM
آخر رد: Adel27213

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم