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

السلام عليكم

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

كل يوم سبت او احد

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

فقط اليوم

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

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

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

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

(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

(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

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

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

(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

(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

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

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

كود :

() 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

وعليكم السلام ورحمة الله وبركاته. يمكنك استخدام الكود التالي لإظهار 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 للتحقق مما إذا كان اليوم هو يوم الثلاثاء. تجد هنا قائمة بالأرقام المقابلة لأيام الأسبوع:

الأحد
الاثنين
الثلاثاء
الأربعاء
الخميس
الجمعة
السبت