najy_zl

السلام عليكم... أولاً هناك خطأ ولكنك تتجاهله بوجود عبارة Catch فارغة. إذا أردت أن نعرف الخطأ فاجعل عبارة Catch و ما بعدها هكذا مثلاً: Catch ex As Exception MsgBox("ERROR: " & ex.Message) End Try أو نفذ الكود دون Try (أوقف سطور Try و Catch و End Try). ثانيا الخ…

السلام عليكم... يجب توضيح ما معنى "نص متكون من كلمتين فصاعدا" ؟ نفرض أن لدينا الكلمتين "محمد" و "جلس": * هل المقصود الصفحات التي وردت فيها الكلمتان معاً - متجاورتين أو منفصلتين - في نفس الصفحة؟ * أم المقصود الصفحات التي وردت فيها الكلمة الأولى و الصفحات التي و…

السلام عليكم... قيمتُ المشاركة لأنكَ عدتَ و قدمتَ الحل الذي توصلتَ إليه. شكراً. و فقط يعض التعليقات: 1. لا تعتمد على استعمال الأعداد المجردة (الأعداد السحرية - Magic Numbers) مثل 2175 لأن معناها غير مفهوم. أعتقد أن ذلك العدد يمثل الفرق بين عرض الزر و عرض الـ P…

السلام عليكم... و منكم نستفيد. نصائح قيمة، أشكرك عليها. سلام.

السلام عليكم... باعتباري مبتدئ في لغة ++C فهذه لعبة تخمين بسيطة، و يمكن لعبها حتى على ورقة: 1 2 4 8 3 3 5 9 5 6 6 10 7 7 7 11 9 10 12 12 11 11 13 13 13 14 14 14 15 15 15 15 * استعملت قائمة صغيرة (4 أعمدة) لتسهيل الشرح. تطلب من الشخص أن يختار في سره عدداً بين 1…

السلام عليكم... فهرس دروس المنتدى. كتب و مواقع مفيدة. نرجو الاستفادة و السلام.

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

السلام عليكم... أعتذر من الأخ sniper-jawadino عما جاء في هذه المشاركة بشكل مبدئي (قبل التعديل) لأني كنت أتحدث - خطأً - عن الـ DBGrid الموجودة في Delphi بينما الموضوع عن الـ DataGrid الخاصبة بـ VB6 :blush: على أية حال: في الـ DataGrid الخاصة بـ VB6 توجد 3 خصائص…

السلام عليكم... نرجو توضيح معنى "لا يعمل": هل يعطي رسالة خطأ أم يقف على سجل خاطئ أم لا يحدث شيئ عند تنفيذه؟ و إذا أمكن وضع كتلة الكود المحتوية على هذا السطر كاملة، مع إرفاق الجدول الذي تعمل عليه. سلام.

السلام عليكم... لا يمكن ذلك مع الـ Shape الأصلي الموجود في VB6 لأنه لا يدعم أية أحداث بأصل تصميمه. تجد في المرفقات UserControl باسم TShape (الملف TShape.ctl) و هو عبارة عن مكون Shape مخصص: أ. الخصائص: 1. الخاصية Shape: تحدد نوع الشكل، و قيمها هي: = sscRectangl…

السلام عليكم... لكن أعتقد أنه مع التكرارات الكثيرة جداً قد تصل إلى حالة Out of memory لأنه - حسب ما أعرف - كل استدعاء لدالة يؤدي إلى دفع عنوان الدالة المستدعية و متغيراتها المحلية إلى الـ Stack للاحتفاظ بها إلى حين العودة إليها. الحلقات أفضل إذا لم تكن هناك حا…

السلام عليكم... بالنسبة إلى طباعة جملة، أو حتى إدخال بيانات، يمكن عمل ذلك باستخدام الاستدعاء الذاتي (Recursion). مثلاً: #include <iostream> #include <string> using namespace std; void printIt(string yourStr, int count) { if (count > 0) { cout << yourStr << end…

السلام عليكم... أعتذر عن عدم تمكني من إعادة تحميل المشروع بعد التعديل، و لكن كود Form_Load و Form_Unload للـ Form3 سيكون هكذا (جربته و يعمل): Private Sub Form_Load() Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 Text2.Text = GetSetting…

السلام عليكم... في هذه الحالة يجب حفظ النص خارج البرنامج. أسهل طريقة لذلك هي حفظ البيانات في الـ Registry التابع للنظام Windows و قراءتها منه باستخدام الإجراء SaveSetting و الدالة GetSetting : = صيغة الدالة GetSetting كالتالي (لقراءة قيمة من الـ Registry): X =…

السلام عليكم... نعم... 1. في Module قم بتعريف متغير عام (Public) من النوع String: Public MyValue1 As String 2. في الحدث Load للـ Form الذي به الـ TextBox انسخ محتوى المتغير إلى مربع النص: Text1.Text = MyValue1 3. في الحدث Unload لنفس الـ Form (الذي به الـ Text…

السلام عليكم... عند التعامل مع الحقول النصية يجب حصر القيمة بين علامات اقتباس أو تنصيص . و السبب بسيط: بدونها لا يستطيع محرك قاعدة البيانات أن يعرف هل القيمة هي قيمة النص أم اسم كائن في قاعدة البيانات (اسم جدول أو حقل مثلاً) كما أنه لا يستطيع أن يعرف نهاية الن…

السلام عليكم... هذا يعني أنه يجب توضيح تركيب جملة SELECT. أعتقد أن الحقل Dscrpt هو حقل نصي (اختصار من Description). و لكن على أية حال: 1. إذا كان الحقل Dscrpt عددياً و تريد البحث في هذا الحقل عن القيمة الموجودة في ComboBox1 ، فيجب أن تكون ComboBox1.Text قيمة ع…

السلام عليكم... سبب الخطأ هو أنك في هذا الجزء: if (not IsEmpty) and (not FieldByName('CCNo').IsNull) then SP.Parameters.ParamByName('@Class').Value := dM.QMultiII.FieldByName ('CCNo').Value; تشير إلى حقل (عمود) اسمه CCNo لكنه غير موجود في جملة SELECT التي استع…

السلام عليكم... لا يبدو أنه يوجد خطأ في تسلسل الكود - مع بعض الملاحظات (مثلاً عبارة On Error Resume Next من المفترض أن تكون خارج الحلقة). لكن لزيادة التوضيح: هل البرنامج يعلق بمعنى أنه يتوقف عن الاستجابة، أم أنه يستمر بالعمل دون أن ينفذ المطلوب؟ مبدئياً: إذا ك…

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