منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : شائبة في هذا الكود أرجو التصحيح
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السؤال هو
عندي متغيرات ثابتة  ولها قيم ثابته معرفة بالتالي على النحو التالي:-
Const HZ2="123456"
Const HZ4="654560"
"Const HZ6="01010111
هذه الثوابت موجودة في قسم التصاريح العام
هذه المتغيرات بشكل تسلسلي زوجي تصل لحدود HZ900
عندي تكست بوكس وليست بوكس
أريد تعبئة لليست بوكس بهذه الثوابت
وأريد عند الضغط على اليست أن يضع في التكست بوكس قيمة الثابت وليس إسمه
وضعت كود ولكن الشائبة أن يظهر فقط إسم الثابت ولا تظهر قيمته في التكست بوكس
Dim i As Integer
For i = 0 To 899 Step 2
List1.AddItem "HZ" & i
Next i
الشائبة تظهر إٍسم المتغير الثابت ولا تظهر قيمته
الرجاء كود يصحح هذه الشائبة أو أن هناك خطىء ما
Heart  Heart  Heart
الشائبة لم تحل
لا أريد عمل مقارنة السبب أنني عرفتهم بالتصريح العام وهم مثلا 900 ثابت
عند الضعط على ليست قمت أنت بوضعهم وكتابتهم في الإف الشرطية مرة اّخرى لا أريد إعادة كتابة القيم مرة اّخرى لانهم كثرين جدا وإدخالهم مرة أخرى
في اليست أمر طويل وشاق
الرجاء فهم طلبي
وشكرا على المساعدة
والله موفق الجميع
لا أريد إستخدام قواعد البيانات ولا إعادة كتابة القيم مرة اخرى في قاعدة البيانات الرجاء فهم طلبي
السؤال هو:-
لا أريد كتابة القيم مرة اخرى
لماذا الكوماند وقت التنفيذ يفهم أنه متغير ثابت معرف في التصريحات العامة وله قيمة
أي عند الضغط على زر الكوماند وقت التنفيذ يفهم أن المتغير له قيمة فيظهر في التكست بوكس قيمة المتغير وليس إسمه
بينما اليست بوكس لم يفهم ذللك ويتعامل معه على أساس إسم أو حروف
السؤال الجوهري هو:-
ما هي الطريقة لكي يفهم اليست بوكس أن هذه متغيرات لها قيم ثابتة في قسم التصريحات العامة
لا أريد إستخدام قاعدة بيانات ولا أريد كتابة القيم في البرنامج مرة اّخرى
الرجاء فهم طلبي وشكرا على المساعدة
والله موفق الجميع
اهلا اخي الكريم ، اعتقد ان ماتطلبه يتطلب اكواد طويله ومعقده وأشياء تخليك تفضل كتابتها مرات وليس مره اخرى ، لذلك البرمجه تعطيك خيارات بديله كثيره وسهله لتنفيذ ماتريد ان تصل اليه من دون عناء ، لذلك اذا كانت المتغيرات الثابته التي ذكرتها والتي عددها ٩٠٠ اريدك ان تظللها وتنسخها في ملف نصي ، وانا سأصنع بريمج صغير يقوم بوضعها في داله منفصله تستدعي قيمة اي متغير فيها باسمه كما تريد من خلال الضغط على اسمه في اللست بوكس وانت راح تشوف الطريقة وقل رأيك فيها .
شكرا أيها الأخ الكريم على المساعدة ولكن هناك كلمة أحب أن أقولها
أنا في البرمجة أتبع المنهج التالي ولا أغيره نهائيا وهو:-
إذا واجهتني مشكلة في البرمجة أقوم بحلها من جذورها ولا ألجأ نهائيا إلى التحايل لأحل المشكلة
إّذا إنحلت المشكلة تمام وإّذا لم تنحل فالأفضل العزوف عن طرحها أو تكرار المحاولة مرات عديدة
لذلك أريد حل المشكلة كما هي ولو تتطلب الأمر مني مئة كود برمجي
أرجو من الله فهم قصدي
والله موفق الجميع
اهلا اخي امير ، ماشاء الله عليك كأنك قرأت مافي ذهني وكنت اريد ان اقوله للاخ الكريم ، كلام رائع من شخص أروع ، شكرا لك يعطيك العافيه .
أعتذر عن كلمة تحايل في خطابي
ولكن أردت أن أقول لو كلفني مئة كود برمجي للحل سأحاول
وأنا اّسف على هذا الخطاب الجارح
وشكرا لمن ساعدني وطلع على رأي
أهلا , أخي الكريم , هذا مثال أو بالأحرى مثالين وهي توضح وجهة نظري في موضوعك والطريقة التي أريد أن أعملها لك لكي تكفيك عناء كتابة المتغيرات الثابتة كلها مرة أخرى جربها ممكن تفيدك , يوجد في المرفقات مجلد يوجد بداخله المثال الرئيسي الذي يوضح كيفية إضافة أسماء المتغيرات في اللست بوكس وطريقة إستدعاء قيمة المتغير بالضغط على إسمه الموجود في اللست بوكس والدالة التي ستوضع فيها جميع المتغيرات الثابتة والتي تعود لنا بقيمة المتغير , ويوجد مجلد فرعي داخل المجلد الرئيسي وهذا المجلد الفرعي يوجد داخله مثال أو بريمج صغير يقوم بتحويل جميع المتغيرات إلى دالة جاهزة لكي تنسخها وتلصقها في المثال الأول الرئيسي , يعني في المثال الفرعي أو أداة تحويل المتغيرات إلى دالة جاهزة كل ما عليك فعله في هذا المثال هو فقط أن تنسخ قائمة المتغيرات الثابتة في مشروعك التي ذكرت أنها قد تصل إلى 900 متغير إنسخها وإلصقها في التكست بوكس الموضح ثم إضغط على الزر الموجود أسفل التكست بوكس ثم بعد الضغط على الزر ستتحول قائمة المتغيرات إلى دالة جاهزة عندها قم بنسخ هذه الدالة وألصقها في المثال الأول الرئيسي أو إستبدلها بالدالة التجريبية الموجوده مسبقا في المثال الأول , ثم جرب أداء المثال الأول .
هل من الأخوة الكرام أن يشرح لي سبب هذه الشائبة ولماذا
يظهر فقط إسم الثابت ولا تظهر قيمته في التكست بوكس