السلام عليكم ورحمه الله وبركاته
عندي مشكله واتمنى مساعدتي
انا صممت برنامج في الفجول عن حساب ايام الاجازات وكل شي اوكي
بس طلبو مني اضيف تاريخ وفي الايبل ينكتب عدد الايام ويوم اضغط احسب يحسب اليوم بتاريخ بضبط ومته تنتهي هذي الاجازة
محتاجه الكود هذا الله يسعدكم
والله تعبت
هذا هوو السي سويتة
راح اضيف بوتن ثاني للحساب بس محتاجه الكود الي يعرف لا يبخل علي
الاخت العزيزة ارفقى المشروع وانشاء الله يتم الحل
يسلموو هذي الصورة
http://store2.up-00.com/2015-05/1431888966281.png
اني يوم احسب يطلع لي عدد الايام
وفي النموذج الي تحت يوم اكتب التاريخ يدوي في TextBox كيف اقدر احسب في Button ويطلع الناتج فيLabel6 مع كتابت عدد الايام وكتابت اليوم اذا كان الاحد او الاثنين وهكذا
إقتباس :" وفي النموذج الي تحت يوم اكتب التاريخ يدوي في TextBox كيف اقدر احسب في Button ويطلع الناتج فيLabel6 "
إقتباس :غير مفهوم ...
أولا لماذا تكتبي التاريخ بشكل يدوي وعندك الأداة DateTimePicker ؟؟
ثانيا ماذا تريدين ان تحسبي في النموذج السفلي ؟؟ لايوجد تاريخين ليتم احتساب الفرق بينهم .
بالنسبة للشق الثالث من الطلب وهو كتابة اسم اليوم
PHP كود :
Dim CurruntCulture = Globalization.CultureInfo.CurrentCulture
Dim DayName As String = CurruntCulture.DateTimeFormat.GetDayName(DateTime.Parse(DateTimePicker1.Value).DayOfWeek)
MsgBox(DayName)
فهذا الكود يحضر لك اسم اليوم حسب ما تختاريه من أداة الـ DateTimePicker
بالتوفيق ان شاء الله
المقصد لو كتبت 15 يوم في مثل الي بصورة يحسب لي عدد الايام ومته تنتهي هذا الاجازه باليوم المحدد
واذا تعرف الاكواد الخاصة بهذا النموذج اكون لك ممنونه اخوي
وربي لي 3 اسابيع ع نفس الموال وكل مااكتب شي تطلب شي ثاني الله المستعان
سلام
بعد اذن الدكتور شريف حبيت اشارك معاكم بهذا الكود لحساب نهاية الاجازة بعدد الايام
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m_days As Integer = Val(TextBox1.Text) ' عدد الأيام
Dim m_dateStart As Date = DateTimePicker1.Value.Date ' تاريخ بداية الاجازة
Dim m_dateEnd As Date = DateAdd(DateInterval.Day, m_days, m_dateStart) ' تاريخ نهاية الاجازة
Dim m_day As String = New Globalization.CultureInfo("ar-SA", True).DateTimeFormat.GetDayName(m_dateEnd.DayOfWeek) ' اسم اليوم بالعربي
Label1.Text = String.Concat(m_day, " ", m_dateEnd.ToLongDateString)
End Sub
(17-05-15, 11:32 PM)Dr.Sherif Alazizi كتب : [ -> ]إقتباس :" وفي النموذج الي تحت يوم اكتب التاريخ يدوي في TextBox كيف اقدر احسب في Button ويطلع الناتج فيLabel6 "
إقتباس :غير مفهوم ...
أولا لماذا تكتبي التاريخ بشكل يدوي وعندك الأداة DateTimePicker ؟؟
ثانيا ماذا تريدين ان تحسبي في النموذج السفلي ؟؟ لايوجد تاريخين ليتم احتساب الفرق بينهم .
بالنسبة للشق الثالث من الطلب وهو كتابة اسم اليوم
PHP كود :
Dim CurruntCulture = Globalization.CultureInfo.CurrentCulture
Dim DayName As String = CurruntCulture.DateTimeFormat.GetDayName(DateTime.Parse(DateTimePicker1.Value).DayOfWeek)
MsgBox(DayName)
فهذا الكود يحضر لك اسم اليوم حسب ما تختاريه من أداة الـ DateTimePicker
بالتوفيق ان شاء الله
امممم الكود وين اكتبة بضبط في TextBox ولا Button ولا فيLabeL
(17-05-15, 11:32 PM)Dr.Sherif Alazizi كتب : [ -> ]إقتباس :" وفي النموذج الي تحت يوم اكتب التاريخ يدوي في TextBox كيف اقدر احسب في Button ويطلع الناتج فيLabel6 "
إقتباس :غير مفهوم ...
أولا لماذا تكتبي التاريخ بشكل يدوي وعندك الأداة DateTimePicker ؟؟
ثانيا ماذا تريدين ان تحسبي في النموذج السفلي ؟؟ لايوجد تاريخين ليتم احتساب الفرق بينهم .
بالنسبة للشق الثالث من الطلب وهو كتابة اسم اليوم
PHP كود :
Dim CurruntCulture = Globalization.CultureInfo.CurrentCulture
Dim DayName As String = CurruntCulture.DateTimeFormat.GetDayName(DateTime.Parse(DateTimePicker1.Value).DayOfWeek)
MsgBox(DayName)
فهذا الكود يحضر لك اسم اليوم حسب ما تختاريه من أداة الـ DateTimePicker
بالتوفيق ان شاء الله
(18-05-15, 12:00 AM)الطالب كتب : [ -> ]سلام
بعد اذن الدكتور شريف حبيت اشارك معاكم بهذا الكود لحساب نهاية الاجازة بعدد الايام
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m_days As Integer = Val(TextBox1.Text) ' عدد الأيام
Dim m_dateStart As Date = DateTimePicker1.Value.Date ' تاريخ بداية الاجازة
Dim m_dateEnd As Date = DateAdd(DateInterval.Day, m_days, m_dateStart) ' تاريخ نهاية الاجازة
Dim m_day As String = New Globalization.CultureInfo("ar-SA", True).DateTimeFormat.GetDayName(m_dateEnd.DayOfWeek) ' اسم اليوم بالعربي
Label1.Text = String.Concat(m_day, " ", m_dateEnd.ToLongDateString)
End Sub
راح اجربه وان شاءالله يضبط ربي يجزاك كل خير
http://www5.0zz0.com/2015/05/17/23/246412946.png
مو عارفه وين الخطاء
هذا الي طلع لي
سويت FORM اجرب فقط وهذا الي صار
http://www5.0zz0.com/2015/05/17/23/246412946.png
مو عارفه وين الخطاء
هذا الي طلع لي
سويت FORM اجرب فقط وهذا الي صار
سلام
اداة التاريخ في الكود DateTimePicker1 لازم تتوافق مع اسم اداة التاريخ اللي في الفورم
وهذا الكلام ينطبق على TextBox1 وLabel1
موفقين
اوكي ضبط معاي ربي يجزاك كل خير بس طلعت لي مشكله ثانية كل مااخفيت Label6
يطلع لي مثل الي بصورة طلعلي قبل واضطريت اعيده 3 مرات مدري شنو اسوي
موراضي يخفي label بنموذج موموجوده بتشغيل موجوده
هذا الي طبقتة