أكواد مهمة جداً جداً لأعضاء المنتدى

السلام عليكم عندي أكواد كثيرة فقلت لماذا لا أضعها في المنتدى فيستفيد منه الجميع

نبدأ أولا كود إعادة تشغيل الويندز

السلام عليكم أخي الكريم ExitWindowsEx API Callهل تريد إعادة تشغيل نظام التشغيل ( وندوز ) باستعمال صرح عنه بهذه الشفرة في منطقة التصريح

Const EWX_SHUTDOWN = 1

Const EWX_REBOOT = 2

Const EWX_LOGOFF = 0

Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" _

(ByVal uFlags As Long, _

ByVal dwReserved As Long) _

As Long الشفرة 'cmdRestart اصنع زر تحكم باسم

Private Sub cmdRestart_Click()

'Restart Windows (works on Windows 95/NT)

ExitWindowsEx EWX_LOGOFF, 0

End Sub

كود إغلاق الويندز

السلام عليكم أخي الكريم هل تعرف أنك تستطيع غلق الوندوز ( نظام التشعيل ) من خلال تطبيق الفجوال بيسيك ؟

نعم و ذلك سهل جدا تضع هذه الشفرة في التصريح

Private Const EWX_SHUTDOWN As Long = 1

Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long)

As Long الشفرة 'أغلق الوندوز

lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&) شرح مبسط على استعمال الشفرات السابقة افتح مشروع جديد اضف شفرة التصريح لمنطقة التصريح عن البرنامج ثم أضف للنموذج زر تحكم و أضف له الشفرة و جرب البرنامج

كود عمل آلة حاسبة بسيطة

بسم الله .. أولا افتح مشروع جديد (قياسي)

ثم غير عنوان النموذج إلى ( آلة حاسبة )

الان نريد ان نعمل مربعي نص ... لعمل ذلك اذهب الى لوحة الادوات و اختر الاداة المعلّمة بالأحمر في الشكل التالي

بعد ان تختار الاداة اذهب للنموذج و ضع الاداة عليه ، ثم ضع بجانب كل اداة مربع عنوان Label كما هو موضح أدناه

الان لنغير الادوات التي وضعناها على النوذج كالتالي غير عنوان الاداة Label1 إلى ( الرقم الأول )

غير عنوان الاداة Label2 إلى ( الرقم الثاني )

غير عنوان الاداة Label3 إلى ( النتيجة )

الان اعمل ثلاث أزرار على النموذج و اعطهم التسمية التالية غير عنوان الاداة command1 إلى ( اجمع )

غي عنوان الاداة command2 إلى ( اضرب )

غير عنوان الاداة command3 إلى (إغلاق)

الان غير عنوان اداة النص لتصبح فارغة ( بدون نص ) لنعمل ذلك .. على فكرة !! لا بد و انك فكرت في تغييرها من خاصية caption الموجودة في نافذة الخصائص اذا كنت فكرت كذلك فتفكيرك لم يكن صائبا هذه المرة إذا لنغير عنوان النص الخاص بالأداة Text علينا ان نذهب إلى خاصية Text و الموجودة في نافذة الخصائص طبعا و من ثم يمكنك تغيير النص الخاص بها هنا نحن نتركها فارغة و لعمل ذلك امسح النص الافتراضي الموجود فيها و الذي هو Text1 و Text2 انظر الشكل التالي

Textكيفية تغيير عنوان الاداة

بعد ان نغيير عناوين جميع الادوات ينتج لنا الشكل التالي

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

Private Sub Form_Load()End Sub

Text1.Text = ""

لجمل البرمجية التالية

Text2.Text = ""

ثم اغلق النافذة

ولنكتب الان الجمل البرمجية الخاصة بعملية الجمع

اذهب الى الزر الاول command1 و انقره مرتين تظهر النافذة فاكتب بين الجملتين

Private Sub Command1_Click() End Sub

Sub

الجمل التالية : SumValue = Val(Text1.Text) + Val(Text2.Text)

Label3.Caption = "الجمع يساوي" + Str$(SumValue)

فينتج لنا شكل الكود Private Sub Command1_Click()

SumValue = Val(Text1.Text) + Val(Text2.Text)

Label3.Caption = "الجمع يساوي" + Str$(SumValue)

End Sub

الان سوف نكتب الجمل البرمجية الخاصة بعملية الضرب

اذهب الى الزر الثاني command2 و انقره اثنين تظهر الجملتين البرمجيتين فاكتب بينهما الجملة البرمجية التالية

( الحمد لله الان لقد تعلمت مكان الشفرات و اين تكتبها ... فمن الان و صاعدا بحول الله لا داعي لان نكرر تلك الجملتين ) ..... مفهوم

MuValue = Val(Text1.Text) * Val(Text2.Text)

Label3.Caption = "نتيجة الضرب هي " + Str(MuValue)

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

Private Sub Command2_Click()

MuValue = Val(Text1.Text) * Val(Text2.Text)

Label3.Caption = "نتيجة الضرب هي " + Str(MuValue)

End Sub

الان هيا بنا نكتب الجمل الخاصةبزر إغلاق البرنامج : عندما تنقر على الزر command3 تظهر لك نافذة الشفرة من جديد فيها الجملتين البرمجيتين فاكتب بينهما الجمل التالية

End

فائــــدة : إذا كنت داخل نافذة الشفرة و انهيت كتابة الجمل البرمجية الخاصة بكائن ما او اداة ما يمكنك الانتقال الى كتابة الجمل البرمجية الخاصة بكائن اخر من غير اغلاق النافذة و النقر على العنصر المطلوب مرتين بل في نافذة الشفرة في القائمة المنسدلة على اليسار يمكنك الانتقال فهي تحتوي على جميع العناصر الموجودة على نموذجك دعنا الان نلقى نظرة على نافذة الشفرة بعدما كتبنا عليها جميع الجمل

هنيئا لك نجحت بتوفيق الله تقدم للامام لتحقق المزيد إن شاء الله

ونرجو من الأعضاء وضع المزيد من الأكواد ليستفيد منها الجميع