فيجوال بيسك: تعلم على الفيجوال بيسك.

[[-lelouch-]]

بسم الله الرحمن الرحيم



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



أحب أبدأ شرح الفيجوال بيسك مع أعضاء منتداي الحبيبة منتدى Msoms-Anime




المهم نبدأ بداية بسيطة جداً في البرنامج

الشرح مقسم إلى:
1- كيفية تشغيل البرنامج.
2- كيفية إضافة اداة من الأدوات الرئيسية.
3- كيف تكتب أوامر عادية.
4- قاعدة IF العادية.
5- قاعدة IF المطولة.
6- أخطاء قد تواجهك في الأوامر السابقة.
7- أكواد مهمة.
8- الواجبات.

[[-lelouch-]]

كيفية تشغيل البرنامج



جهاز عربي:

إبدأ >> كافة البرنامج >> Microsoft Visual Studio 6.0 >> Microsoft Visual Studio 6.0
English PC:
Start >> All Programs >> Microsoft Visual Studio 6.0 >> Microsoft Visual Studio 6.0
..:واجهة البرنامج:..








http://i239.photobucket.com/albums/ff265/uae__boy/mainVB6.jpg

[[-lelouch-]]

كيفية إضافة اداة من الأدوات الرئيسية



طبعاً بعد تشغيل البرنامج نلاحظ وجود قائمة بإتجاه اليسار

وهو كالتالي.
http://i239.photobucket.com/albums/ff265/uae__boy/631ecfa9.jpg





نحن بنأخذ أهم الأدوات وهم (زر Command , نص Text , ليبل Label ).

http://i239.photobucket.com/albums/ff265/uae__boy/1-9.jpg





مثل في الصورة.

يوجد 3 بإتجاه اليمين و 3 بإتجاه اليسار و إلي هم من قائمة الأدوات.
من قائمة الأدوات نضغط على التيكست مرتين مثل لما تفتح ملف او برنامج
أو تضغط مرة و تحدد بالفورم
في واحد يقول ايش هو الفورم؟؟؟؟
انا اقول له شوف المصطلحات في الصورة التالية و بتعرف!
http://i239.photobucket.com/albums/ff265/uae__boy/1111.jpg





المهم

الأدوات يمكن تضيفها من عندك
هكذا
إضغط على Ctrl + T.
و بيطلع لك خيارات كثيييرة.
إختر أي واحد تريد و ضيفه و يكمن تضيف أدوات من النت لو ما كان عندك في الجهاز
المهم نحن ما نتكلم عن هالشغلة لأنها طويلة جداً جداً






-------------------------

نفذ التالي
1- افتح برنامج فيجوال بيسك.
2- ضيف اداة الCommand.
3- ضيف أداتين لل Text.






إنتهى

[[-lelouch-]]

كيف تكتب أوامر عادية


نبدأ بالضغط على زر Command مرتين << طبعاً إلي على الفورم.
بتظهر لنا شاشة ثانية
http://i239.photobucket.com/albums/ff265/uae__boy/2-9.jpg
المهم نكتب فيه



Text1.text = "لا إله إلا الله محمد رسول الله"



معني الكود
Text1 = اداة التيكست
.text = أمر للكتابة
"لا إلة إلا الله محمد رسول الله" = الكتابة


يعني الكود بدون كتابة



Text1.text = ""



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


المهم
اكتبو في شاشة الكود بالكامل







Private Sub Command1_Click()
Text1.Text = "لا إله إلا الله ... محمد رسول الله"
Text2.Text = "منتديات محمد شريف"
End Sub











ونرى النتيجة بالضغط على F5 باللوحة المفاتيح




انتهى

[[-lelouch-]]

4- قاعدة If
يوجد نوعين من قاعدة if
الأولى
قاعدة IF العادية ، يعني سطر واحد فقط و أمر واحد فقط.
مثل


If Text1.Text = "msoms" Then Text2.Text = "لا إله إلا الله محمد رسول الله"


أما عن الأمر المطول يعني أكثر من سطر وله قاعدة أيضاً
وهو



Private Sub Command1_Click()
If Text1.Text = "msoms" Then
Text2.Text = "لا إله إلا الله محمد رسول الله"
Command1.Caption = "أحسنت"
Command1.Enabled = False
MsgBox "الكلمة صحيحة"
End If
End Sub

المهم
اريد من الكل ان يعرف شو إلي استفاد من الكود الأخير هنا؟
طبعاً الأفضل إنك تكتب الكود بنفسك حتى تتدرب كيف تكتب الاكواد بسرعة.

الآن المفروض تضغط على F5 لكل مرة تغير الكود



ملاحظة
حتى تمسح الكلام الموجود في التكست مثل في الصورة إلي كان في الردود السابقة

http://i239.photobucket.com/albums/ff265/uae__boy/1-9.jpg

يعني ليبل لو كنت تريد تغير الكلمة من label1 إلى أي كلمة أخرى
تستطيع بطريقتين
الأولى و إلي هي الشائعة
من صوب اليمين نحصل قائمة أخرى وهي كالتالي

http://i239.photobucket.com/albums/ff265/uae__boy/3-3.jpg


طبعاً هنا انا ضغطت على الزر من الفورم و طلع لي خيارات
وانا اردت ان اغير الكلمة من Command1 إلى النتيجة
رحت لل Caption


اما التكست لازن نروح Text
وهو موجود تحت
لأنه مرتب ترتيب أبجدي



المهم الكود النهائي للمرة الأولى هي:




Private Sub Command1_Click()
If Text1.Text = "msoms" Then Text2.Text = "لا إله إلا الله محمد رسول الله"
End Sub




والكود النهائي للمرة الثانية هي:



Private Sub Command1_Click()
If Text1.Text = "msoms" Then
Text2.Text = "لا إله إلا الله محمد رسول الله"
Command1.Caption = "أحسنت"
Command1.Enabled = False
MsgBox "الكلمة صحيحة"
End If
End Sub






انتهى

[[-lelouch-]]

أخطاء قد تواجهك في الأوامر السابقة


همممممم
لا أطن أن هنالك أي خطأ


لكن ما المشكلة في البرنامج


يوجد خطأ واحد
و أنا تعمدت إن أحطه في الموضوع حتى يفهم الجميع...


الخطأ ليس في الكود طبعاً



واحد يقول وين الخطأ؟؟؟؟


انا اقوله
جرب تشغل البرنامج
و اكتب msoms في الخانة الأولى


اوكي اضغط على النتيجة أو الزر (Command)


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


المهم
الخطأ يكون لما يكون التكست فاضي!!
او أحد كتب الكلمة بسرعة
مثلاً
انا طلبت ان الواحد يكتب msoms
تخيل انه كان مستعجل و كتب باللغة العربية


ةسخةس
او كتب أي كلمة ثانية
طبعاً البرنامج بيطلع خطأ و بيتسكر...


الحل مع الشرح
أولا بعد ما كتبنا الكود



Private Sub Command1_Click()
If Text1.Text = "msoms" Then
Text2.Text = "لا إله إلا الله محمد رسول الله"
Command1.Caption = "أحسنت"
Command1.Enabled = False
MsgBox "الكلمة صحيحة"
End If
End Sub



الكود ما فيه ولا خطأ
الكود يفعل الاشياء التالية وهم
1- لما تكتب msoms في التكست 1
ثم ضغطت على الرز
سوف يتكون
التكست 2 بنكتب فيه (( لا إله إلا الله محمد رسول الله ))
و الزر يتغير من النتيجة إلى كلمة أحسنت
و الزر لا تستطيع الضغط عليه مرة ثانية


الحل
بعد كتابة الكود و قبل End if << و إلي هو ينهي عملة الشرط
لازم تكتب Else
Else يعني أخرى
يعني أشياء اخرى ما طابقت الشرط و إلي هو msoms << في الخانة الأولى
يكون التالي



Else
msgbox "يوجد خطأ في الكلمة"
Text1.text = ""
End If



الكود النهائي هو



Private Sub Command1_Click()
If Text1.Text = "msoms" Then
Text2.Text = "لا إله إلا الله محمد رسول الله"
Command1.Caption = "أحسنت"
Command1.Enabled = False
MsgBox "الكلمة صحيحة"
Else
MsgBox "يوجد خطأ في الكلمة"
Text1.Text = ""
End If
End Sub




معنى الكود بالكاااامل


لو التكست الاول انكتب في msoms
افعل التالي
التكست التالي "لا إله إلا الله محمد رسول الله"
رسالة لمستعمل البرنامج : "الكلمة صحيحة"
إلغاء الزر
وإلا
رسالة لمستعمل البرنامج: يوجد خطأ في الكلمة
التكست الاول : مسح الكلمات المكتوبة فيها




انتهى

[[-lelouch-]]

أكواد مهمة







Set X = CreateObject("InternetExplorer.Application")
X.Navigate "http://www.msoms-anime.net (*********************************"
X.Visible = True






End



يضيف لكم الأكواد بين الحين و الآخر


انتهى

[[-lelouch-]]

الواجب الأول..


حمل التالي و طبقة و ارفعه على
http://megaup.110mb.com


للتحميل إضغط هنا (http://uaevboy.googlepages.com/msomshomework1.exe)


واكتب اسمك هناك (النك نيم)
و انا بشوف الأعمال
ملاحظة :
يرجى تنبيهي بالخاص


ولأهل السعودية
لو كان ميجا ابلود محجوب
أتمنى أن يكون الرفع الرفع على زر شير
www.zshare.net (http://www.zshare.net/)


و شكراً

[مقناص]

مشكوووووووووووور وبارك الله فيك
شرح راااااااااااااائع
ومجهود اكثر من رااااااااااااااااااااااااااااااااااااااااااائع

[Tenshi-San]

يعطيك العاآآآفيه على الدرس :)

جاآري التطبيق ..~> الإختبار السبت بنفس هالجزء :(

[pein-killer]

مشكور اخوي على الشرح الرائع ^^

[[-lelouch-]]

لول موضوعي القديم >_<"


يعطيك العاآآآفيه على الدرس :)

جاآري التطبيق ..~> الإختبار السبت بنفس هالجزء :(
بالتوفيق :)

شكراً على المرور :D

[Electrical]

ما شآء الله .. يعطيك العآفية .. جهد رآئع ~