سلسلة تعليم الفيجوال بيزك

[Mgh]

السلام عليكم

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

الإختلاف الوظيفى الوحيد بين الروتين الفرعى(Subroutine) والوظيفة (Function) هو أن الوظيفة دائما تعيد قيمة (Return Value) بينما الروتين الفرعى لا يفعل ذلك . عندما تعلن وظيفة يجب أن تعطيها نوع بيانات للقيمة المرجعة . إذا لم تعلن نوع البيانات للقيم الرجعة تعيد الوظيفة نوع البيانات المبدئى (Variant)-(وهو نوع خاص يمكنه حمل جميع أنواع البيانات )

من الروتينات الفرعية التى تعاملت معها قبلا : Form_Load وهو نوع خاص من الروتينات يقوم الفيجوال باستدعائه عند تحميل الفورمة.

لاحظ أن كل روتين فرعى يبدأ عادة بالكلمة (SUB) المتبوعة باسم الروتين الفرعى ثم على الأقواس التى تحتوى على معاملات الروتين. والروتين الفرعى هو برنامج قائم بذاته يمكنه إستقبال وإعادة البيانات ومثال عليه :

Private Sub BuildMessage (Value As Integer)
MessageBox "The Value is " & Value
End Sub

كما هو الحال مع الروتين الفرعى Form_Load يبدأ الروتين أولا بالكلمة (Private Sub) متبوعة باسم الروتين الفرعى الذى يكون (Build Message) فى هذه الحالة . وداخل الأقواس ما يشبه إعلان عن متغير معرف بدون إستخدام كلمة Dim . أنت فى الواقع تعلن أن المعامل الخاص بهذا الروتين هو قيمة رقمية Integer .

لنداء هذا الروتين يمكنك ندائه من داخل روتين أخر ك Command1_Click  وذلك عن طريق كتابة

BuildMessage(10(

أما لإنشاء الوظيفة Function فهو عملية مشابهة جدا لإنشاء الروتين الفرعى وتكون على الشكل التالى :

Private Function BuildMessage(Value as Integer)As String
BuildMessage= "The Value is" & Value
End Function

ويتم ندائه كالتالى داخل أى روتين أخر

Dim Message as String
Message = BuildMessage (10)
Print Message

لاحظ أنه عند تعريف الوظيفة فى السطر
Private Function BuildMessage(Value as Integer)As String
وضعنا AS String لتعريف إسم الوظيفة وذلك لأنها سترجع قيمة حرفية يمكن طباعتها من داخل أى روتين.
أما الوتين فهو برنامج قائم بذاته

أرجو أن تجرب المثال السابق لتفهم ما الفرق بينهما .

[احمد الفارس]

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

[Mgh]

كيف تنشىء فورم دائرى الشكل :

ضع الكود التالى فى موديول :

Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


ثم ضع الكود التالى فى Form_load

Dim lReturn As Long
 Me.Show
 lReturn = SetWindowRgn(hWnd, CreateEllipticRgn(50, 50, 200, 200), True)


شغل البرنامج وشاهد ماذا يحدث !!!!!!! '>

[عسكر]

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
أخي  العزيز MGH  وشكور سلفا يا غالي
لقد ذكرت كيفية جعل الفورم ذو شكل دائري ولكن إذا أردت أن أجعله بشكل آخر مثلاً الميديا بلير في الويندوز إكس بي أو الميلينيوم يستطيع أخذ عدة أشكال (نجمه مثلا) كيف أستطيع فعل ذلك في الفيجول بيسك
و لدي سؤال آخر إن لم يكن لديك أي مانع
في بعض البرامج نستطيع تصغير البرنامج بحيث يصبح على شكل رمز بجانب الساعه كبرنامج (webshot)مثلا كيف أستطيع القيام بذلك في الفيجول بيسك
و شكراً

[Mgh]

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

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

[Mgh]

وهذا هو البرنامج الذى يظهر أيكونة فى ال tASKbAR

[عسكر]

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
إن ما أسأل عنه في الفيجول هو خاص بولدي حيث أنه هاو وهو مازال في الثالث الثانوي ولكون الآن بدأت العطله الانتصافيه فله بعض الاستفسارات
وبانتهاء العطله ينبغي التفرغ للدراسة حيث الثالث الثانوي في سوريه مختلف وشكرا جزيلا
أخي العزيز mgh
أشكرك جزيل الشكر على الرد فلقد بحثت كثيرا عن تلك الأمور و لم أجدها و لكن و الحمد لله أخيرا و بفضلك قد عرفتها
أم بالنسبة لـ(برنامج التشفير )فمعك حق في طول الفترة اللازمه لفك التشفير و يعود السبب إلى تحميل كل الملف إلى الذاكرة و لكن سأعدل البرنامج وأضعه في المنتدى هذا من جانب إضافه إلى أن الصورة التي ستشفر بداخلها الرساله يجب أن تكون متناسبة معها بحيث ما يقارب 3000 محرف يمكن وضعها في صور حجمها حوالي 24 كيلو بايت وهكذا ...فلماذا نستخدم صوره كبيرة في الحجم من أجل رسالة صغيره؟!! لذا أنصح بمراعاة ذلك و لاأعتقد بأن عملية فك التشفير ستستغرق أكثر من بضع ثواني، ريثما يتم التعديل عليه

و الآن أريد طرح تساؤل آخر و أرجو أن لا أكون قد أثقلت عليك نحن نعلم أن أهم خواص البرنامج المتكامل هي حفظ المعطيات و قابلية استرجاعها ولكن جميع المراجع و الكتب و البرامج التي شاهدتها حتى الآن و التي بُرمجت على الفيجول بيسك تعتمد في فتح الملفات على طلب الأمر من داخل البرنامج فقط
ولكن و كما نعلم أن برنامج كالوورد أو إكسل و بضغطه مزدوجة على الملف يفتح البرنامج و يتم فتح الملف تلقائيا كيف يمكن عمل مثل ذلك في البيسك
و أخيراً أقدم هذا البرنامج كهديه للمنتدى على الكيو بيسك وشيفرته لرسم الدوال من الدرجة (1و2و3)وإمكانية رسم دالتين و معرفة نقط التقاطع مع فائق احترامي و أرجوا إعطاء الملاحظات
و شكراً وأخيرا أذكر فائده عسى أن يستفيدمنها الجميع و قد أرفقت مثالا بشأن ذلك
تخصيص مفتاح HotKey لصندوق نص
يمكنك تخصيص مفتاح ساخن HotKey لصندوق نص TextBox بالطريقة التالية : أنشيء أداة من نوع Label و ضع لها المفتاح الساخن الذي تريده لصندوق النص ثم عدل خاصية TabIndex لها لتكون أقل بواحد من قيمة نفس الخاصية في صندوق النص ( مثال : إذا كانت قيمة TabIndex لصندوق النص هي 4 فاجعل قيمتها للأداة من نوع Label  الرقم 3 )
ولكن انتبه إلى تحويل اللغة فالضغط على alt و الزر a يكون في اللغه الانكليزيه أم alt و ش فيتم في العربيه
مع تحيات عسكر

[الجـــــوري]

في البــدايه  ...  اعجبني جدا هذا الموقع الاكثر من رائع , الذي قرئت عنه في رسالة الجامعه  (ليتني عارفته قبل بداية الاختبارات)
  على العموم اتمنى منك اخي  Mgh اعادة شرح  Loop  لاني احتاجه جدا في اختبار بكره      

       ولك جزيل الشكر على اهتمامك وتفانيك الرائع ..

[Mgh]

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

أتمنى أن يصبح كل الأباء مثلك أخ عسكر . يشجعون أولادهم على تعلم ما يحبونه ويساعدونهم.


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


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


أما عن تشغيل برنامج بمجرد الضغط على ملف معين فإليك التالى :
1- لنفرض أنك ستحفظ الشغل فى ملف إمتداده abc
2- وأنت تضع البرنامج التنفيذى تبعك على السى ليكون عنوانه (C:\Project1.exe) مثلا
3- إفتح الريجسترى
Start>> Run >> Regedit.exe
4- فى العنوان الرئيسى HKEY_CLASSES_ROOT إنشىء مفتاحا فرعيا (.abc)- النقطة على اليسار- وانشىء تحته المفاتيح Shell وopen وCommand كما هو مبين فى الصورة المرفقة.
5- غير القيمة Default داخل مفتاح Command إلى c:\project1.exe %1
6- لا تنسى وضع %1 بعد إسم الملف التنفيذى.
7- فى الملف التنفيذى (أثناء التصميم) ضع أداة نص
8- واكتب فى الدالة Form_LOad
text1.text=Command

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

أرجو أن تجرب ذلك وإن لم تصل إلى المطلوب قل لى لأضع لك مثالا.


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

جزاك الله كل خير ووفقك .

[Mgh]

أرسل لى الأخ أحمد الفارس (وهو من أكثر المتابعين للسلسلة ) برنامجا قام بتصميمه لألة حاسبة على الإيميل.

وذكر لى بعض من المشاكل التى قابلته مثل :
1- عدم إمكانه كتابة رقم مكون من خانتين
2- عند القسمة على صفر ينتج خطأ يؤدى لغلق البرنامج

البرنامج الذى كتبه الأخ أحمد الفارس

[Mgh]

ولقد حللت المشاكل التى صادفها الأخ أحمد الفارس ووضعتها كملف مرفق

[Mgh]

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

مرحبا بك أخى الجورى عضوا فاعلا فى المنتديات العلمية . وأهنئك على نشاطك الملحوظ الذى أبتدأت به وأتمنى أن يظل نشاطك بهذا المستوى دائما.

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

أخوك
محمد الحريرى

[عسكر]

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
ماهي أخبارك أخي محمد الحريري حقيقة الأمر معلوماتي بالبرمجة قليله ولكني
سأفسح المجال لولدي ليعبر عما قرأ في مشاركتك وردك :
السلام عليكم
الشكر الجزيل و الامتنان لك فلقد تمكنت من تطبيق ماقلت ونجحت في فتح الملف و لكن تطرق إلى ذهني سؤال كيف أستطيع و ضع صورة (رمز )معين لذلك الملف و أرجو أن لا أكون قد أثقلت عليك في طرح الأسئله
أما بالنسبة لبرنامج التشفير فأنا هنا لاأتعامل مع مكان معين لوضع الرساله و إلا تم كشفها و بسهوله من قبل المختصين لكن سأطرح بعض الأسئله:
1)من ماذا يتألف ملف الصور bmp؟
طبعا سيكون الجواب من معلومات عن لون كل نقطة من النقاط التي تُؤلف الصورة
2) كم لوناً نستطيع التعامل معه ؟ولماذا؟؟
طبعا سيأتي الجواب عدد هائل أما لماذا فسوف يكون المفتاح و المدخل و السر الكامن وراء قدرة البرنامج على التشفير
فكما هو معلوم لدى الجميع (مبرمجي الفيجول) أن هناك تعليمةRGB(RED,GREEN,BLUE) يتحدد من خلالها اللون المراد أما مجال كل قيمه مدخله من 0 إلى 256 وهي تعبر عن لون معين من الألوان الأساسيه الثلاثه
3)هل تستطيع العين البشريه تمييز كل هذه الألوان و مكوناته من الألوان الأساسيه؟
سيأتي الجواب طبعاً بلا فمن المستحيل ذلك.
4) ستسأل و ماذا بعد كل هذا الكلام ؟؟‍‍‍‍‍‍!!
لا تعجل سيأيك الجواب بسؤال
5) ماذا لو استطعنا أن نغير بألوان صوره ما و بدرجة صفيره مثلا أن نضع اللون ذي الرقم 201 بدل 200 في خانه الأحمر هل يستطيع الإنسان تمييز ذلك؟
لا بالطبع
6)و لكن كل رقم من 0 حتى 256 نستطيع تحويله إلى رقم ثنائي من 8 خانات ولكي يتم التغيير السابق كما في جعل 200 ,201 وذلك بإضافة 1 يمكن هنا أن نضيف 1إلى الخانه الأخيره من اليمين
7)كيف نستفيد من ذلك في التشفير؟
بكل بساطة نحول أحرف الرساله إلى أرقام في جدول الأسكي ثم نحول تلك الأرقام إلى أرقام ثنائية وتأخذ كل خانه (إما 1 أم 0) و نضعها على أنها الخانة الأخير من اليمين من  كل بايت من الصورة وهكذا و بالتالي نكون قد زدناأو أنقصنا ألوان كل نقطة و لكن بدرجة غير محسوسة و ليس من الضروري البدء من أول بايت في الصورة فنستطيع البدء من المنتصف أم النهايه و منهنا أؤكد بأن برنامج التشفير الذي و ضعته آمن في المراسلات السريه و يكاد يكون من المحال معرفة أكانت هذه الصورة مشفرة بداخلها رساله أم لا
و للتأكد مما قلت لاحظ أخي محمد أن ملف الصورة قبل وضع الرساله بداخله و بعد ذلك ، الحجم سوف يكون ذاته
أما عن وضع الرساله في مكان معين من الملف سواء(أكان صورة أم غير ذلك)
فأعتقد أن المخابرات سوف تكون لديك في اليوم التالي تسألك عن الذي بعثت له الرساله المشفره عبر البريد الالكتروني '>
ولكن رغم كل ذلك أشكرك على المعلومه القيمة و التي لم أسمعها من قبل أن أي زياده في البايتات في نهاية الملف التنفيذي لا تؤثر عليه و أظن أنها تفيد في مجالات أخرى
أما بالنسبه لبرنامج الرسم البياني فقد حاولت أن أضع المحاور و الأرقام و لكن يبدو ذلك صعب في الكيو بيسك و أرجو أن يوفقني الله لعمل برنامج على الفيجول شامل و يستفيد منه الجميع
و أخيراً سأنهي هذه المشاركة بفائده أرجو أن يستفيدمنها الجميع
كيفية تشغيل ملفات الويف دون عنصر تحكم بواسطة ال api
اصنع موديل و سمه ما شئت ثم ضع في قسم التصريحات العامه الكود التالي

Code Sample

Option Explicit '---------------------------------------------------------- ' SHOOTOUT.BAS '---------------------------------------------------------- ' Data type required by the IntersectRect function Type tRect     Left As Long     Top As Long     Right As Long     Bottom As Long End Type ' Windows API rectangle functions Declare Function IntersectRect Lib "user32" (lpDestRect As tRect, lpSrc1Rect As tRect, lpSrc2Rect As tRect) As Long ' Functions and constants used to play sounds. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long ' Constant used with sndPlaySound function Global Const SND_ASYNC = &H1

ثم ضع في الحدث الذي تريد الأمر التالي (مثلا كضغطة الزر أو load form)

Code Sample

rc = sndPlaySound(App.Path & "\main.wav", SND_ASYNC)

حيث main.wavاسم الملف
لاتسألني كيف أو قف الصوت لأنني نفسي لاأعرف
فمن كان لديه العلم فليكتب عن ذلك و لكن تستطيع ذلك كما أعلم بإغلاق البرنامج يوقف الصوت تلقائياً
و شكراً للجميع
أكرر السؤال كيف أستطيع و ضع صورة (رمز )معين لذلك الملف و أرجو أن لا أكون قد أثقلت عليك في طرح الأسئله
وهذا برنامج التشفير معدلاً(فك التشفير أسرع)

[الجـــــوري]

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

   اخي Mgh

بينت ان الفيجول بيسك مهم ..تدري ان دكتورتنا تقول : ( الفيقوال بيسك ده أديم أوي

ومحديش ديلوأتي يستعملوه) !! حتى استغربنا ليش يقرر في جامعاتنا وهو عديم الفائده
 

....................................................................................

الجـــــــوري

[لينا]

السلام عليكم
لا تصدق كل ما يقال او تسمع هي حكمة لا تقدر بثمن  اعمل الفكر اولا ؟