تسجيل الدخول

مشاهدة النسخة كاملة : أستفسار خاص بــ (رســـائل الخطــأ) وتصحيح أكواد ؟


ياسرهتهت
01-06-2015, 03:53 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أخواني الاعزاء
أساتذتي الكرام
هل يوجد كود يمنع رسائل الخطأ بصفة عامة ؟
وبصفة خاصة عند الضغط على مكان فارغ في قائمة ListBox تظهر رسالة
لا تظهر في حالة الضغط علي مكان Selected
هل يوجد كود لعدم اظهار هذه الرسالة ؟
-----------
:abc_070: وعندي استفسار اخر مهم اتمنا ان استطيع إيصال السؤال
بدون ملف مفتوح لان النت عندي ضعيف جدا جدا هذه الايام:abc_102:
باختصار السؤال كالاتي
بهذا الكود
TextInp1 = Input.GetText("Input1");
TextInp2 = Input.GetText("Input2");
ListBox.AddItem("ListBox1", TextInp1, TextInp2);
بهذا الكود
ندخل بيانات الي ListBox من خلال Input1 و Input2
في حالة كانت هذه البيانات موجود من قبل أي تم ادخالها
كيف اجعل البرنامج يظهر مسج بذلك ولا يكرر البيانات
وهنا اقصد الـــ ItemText لا ItemData
أي لا اريد ان يحدث التكرار ItemText
----------------------------------------------
والان تصحيح الكود

Selected = ListBox.GetSelected("ListBox1");
ListBox.SelectItem("ListBox2",Selected[1]);
ListBox.SelectItem("ListBox3",Selected[1]);

هذا الكود لغرض عند تحديد Selected في ListBox1 يتم معه
تحديد نفس رقم Index
في ListBox2 وListBox3
هل هذا الكود صحيح هل يوجد افضل منه ؟
هو شغال عندما يوضع في ListBox واحد فقط
ولكن ان يوضع في الثلاثة وعند تحديد أي واحد يحدد الباقي لا
-----
:abc_102: اسف على الإطالة :abc_102:
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

ثامر أبو بلقيس
01-06-2015, 12:30 PM
السلام عليكم ورحمة الله وبركاته

إليك بهذه الجزئية
TextInp1 = Input.GetText("Input1");
TextInp2 = Input.GetText("Input2");
h = ListBox.FindItem("ListBox1", 1, LB_BYTEXT, TextInp1);

if h ~= -1 or TextInp1=="" then
Dialog.TimedMessage("......", "هذا الاسم موجود ضمن القائمة أو حدد اسما للادخال", 2000, MB_ICONINFORMATION);
else
ListBox.AddItem("ListBox1", TextInp1, TextInp2);
end

ثامر أبو بلقيس
01-06-2015, 12:55 PM
السلام عليكم ورحمة الله وبركاته
هل يوجد كود يمنع رسائل الخطأ بصفة عامة ؟

نجرب الاتي :
ضع في تجميعية أنبوت 1

في زر ازرع
x=Input.GetText("Input1");

Dialog.Message("Notice", x+1);

جرب الان : أكتب رقما في الانبوت سيعمل الكود طبيعي
أكتب في الانبوت مثلا حروف سينتج رسالة خطأ
-----------------------------------------------------
نريد أن نمنع ظهور هذه الرسالة مثلا
لاحظ هذا الكود :
x=Input.GetText("Input1");

function thameur ()
Dialog.Message("Notice", x+1);
end
if pcall(thameur) then
--------- ضع أي اجراء بديل عن رسالة الخطأ أو أتركه فارغا
end

ياسرهتهت
01-06-2015, 03:40 PM
بسم الله الرحمن الرحيم
شكرا لك استاذي الكريم
وبارك الله فيك
بالنسبة للكود الاول
TextInp1 = Input.GetText("Input1");
TextInp2 = Input.GetText("Input2");
h = ListBox.FindItem("ListBox1", 1, LB_BYTEXT, TextInp1);

if h ~= -1 or TextInp1=="" then
Dialog.TimedMessage("......", "هذا الاسم موجود ضمن القائمة أو حدد اسما للادخال", 2000, MB_ICONINFORMATION);
else
ListBox.AddItem("ListBox1", TextInp1, TextInp2);
end


ممتاز تمت التجربة بنجاح
-----------------------------------------
اما كود منع رسائل الخطأ
يعمل بشكل جيد مع Input
ولكن لم اعرف كيف استفيد منه في ListBox
لمنع رسالة الخطأ الناتجة عن التحديد او الضغط في مكان فارغ

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
:abc_138::abc_138:

ثامر أبو بلقيس
01-06-2015, 04:22 PM
السلام عليكم ورحمة الله وبركاته

تعودنا منك الشرح يالتفصيل للإشكال
المهم سأجيبك بدون معرفة الخلل بالضبط
في ListBox1 ضع
Selected = ListBox.GetSelected("ListBox1");
if Selected~=nil then
ListBox.SelectItem("ListBox2",Selected[1]);
ListBox.SelectItem("ListBox3",Selected[1]);
---------------------------------------------------------
result = Dialog.Message("Notice", x.."---"..y);
end


في ListBox2 ضع
Selected2 = ListBox.GetSelected(this);
if Selected2~=nil then
x = ListBox.GetItemData(this, Selected2[1]);
end

في ListBox3 ضع
Selected3 = ListBox.GetSelected(this);
if Selected3~=nil then

y = ListBox.GetItemData(this, Selected3[1]);
end

ياسرهتهت
02-06-2015, 01:24 AM
بسم الله الرحمن الرحيم
شكرا لك استاذي الفاضل
هذا هو الكود المطلوب
:abc_050::abc_050:
بارك الله فيك وجازك كل خير
:abc_152::abc_138::abc_152:

عبود عبود
03-06-2015, 02:47 PM
هل يوجد كود يمنع رسائل الخطأ بصفة عامة ؟


الأفضل هو منع وجود أخطاء بمراجعة الأكواد جيدا " هكذا يكون المبرمج "

أما عن سؤالك فقد تم طرح الشرح هنا :

http://www.abc4web.net/vb/showthread.php?t=30400

ياسرهتهت
03-06-2015, 03:23 PM
[quote=عبود عبود;284481]الأفضل هو منع وجود أخطاء بمراجعة الأكواد جيدا " هكذا يكون المبرمج "
------------------------------
اخي عبود الكود صحيح لكن عند الضغط في كان فارغ في اليست بكس
تظهر رسالة انك لم تحدد او المكان فارغ فقط
انا اريد منع هذه الرسالة

عبود عبود
03-06-2015, 03:30 PM
[quote=عبود عبود;284481]الأفضل هو منع وجود أخطاء بمراجعة الأكواد جيدا " هكذا يكون المبرمج "
------------------------------
اخي عبود الكود صحيح لكن عند الضغط في كان فارغ في اليست بكس
تظهر رسالة انك لم تحدد او المكان فارغ فقط
انا اريد منع هذه الرسالة

كلا أخى رسائل الأخطاء هى موضوعة لمعرفة الأخطاء البرمجية إذن هناك خطأ برمجى :abc_152:

المـهاجر
03-06-2015, 03:57 PM
السلام عليكم ورحمة الله وبركاته

الرابط المشار إليه يعالج عدم إظهار رسالة الخطأ عن فانكشن كتبها المبرمج

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

أم ان المشكل إنتهى ؟؟

هانى القاضى
03-11-2015, 08:56 AM
بارك الله فيكم

عبدوعزيز
07-02-2016, 09:47 AM
مشكوووووووووووووور