أول برنامج بسيط من عملي..أرجو إبداء الرأي

سبب المشكلة مثلا فى الـ Textbox اللى أسمه Text8 هو

Text8.SetFocus

برجاء أستخدام Option Explicit فى مشاريعك.

\\سبب المشكلة مثلا فى الـ Textbox اللى أسمه Text8 هو\\

يعني شو المشكلة؟؟وشو حلها؟؟؟يبدو إنك دائما مستعجل ههههههههه ;)

يعني شو أسوي ليتعدل البرنامج؟؟

تشيل السطر ده ;)

أنا هذا السطر أضفته بعد طلب استشارة من أحد الأخوة..

والآن أزلته وبقيت نفس المشكلة..تأكد بنفسك

هل بقيت فى Text8 ولا فى الباقى.

أنا أزلته و لم تحدث أى مشكلة , عموما من الخطأ التأكد من النتيجة فى حدث الـ Change , عند حدث Validate

ايوا مظبوط أخي msaye2004 لما أزلته من البقية نجح ومشي الحال..

اللله يجزيك الخير

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

طبعا هو برنامج كويس أخي ,, وفكرة حلوة لكن اتفضل بعض النصائح :

1/ انتبه شوية على عنوان الـ Msgbox ومظهرها .

بحيث تصبح مثلاً

Private Sub Form_Load()
MsgBox "الرسالة ....", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "أهلاً بك"
End Sub

2/ اجري عملية القسمة على صفر وشوف النتيجة ... , يمكنك استعمال الكود التالي :

Private Sub Command3_Click()
If Text6.Text = "0" Then
	MsgBox "ÇáÞÓãÉ Úáì ÕÝÑ áíÓ áåÇ ãÚäì", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÞÓãÉ Úáì ÕÝÑ"
	Exit Sub
Else
	Text7.Text = Val(Text5.Text) / Val(Text6.Text)
End If
End Sub

وهذا في حدث الضغط على زر القسمة

3/ الـ Label الخاصة بالزمن المستغرق نسيت انك تعدل الـ Caption تبعها

4/ في دوارة حضرتك عملتها بالغلط .. وهي الكود التالي :

MsgBox "له يا أبضاي!!الرقم غلط أعد التأكد من حساباتك"
Text10.SetFocus

بما إن الرقم غلط وحضرتك أعدت التركيز لمربع النص

إذا هيعيد العملية

5/ نقطة مظهرية .. وهي عند تكبير النموذج لا تتمدد الادوات معاه .... ينصح باستخدام أداة Resize

6/ ملحوظة غاية في الأهمية , وهي انك لم تقم بتسمية العناصر (الأدوات) تركت الاسماء الافتراضية text1 - text2 - text3 ....

وهذا سيسبب لك لخبطة جامدة قوي في برامجك الكبيرة إن شاء الله , في وقت عملها وحتى وقت صيانتها (نصيحة مجرب , ههههههههه )

معلش أنا "أغرقتك" بالملاحظات إن صح التعبير ,,, لكن بحيث ان شاء الله في البرامج المستقبلية تكون خالية من العيوب اللي مثل هذه

أهلا وسهلا فيك أخي Ala2 vb

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

والشهادة لله أستفدت من هالأخطاء فجزاك الله كل خير والله يعطيك العافية وهي ملاحظاتي عليها:

الخطأ الأول:

معك حق..أنا مع إنو من فترة تعلمت عدة أشكال لكتابة الرسالة بس نسيت أوظفهم هون..هلأ عدلت الرسالة ووضعتها رسالة معلومات وأضفتلها titer

الخطأ الثاني:

إي..حلوة هالفكرة

عملت يللي قلتلي عليه وأضفت رسالة لما المستخدم بيقسم على الصفر

الخطأ الثالث:

فعلاً غريبة شلون نسيت أشيلها؟؟على كل حال مشي الحال وشلتها هلأ

الخطأ الرابع:

هي ما فهمتها عليك يعني شو كان المفروض أكتب؟؟

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

ممكن تعيدلي؟؟

الخطأ الخامس:

وهالنقطة كمان ما فهمتها؟؟يعني شلون بدي أستخدم الأدادة resize ؟؟

الخطأ السادس:

هوي معك حق..فعلاً

بس أنا كوني مبتدأ بخاف من تغيير الأسماء لما أتخربط فيها؟؟يعني شو بتنصحني أسميهم؟؟

وبرجع مرة تانية بكررلك شكري على هالآراء والانتقادات الرائعة وإن شاء الله أشوف ردك مرة تانية..

أولا شكر على رسالتك الخاصة ..

تانيا :

اقتباس

الخطأ الرابع:

هي ما فهمتها عليك يعني شو كان المفروض أكتب؟؟

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

ممكن تعيدلي؟؟

بلاش انك تكتب SetFocus ,,, لييييه

لأن حضرتك بما إن مربع النص فارغ هتظهر الرسالة التالية :

MsgBox "له يا أبضاي!!الرقم غلط أعد التأكد من حساباتك"

وبعدين هيحط التركيز في مربع النص باستخدام جملة SetFocus ولما يحط التركيز وما يلاقي نص هيظهر الرسالة من جديد , بعدين يحط التركيز في مربع النص ولما يلاقي ما في نص هيظهر الرسالة ,, وهكذا ,,,,, فهمتني

ثالثا :

اقتباس

الخطأ الخامس:

وهالنقطة كمان ما فهمتها؟؟يعني شلون بدي أستخدم الأدادة resize ؟؟

ابحث عن أداة اسمها Resize تقريبا وهي أداة أكتيف إكس وحطها على الفورم وهي هتشتغل أتوماتيك ... يا إما تعدل خاصية BorderStyle للفورم من Sizable إلى Fixed Single ...

ليه , لأنك لما تكبر الفورم (تخليه ملأ الشاشة عن طريق الضغط على زر التكبير اللي في أعلى زاوية النافذة) سيتم تمدد النافذة دون تمدد الأدوات

لمزيد من المعلومات راجع المثال التالي :

اضغط هنا لتحميل المثال

رابعا :

اقتباس

الخطأ السادس:

هوي معك حق..فعلاً

بس أنا كوني مبتدأ بخاف من تغيير الأسماء لما أتخربط فيها؟؟يعني شو بتنصحني أسميهم؟؟

مثلا زر الجمع تحط اسمه Cmdadd زر الطرح Cmdmins المؤقت Tmrtime

واختصارات الأدوات

زر الأمر Cmd

المؤقت Tmr

الليست Lst

الكومبو Cmb

اللابل Lbl

مربع النص Txt

وهناك المزيد انت اعرفهم لوحدك بقا

مع السلامة .

وجزاك الله خيرا على هيك صدر رحب

طيب تمام..كلو تمام أخي علاء

آخر سؤال حابب أسألك ياه مشان التأكد فقط..

هلأ لما رح أغير أسماء الأدوات لهالاختصارات يللي ذكرتها حضرتك لازم أصير أعدل الشيفرة

يعني بدل ما أكتب:

text8.text

مثلاً

لازم أكتب :

txt8.txt

مظبوط ولا شلون؟؟

وشكرا على هالوقت يللي عم تصرفه معي..

طبعا لازم تستبدل

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

مع السلامة ,,, وبالنسبة للوقت .... متشغلش بالك

طيب تمام..الله يجزيك ألف خير أخي علاء

يعني هيك كلو تمام..والملف عُدّل بحمد الله

شكرا إلك مرة تانية لبكتك معي..

اقتباس

طيب تمام..الله يجزيك ألف خير أخي علاء

يعني هيك كلو تمام..والملف عُدّل بحمد الله

شكرا إلك مرة تانية لبكتك معي..

لا لبكت ولا لعبكت ... قلتلك ما تشغلش بالك

والحمد لله إن البرنامج اشتغل

فعلاً هذا أهم شي الحمد لله على كل شي

وشكرا إلك مرة تانية وعقبال البرامج القادمة..