الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في شيفرة أحد البرامج البسيطة

مغلق
بدأه أسامة 90 في 2 أغسطس 2007 · 14 رد · 1,095 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم..

أنا مبتدئ أو مبتدئ جداً في الفيجوال بيسك..

وواجهتني مشكلة وحبيت أستفسر عليها..

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

طبعا بعد أن نوزع الأدوت على الواجهة مذكور في الكتاب:انقر على زر الأوامر واكتب الشيفرة التالية:

\\privatesub cmdMultiply-click()

IBIprpduct.Caption=CDbi(txtfirst.Text)*CDbi(txtSecond.Text) \\

يعني أنا لاحظت اختلاف في هالشفرة عن الشفرات السابقة يللي كتبتها وخصوصاً في أول سطر حيث اسم الأداة في العادة يكون command أما هالمرة غير

ما بعرف هل المشكلة من هون ولا من غير مكان بس أرجو الإفادة على كل حال

#2

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

أخي الكريم

الأخطاء في الكود كثيرة منها

1- \\

لاتكتبها

2- هناك مسافة بين الكلمتين private sub

3- cmdMultiply-click لا تكتب هكذا ليس ناقص ولكن sheft - أي _

أما بالنسبة إلى cmdMultiply فهو اسم الذر الذي ستقوم بالضغط عليه ( اسمة برمجياً Name )

فبدل مثلاً أن يسمي الذر باسم command1 كما هو متداول معك سماه cmdMultiply

انظر إلى قائمة الخصائص الموجودة على اليمين ستجد Name ادرسها جيداً

ادعو لي بالهداية فأنا أحتاج هذا الدعاء بشدة

منتدى تصميم التطبيقات (و يشمل نظم التشغيل) و تعريبها. <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

بعض ردودي ومشاراكاتي في المنتدى:

1- هل تريد التحكم بجهازك كأنك محترف, ( إذاً تعال معي وتعلم الرجستري Registry ).

...|-->> فكرة عامة عن الرجستري وكيفية التعامل معه ( رقم المشاركة 1 - 4 )

...|-->> كتابة ملف رجستري

...|-->> تشغيل الرجستري دون رسائل( في الخفاء )

...|-->> بعض التحكمات التي يقدمها الرجستري

...|-->>=>> إيقاف عمل Ctrl+Alt+delete ( Task Manager )

...|-->>=>> إخفاء قائمة ملف file وبذلك لن ترى قائمة file

...|........... في مشاركة أخرى >> حتى ولو قمت بالضغط على أي ملف أو مجلد بزر الفأرة الأيمن

...|-->>=>> لإيقاف وإخفاء عمل البحث Find من على الجهاز

...|-->> بعض المعلومات التي يقدمها الرجستري

...|-->>=>> معرفة الأجهزة المتصلة بالـIDE ورقم السريال الخاص لكل جهاز

...|-->> من أحسن مواقع الرجستري

...|-->>=>> http://technet2.microsoft.com/WindowsServe...3.mspx?mfr=true

منتدى مبرمجي لغة Microsoft Visual Basic <<<<<<

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

برامج من صنعي:

1- لعبة (من صنعي ), جربها وقول رأيك

2- ساعة حائط, من صنعي

بعض ردودي ومشاراكاتي في المنتدى:

1- طريقتان لفتح ملف معين وليكن بامتداد SWF ببرنامجك [ الطريقة الأولى - الطرقة الثانية ]

2- هل تريد ألا يتحكم أحد في الجهاز غيرك؟

3- كود ايقاف عمل زر الاغلاق x بزاوية الفورم

4- عرض صورة متحركة بالكود , أي بدون استخدام أدوات

5- اجعل الـComboBox [ تنسدل - لما تكتب فيا تنسدل وتظهر الاسماء التى تبدأ بالحرف اللي كتبته فى الكومبو ]

6- إنشاء مكون أثناء تشغيل البرنامج ثم إدخاله تحت نطاق مكون آخر مثلاً إدخاله داخل نطاق microsoft tabbed dialog control

أسئلتي في المنتدى التي تم الإجابة عليها:

1- كيف يمكن قراءة الإشارات الصوتية الخارجة من الميكروفون أو السماعات ( لرسمها أو العبث بها ) ؟ أرجو المزيد من الردود ...

2- إيقاف عمل الرجستري

أسئلتي في المنتدى التي لم يتم الإجابة عليها:

اقتباس
ردك يعطي حافذ للإجابة على أسئلتك
#3

شكرا أولا أخي ياسر على المساعدة

الـ \\ لم أكتبهم فقط وضعتهم هنا ليبين بداية الشيفرة

والمسافة بين الكلمتين private sub توجد أصلا في الشيفرة وبينهما مسافة فعلا يعني لم اخطأ فيهما

أما بالنسبة للأمر الثالث ففهمته

يعني أنا عم أكتب الشيفرة بهذا الشكل يللي ذكرت لك هل هناك خطأ فيها؟؟

وشكرا لك مرة ثانية

#5

طيب أخي طارق

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

هي صورة عندما نفذت البرنامج وأظهر لي الخطأ

http://www.geocities.com/alnabk2007/FILES/001.JPG

#7

شكرا أخي طارق على المساعدة.

يعني صح كلامك..بس راحت مشكلة وهلأ أجت مشكلة غيرها

يعني في المرة الماضية لما كنت أنفذ البرنامج كان يظهر لي خط أصفير دليل على الخطأ على الدالة فقط أما الآن فبعد أن أنفذ البرنامج يظهر لي خط أصفر على كامل الشيفرة!!!

يعني أنا بصراحة احترت ويمكن حيرتك معي؟؟!!

معقول المشكلة من شيء غير الشيفرة؟؟

#8
private  sub cmdMultiply_click()


IBIprpduct.Caption=CDbl(txtfirst.Text)*CDbl(txtSecond.Text

end sub

جرب انسخ هذا الكود بدل الذي عندك وان واجهتك مشكلك اضغط ملفات المشروع وارفقه هنا

#9

طيب أنا عندما أضغط على زر الأوامر لأضع الشفرة أول سطر عندي ليس: private sub cmdMultiply_click()

أنا عندي نفس الجملة بس بدل cmdMultiply --

command

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

ولا تآخذني إذا عم أعذبك معي

وشكرا لك

#10

لاحظت في الشيفرة يللي كتبتها انت لي أول كلمة عندك ibiprpduct

أما في الكتاب فأول كلمة product!!

طبعا أنا جرت الاثنين وما ظبطت بس قلت ممكن تساعدك هالشغلة

#12

أخي ممكن ترفق البرنامج أريحلنا وأريح لك!

google.gif

spamxk4.gif

petitionbanner17a.gif

Email : sao_-5000@hotmail.com

#13

طيب طلب بسيط من أي من الأخوة البرنامج لا ياخذ كم دقيقة

الأدوات واحدة label وخانتي نص وزر أوامر والشيفرة موجودة فوق ..يعني بس يجرب البرنامج حدا لأشوف بيظبط معه؟؟

#14

لو انت قمت باعادة كتابة هذا الكود دون الكتاب وتسمية المسميات الخاص بك وعمل العمليات فانت بحاجة الى التعلم يعني كما قلت

ضع الأدوات واحدة label وخانتي نص وزر أوامر دون اعادة تسمية ثم dblclick على الزر واكتب بداخله

label1 = text1 * text2

وانتهى الموضوع

وبعد ذلك غير الاسماء للادوات وثم في الكود

#15

ايوا فهمت عليك هوي هادا يللي كان لازم أسويه من الأول..

الله يعطيك العافية أخي طارق على مساعدتك..

وألقاك في مشكلة قادمة إن شاء الله.. ;)

هذا الموضوع مغلق.

مواضيع مشابهة