Structure of control in Visual Basic 4

أشكال خاصة لعبارة DoèLoop

DoèLoop While

تقوم هذه الطريقة بتكرار الكود المرافق لها طالما بقي الشرط الموجود على يمين While محققا, وعند عدم تحققه فإن البرنامج يخرج من البنية إلى التعليمة التي تليها.

أي عملها مشابه لعمل WhileèWend تقريباً.

القاعدة العامة:

Do

  Statement1

  Statement2

  Statement..

Loop While Condition

حيث أنه يتم تكرير تنفيذ الكود الموجود بين كلمتي Do و Loop ثم يتم اختبار الشرط , وتعاد الكرة حتى عدم  تحقق الشرط Condition.ولنأخذ المثال التالي:

Structure of control in Visual Basic 3

عبارة DoèLoop

تقوم بنية التحكم هذه بالاستمرار في تكرار تنفيذ الكود المرافق لها.فبالتالي يجـــب على

المبرمج أن يضع الشرط الذي يؤدي إلى إيقافها ضمن الكود المرفق بها,وذلك باستخدام

التعليمة Exit Do.

يتم تكرار تنفيذ الكود المحصور بين Do وLoop,والقاعدة العامة هي:

 Do

  Statement1{May it is   Loop Exit Condition}

  Statement..

                                                                                                  Loop

ولنأخذ المثال السابق بعد تعديله

Private Sub Form_Load()

Dim Counter As Integer

Counter = 0

 Do

If Counter=6 Then Exit Do

 MsgBox Counter

 Counter = Counter + 1

 Loop

End Sub

Structure of control in Visual Basic 2

                                                       

                                                     Structure of control

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

عبارة Select Case

تستخدم هذه الطريقة في حال وجود عدة قيم  واحتمالات لعبارة معينة واحدة.

مثلا يقوم المستخدم بإدخال رقم أصغر من 5 فيقوم الحاسوب بطباعة  رسالة

بحسب الرقم المدخل,فعوضا عن تكرار استخدام عبارات If أو ElseIf فإننا

نقوم باستخدام Select Case.

نقوم بتحديد العبارة التي سترجع لنا القيمة وذلك بوضعها بعد عبارة Select Case

Structure of control in Visual Basic 1

Structure of control

مقدمة عن بنى التحكم


يمكن القول أن بنية التحكم هي طريقة نقل التحكم من مكان إلى آخر في الكود فمثلا يمكنك أن تأمر البرنامج أن يفعل جزء معين من الكود في حال تحقق شرط معين وأن يفعل جزءاً آخرا منه في حال عدم تحققه,كما يمكنك أن تأمر البرنامج أن يستمر في تكرار تنفيذ جزء من الكود حتى يتحقق شرط معين أو طالما بقي شرط معين محققاً..ويمكنك أن تترك البرنامج ينفذ التعليمات بالتسلسل( تعليمة تعليمة) وهي بنية التحكم الافتراضية.

اسئلة واجوبة فى الفيجوال بيسك

س1/ ما هي برمجة الحاسوب؟


هي إعطاء الحاسوب أوامر عن طريق كتابة الكود البرمجي بلغات البرمجة ويقوم الحاسوب بدوره بتحويل هذه 


الأوامر إلى مخرجات تفيد المستخدمين مثل البرامج.


س2/ ما هي أشهر لغات البرمجة؟


1-C++


2-Visual Basic


3- Baskal


4- C# sharp


5- baithon وغيرهم الكثير 

MsSendMail.ocx ارسال رسالة مجهوالة من الفيحوال بيسك بدون الونسكوك

MsSendMail.ocx

 كيف نصنع برنامج صغير لارسال الرسائل المجهولة MsSendMail.ocx


 سوف نستخدم في هذا البرنامج اداة جميلة من يد عربية والاداة رائعة جدا 
حيث انها تغنينا عن اداة الوينسوك . لا اريد الاطالة عليكم يلزمنا في هذا 
البرنامج برنامج الفجوال بيسك 6 , ثم اداة MsSendMail.ocx هذة الاداة لو مش هنلقيها داخل الفيجوال بيسك واظن احنا عرفنا ازاى نقدر نضع الادوات هذة على صندوق اللادوات اللى على الشمال فى البرنامج 
المهم نكتب كدة فى جوجل   MsSendMail.ocx  هنلاقيها على طول ونحملها على الجهاز 

Codes dealing with the records

اكواد التعامل مع السجلات 

                                                         ما هى اكواد التعامل مع السجلات ؟


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

SQL

لغة الاستعلام Sql

اذا أردت ان تتعامل مع قاعدة البيانات جيداً فعليك أن تعرف لغة التعامل معها SQL وهي تعني Structured Query Language لغة الإستعلام المركبة

بامكاننا تصنيف اوامر وعبارات لغة SQL الى صنفين

الاول هي عبارات لغة تعريف البيانات Data Definition Language إختصارها DDF.

والثاني هي عبارات لغة صيانة البيانات Data Manipulation Language إختصارها DML.

Some simple programs in Visual Basic 6 Part 6

تكملة بعض البرامج البسيطة فى الفيجوال بيسك 6

تعلم كيفية ربط قواعد البيانات من نوع اكسس بالفيجوال

بعد عمل قاعدة البينات قم بتحويلها الى تنسيق Access 97 بهذه الطريقة

بعد تحويلها

سنقوم بربطها بالفيجوال بيسك

اضف data 

(داتا كنترول) 

Some simple programs in Visual Basic 6 Part 5

تكملة بعض البرامج البسيطة فى الفيجوال بيسك 6

تصميم برنامج لنسخ الملفات

بعد الدخول للبرنامج

اضف عبر Ctrl+t

Microsoft Common Dialog Control 6.0

Some simple programs in Visual Basic 6 Part 4

تكملة بعض البرامج البسيطة فى الفيجوال بيسك 6

تصميم برنامج قارئ للميديا

بعد الدخول للبرنامج

اضغط على Ctrl+t

اختر Windows Media Player و Microsoft Common Dialog Control 6.0

اضف 1 كوماند و 1تكست بوكس والاداتين الجديدتين ليصبح هكذا

الكود 

Some simple programs in Visual Basic 6 Part 3

تكملة بعض البرامج البسيطة فى الفيجوال بيسك 6

تصميم متصفح انترنت بسيط

بعد الدخول للبرنامج

اضغط على Ctrl+t

واختر Microsoft Internet Control

قم باظافة الاداة الناتجة على الفورم و 6 كوماند و تكست بوكس

غير اسماء الكوماند بالترتيب كما في الشكل

Some simple programs in Visual Basic 6 Part 2

تكملة بعض البرامج البسيطة فى الفيجوال بيسك 6

3/ تصميم برنامج حماية بسيط

بعد الدخول للبرنامج سنغير بعض خصائص الفورم

اولا :

ثانيا: 

ثالثا: 

 ثم اضف التالي

Some simple programs in Visual Basic 6 Part I

بعض البرامج البسيطة فى الفيجوال بيسك 6

1/ تصميم برنامج آلة حاسبة بسيطة

ادخل  الى للبرنامج

ثم اضف 2 تكست بوكس وكوماند ولابل ونسقها حسب ذوقك

اضغط على الكوماند مرتين حتى تظهر النافذة الخاصة بالكود

اكتب التالي :

لتجميل شكل البرنامج skin

قبل البدء

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

ببرنامج المخازن يبعت لى تعليق وانا تحت امرة

طيب دلوقتى البرنامج جاهز ؟ يا ترى هنسيبة كدة ؟ لازم نعطى لة مظهر جمالى لة ؟ طيب الحل اية ؟؟؟؟؟؟

ما هو skin

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

 هيا تعتبر اداة جميلة بتعطى شكل جمالى لة

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

لتفعيل skn وذلك من خلال الضغط بزر الماوس الايمين على قائمة 

الاداوت سوف تظهر قائمة منبثقة فيها عدة اختيارات اختر منها الامر Components ثم اختر زر Browse واختر مسار

 الاداة ثم ضع علامة الصح بجانب اسم الاداة واختر Apply ولنبدء العمل بداية واكيد نقوم باضافة الاداة وذلك بالسحب والافلات على

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

التالي في حدث Form_Load

Form_Load
Skin1.LoadSkin App.Path & "\1.Skn"
Skin1.ApplySkin Me.Hwnd
End Sub  

شرح الكود السابق : - 

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

 خلال اسنخدام الامر App.Path والتي ترجع لنا قيمة نصية هي مسار مجلد البرنامج (فرضت ان الاسكين موجود في مجلد

البرنامج)

وبعدذلك تليه / واسم الاسكين ثم امتداده

اما في السطر الثاني قمنا بتطبيق الاسكين وذلك من خلال الامر Apply skin