أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil نتيجة تقرير اكسيل اسئله واجابات


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



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





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

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



06-11-2017 01:37 مساء
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1077
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 578
قوة السمعة : 7619
الاعجاب : 161
موقعي : زيارة موقعي
 offline 

السلام عليكم 
اليوم نقدم لكم موضوع اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت وهو موضوع بسيط جدا وكود بسيط ونستطيع تطبيقه على نطاق اكبر من المستخدم في هذا الموضوع
كرسائل تذكير للمهام او حتى في الاذكار او تنبيه وعدم فتح البرنامج بعد وقت معين وليكن وقت انتهاء العمل لا يمكن فتحه في هذا الوقت 
وغيرها 


طريقة عمل الرسائل
نفتح مشروع جديد كما تعودنا وتعملنا سابقنا
حتى تظهر لنا هذه النافذة

MzM3NDEwMQ929230
نضغط دبل كليك على الفورم للدخول لمحرر الاكواد
وفي حدث تحميل الفورم
نضع الكود التالي كما بالصورة

MTgxMTA3MQ6620
يتم كتابة الكود هكذا
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim NM As String
        NM = "YasserElaraby"
        If TimeOfDay >= "12:00 AM" And TimeOfDay < "11:30 AM" Then
            MsgBox("Good Morning MR " & NM)
        ElseIf TimeOfDay > "11:30 AM" And TimeOfDay < "5:00 PM" Then
            MsgBox("Good Afternoon MR " & NM)
        ElseIf TimeOfDay > "5:00 PM" And TimeOfDay < "12:00 AM" Then
            MsgBox("Good Evening MR " & NM)
        End If
    End Sub


أو هكذا
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim NM As String
        NM = "YasserElaraby"
        If TimeOfDay >= "12:00 AM" And TimeOfDay < "11:30 AM" Then
            MsgBox("Good Morning MR " & NM)
        End If
        If TimeOfDay > "11:30 AM" And TimeOfDay < "5:00 PM" Then
            MsgBox("Good Afternoon MR " & NM)
        End If
        If TimeOfDay > "5:00 PM" And TimeOfDay < "12:00 AM" Then
            MsgBox("Good Evening MR " & NM)
        End If
    End Sub

الموضوع بسيط 
TimeOfDay
الوقت الحالي ويتم مقارنته مع الوقت المضاف عن طريق المستخدم باستخدام IF
اذا تحقق الشرط يتم عرض الرسالة الخاصة بالشرط عند فتح الفورم
كما موضح بالصورة


ODAxOTUx40
وتم الاعلان عن متغير من نوع نصي String باسم المستخدم والاشارة له ب NM لاختصار كتابته داخل كل الرسائل
كما قلنا الموضوع بسيط ولكن تنفيذه على نطاق اوسع او مهام اخرى قد يكون مهم عند اغلب المستخدمين


ومثال اخر بالاكسيل

    Dim NM As String, TM
    NM = "YasserElaraby"
    TM = Format(Now(), "hh")
    If TM >= "1" And TM < "12" Then
        MsgBox ("Good Morning MR " & NM)
    ElseIf TM > "12" And TM < "17" Then
        MsgBox ("Good Afternoon MR " & NM)
    ElseIf TM > "17" Then
        MsgBox ("Good Evening MR " & NM)
    End If




تحياتي

81









 
 




توقيع :Yasser Elaraby
663013020




06-11-2017 02:01 مساء
مشاهدة مشاركة منفردة [1]
بودى مورا
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2017
رقم العضوية : 1111
المشاركات : 58
الجنس : ذكر
تاريخ الميلاد : 20-12-1977
يتابعهم : 12
يتابعونه : 2
قوة السمعة : 69
الاعجاب : 0
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
ممكن لينك  بيشرح فيه كيفية فتح مشروع جديد كما تعودنا وتعملنا سابقنا
حتى تظهر لنا هذه النافذة





06-11-2017 02:04 مساء
مشاهدة مشاركة منفردة [2]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1630
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 542
قوة السمعة : 16872
الاعجاب : 119
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت

جزاكم الله خيرا يا عربى 142





توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



06-11-2017 02:05 مساء
مشاهدة مشاركة منفردة [3]
ahmed moh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 220
الجنس : ذكر
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 288
الاعجاب : 0
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
السلام عليكم
جزاك الله خيرا اخى ياسر
فعلاا يكمن تطويع الكود حسب الاساخدام 
وارجو  ارفاق الملفلين الفائده





06-11-2017 02:14 مساء
مشاهدة مشاركة منفردة [4]
رمضان بكري
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 358
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 33
قوة السمعة : 1327
الاعجاب : 13
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
جزاك الله خيرا استاذ ياسر 
 





06-11-2017 02:17 مساء
مشاهدة مشاركة منفردة [5]
رمضان بكري
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 358
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 33
قوة السمعة : 1327
الاعجاب : 13
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
استاذ ياسر كان في موضوع لي حضرتك  كيفية عمل التحكم  في صلاحية المستخدم 
اريد عمل صلاحيات للمستخدم  واحدد صلاحيتهم ععلي البرنامج
 





06-11-2017 02:18 مساء
مشاهدة مشاركة منفردة [6]
بودى مورا
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2017
رقم العضوية : 1111
المشاركات : 58
الجنس : ذكر
تاريخ الميلاد : 20-12-1977
يتابعهم : 12
يتابعونه : 2
قوة السمعة : 69
الاعجاب : 0
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
 
 
  Book1.rar   تحميل rar مرات التحميل :(15)
الحجم :(11.955) KB






06-11-2017 02:40 مساء
مشاهدة مشاركة منفردة [7]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1077
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 578
قوة السمعة : 7619
الاعجاب : 161
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
المشاركة الأصلية كتبت بواسطة:بودى مورا
ممكن لينك  بيشرح فيه كيفية فتح مشروع جديد كما تعودنا وتعملنا سابقنا
حتى تظهر لنا هذه النافذة

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

 



توقيع :Yasser Elaraby
663013020



06-11-2017 02:45 مساء
مشاهدة مشاركة منفردة [8]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1077
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 578
قوة السمعة : 7619
الاعجاب : 161
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
المشروع مرفق بلغة الفيجوال بيسك دوت نت
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

وان شاء الله نعمله ع الاكسيل عشان الاخوة اللي محتاجينه ع الاكسيل
تحياتي
 
 
 
  msgby time.rar   تحميل rar مرات التحميل :(10)
الحجم :(112.62) KB




توقيع :Yasser Elaraby
663013020



06-11-2017 02:47 مساء
مشاهدة مشاركة منفردة [9]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1077
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 578
قوة السمعة : 7619
الاعجاب : 161
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
جزيتم خيرا اخواني الكرام
اخي الكريم حسام 
اخي الكريم ابو حنين
اخي الكريم بودي مورا
اخي الكريم رمضان 
تقبلوا فائق احترامي
81



توقيع :Yasser Elaraby
663013020



06-11-2017 03:12 مساء
مشاهدة مشاركة منفردة [10]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1077
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 578
قوة السمعة : 7619
الاعجاب : 161
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
 
 
  msg by time.zip   تحميل zip مرات التحميل :(24)
الحجم :(11.617) KB




توقيع :Yasser Elaraby
663013020



06-11-2017 06:15 مساء
مشاهدة مشاركة منفردة [11]
Kamel meraghni
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 102
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 631
الاعجاب : 5
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
جزاك الله كل خير



توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142




06-11-2017 10:56 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6427
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17705
الاعجاب : 439
 offline 
look/images/icons/i1.gif اظهار رسالة ترحيب عند فتح البرنامج حسب الوقت
بارك الله فيك أخي الحبيب ياسر العربي وجزيت خيراً على هذه الروائع والدروس القيمة







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


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 01:29 مساء

أعلن هنا
أعلن هنا
أعلن هنا