الدرس الثالث كيفية استخدام الأدوات البرمجية للغة (عناصر التحكم)

برنامج الترحيب

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

كيفية استخدام الأدوات البرمجية للغة
الشكل 1-1
برنامج الترحيب.

 

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%a7%d9%84%d8%a8%d8%b1%d9%85%d8%ac%d9%8a%d8%a9-%d9%84%d9%84%d8%ba%d8%a9-%d8%b9%d9%86%d8%a7%d8%b5%d8%b1-%d8%a7%d9%84%d8%aa%d8%ad%d9%83%d9%85/" rel="tag">البرمجية للغة عناصر التحكم</a>

الدرس الثانى الفصل الثانى أساسيات كتابة الكود

الدرس الثانى


الفصل الثانى

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

 

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%a3%d8%b3%d8%a7%d8%b3%d9%8a%d8%a7%d8%aa/" rel="tag">أساسيات</a>، <a href="https://max4arab.com/tag/%d8%a7%d9%84%d8%ab%d8%a7%d9%86%d9%89/" rel="tag">الثانى</a>، <a href="https://max4arab.com/tag/%d8%a7%d9%84%d8%af%d8%b1%d8%b3/" rel="tag">الدرس</a>، <a href="https://max4arab.com/tag/%d8%a7%d9%84%d9%81%d8%b5%d9%84/" rel="tag">الفصل</a>، <a href="https://max4arab.com/tag/%d8%a7%d9%84%d9%83%d9%88%d8%af/" rel="tag">الكود</a>، <a href="https://max4arab.com/tag/%d9%83%d8%aa%d8%a7%d8%a8%d8%a9/" rel="tag">كتابة</a>

الدرس الأول مذكرة فى الفيجوال بيسيك للمبتدئين

الدرس الأول

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

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%a7%d9%84%d8%a3%d9%88%d9%84/" rel="tag">الأول</a>، <a href="https://max4arab.com/tag/%d8%a7%d9%84%d8%af%d8%b1%d8%b3/" rel="tag">الدرس</a>، <a href="https://max4arab.com/tag/%d8%a7%d9%84%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84/" rel="tag">الفيجوال</a>، <a href="https://max4arab.com/tag/%d8%a8%d9%8a%d8%b3%d9%8a%d9%83/" rel="tag">بيسيك</a>، <a href="https://max4arab.com/tag/%d9%81%d9%89/" rel="tag">فى</a>، <a href="https://max4arab.com/tag/%d9%84%d9%84%d9%85%d8%a8%d8%aa%d8%af%d8%a6%d9%8a%d9%86/" rel="tag">للمبتدئين</a>، <a href="https://max4arab.com/tag/%d9%85%d8%b0%d9%83%d8%b1%d8%a9/" rel="tag">مذكرة</a>

فوائد متنوعة لكافة المبرمجين (3)

جعل البرنامج يتوقف عن الإستجابة لفترة معينة

إنسخ السطر التالي إلى قسم التصريحات General

Private Declare Sub Sleep Lib 'kernel32' (ByVal dwMilliseconds As Long)

أكتب مايلي في Command1
 

Sleep 3000

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/3/" rel="tag">3</a>، <a href="https://max4arab.com/tag/%d8%a7%d9%84%d9%85%d8%a8%d8%b1%d9%85%d8%ac%d9%8a%d9%86/" rel="tag">المبرمجين</a>، <a href="https://max4arab.com/tag/%d9%81%d9%88%d8%a7%d8%a6%d8%af/" rel="tag">فوائد</a>، <a href="https://max4arab.com/tag/%d9%84%d9%83%d8%a7%d9%81%d8%a9/" rel="tag">لكافة</a>، <a href="https://max4arab.com/tag/%d9%85%d8%aa%d9%86%d9%88%d8%b9%d8%a9/" rel="tag">متنوعة</a>

فوائد متنوعة لكافة المبرمجين (2)

كيفية ابطال عمل مفاتيح CTRL+ALT+DEL

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

ويتم ذلك باستخدام الأسطر التالية

ضع التعريفين التاليين في قسم التعريفات Declarations

Private Declare Function SystemParametersInfo Lib _
'user32' Alias 'SystemParametersInfoA' (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Call DisableCtrlAltDelete(True)

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%a7%d9%84%d9%85%d8%a8%d8%b1%d9%85%d8%ac%d9%8a%d9%86/" rel="tag">المبرمجين</a>

فوائد متنوعة لكافة المبرمجين (1)

طريقة جعل برنامجك فوق النوافذ الأخرى (دوماً في المقدمة)
إنسخ الشيفرة التالية إلى Module

Public Declare Function SetWindowPos Lib 'user32' (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

ثم أضف الشيفرة التالية في حدث التحميل (Load) للفورم
 

Dim vWindowPos As Long
vWindowPos = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 1 Or 2)

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d9%81%d9%88%d8%a7%d8%a6%d8%af-%d9%85%d8%aa%d9%86%d9%88%d8%b9%d8%a9-%d9%84%d9%83%d8%a7%d9%81%d8%a9-%d8%a7%d9%84%d9%85%d8%a8%d8%b1%d9%85%d8%ac%d9%8a%d9%86-1/" rel="tag">فوائد متنوعة لكافة المبرمجين (1)</a>

(3) الطباعة دون تقرير SQL

أخذنا في الدرس الماضي طباعة قاعدة البيانات عن طريق التقرير . والأن سوف نتحدث عن كيفية الطباعة دون أي تقرير أو أدوات أخرى.

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

باستخدام كائن الطباعة Printer Object

أولاً إفتح المشروع الذي كنت تعمل به في الدروس السابقة

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/3-%d8%a7%d9%84%d8%b7%d8%a8%d8%a7%d8%b9%d8%a9-%d8%af%d9%88%d9%86-%d8%aa%d9%82%d8%b1%d9%8a%d8%b1-sql/" rel="tag">(3) الطباعة دون تقرير SQL</a>

(1) لغة الإستعلام SQL

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

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

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

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

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d9%84%d8%ba%d8%a9-%d8%a7%d9%84%d8%a5%d8%b3%d8%aa%d8%b9%d9%84%d8%a7%d9%85-sql/" rel="tag">لغة الإستعلام SQL</a>

(2) عمل تقرير طباعة SQL

عمل تقرير طباعة

من الأساسيات للعامل مع قواعد البيانات عملية الطباعة . فاذا عملت برنامج محاسبة بسيط كبرنامج مبيعات فإنك تحتاج إلى عملية طباعة فاتورة مثلاً

وذلك يتم بشكل بسيط عن طريق تقرير الطباعة Data Report أو عن طريق كائن الطباعة Printer Object

وفي هذا الدرس سنتحدث عن تقرير الطباعة Data Report .

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%b9%d9%85%d9%84-%d8%aa%d9%82%d8%b1%d9%8a%d8%b1-%d8%b7%d8%a8%d8%a7%d8%b9%d8%a9-sql/" rel="tag">عمل تقرير طباعة SQL</a>

عرض السجلات والإضافة والإزالة

قواعد البيانات – عرض السجلات والإضافة والإزالة

في الدرس السابق تعلمنا كيفية عرض البيانات كل سجل لوحده في أدوات Text وعرفنا كيفية الإضافة والحذف والتعديل وكيفية البحث عن سجل.

في درسنا اليوم سوف نتعلم كيفية عرض كافة قاعدة البيانات مرتبة في جدول . ركز معنا من فضلك:

يمكنك عرض البيانات في List Box ولاكن هذه الطريقة ليست جيدة:

في Timer : ضع الكود التالي:

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%b9%d8%b1%d8%b6-%d8%a7%d9%84%d8%b3%d8%ac%d9%84%d8%a7%d8%aa-%d9%88%d8%a7%d9%84%d8%a5%d8%b6%d8%a7%d9%81%d8%a9-%d9%88%d8%a7%d9%84%d8%a5%d8%b2%d8%a7%d9%84%d8%a9/" rel="tag">عرض السجلات والإضافة والإزالة</a>

اضافة سجلات وتعديلها وحذفها والبحث

عرض السجلات والإضافة والإزالة

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

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

إذا درس اليوم هو أهم درس بالنسبة للتعامل مع قواعد البيانات.

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%a7%d8%b6%d8%a7%d9%81%d8%a9-%d8%b3%d8%ac%d9%84%d8%a7%d8%aa-%d9%88%d8%aa%d8%b9%d8%af%d9%8a%d9%84%d9%87%d8%a7-%d9%88%d8%ad%d8%b0%d9%81%d9%87%d8%a7-%d9%88%d8%a7%d9%84%d8%a8%d8%ad%d8%ab/" rel="tag">اضافة سجلات وتعديلها وحذفها والبحث</a>

الأوامر والإجراءات لقواعد البيانات

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

وفي هذا الدرس سوف نأخذ أهم الأوامر والتي ستساعدنا في الدروس القادمة .

و الأن نبدء بسم الله ….

1- الأمر MoveNext وهو يمكننا من الإنتقال من السجل الحالى إلى السجل الذى يليه فى الترتيب .. ومثلاً يمكن تنفيذ الأمر بكتابه الكود التلى ..

Data1.Recordset.MoveNext

إقرأ المزيد

نُشر في <a href="https://max4arab.com/category/%d9%81%d9%8a%d8%ac%d9%88%d8%a7%d9%84-%d8%a8%d9%8a%d8%b3%d9%83/" rel="category tag">فيجوال بيسك</a> الموسومة <a href="https://max4arab.com/tag/%d8%a7%d9%84%d8%a3%d9%88%d8%a7%d9%85%d8%b1-%d9%88%d8%a7%d9%84%d8%a5%d8%ac%d8%b1%d8%a7%d8%a1%d8%a7%d8%aa-%d9%84%d9%82%d9%88%d8%a7%d8%b9%d8%af-%d8%a7%d9%84%d8%a8%d9%8a%d8%a7%d9%86%d8%a7%d8%aa/" rel="tag">الأوامر والإجراءات لقواعد البيانات</a>