السلام عليكم ورحمة الله وبركاته
الاخوه اعضاء ومشرفين الفريق العربى للبرمجه
لدى سؤال فى الفيجوال بيسك وهو ما السر فى الرقم 6 فى هذا الكود
y = MsgBox("Are you Sure ", vbQuestion + vbYesNo, "Data error")
If y <> 6 Then
Exit Sub
ارجو توضيح هذا الكود
شكرا لكم جميعا
its refer to the choice that the user done i don t remember if 6=vbno or vbyes
{ Dialog Box Command IDs }
IDOK = 1; ID_OK = IDOK;
IDCANCEL = 2; ID_CANCEL = IDCANCEL;
IDABORT = 3; ID_ABORT = IDABORT;
IDRETRY = 4; ID_RETRY = IDRETRY;
IDIGNORE = 5; ID_IGNORE = IDIGNORE;
IDYES = 6; ID_YES = IDYES;
IDNO = 7; ID_NO = IDNO;
IDCLOSE = 8; ID_CLOSE = IDCLOSE;
IDHELP = 9; ID_HELP = IDHELP;
IDTRYAGAIN = 10;
IDCONTINUE = 11;
تم تعديل هذه المشاركة بواسطة ikossan في 16 مايو 2006 في 19:47
سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين
يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.
اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.
الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.
إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.
و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله
أخوكم مراد
الرجاء التوضيح
]]أخي العزيز
الرسالة التي انت استخدمتها في البرنامج بها مفتاحين احدهما yes والاخر no
وكل مفتاح في الرسالة له رقم يمكن استخدامه لنانج الزر او المفتاح المضغوط وهي موضحة في الرد السابق للأخ ikossan
والرقم 6 في الكود يدل ان المستخدم ضغط مفتاحyes واذا كانت لاتساوي 6 وتساوي 7 مثلا فهذا يدل ان المستخدم ضغط no
كما ذكر الأخ ikossan
عندما يظهر صندوق حوارى للمستخدم عن طريق الدالة MsgBox فانه يمكنك معرفة الزر الذى ضغط عليه المستخدم وذلك عن طريق استقبال قيمة الزر المضغوط فى متغير من نوع integer وفى مثالك يقابله المتغير y
(كل زر من ازرار المربع الحوارى عند الضغط عليه يعطى رقم معين)
فاذا كانت قيمة y=6 أى ان المستخدم اجاب على الصندوق الحوارى بالضغط على زر Yes=موافق
السلام عليكم ورحمة الله..
اخي ikossan
الفيجول بيسيك لا يوجد بها العلامة (;)
على كل حال
هذا اسطر ماذا يعني
y = MsgBox("Are you Sure ", vbQuestion + vbYesNo, "Data error")
y = قيمة إجابت المستخدم على السؤال Are you Sure ومن ثم وضع ايقونة vbQuestion وهي علامة (?) ومن ثم vbYesNo تعني ضع للمستخدم مفتاحين [Yes] و [No] ويكون عنوان مربع الحوار هو Date Error
سيظهر مربع الحوار للمستخدم وسيقوم المستخدم بالنقر على اما [Yes] او [No] ولكل حالة من هذه الحالتين سيقوم الحاسب بوضع القيمة في y والتي اما نعم او لا
في حالة الـ نعم سيكون y = 7
وفي حالة الـ لا سيكون y=6
شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)
من سجن عكا وطلعــت جنـازة...
محمد جمجوم و فؤاد حجـازيجازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما
محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره
B)
كانت مشاركة على السريع.
فعلا فأنا لا أبرمج ب الفيبي, وعلامة ";" هي علامة تستعمل في لغات أخرى مثل c و c++و java أو ديلفي.
بما اننا نبرمج لويندوز فلن تكون إختلافات كبيرة في دوال وإجرائيات البرمجة لل api, مجرد فروقات بسيطة تظهر على مستوى تغليف هذه الدوال او على مستوى الكتابة النحوية للغة البرمجة المستعملة.
في مشاركتي بالأعلى الظاهر وجب إستبدال كل كلمة تبتدئ ب ID مثل IDYES ب VB لتصبح VBYES.
الدالة MessageBox هي دالة من دوال api للويندوز تظهر نافذة حوار من صنف modal result.
يحني انه ترجع عدد صحيح طبيعي يعبر عن الزر اللذي ظغطه المستخدم للخروج من نافذة الحوار, ولكل زر هناك عدد يعبر عنه. في حالتك ف رقم 6 تفيد ان المستخدم ظغط على زر vbyes.
والله أعلمو فأنا أستخدم ديلفي ;)
تم تعديل هذه المشاركة بواسطة ikossan في 17 مايو 2006 في 03:42
سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين
يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.
اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.
الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.
إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.
و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله
أخوكم مراد
اشكركم جدا على الاهتمام اخوتى
شكرا جزيلا على الردود
معنى الرقم 6 هو كاالاتي
ان الرسائل في الوندوز لكي تساوي ارقام
ولكي تتعامل معها ضروري تكون عارف ارقام خياراتها
مثلا موافق او نعم = 6
لا = 7
الغاء الامر = 2
وكهذا
اما في الشرط في مثالك
وهو اذا كان الضغط على مفتاح يساوي 6 اي نعم اخرج من الاجراء
ولله الموفق
ما شاء الله الإخوة أفاضوا واستفاضوا في الموضوع بارك لله فيهم
بالنسبة للكود الذي ذكرته فكما ترى أن الـ y هي عبارة قيمة تقوم الوظيفة MsgBox بإرجاعها
عموماً
إذا واجهتك أي مشكلة مع وظيفة معينة فأول ما يجب عليك فعله هو معرفة المعاملات التي تستقبلها هذه الوظيفة، ومعرفة القيمة العائدة
أسهل طريقة لمعرفة ذلك عن طريق الـ Object Browser ويمكنك الوصول إليه بالضغط على F2
بعدها ابحث عن الوظيفة MsgBox وستجد النتيجة كالتالي
Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult Member of VBA.Interaction ' Displays a dialog box and returns the value of the user's selection
وكما ترى فإن القيمة العائدة من الوظيفة هي عبارة عن قيمة من نوع VbMsgBoxResult
قم بالضغط على هذا النوع لتشاهد القيم التي يمكن إرجاعها عن طريق هذه الوظيفة وفائدة كل منها
بالتوفيق
هذا الموضوع مغلق.