منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد (/showthread.php?tid=45741)

محتاج كود اضهار مسج بوكس كل يوم سبت او احد - mac9 - 20-03-23

السلام عليكم 
محتاج كود يقوم بظهار مسج بوكس 
كل يوم سبت او احد 

لا يعتمد على السنه الحاله او الشهر الحالي 

فقط اليوم


يعني لما يكون يوم ثلاثاء لا يظهر مسج بوكس 

لما يكون يوم سبت يظهر مسج بوكس

اكون شاكر لكم اخواني


RE: محتاج مود اضهار مسج بوكس كل يوم سبت او احد - mac9 - 21-03-23

لا يوجد رد اخواني

RE: محتاج مود اضهار مسج بوكس كل يوم سبت او احد - Taha Okla - 21-03-23

(20-03-23, 05:19 AM)mac9 كتب :
السلام عليكم 
محتاج كود يقوم بظهار مسج بوكس 
كل يوم سبت او احد 

لا يعتمد على السنه الحاله او الشهر الحالي 

فقط اليوم


يعني لما يكون يوم ثلاثاء لا يظهر مسج بوكس 

لما يكون يوم سبت يظهر مسج بوكس

اكون شاكر لكم اخواني

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

هذا الكود ضعه في المكان المناسب لبرنامجك :
كود :
If (Weekday(Now).ToString() = 7 Or Weekday(Now).ToString() = 1) Then
   MsgBox(Date.Now.ToString("dddd"))
End If


RE: محتاج مود اضهار مسج بوكس كل يوم سبت او احد - mac9 - 22-03-23

(21-03-23, 07:02 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

هذا الكود ضعه في المكان المناسب لبرنامجك :
كود :
If (Weekday(Now).ToString() = 0 Or Weekday(Now).ToString() = 1) Then
   MsgBox(Date.Now.ToString("dddd"))
End If

 طيب استاذ ليوم السبت فقط لو قمت باختار اني غير يوم كيف اعرف قيم الايام مثلا الثلاثاء

RE: محتاج كود اضهار مسج بوكس كل يوم سبت او احد - Taha Okla - 22-03-23

السبت = 7
الأحد = 1
الاثنين = 2
وهكذا ...

RE: محتاج كود اضهار مسج بوكس كل يوم سبت او احد - أبو خالد الشكري - 22-03-23

(22-03-23, 03:46 AM)Taha Okla كتب : السبت = 0
الأحد = 1
وهكذا ...


بعد إذنك أستاذ طه 
عملت تعديل بسيط على الكود للتسهيل
حيث أن اسم اليوم بالحروف أوضح من رقم اليوم
كود :
​

كود :
       If (Now.DayOfWeek.ToString()) = "Saturday" Or (Now.DayOfWeek.ToString()) = "Sunday" Then
           MsgBox(Date.Now.ToString("dddd"))
       End If


RE: محتاج كود اضهار مسج بوكس كل يوم سبت او احد - Taha Okla - 22-03-23

(22-03-23, 02:53 PM)أبو خالد الشكري كتب :
(22-03-23, 03:46 AM)Taha Okla كتب : السبت = 0
الأحد = 1
وهكذا ...


بعد إذنك أستاذ طه 
عملت تعديل بسيط على الكود للتسهيل
حيث أن اسم اليوم بالحروف أوضح من رقم اليوم
كود :
​

كود :
       If (Now.DayOfWeek.ToString()) = "Saturday" Or (Now.DayOfWeek.ToString()) = "Sunday" Then
           MsgBox(Date.Now.ToString("dddd"))
       End If


وإذا كان إعدادات جهازه : عربي أو فرنسي أو أي لغة أخرى 
كيف سيكون الحل ؟؟؟
هل سيكون الحرف أبسط أم الرقم ؟؟

RE: محتاج كود اضهار مسج بوكس كل يوم سبت او احد - mac9 - 23-03-23

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

كود :
() Dim selectedDay As String = ComboBox1.SelectedItem.ToString
       Dim today As DateTime = DateTime.Today

       If selectedDay = today.DayOfWeek.ToString() Then
           ' تنفيذ الشرط المطلوب هنا
           MessageBox.Show("اليوم المختار هو يوم " & selectedDay)
       Else
           MessageBox.Show("اليوم المختار ليس اليوم الحالي")
       End If


RE: محتاج كود اضهار مسج بوكس كل يوم سبت او احد - sanyor77 - 27-03-23

وعليكم السلام ورحمة الله وبركاته. يمكنك استخدام الكود التالي لإظهار MessageBox يوم السبت أو الأحد. هذا الكود يعتمد على تحديد يوم الأسبوع الحالي ويتحقق مما إذا كان اليوم السبت أو الأحد:

PHP كود :
Imports System.Windows.Forms

Module ShowMessageBoxOnWeekends

    Sub Main()
        Dim currentDayOfWeek As DayOfWeek = DateTime.Now.DayOfWeek

        If currentDayOfWeek = DayOfWeek.Saturday Or currentDayOfWeek = DayOfWeek.Sunday Then
            MessageBox.Show("اليوم هو يوم السبت أو الأحد!", "رسالة", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

End Module 


في هذا الكود، يتم الحصول على يوم الأسبوع الحالي باستخدام DateTime.Now.DayOfWeek ويتم تخزينه في متغير currentDayOfWeek. بعد ذلك، يتم التحقق مما إذا كان currentDayOfWeek يوم السبت أو الأحد باستخدام جملة الشرط If. إذا كان اليوم يوم السبت أو الأحد، سيتم إظهار MessageBox.


يمكنك استخدام الكود التالي لإظهار MessageBox يوم السبت فقط:

PHP كود :
If Weekday(Now) = 7 Then
    MsgBox(Date.Now.ToString("dddd"))
End If 


في هذا الكود، يتم استخدام دالة Weekday للحصول على رقم يمثل يوم الأسبوع الحالي، حيث يبدأ العد من الأحد (1) إلى السبت (7). إذا كان الرقم المرجع 7، فهذا يعني أن اليوم هو يوم السبت وسيتم إظهار MessageBox. 

إذا كنت ترغب في إظهار MessageBox يوم الثلاثاء فقط، يمكنك استخدام الكود التالي

PHP كود :
If Weekday(Now) = 3 Then
    MsgBox(Date.Now.ToString("dddd"))
End If 


في هذه الحالة، نستخدم الرقم 3 للتحقق مما إذا كان اليوم هو يوم الثلاثاء. تجد هنا قائمة بالأرقام المقابلة لأيام الأسبوع:

  1. الأحد

  2. الاثنين

  3. الثلاثاء

  4. الأربعاء

  5. الخميس

  6. الجمعة

  7. السبت