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

[[-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
..:واجهة البرنامج:..

[[-lelouch-]]

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

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

وهو كالتالي.

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

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

يوجد 3 بإتجاه اليمين و 3 بإتجاه اليسار و إلي هم من قائمة الأدوات.
من قائمة الأدوات نضغط على التيكست مرتين مثل لما تفتح ملف او برنامج
أو تضغط مرة و تحدد بالفورم
في واحد يقول ايش هو الفورم؟؟؟؟
انا اقول له شوف المصطلحات في الصورة التالية و بتعرف!

المهم

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

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

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

إنتهى

[[-lelouch-]]

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

نبدأ بالضغط على زر Command مرتين << طبعاً إلي على الفورم.
بتظهر لنا شاشة ثانية

المهم نكتب فيه

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 لكل مرة تغير الكود



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



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

طبعاً هنا انا ضغطت على الزر من الفورم و طلع لي خيارات
وانا اردت ان اغير الكلمة من 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)

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

المهم
الخطأ يكون لما يكون التكست فاضي!!
او أحد كتب الكلمة بسرعة
مثلاً
انا طلبت ان الواحد يكتب 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

للتحميل إضغط هنا

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

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

و شكراً

[مقناص]

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

[Tenshi-San]

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

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

[pein-killer]

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

[[-lelouch-]]

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

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

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

بالتوفيق

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

[Electrical]

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