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

[Mgh]

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

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

وإليك البرنامج المرفق '>

-------------
أختى علا بالنسبة لطلبك . فأرجو أن تكونى توصلتى للحل. وهو حذف رسالة التأكيد لإغلاق الجهاز من كود البرنامج.
وذلك بحذف الكود التالى
Dim result As Integer
    Dim prompt As String
    Dim Title As String
    prompt = "هل تريد بالتأكيد إيقاف تشغيل Windows ؟"
    Title = "برنامج إيقاف تشغيل Windows"
    result = MsgBox(prompt, _
            4 + 32 + 524288 + 1048576, Title)
    If result = 6 Then

[Mgh]

إليكم برنامج لطباعة النصوص على الطابعة

[Mgh]

وهذا برنامج لإستخدام أمر Open File للقراءة والكتابة من وإلى الملفات

[الجوهري]

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

[علا]

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

[Mgh]

بالنسبة لسؤال الأخ الجوهرى عن حفظ كلمة السر

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

[Mgh]

يبين الشكل السابق أن هذا البرنامج يتكون من ستة أدلة رئيسية

ويقوم الأمر Savesetting بحفظ البيانات فى هذا البرنامج وذلك فى المسار

HKEY_CURRENT_USER (وهو الدليل الرئيسى)
ثم
 \Software (وهو الدليل الفرعى الأول)
ثم
\VB and VBA Program Settings (وهو الدليل الفرعى الثانى )

ويكتب هذا الأمر على الصيغة
  
 SaveSetting  appname ,   section,   key,   setting

[Mgh]

لاحظ أن
Appname هو الدليل الرئيسى لبرنامجك وهو موجود فى المسار السابق ذكره
Section وهو الدليل الفرعى
Key أسم المستخدم مثلا
Setting وهو الشيىء المراد تخزينه (كلمة المرور مثلا)

===============
أما الأمر الذى يقوم باستدعاء البيانات المخزنة فهو Getsetting
ويكتب على الشكل

pass = GetSetting(appname, section, Key, Default)
  
حيث
Pass هو المتغير الذى سيوضع به المعلومات المستدعاه من مسجل الويندوز
Appname هو الدليل الرئيسى لبرنامجك وهو موجود فى المسار السابق ذكره
Section وهو الدليل الفرعى
Key أسم المستخدم مثلا
Default وهى القيمة التى سيعيدها البرنامج داخل المتغير pass إذا لم يجد شيئا محفوظا فى ذلك العنوان فى المسجل.

=====================
مثال:
=====
1- ضع زر Command1و أداة نص Text1فى الفورمة
2- أكتب الكود التالىفى شاشة الكود

Private Sub Command1_Click()
SaveSetting "password_program", "pass_save", "User_name", "1234"
Text1.Text = GetSetting("password_program", "pass_save", "User_name", "")
End Sub

لاحظ أن password_program هو الدليل الرئيسى لبرنامجك
و pass_save هو الدليل الفرعى
و User_name هو المعبر عن key
, 1234 هى كلمة المرور

ولاحظ أن Default هنا يساوى " " أى أنه يرجع قيمة خالية عندما لا يجد المسار المطلوب.

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

[Mgh]

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

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

[Mgh]

هذه مواقع لتنزيل كتب عربية وأجنبية أرجو أن تفيدكم
===========================
كتاب " تعلم لغة الفيجوال بيسك للمبتدئين"
http://www.geocities.com/proprogram/d/vb6book.zip

كتاب "Visual Basic Programming"
http://www.nepalisong.com/kamal/tutorial/vb/vbp.pdf

كتاب "Visual Basic(Adv) Programming"
http://www.nepalisong.com/kamal/tutorial/vb/vbpa.pdf

كتاب "Introduction to Visual Basic 5.0 Programming"
http://www.nepalisong.com/kamal/tutorial/vb/vb_site.zip

كتاب موسوعة الفيجوال بيسيك مجاناً للجميع
http://www.geocities.com/fayvb/

[الزمان]

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

بعد اذن أخي Mgh أحب أن أعلمكم بأني قد بدأت بكتابة دروس موجهة لمن يعرف أساسيات البرمجة بالفيجوال بيسك وفكرتها تكمن في طرح فكرة برنامج معين ثم شرح أكواده جزء جزء ، وكما قلت فهو غير موجه للمبتدئين بل للمتمكنين من أساسيات البرمجة بالفيجوال بيسك ، والدروس على العنوان التالي :

http://www.tethar.com/doroos/vb/vb.html

وأتمنى أن لا أزعج أخي Mgh في إعلاني عن الدروس ولكني أحببت أن تعم الفائدة

[Mgh]

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

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

السلام عليكم
جزاك الله خيرا يا اخي mgh
اخوي انا بدأت متأخر في الدرس ، يعني اتحملني لو سألتك عن مواضيع في البيزك سابقة . اخوي انا سؤالي هو عن المصفوفة ، قلت لنا انا المصفوفة الاحادية البعد يعلن عنها بهذه الصيغة Dim Names(15)As string والمصفوفة ثنائية الابعاد يعلن عنها بمتغير مختلف ، سؤالي هو لماذا اعلن في المصفوفة ثنائية الابعاد عن متغير من نوع integer مع العلم ان المصفوفة قد تكون عبارة عن حروف ؟ هل المقصود بـ integer هو عدد صحيح لعدد الصفوف والاعمدة ؟أما أن المتغيرات يعلن عنها بخصوص المحتوى الذي تحتويه المصفوفة ؟ ارجو ان توضح لنا يا اخي لماذا الاختلاف في اختيار المتغير ؟
وإلى اللقاء مع الاسئلة القادمة .
وشكرا

[Mgh]

يا هلا بك أخى أحمد الفارس .

بالنسبة لتعريف المصفوفة ثنائية الأبعاد فالصورة العامة لتعريفها هو

Dim myArray(x,y) as XXXXX

حيث x,y هما بعدى المصفوفة وهما يحددان عدد العناصر الموجودة فى المصفوفة
أما XXXXX فهو نوع المتغيرات التى ستوضع بالمصفوفة فإذا أردت أن تكون متغيرات حرفية فتكون String أما إذا أردتها متغيرات رقمية صحيحة فتكون integer إلى غير ذلك من أنواع المتغيرات .

وما قلته أنا عن تعريف المصفوفة الثنائية البعد


Dim Best(10,10) As Integer    

كان مثالا لمصفوفة بها 10*10 = 100 عنصر وكل عنصر من نوع الأعداد الصحيحة
ويمكنك طبعا إستبدال كلمة integer بـ String إذا أردتها متغيرات حرفية.


فى النهاية أشكرك على سؤالك وأتمنى أن أكون قد أجبت عليه بطريقة جيدة كما أتمنى أن تستمر فى متابعتك للسلسلة وأنتظر أسئلتك القادمة ... '>

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

السلام عليكم
مشكور اخوي mgh شرح وافي جزاك الله خير .
سؤال الاخر اخوي هو لماذا نعلن عن متغيرات بين القوسين في الروتين الفرعي ، وهذا يذكرني بإعلان المتغيرات داخل القوسين بالنسبة للوظيفة function ، أليس هناك فرق بين الوظيفة والروتين الفرعي ، وما فائدة الإعلان عن المتغيرات داخل الأقواس في الروتين الفرعي ، لماذا لا اعلن عنه بكلمة Dim بعد الروتين الفرعي مباشرة . بعض الكتب تذكر اننا نمرر القيم إلى الروتين الفرعي ، يعني اصبح الروتين الفرعي مثل الوظيفة !!؟
وشكرا جزيلاً