المدخل الى فيجوال بيسك 2008 وصنع البرامج والادوات

[alaqsa-a]

جزاك الله كل خير
عمل تستحق علية كل خير اخي
مشكوووووووور

 

[محمداني]

لم افهم شئ في الفيجوال ولكن من خلال قراءتي لمشروعك جعلني اتششجع على تعلم الفيجوال وانشاء الله ربنا يجزيك خير الجزاء على هذا المجهود الجبار وربنا يوفقك والى الامام انشاء الله

 

[مرعب اعداء الله]

مشكور على مجهودك العظيم .
​

 

[SaTaLiTe]

بارك الله فيك موضوع متميز

جزاك الله كل خير
عمل تستحق علية كل خير اخي
مشكوووووووور

لم افهم شئ في الفيجوال ولكن من خلال قراءتي لمشروعك جعلني اتششجع على تعلم الفيجوال وانشاء الله ربنا يجزيك خير الجزاء على هذا المجهود الجبار وربنا يوفقك والى الامام انشاء الله

مشكور على مجهودك العظيم .
​

حياكم الله:king:

 

[SaTaLiTe]

المشروع القدم سيكون متصفح, ثم ندخل في الدرس Case وهي خاصة للشروط كذلك

 

[SaTaLiTe]

بسم الله الرحمن الرحيم
مشروع متصفح (الهدف التعرف على اداة Web Browser)

تجد أداة Web browser في مجموعة common controls , وهذه الأداة نستخدمها للاتصال بالانترنت واظهار صفحات انترنت ("تصفح النت").
اوامر واكواد هذه الاداة بسيطة جدا وسهلة الفهم, وكل ما عليك فهمه هي الاوامر بالانجليزية بحيث : الخلف = back , أمام = forward , الصفحة الرئيسية = Home page , وقف = stop.
في الفيجوال بيسك الأوامر متشابهة.
ومن خلال هذا المثال سنتعرف على هذه الاوامر.

- مشروع جديد.
- اختر اسم مناسب.
- أضف الأدوات التالية :-
اولا/ قم باضافة اداة اسمها Tool strip تجدها في مجموعة Menus and tool bars
هذه الأداة تقوم بترتيب الأدوات : button - textbox - label وهناك ادوات أخرى, لكن في هذا المثال نستخدم الـ Button + TextBox.
أضفه الى المشروع وستلاحظ أنه يتركز في الأعلى, الان نحتاج الى اضافة أداة.
يتم ذلك عن طريق الضغط على سهم علامة الورقة واختيار Button.

وأول ما ستلاحظه أنه تظهر لك صورة, وليس كلمة.
لحل هذه المشكلة اعمل الاتي :-
- توجه الى الخصائص "الخاصة بالأداة"
- اختر Display style واختر Text.

والان غير خاصية Left to right الى yes , فهذا الامر سيحوله الى واجهة عربية "يمين الى يسار"
ولم يبقى الا تغيير الاسم الى الاوامر كالاتي :-

الان نضيف أداة الـ Web browser , وستلاحظ ان الأداة ستنتشر في الفورم, وهنا نسميه Dock
ولو تلاحظ في الخصائص dock = fill , يمكن تغيره الى top حتى يكون للأعلى فقط لكننا هنا سنضعه كما هو.
الان اكتب هذه الاكواد لكل أداة.

زر خلف :-

WebBrowser1.GoBack()

زر أمام :-

 WebBrowser1.GoForward()

زر اذهب :-

WebBrowser1.Navigate(txt1.Text)

فقط غير txt1 الى اسم أداة النص "لادخال الرابط"

زر قف :-

 WebBrowser1.Stop()

زر تحديث :-

 WebBrowser1.Refresh()

الان شغل المشروع وضع أي رابط

:y::y:
​

 

[iso]

بارك الله فيك متابع

 

[SaTaLiTe]

بارك الله فيك متابع

مرحبا:king:

===---==

الدروس في رمضان ستأتي متأخرة

 

[ريانHRE_29]

مشكور على الشرح

 

[ARBIA39]

جزئك الله

 

[SaTaLiTe]

استخدا الشروط بواسطة Case

لا يختلف كثيرا عن If .. else وهنا سأشرح الصيغة

- مشروع جديد
- اضف فيه TextBox
- اضف فيه Button


في Button1_Click :-

  Select Case TextBox1.Text
            Case "1"
                MsgBox("سبت")
            Case "2"
                MsgBox("أحد")
            Case "3"
                MsgBox("اثنين")
            Case "4"
                MsgBox("ثلاثاء")
            Case "5"
                MsgBox("أربعاء")
            Case "6"
                MsgBox("خميس")
            Case "7"
                MsgBox("جمعة")
            Case Else
                MsgBox("عدد أيام السبوع 7")
        End Select

نلاحظ اننا في البداية كتبنا Select case textbox1.text
بمعنى اختبار الشروط تتم في النص, في حالة كانت "1" سيظهر صندوق نصي فيه يوم السبت.
في حالة كانت "2" يظهر أحد,.....الخ

وفي الأخير كتبنا Case else بمعنى في حالة شيء اخر, فأظهر صندوف نصي "عدد أيام الاسبوع 7"
​

 

[SaTaLiTe]

من لديه سؤال, معلومة, جواب, مشكلة

فليطرحه هنا , فالموضوع مفتوح للاسئلة النقاشات

 

[سيد الحلوانى]

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

 

[SaTaLiTe]

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

تحتاج اولا الى النسخة الكاملة visual studio 2008 حجمها تقريبا 3 جيجا,وانا لم اتعامل معها

وانشاء الأدوات تتم بواسطة windows control library

 

[SaTaLiTe]

الدرس القادم كيفية تشغيل صوت

 

[SaTaLiTe]

بسم الله الرحمن الرحيم
كيفية تشغيل صوت

العملية بسيطة جدا, لكن قبل هذا أريد أن ادخل في درس الدالة My
هذه الدالة تندرج منها عدة دوال اخرى.
My.computer
My.Network
My.application
وهناك المزيد...
لكن في هذا الدرس سنستخدم الدالة My.Computer والي تختص في أمور الكمبيوتر من حيث نقل ملفات او حذف ملفات او تعديل او تدمير الجهاز:hh: وخاصة تعديل الرجيستري...

والدالة My.Computer تندرج منها المزيد من الدوال مثل.
My.computer.filesystem
my.computer.regisrty
my.computer.info
my.computer.audio

وفي هذا الدرس سوف نستخدم الدالة My.Computer.audio والي يستخدم في امور الصوت في الجهاز.
وحتى نستطيع تشغيل صوت سوف نستخدم هذه الدالة.

My.Computer.Audio.Play("المسار")

وبس:d:
الان استخدم مخيلتك واضف هذا الكود في اي حدث ثم شغل المشروع وجرب اذا كان الصوت يعمل او لا...

سيكون لدينا مشروع لاحقاk:
​

 

[vip_7500]

ما شاء الله

ابداع اخي

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

جزاك الله خير على هذا الشرح الرائع

 

[القمــر]

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

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

يعني مرة اختر الخيارين 74ميغا و 1.3 ورفض بدء التثبيت

ومرة اخترت خيار واحد ولم اكمل التثبيت طلب مني تحديد
مسار لملف معين
وحاولت ابحث عنه ولم اجده

فياليت تحط لي رابط البرنامج المباشر فربما انا اخطأت في
اختيار برنامج فيجول بيسك

فأنا حريص كل الحرص على معرفة البرمجة بهذا البرنامج
الجبار

 

[The Reds]

جزاك الله خير على هذا الشرح الرائع

 

[القمــر]

جزاك الله خير على هذا الشرح الرائع

للرفع اخي ستلايت
لأنني مصر على فهم وتطبيق دروس الفيجول بيسك