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

[lak3yoni]

يعطيك العاــافيه اخــوي


باــراك الله فيك على نشــر العلم

وعســاك على القــوه


انا ارأأغب في تعلم البرمجه


واتمنى انا اش،ـارك معك في الدوورس


ياليت اكــون معك


وشــكرا لك يابعدي
​

 

[أبو ريفان]

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

 

[فدى الرسول]

حزاك الله خير
ويارب تكمل معنا الدورة ولا تتركنا
جزاك ربى الجنة ان شاء الله

 

[SaTaLiTe]

يعطيك العاــافيه اخــوي

باــراك الله فيك على نشــر العلم

وعســاك على القــوه


انا ارأأغب في تعلم البرمجه


واتمنى انا اش،ـارك معك في الدوورس


ياليت اكــون معك


وشــكرا لك يابعدي
​

اهلا وسهلا بك, والموضوع متاح للجميعk:

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

وان شاء الله تستفيد أكثر وأكثر

حزاك الله خير
ويارب تكمل معنا الدورة ولا تتركنا
جزاك ربى الجنة ان شاء الله

ان شاء الله
شكرا لكk:

 

[naser1977]

موضوع في غاية الاهمية جزاك الله كل خير​

 

[الرحاال]

مشكوووور اخووي على المجهود الرائع ومزيد من الابداع

 

[SaTaLiTe]

استخدام الجمل الشرطية
Using conditions

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

الجمل الشرطية تعني, اذا توافقت شروط ما فشيء ما سيحدث, والا سيحدث شيء اخر.

فمثلا اذا سقط المطر فان الطرق ستصير رطبه, والا تبقى جافة.
في البرمجة باستخدام فيجوال بيسك كذلك نستخدم هذه الجملة.
وطريقة استخدامها تكون كالاتي :-
If الشرط Then يحدث هكذا end if
لتوضيح أفضل اضف في مشروع جديد :-
button بعدد1
textbox بعدد1
الان اضف في الحدث Button1_Click الاني :-

 If TextBox1.Text > 10 Then
            MsgBox(TextBox1.Text & " > 10")
        Else : MsgBox(TextBox1.Text & " < 10")
        End If

وشغل المشروع, ثم اكتب في النص رقم أكبر من 10, مثلا 33
اضغط على الزر, سيظهر لك صندوق كالاتي :-

الان اكتب رقم أصغر من 10, مثل 9 :-

ما الذي يحصل هنا؟
الكود يقول

If TextBox1.Text > 10

اذا الرقم في نص1 أكبر من 10

Then
            MsgBox(TextBox1.Text & " > 10")

اذاً, أظهر صندوق نصي يه كذا وكذا...
والا...

Else : MsgBox(TextBox1.Text & " < 10")

أظهر صندوق فيه كذا وكذا...

هذا ليس كل شيء, بل يمكنك أيضا اضافة أكثر من شروط مثل :-

 ElseIf TextBox1.Text = 10 Then
            MsgBox(TextBox1.Text & " < 10")

فقط أضف Else if ثم الشرط و Then
​

 

[مرتضى اليوسف]

بارك الله فيك

 

[SaTaLiTe]

بارك الله فيك

مشكوووور اخووي على المجهود الرائع ومزيد من الابداع

موضوع في غاية الاهمية جزاك الله كل خير​

مشكورين اخواني على ردودكم الطيبةk:

 

[أبو ريفان]

من بدأ بالمكارم فليتمها ،، ولا أعتقد أن ستلايات سيترككم ويرحل ،،، وهذه بداية قوية له في هذا المنتدى المبارك ،،، وفق الله الجميع وكل عام وانتم الى الله أقرب ،،، وبلغنا وإياكم شهر رمضان وجعلنا وإياكم فيه من المقبولين ,,

 

[SaTaLiTe]

من بدأ بالمكارم فليتمها ،، ولا أعتقد أن ستلايات سيترككم ويرحل ،،، وهذه بداية قوية له في هذا المنتدى المبارك ،،، وفق الله الجميع وكل عام وانتم الى الله أقرب ،،، وبلغنا وإياكم شهر رمضان وجعلنا وإياكم فيه من المقبولين ,,

بارك الله فيك

 

[SaTaLiTe]

التعامل مع القوائم
Working with menus

القائمة هي كل ما نراها اعلى البرنامج مثل, File - Edit - View - History ....الخ
هناك, سوف نتعلم كيفية ادراج قائمة في فيجوال بيسك.

يمكن ايجاد أداة القائمة في مجموعة Menus & toolbars, تحت اسم اداة MenuStrip
اضف هذه الأداة الى الفورم, وأول شيء ستلاحظه هو ظهور الاداة اعلى الفورم

وأيضا, عند ادراج (اضافة) القائمة الى الفورم, فسيظهر في الشريط السفلي

حتى نقوم باضافة قوائم الى الاداة نعمل الاتي :-
- اضغط على الأداة.
- نضغط على Type here.
- نكتب النص كما نريد.

كما أنه يمكنك ايضا كتابة المزيد تحت القائمة "ابدأ"
فقط اضغط عليها وثم Type here واكتب النصk:
​

​

 

[Ebozid]

بارك الله فيك​

 

[SaTaLiTe]

بارك الله فيك​

شكرا لكk:

========================

مارأيكم, من اليوم وصادعا سيكون هناك مشاريع لفهم الأدوات أكثر واكثرk:

 

[أبو ريفان]

شكرا لكk:

========================

مارأيكم, من اليوم وصادعا سيكون هناك مشاريع لفهم الأدوات أكثر واكثرk:

الى الأمام وبقوة ياستلايات ونحن معك ،،،،،،،k:k:

 

[SaTaLiTe]

الى الأمام وبقوة ياستلايات ونحن معك ،،،،،،،k:k:

بارك الله فيك

==========

الان سندخل في عالم الأكواد والتعقيدات:hh::hh:

 

[DAMAR]

بارك الله فيك

 

[SaTaLiTe]

ايجاد أكبر رقم من مجموعة تتكون من 3 أرقام

هذا المثال سيفهمك كيفية التعامل مع الرياضيات في فيجوال بيسك وكيفية استخدام العمليات.
لللتذكرة :-
نستخدم + للجمع, - للطرح, * للضرب,/ للقسمة.
وأيضا نستخدم:-
> أصغر من
< أكبر من

اذاً, مشروعنا سيكون ان هناك 3 أرقام غير متساوية, والبرنامج سيظهر أكبر رقم فيهم.
بكل بساطة سنستخدم المتغير Integer.

أضف في المشروع الأدوات الظاهرة في الصورة:-

في كود Button1_Click أضف الاتي :-

Dim a As Integer
        Dim b As Integer
        Dim c As Integer

في هذا الكود قمنا بانشاء المتغيرات A,B,C وكل منها يمثل نص TextBox

 a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text

هنا قمت بربط كل متغير مع أداة.

الان, سنقوم باستخدام العمليات الرياضية.
نحن لدينا 3 أرقام.
يمعنى سنقارن 3 أرقام
وبالأخص, سنأخذ رقم ونقارنها مع رقمينk:
بكل بساطة :-
A > b & c
هكذا ستكون فكرة الكود, اولا سنأخذ A وسنقارنها مع B ثم نقارنها مع C
لعمل ذلك نستخدم AndAlso بمعنى (وأيضا).

 If a > b AndAlso a > c Then
            MsgBox("الرقم الاولي أكبر")
        End If

لاحظ أننا استخدمنا الشروط حتى تتوافق معها,
فهنا الترجمة هي :
اذا A أكبر من b وأيضا A أكبر من C
اذا اظهر صندوق نصي (الرقم الاولي أكبر)

ثم نتابع مع تغيير الحروف

 ElseIf b > a AndAlso b > c Then
            MsgBox("الرقم الثاني أكبر")
        ElseIf c > b AndAlso c > a Then
            MsgBox("الرقم الثالث أكبر")
        End If

وهناك استخدمنا Else لان لدينا اكثر من شرط

فيصبح الكود النهائي للحدث Button1_Click

Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        If a > b AndAlso a > c Then
            MsgBox("الرقم الاولي أكبر")
        ElseIf b > a AndAlso b > c Then
            MsgBox("الرقم الثاني أكبر")
        ElseIf c > b AndAlso c > a Then
            MsgBox("الرقم الثالث أكبر")
        End If

الان شغل المشروع, وضع في الرقم الاول 1
الرقم الثاني2
الرقم الثالث 3
واضغط قارن

وهو المطلوب#k:

الان لدينا مشكلة , الا وهي اذا كان هناك رقمين متساويين لن يحدث شيء, اذاً كيف نحل هذا الأمر؟؟

أترك البحث عن الكود لكم, العملية بسيطة جداk:
​

 

[SaTaLiTe]

بارك الله فيك

مرحبا بك:king:

 

[ابوٍعثمآإ‘نّ]

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