منتديات اليسير للمكتبات وتقنية المعلومات » منتديات اليسير العامة » منتدى تقنية المعلومات » تطبيق برنامج بلغة vb.net2005 express edition

منتدى تقنية المعلومات هذا المنتدى مخصص للموضوعات الخاصة بتقنية المعلومات التي تتعلق بالمكتبات ومراكز مصادر المعلومات ومراكز مصادر التعلم.

إضافة رد
أدوات الموضوع تقييم الموضوع انواع عرض الموضوع
 
قديم Dec-05-2006, 09:38 PM   المشاركة1
المعلومات

سارة منير
مكتبي جديد

سارة منير غير متواجد حالياً
البيانات
 
العضوية: 21891
تاريخ التسجيل: Nov 2006
الدولة: السعـوديّة
المشاركات: 8
بمعدل : 0.00 يومياً


تعجب تطبيق برنامج بلغة vb.net2005 express edition

السلام عليكم
لقد قمت بعمل برنامج بلغة الvb.net2005 express edition واردت ان انشره في منتدى تقنية المعلومات ليتنى استطيع ان افيد احدا
وهذا البرنامج هو عبارة عن برنامج بسيط لاعداد جدول مذاكرة وممكن من خلال التطوير في اكواد هذا البرنامج تنفيذ افكار جديدة ولنبدا الان
اذا لم يكن لديك برنامج الvb.net2005 express edition فقمت بتنزيله الان من هذا الرابط لتستطيع تنفيذ هذا البرنامج
http://msdn.microsoft.com/vstudio/express/vb/
والان بعد ان قمت بتحميل برنامج vb.net2005 express edition لنبدا في تطبيق البرنامج التالي
:

خطوات تنفيذ البرنامج:


vb.net2005 express edition)فتح برنامج لغة
منstart نختارAllprogramm ثم نختار vb.net2005express edition
فيظهر لنا الشكل التالى عند فتح البرنامج :



نختارnew project من قائمةfile


اخترwindos applicationواعط للبرنامج اسم
:if then



اضغط مرتين بالفارة على سطح النموذج ، وذلك لفتح نافذة الكود.


اكتب الكود التالي: في اجراء الحدث form1.load


If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Saturday Then
MsgBox("مذاكرة لغات برمجة")
ElseIf My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Sunday Then
MsgBox("مذاكرة فهرسة الية ")
ElseIf My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Monday Then
MsgBox("مذاكرة نصوص عربي")
ElseIf My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Tuesday Then
MsgBox("مذاكرة نصوص انجليزى")
ElseIf My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Wednesday Then
MsgBox("مذاكرة مصادر معلومات الكترونية")
ElseIf My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Thursday Then
MsgBox("مذاكرة تصميم وتحليل النظم")
ElseIf My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Friday Then
MsgBox("انهارده اجازة")

لتشغيل البرنامج:اضغطf5

اذا كان اليوم السبت سيظهر الشكل التالى :

اذا كان اليوم هو الاحد ستظهر رسالة " مذاكرة فهرسة الية "
اذا كان اليوم هو الاثنين ستظهر رسالة "مذاكرة نصوص عربي "
اذا كان اليوم هو الثلاثاء ستظهر رسالة "مذاكرة نصوص انجليزى "
اذا كان اليوم هو الاربعاء ستظهر رسالة "مذاكرة مصادر معلومات الكترونية "
اذا كان اليوم هو الخميس ستظهر رسالة "مذاكرة تصميم وتحليل النظم "
اما اذا كان اليوم هو الجمعة فستظهر رسالة "انهارده اجازة "

لانهاء البرنامج stop debugging اختر debug 7) من قائمة






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

اود ان اكون استطعت ان اقدم شيئا












  رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
قائمة كتب حديثه التكنولوجي النشط عروض الكتب والإصدارات المتخصصة في مجال المكتبات والمعلومات 37 Dec-31-2016 06:00 PM
بعض النظم الالية المستخدمة في المكتبات ولاء شيخ منتدى الأنظمة الآلية في المكتبات ومراكز المعلومات 29 Nov-22-2014 08:12 PM
التعليم عن بعد وعلم المعلومات amelsayed المنتدى الــعــام للمكتبات والمعلومات 12 Feb-20-2011 11:02 PM
البحث الجاهز عن برنامج اليسير مني1 منتدى الدعم الفني لبرنامج اليسير 13 Feb-07-2010 09:12 AM


الساعة الآن 08:34 AM.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. جميع الحقوق محفوظة لـ : منتديات اليسير للمكتبات وتقنية المعلومات
المشاركات والردود تُعبر فقط عن رأي كتّابها
توثيق المعلومة ونسبتها إلى مصدرها أمر ضروري لحفظ حقوق الآخرين