تعلم البرمجه بالفيجوال بيسك 6 خطوه بخطوه مع الشرح الكامل من البدايه الى الاحتراف

بسم الله الرحمن الرحيم
والصلاه والسلام على اشرف الخلق سيدنا محمد خاتم الانبياء والمرسلين


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



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

اخوتي الكرام

اليوم باذن الله نبدا معكم رحله الفيجوال بيسك
وهى ان شاء الله تبداء من الصفر
الى ان يشاء الله


الفهرس العام


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الدرس الاول

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




الدرس الثانى

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


الدرس الثالث

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



الدرس الرابع

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




الدرس الخامس

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

السادس

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


السابع

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



الثامن

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

التاسع


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

العاشر

Cobmo Box
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


الحادى عشر
Message Box

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]





[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]






[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]






[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]








[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]





[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]





[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]







[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




































ملحوظه لكل
مشروع source code
يكون فى مشاركه مستقله









اخوانى الكرلم
قبل البدء فى شرح واجه البرنامج يجب معرف
الفيجوال بشكل عام لمن لا يعرفه

وهذه انسب مقدمه
اضعه لكم وهى من كتاب للفيجوال بيسك







تاريخ الفيجوال بيسك







لغة البيسك المرئي
VISUAL BASIC تعتبر فى الوقت الحالى من أسهل وأبسط وأقوى لغات البرمجة
المستخدمة تحت بيئة النوافذ WINDOWS ورغم أن لغة الفيجوال بيسك سهلة وممتعة
إلا أنك تستطيع كتابة برامج قوية باستخدامها.







فهي تمكن المبرمج من
تطوير وإنتاج التطبيقات المختلفة في وقت قصير، وبكفاءة عمل عالية ،وتندرج
لغة Visual Basic تحت قائمة لغات الأحداث المحركة Object Oriented
Languages ، وهذا يعني أن ما يحدثة المستخدم من أفعال مثل ضغط أحدالمفاتيح
أو نقر زر الماوس يؤدي إلي تنفيذ الدوال المخصصة لذلك وبذلك يكون مستخدم
البرنامج هو المسؤل عن ما يحدث ومتى يحدث ؟







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





لقد قامت
شركةمايكروسوفت بتصميم فيجوال بيسك بناءً على لغة البرمجة بيسك والمصممة
خصيصاً للمبتدئين في البرمجة نظراً لسهولتها على عكس اللغات التي كانت
متوفرةحينذاك مثل الكوبول وفورتران و لغة التجميع Assembly .






فأصل لغة فجوال بيسك هى
لغة بيسك التي ظهرت في كلية دارتماوث Dartmaouth علي يد جون كيمني John
Kemeny و توماس كيرتز Thomas Kurtz عام 1963م و قدأصبحت بسرعة فائقة من
أشهر و أسهل لغات البرمجة بل لم تقف عند هذا فحسب فأصبحت كلغة تعليمية
تدرٌس في المعاهد و الكليات و الجامعات و بدأ انتشارها في السبعينات




ثم أخذت هذه اللغة في
التطور الدائم مع المحافظة على سهولةاستخدامها و بساطتها و كان الإصدار
الأول لهذه اللغة عام 1991 م ثم كان الإصدار الثاني منها عام 1992 م ثم كان
الإصدار الثالث عام 1993 ومن ذلك الوقت تعاقبت اصدارات كثيرةمنها ،
الإصدار السادس (Visual Basic 6.0) وهو مع مجموعة من اصدارات شركة
مايكروسوفت التي اسمته الان فيجوال ستديو 6.0 (Visual Studio 6.0) وبعد ذلك
أصدرت مايكروسوفت اصدارها الجديد من لغة فيجوال بيسك هو الاصدار (Visual
Basic .Net)

واول شئ هو اعداد النسخه وتثبيتها على الجهاز

بسم الله نبدا الدرس

نفتح النسخه الخاصه بنا على جهاز الكمبيوتر الخاص بنا


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

كود:


كود:


كود:


كود:

Private Sub Form_Load()
Timer1.Interval = 100
End Su


b
ملحوظه

بعد كده هاكتب الكود من غير ما اقول هانكتبه فين لان المفروض ان احنا كده
عرفنا ازاى على الاقل نقرءه الكود ونعرف ده بيتحط فين وده بيتحط فين
نضغط دبل كليك على اده الوقت
نكتب هذا الكود

Private Sub Timer1_Timer()
Label1.Left = Rnd * Form1.Width
Label1.Top = Rnd * Form1.Height
Label2.Left = Rnd * Form1.Width
Label2.Top = Rnd * Form1.Height
Label3.Left = Rnd * Form1.Width
Label3.Top = Rnd * Form1.Height
Label4.Left = Rnd * Form1.Width
Label4.Top = Rnd * Form1.Height
End Sub


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Rnd =random=عشوائي


يعنى حرك اليبيل فى اتجهات عشوائيه
كود سهل ومش صعب
ثم نضغط تشغيل
ولمزيد من التجميل ممكن نعمل ايه نخلى اتنين ليبيل افقى وراسى(2 واقفين واتنين نايمين )
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
وفى امثله نخلص ده واشوف التطبيق وناخد كمان وندخل فى غيره على طول ان شاء الله انا عارف انه التايمر طول معانا

السلام عليكم ورحمه الله وبركاته



موضوعنا اليوم عن scrollbar
ومثال اخر له
وهو تغير لون الفورم او اى كائن على الفورم حسب رغبتنا

ننشى مشروع جديد ونضيف اليه
1 scroll bar )مش فارق افقى او راسى(
1fram
1picturebox
1timer

HScroll1.LargeChange = 5
HScroll1.Min = 1
HScroll1.Max = 15
HScroll1.Value = 1





احنا طبعا عارفين ان احنا ممكن نغير فى الخصائص من شاشه الكود




ونضغط دبل كليك على الأسكرول بار
ونكتب الكود ده

Private Sub HScroll1_Change()
Frame1.BackColor = QBColor(Rnd * 15)
Form1.BackColor = QBColor(Rnd * 15)
Picture1.BackColor = QBColor(Rnd * 15)


End Sub



وده لتغير لون الفورم على حسب الوان كويك بيزك (تم شرحها فى الدرس السابق)
وتكون عشوائيه

طيب التايمر ده لازمته ايه ابدا ده علشان مننساش الدروس اللى قبل كده ونضبف ليه الكود ده

Private Sub Timer1_Timer()
Picture1.Top = Rnd * Form1.Height
Picture1.Left = Rnd * Form1.Width
Frame1.Top = Rnd * Form1.Height
Frame1.Left = Rnd * Form1.Width
End Sub

وده لتحريك الصوره والفرام اللى احنا حطينه بشكل عشوائى على الفوره




[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]






كود:

Label1.Top = -VScroll1.Value


قمه العنوان (الليبل) تساوى – قيمه البار
اى ان كل ما نقص البار تحرك العنوان

السلام عليكم ورحمه الله وبركاته

درس اليوم مع اده CheckBox
تشيك بوكس

خانه اختيار

وهى تكاد تكون من اسهل الادوات

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

ونضع به


2 تايمر
1 تشيك بوكس

[URL=http://imageshack.us][/url]


ونكتب فى الحدث لود للفورم

ان التايمر ةاحد واثنين يساوى 100

Private Sub Form_Load()
Timer1.Interval = 100
Timer2.Interval = 100
End Sub




وخاصيه Enabled
False

للاثنين
ونكتب فى تايمر1
هذا الكود

[URL=http://imageshack.us][/url]

Private Sub Timer1_Timer()
Form1.Left = Form1.Left + 50
End Sub


شرح الكود عند بدء التايمر بالعمل يقوم بتحريك الفورم
الفورم من اليسار = الفورم من اليسار +50
(50تساوى مقدار الخطوه الواحد )
اى تذهب الفورم فى اتجاه اليمين لان القيمه هنا موجب اى الى اتجاه اليمين



وفى التايمر 2 هذا الكود



[URL=http://imageshack.us][/url]

Private Sub Timer2_Timer()
Form1.Left = Form1.Left - 50

End Sub


شرح الكود عند بدء التايمر بالعمل يقوم بتحريك الفورم
الفورم من اليسار = الفورم من اليسار -50
(50تساوى مقدار الخطوه الواحد )
اى تذهب الفورم فى اتجاه اليسار لان القيمه هنا سالبه اى الى اتجاه اليسار


وفى التشيك بوكس
نكتب هذا الكود



[URL=http://imageshack.us][/url]

Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
If Check1.Value = 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If


شرح الكود
اذا كان قيمه التشيك بوكس = 1 اذان

(القيمه 1 هنا تساوى True)


تشغيل التايمر1 = حقيقى( اى تشغيل)
تشغيل التايمر2 = زائفه (اى ايقاف)
نهايه اذا الجمله الشرطيه
جمله شرطيه اخرى
اذا كان قيمه صندوق الاختيار = 0 اذن

تشغيل التايمر1= ايقاف
تشغيل التايمر 2=تشغيل
نهايه اذا

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

وممكن ايضا اننغير اسم صندوق الاختيار يعنى فى حاله تحركه اليمين نكتي اسمه تحرك لليمين ومثله فى اليسار


مثال سهل وجميل ويا ريت لو تكملو با قى الاتجهات فوق وتحت يعنى

السلام عليكم ورحمه الله وبركاته



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

مع الدرس


Option Button
زر اختيار





وظيفه الاده هى اختيار خيار واحد من عده خيار وهى شبيها
Check Box

ولكن Check
يمكنك من اختيار اكثر من خيار
ولكن اده اليوم تمكنك من اخيار احد الخيارت





ننشئ مشروع جديد كالعاده ونضع به
3check Button
3image
فرضا


ونضع الصور فوق بعض

بهذا الشكل





ونكتب اسماء ازرار الاختيار

1- صوره رقم واحد
2- صوره رقم اتنين
3- صوره رقم تلاته


نحن نعرف الشكل العادى لزر الاختيار ولكن يمكننا ان نغير شكله ليصبح مثل شكل
Command Button(المفتاح)





ثم نقوم بتحميل صوره لكل اده من اده الصوره
اما عم طريق الكود كما تعلمنا او عن طريق صندوق الخصائص (الطريقه السهله)



وهذه صوره لتذكيركم





اذا كانت الصوره كبيره يمكنك ان تنشط الخاصيه
Strech


بعد ان قمنا بتحميل الثلاث صور

نجعل خاصيه Visible False
حتى لا يظهرو
ونضغط دبل كليك على اول زر


ونكتب هذا الكود








كود:


Private Sub Option3_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End Sub





ونكتب هذا فى الثانى

Private Sub Option2_Click()
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
End Sub


وفى الثالث






كود:


Private Sub Option3_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End Sub




ونشغل البرنامج لنجد اذا ضغطنا على زر فإ نه يقوم بالغاء التاشير من على الزر الاخر












ان شاء الله ممكن انزل درس تانى الهارده عشان كده طوالنا فى الادوات

ونحاول ناخد باقى الحاجه

السلام عليكم ورحمه الله وبركاته


Shape

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وهى لرسم شكلى هندسى فى المشروع

من اشكال الشاب (الشكل)
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وهذه هى اشكاله

وهذه الخاصيه جديده بالنسبه لنا وايضا خاضيه Fill Style



وهذه لشكل حشو الشاب

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


وهذه اهم ما يهمنا الان

والان ننشى مشروع جديد ونضع به ليبل وشاب و3تايمر


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

نضغط دبل كليك على الفورم ونكتب فى الحدث لود
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Private Sub Form_Load()
Label1.BackStyle = transparnt
Label1.Caption = "" اكتب ما تريد هنا
Timer1.Interval = 100
Timer2.Interval = 200
Timer3.Interval = 300
End Sub





الجديد لنا فى هذا الكود هو
Label1.BackStyle = transparent
وهى لشفافيه خلفيه اليبل




فى كود التيمر اكتب هذا







[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Private Sub Timer1_Timer()
Shape1.Shape = 2
Shape1.FillColor = vbRed
Shape1.BorderColor = vbRed
Shape1.BackColor = vbGreen
Label1.ForeColor = vbBlack
End Sub






شرح الكود
بدايه يجب ان نجل خاصيه حشو الشاب مصمت

السطر الاول فى الكود وهو لتغير شكل الشاب
الى الشكل رقم 2 ويمكننا ان نكتب رقم الشكل هنا بدل من اسمه
ورقم 2 هنا يساوى الشكل البيضاوى
السطر الثانى لون حشو الشاب يساوى احمر
السطر الثالث لون اطار الشاب يساوى احمر
السطر الثالث لون خلفيه الشاب تساوى اخضر
(الخلفيه غير الحشو ويمكنك التجربه)
السطر الرابع لون نص اليبل اسود

وباقى الاكواد نفس الشئ

Private Sub Timer2_Timer()

Shape1.Shape = 4
Shape1.FillColor = vbGreen
Shape1.BorderColor = vbBlue
Shape1.BackColor = vbRed
Label1.ForeColor = vbBlue
End Sub


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Private Sub Timer3_Timer()
Shape1.Shape = 5
Shape1.FillColor = vgreen
Shape1.BorderColor = vbBlue
Shape1.BackColor = vbBlue
Label1.ForeColor = vbBlack
End Sub




وقم بتشغيل البرنامج


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

السلام عليكم ورحمه الله وبركاته

طبعا مش هانشرح اده line
لانه اولا اذا شرحناها الان سوف نهدر حقها ونقول انها لا تستعمل الا فى عمل خط لفصل
مجموعه عن الاخرى
ولكنى اريد ان اعرفك كيف نقوم بترحيكها لعمل ساعه عقارب مثلا

اما عن اده data و ole


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

ودلوقت مع
اده Menu Editor


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



او يمكنك الضغط على Ctrl+E
تهر لنا الشاشه التى نراها الان فيها
خانه باسم Caption
Name
وهما اهم اثنين لدينا
وطبعا احنا عارفين ان الـCaption للاسم الذى يظهر للمستخدم
اما Name فهو للاسم الذى نستخدمه فى شاشه البرمجه

نكتب مثلا فى خانه caption
File
وفى الاسم نكتب m1
اختصار Menu 1
او اى اسم تريده

تجد ان المؤشر تحرك من مكانه ونزل تحت وان الاسم والعنوان اصبحو فارغين

(Caption&Name)



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]




ونضيف قائمه اخرى باسم view
واسم tools



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

والان نضيف
Open File
New File

والان صبح لدينا هذا الشكل ولكن دائما ما تقع Open File &New File
تحت قائمه File
طيب عايزين ندخلهم جوها ازاى


نعلم على القائمه اللى احنا عايزنها تدخل جوه القائمه File

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



ونعمل نفس الخطوات مع القائمه New File


ولو عايزين نشيلها من القائمه اللى هيه فيها ندوس على المفتاح اللى جنبه

وممكن نعمل قائمه فرعيه من القائمه الفرعيه
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

طيب عايزين نعمل اختصار ليها على الكيبورد نعمل ايه


من الكومبو بوكس الخاصه Shortcut

ونختار الاختصار المناسب لينا على حسب وظيفه الالقائمه مثلا


القائمه Open File نختار ليه الاختصار ده


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

دلوقت فى عندنا مثلا فى الفيجوال لو ضغطنا زر Alt مع اول حرف من الحروف المشروطه نفتح القائمه
برضو مش فاهمين نوضح اكتر



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

كل قائمه من دول لو نلاحظ هانلاقى تحيها خط الخط ده اختصار على الكيبورد
يعنى بو دوسنا زر
Alt مع الحرف الى تحتيه
شرطه القائمه هاتفتح

طيب ازاى نعمل الكلام ده فى البرنامج بتاعنا

سهل جدا نكتب علامه & قبل الحرف المطلوب اضافته

طيب نجرب
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

Private Sub m4_Click()
Form2.Show
End Sub

كود:


Private Sub m6_Click()
MsgBox " هل تود الخروج فعلا ", vbYesNo, "رساله الخروج"

End Sub

المشروع فيه شويه معلومات مش وحشه


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

Private Sub Command1_Click()
x = Text1.Text
Label1.Caption = Len(x)
Label2.Caption = UCase(x)
Label3.Caption = LCase(x)
Label4.Caption = LTrim(x)
Label5.Caption = RTrim(x)
Label6.Caption = Right(x, 5)
End Sub


Left
وهى ايضا لاخذ عدد من الحروف ولكن من ناحيه اليسار

Mid
Middle
من المنتصف ايضا تستطيع ان تحصل على اى عدد من الحروف
مثلا عايزين 3 حروف ابتداء من الحرف الرابع

ولان الكتابه بالعربيه بدء من جه اليمين نلاحظ انه كتب فقط ثلاثه حروف ابتداء من الحرف الرابع وكتب المسافه على انها حرف


كود:

السلام عليكم ورحمه الله وبركاته

الثوابت

وهى من اسمها يتضح لنا انها قيمه ثابته عكس المتغيرات
احنا كنا بندى للفيجوال رمز زى اكس ونقوله ان ده متغير اى انه قابل للتغير اما الثابت فاحنا بنكتبه فى البرنامج
يعنى ما يتفعش نقولو قيمه اكس بتساوى تكست بوكس
مش هيرده

طبعا اكيد فى ناس كتير قابلها برنامج اسمه تحويلات
البرنامج بيعتمد على الثوابت
وظيفه البرنامج
بيحول قياسات واوزان ومساحات
يعنى انا شغال بالكيلو متر والمقاسات اللى بيتجيلى بالمتر يبقى لازم احولها الى كيلو ميتر علشان اعرف احسبها مع حسابتى
طيب انا شغال بالكيلو جرام وبيتجلى اوزان بالجرم لازم احولها الى كيلو جرام علشان برضو اقدر احسبها

ناخد مثال صغير على الثوابت وهى اسهل بكتير من المتغيرات

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


انشئ مشروع جديد واضف به


مفتاح و2تكست بوكس


ونكتب فى الجينرال




كود:


Const x = 1000
Option Explicit




الالف دى بتاعت ايه دى بتاعت الكيلو لان احنا عارفين ان الكيلو بيساوى الف جرام

يبقى لازم نقسم على الف ولو شغالين بالجرام والاوزان بالكيلو يبقى نضرب فى الف




لو تلاحظو احنا هنا حددنا قيمه اكس يعنى القيمه ثابته مش قابله للتغير

نكتب فى الكومند واحد

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) / x

End Sub






طبعا فاكرين val
دى بتاعت ايه


نجرب كده ونشوف ايه بيحصل هانكتب اى قيمه بالجرام هايحولها هو الى كيلو جرام مباشره

طيب ممكن نضيف مفتاح تانى ونحول من كيلو الى جرام

الشكل هايبقى كده



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


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



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


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


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

السلام عليكم ورحمه الله وبركاته

المصفوفات Array

والمصفوفه مثل المتغير ولكنها تكون اسرع فى التعامل اذا كان لدينا اكثر من متغير

بمعنى


اذا كان لدينا سجل موظفين نفرض فى مستشفى عام

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

نفرض ان لدينا عدد من الموظفين فى احد المكاتب نفرض انهم خمس اشخاص


ففى المتغير يجدب ان تعطى كل شخص منهم رمز مثل
Dim A
Dim B
Dim C
Dim D
Dim E
اما فى المتغير



كود:

Dim x (4)as integer






فلماذا قلنا هنا اربعه ولم نقل خمسه مع العلم ان عدد الموظفين خمسه

لان المصفوفه بتبدا من الصفر وليس من الواحد اذن اصبح العدد لدينا خمسه
ناخد مثال ثم نتابع الشرح

انشئ مشروع واضف فيه
2مفتاح
5تكست بوكس


فى التصريبحات نكتب الكود

Dim r(4) As String
Option Explicit








فى الحدث لود

Private Sub Form_Load()
r(0) = "الموظف الاول"
r(1) = "الموظف الثانى"
r(2) = " الموظف الثالث"
r(3) = " الموظف الرابع"
r(4) = " الموظف الخامس"
End Sub


لاحظ اثنا كتابه الكود انه يظهر لك رساله يوضح لك انك مسموح لك من رقم 0 الى رقم 4

Private Sub Command1_Click()
Text1.Text = r(0)
Text2.Text = r(1)
Text3.Text = r(2)
Text4.Text = r(3)
Text5.Text = r(4)

End Sub


وفى المفتاح الثانى امسح الحقول



ونشغل البرنامج هانلاقى ان الاسماء اتكبت فى الحقول
اذن قيمه R موجوده فى اى مكان فى المشروع نقدر نعمل اللى احنا عايزينو بيها


طبعا الطريقه دى اسهل من المتغيرات هاتقولو مش قوى الفرق مش كبير

طيب نشوف امكانيات المصفوفه اكتر

اولا احنا عرفنا اننا بنبدا من الصفر طيب لو حبينا نبدا من الواحد ينفع
طبعا ينفع

هنكتب كود صغير قبل كتابه المصفوفه

Option Base 1





ومعنه ابداء من رقم واحد

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

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

واعتقد انه مش محتاج لمثال


طيب فى طريقه احسن طريقه البدايه والنهايه
يعنى ايه اقدر اقول للمصفوفه تبدا منين وتنتهى فين يعنى ممكن تبداء من رقم 101 وتنتهى عند عند رقم 120

كده ولا بداءت من صفر ولا واحد ناخد مثال عليها



ونقول لها ابدا من رقم معين الى رقم اخر

مثال

Dim r(4 To As String
Option Explicit


وفى الحدث لود نكتب تعريف المصفوفه

Private Sub Form_Load()
r(4) = "absba"
r(5) = "damasgate"
r(6) = "bramjnet"
r(7) = "thegust2000"
r( = "prince of thedarkness"

End Sub





ودلوقت نقدر نضيف مفتاح لتغير قيمه التكست وفتاح تانى نكتب فى التكست اللى احنا عايزينه
ومفتاح نطبع بيه اللى فى التكست على الفورم ومفتاح نمسح بيه كل ده وكل دول طبعا ليكو انتو تعملوه لانها سهله




انتهى الدرس والدرس القادم بقيه المصفوفات
واول درس ان شاء الله Redim

السلام عليكم ورحمه الله وبركاته



Multidimensional Array



المصفوفه متعدده الابعاد



الدرس ده مهم جداً


لانه ممكن ياخد وقت منكم شويه فى الفهم لانه شبه صعب الشرح لكن مش صعب الفهم

وان شاء الله احول ابسطه ليكم




ايه هى المصفوفه متعدده الابعاد
اى ان لها اكثر من بعد

يعنى ايه

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

ينفع ف الفيجول طبعا ينفع


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

طيب ازاى

احنا اتفقنا على ان الجدول طول وعرض لكل مربع فى المصفوفه

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


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


فى ناس مش حابه الشرح على الشطرنج ومستصعبه الموضوع
طيب نشوف الاكسل طبعا كلناه عارفينه



برضو فيه ارقام وحروف

طيب لو اخترنا
مثلا من الحروف H
والارقام 8
مكان الخانه يبقى فين

تقريبا كده الشرح بقا واضح لو فى اى نقطه مش واضحه لا تتردد فى السؤال


دلوقت عايزين نعمل جدول زى اللى فى الصوره

نكتب ايه

اولاً اول رقم يكتب هو للطول (العمود) والثانى للعرض(الصف)


هذا بالنسبه لمصفوفه ثنائيه الابعاد
ويمكن ان تكون ثلاثيه
الابعاد او اكثر يمكن ان تصل الى 60 بعد تقريبا ولكن نحن نهتم بثنائيه
الابعاد ونادر جدا ما ان تحتاج ثلاثيه الابعاد
فما بالك ان تصل الى 60 بعد





والان مثال على مصفوفه ثنائيه الابعاد



نكتب فى قسم التصريحات


Dim x(2, 2) As String
هكذا اصبح لدينا عدد الصفوف 3 والاعمده 3
طبعا احنا عارفين ان المصفوفه بتبداء من صفر مش من واحد

يبقى كده عدد الخانات الموجوده عندى 9 خانات
3*3=9


طيب ازاى ندخل البيانات الى المصفوفه


سهله جدا احنا مش عايزين نعقد نفسنا من حاجه


نفرض ان احنا عندنا

جدول غيلب لعمال مصنع ما

نكتب عدد ايام الغياب والمتبقى من ايام الشهر


يبقى فى اول صف الاسماء والثانى ايام الغياب والثالث المتبقى من الشهر

طيب دلوق عايزن ندخل البينات بتاعتنا الى البرنامج ازاى سهله جدا



نكتب فى الحدث لود للفورم

x(0, 0) = "امـ الظلام ـير"
x(0, 1) = 15
x(0, 2) = 15
x(1, 0) = "absba"
x(1, 1) = 10
x(1, 2) = 20
x(2, 0) = "vip600"
x(2, 1) = 8
x(2, 2) = 22

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


نكتب فى المفتاح الخاص بعرض الداتا

الكود ده


Private Sub Command1_Click()
Text1.Text = x(0, 0)
Text2.Text = x(1, 0)
Text3.Text = x(2, 0)
Text4.Text = x(0, 1)
Text5.Text = x(1, 1)
Text6.Text = x(2, 1)
Text7.Text = x(0, 2)
Text8.Text = x(1, 2)
Text9.Text = x(2, 2)

End Sub






ولما نشغل البرنامج نلاقيه كل حاجه زى ما حنا عايزين بالضبط







نكمل بعدي علشان النوم خلاص مش قادر

وان شاء الله الدرس الجاى هنعرف redim تانى للمصفوفه مع اومر تانيه ان شاء الله
اشوفكو الدرس الجاى ان شاء الله

السلام عليكم ورحمه الله وبركاته


بعد غيبه طويله الان نتابع الدروس مع بعضنا تانى

والسبب
فى ان الجميع بيقبل على تعلم ربط قواعد البيانات مع الفيجوال لان سوق
العمل بيحتاج الى برامج عمل فى الهيئات والمصلح والشركات وكلها تعتمد على
قواعد البيانات وكلمه قواعد البيانات لا اقصد بها الاكسس فقط كما يعتقد
البعض وانما هى اكسس واوركل وsql
وغيرهم ولكن هم اشهر البرمج لصنع قواعد البيانات
وفى ناس تانيه تحب برامج النظام وانا
واحد منهم وبرامج النظام هى التى تخص نظام التشغيل الموجود على جهازك
كبرنامج لعرض الفيديو او تشغيل الاغانى او عرض صور وا التعديل
فيها.............. الى اخره
طيب يا ترى ايه العمل علشان نبقى
فاهمين ده وده ونعمل اللى احنا بنحبه وبرضو اللى سوق العمل محتاجه طبعا انا
بتكلم عن سوق العمل لان كلنا طالما بنحب حاجه نحب نشتغل فيها وطالما حبنا
البرمجه يبقى نحب نشتغل فيها او على الاقل نفهم ازاى نعمل برنامج لينا يكون
خاص بينا بدل ما نروح لشركه برمجيات وندفع الاف والكلام ده معرف لدى
الجميع ان البرامج الخاصه بتكون مكلفه
الكلام ده معناه اننا مش هنعرف قواعد البيانات لاء طبعا هنعرفها بس لما نعرف ازاى البرنامج بيشتغل على الجهاز
طيب احنا كنا خلاصنا اخر مره شرح الادوات الموجود فى الفيجوال طيب يا ترى دى كل الا دوات الموجوده ولا فى تانى طبعا فى تانى
طيب هما فين


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
By [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]



هنقف على صندوق الادوات وندوس كليك يمين زى ما هو موجود فى الصوره هاتطلع النافذه دى