كود اكبر من واصغر من للانبوت [الأرشيف]

ياسرهتهت

13-12-2015, 03:53 PM

بسم الله الرحمن الرحيم

عاوز كود يطبق العملية دى

لو الرقم الى فى الانبوت رقم 1 اكبر من الرقم الى فى الانبوت رقم 2 يظهر الفرق مابينهم فى الانبوت رقم 3

---------------------
بسم الله الرحمن الرحيم

اخي محمد هذا طلب سهل ومباشر
هذا هو الكود
x = Input.GetText("Input1");

y = Input.GetText("Input2");

v= x-y
Input.SetText("Input3", v);

لكن على حسب فهمي في طلباتك السابقة انك كما عوز لو الانبوت رقم 2 اكبر من الانبوت رقم 1 الاجابة في انبت 4
علشان يبقي له وعليه

هذا الكود بنفذ العمليتان مع بعض

a1 = Input.GetText("m");
a2= Input.GetText("n");
if a1 > a2 then
x = a1-a2
Input.SetText("Input3", x);
else
x = a1-a2
v3 = Math.Abs(x)

Input.SetText("Input4", v3);
end

يوجد ملف مفتوح بالكود في المرفقات

:abc_152::abc_152:

محمد مصطفى الجن

13-12-2015, 04:47 PM

---------------------
بسم الله الرحمن الرحيم

اخي محمد هذا طلب سهل ومباشر
هذا هو الكود
x = input.gettext("input1");

y = input.gettext("input2");

v= x-y
input.settext("input3", v);

لكن على حسب فهمي في طلباتك السابقة انك كما عوز لو الانبوت رقم 2 اكبر من الانبوت رقم 1 الاجابة في انبت 4
علشان يبقي له وعليه

هذا الكود بنفذ العمليتان مع بعض

a1 = input.gettext("m");
a2= input.gettext("n");
if a1 > a2 then
x = a1-a2
input.settext("input3", x);
else
x = a1-a2
v3 = math.abs(x)

input.settext("input4", v3);
end

يوجد ملف مفتوح بالكود في المرفقات

:abc_152::abc_152:

جارى تجربة الملف المفتوح

دلوقتى شايف الكود دا مسئول عن عملية جمع بين الانبوت والاخر والنتيجة فى انبوت ثالت بعد الضغط على الزر لكن لو الانبوت الاول والتانى خالى لايحتوى على عدد وضغط المستخدم على زر التجميع تظهر رسالة خطا

عاوز اعدله بحيث لو ضغط والانبوت خالى من الاعدد تظهر رسالة ديلوج تعلمه ان عليه ادخال اعدجاد ليتم الجمع او تظهر النتيجة فى الانبوت المسئوع عن الجمع تظهر النتيجة صفر

الحاجة التانية ازاى اغير صفحة بداية المشروع متكونش الصفحة الاولى لان الوجهة عندى فى الصفحة التانية

ثامر أبو بلقيس

13-12-2015, 04:52 PM

و الرقم الى فى الانبوت رقم 1 اكبر من الرقم الى فى الانبوت رقم 2 يظهر الفرق مابينهم فى الانبوت رقم 3

هاهي ترجمة حرفية لطلبك :abc_138:

a1 = String.ToNumber(Input.GetText("Input1"));
a2 = String.ToNumber(Input.GetText("Input2"));
if Math.Max(a1, a2)==a1 then
Input.SetText("Input3", a1-a2);
end

ثامر أبو بلقيس

13-12-2015, 05:06 PM

الحاجة التانية ازاى اغير صفحة بداية المشروع متكونش الصفحة الاولى لان الوجهة عندى فى الصفحة التانية

حركها يدويا هكذا
http://store3.up-00.com/2015-12/1450017446191.bmp
أو وضح ماذا تريد :abc_138:

محمد مصطفى الجن

13-12-2015, 05:23 PM

هاهي ترجمة حرفية لطلبك :abc_138:

a1 = string.tonumber(input.gettext("input1"));
a2 = string.tonumber(input.gettext("input2"));
if math.max(a1, a2)==a1 then
input.settext("input3", a1-a2);
end

اخى الكود يعمل لكن مش دا الى اقصده ركز معايا

انا عندى مثلا انبوت 1
وانبوت 2
وانبوت3

وانبوت 4

عاوز لو فى الانبوت رقم واحد مثلا عدد اكبر من الانبوت رقم اتنين يظهر الفرق فى الانبوت رقم 3 والانبوت رقم 4 يكون فيه 0

ولو العدد الى فى الانبوت رقم 2 اكبر من الانبوت رقم 1 يظهر الفرق فى الانبوت رقم 4 والانبوت 3 يكون فيه 0

وعند تغير الاعداد والضغط على الزر تعمل العملية على حسب النتيجة الموجودة وتتغير على متغيرات الاعداد المكتوبة

حاجة تانية الكود الى اخدته منك بتاع عملية الجمع لو الانبوت خالى من الاعدا بيظهر خطا عند الضغط على الزر عاوز يظهر 0 او رسالة تعلم المستخدم ان ليس هناك اعدا لجمعها

لانى علشان اتلاشئ رسالة الخطا وضعت رقم 0 فى الانبوت كعدد افتراضى مكتوب لكن مظهر الصفحة ليس جيد مليئة اصفار هههه

محمد مصطفى الجن

13-12-2015, 05:30 PM

هاهي ترجمة حرفية لطلبك :abc_138:

a1 = String.ToNumber(Input.GetText("Input1"));
a2 = String.ToNumber(Input.GetText("Input2"));
if Math.Max(a1, a2)==a1 then
Input.SetText("Input3", a1-a2);
end

لاحظ الفرق بين الصورتين

http://cdn.top4top.co/i_000aebc4931.jpg (http://up.top4top.net/)

رغم تغير النسب لم يتم تغير العدد عاوز مثلا لما تكون الحمولة اكبر من بطايق يبقا فى الانبوت الى اسمه ليه 0 والانبوت الى اسمه عليه الفرق بين الحمولة والبطايق

ثامر أبو بلقيس

13-12-2015, 05:37 PM

حاجة تانية الكود الى اخدته منك بتاع عملية الجمع لو الانبوت خالى من الاعدا بيظهر خطا عند الضغط على الزر عاوز يظهر 0 او رسالة تعلم المستخدم ان ليس هناك اعدا لجمعها

اطرح هذا الاشكال في المكان الذي كتب فيه ليصحح هذا الكود بمعنى أو بالأحرى لاضافة العبارة String.ToNumber لا غير :abc_138:

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

محمد مصطفى الجن

13-12-2015, 06:24 PM

اطرح هذا الاشكال في المكان الذي كتب فيه ليصحح هذا الكود بمعنى أو بالأحرى لاضافة العبارة String.ToNumber لا غير :abc_138:

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

String.ToNumber

اضعها فين بالظبط

محمد مصطفى الجن

13-12-2015, 06:35 PM

حركها يدويا هكذا
http://store3.up-00.com/2015-12/1450017446191.bmp
أو وضح ماذا تريد :abc_138:

تمام تم ظبط الصفحة

معلش تعبتك معايا فى البرنامج دا

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

نقطة العدد اكبر واصغر كما شرحتها

وتعديل كود الجمع والطرح لحل مشكلة العدد اذا كان لايوجد عدد

وايضا كود زر تصغير الديلوج

abohmam

13-12-2015, 07:02 PM

جزاكم الله خيرا إخوانى ياسر هتهت والنشيط ثامر أبا بلقيس على المتابعة وتقديم المساعدة

بارك الله فيكم وفى جميع الأخوة

:abc_152:

محمد مصطفى الجن

13-12-2015, 08:19 PM

اطرح هذا الاشكال في المكان الذي كتب فيه ليصحح هذا الكود بمعنى أو بالأحرى لاضافة العبارة string.tonumber لا غير :abc_138:

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

منتظرك لكى انهى البرنامج

محمد مصطفى الجن

14-12-2015, 04:47 AM

ياسرهتهت

14-12-2015, 07:32 AM

جارى تجربة الملف المفتوح

دلوقتى شايف الكود دا مسئول عن عملية جمع بين الانبوت والاخر والنتيجة فى انبوت ثالت بعد الضغط على الزر لكن لو الانبوت الاول والتانى خالى لايحتوى على عدد وضغط المستخدم على زر التجميع تظهر رسالة خطا

عاوز اعدله بحيث لو ضغط والانبوت خالى من الاعدد تظهر رسالة ديلوج تعلمه ان عليه ادخال اعدجاد ليتم الجمع او تظهر النتيجة فى الانبوت المسئوع عن الجمع تظهر النتيجة صفر

الحاجة التانية ازاى اغير صفحة بداية المشروع متكونش الصفحة الاولى لان الوجهة عندى فى الصفحة التانية

------------------------

بسم الله الرحمن الرحيم

جرب الملف في المرفقات
ان شاء الله اكون فهمت ماذا تريد ؟

موفق بإذن الله ... لك مني أجمل تحية .

فرح صالحي

14-12-2015, 09:52 AM

موفق بإذن الله ..:abc_152:. لك مني أجمل تحية .

عبد الهادي بهاب

14-12-2015, 12:00 PM

موفق بإذن الله ... لك مني أجمل تحية .

محمد مصطفى الجن

14-12-2015, 01:17 PM

------------------------

بسم الله الرحمن الرحيم

جرب الملف في المرفقات
ان شاء الله اكون فهمت ماذا تريد ؟

موفق بإذن الله ... لك مني أجمل تحية .

هو دا بالظبط الى طلبته تسلم ياكبير

عاوز اضيف للكود دا بردو رسالة فى حالة اذا كانت الانبوت خالى من الاعددا تظهر زى الكود بتاع اكبر واصغر لانى جيت اضيف الكود الخاص بظهور الرسالة مع هذا الكود لكنى لما انجح فى ذلك لكن كود اكبر واصغر تمام جدا وشغال تمام زى ماطلبته بالظبط بعد ماعدلته بالانبوتات الى عندى

y = Input.GetText("AR11")..("+")..Input.GetText("AR10")..("+")..Input.GetText("EN5")..("+")..Input.GetText("EN1")
x = string.gsub("$return "..y.."$", "%$(.-)%$", function (s)
return loadstring(s)()
end)
Input.SetText("AR14", x);

محمد مصطفى الجن

14-12-2015, 01:39 PM

------------------------

بسم الله الرحمن الرحيم

جرب الملف في المرفقات
ان شاء الله اكون فهمت ماذا تريد ؟

موفق بإذن الله ... لك مني أجمل تحية .

الحمد لله قدرت اعدل الكود واضيفه للكود الى طلبته منك وظهر ت الرسالة بس لحظت حاجة
ان مثلا لو عندى

انبوت 1
وانبوت 2
وانبوت3
وانبوت 4

وعندى زر وفيه الكود دوره انه يجمع مابين الاعداد الى هيكتبها المستخدم فى الاربع انبوتات وفى حالة انه مكتبش حاجة وضغط على الزر بتظهر رسالة تطلب منه انه يكتب اعداد ليتم الجمع مابينهم

لحد كدا تمام اوى وبالفعل دا عملته ونجح لكن لحظت ان لازم المستخدم يكتب فى الاربع انبوتات لو ترك احدهم فارغ تظهر رسالة التنبيه انا بقا عاوز الى هيسيبه فارغ تكون قيمته الافتراضية تلقائى هى 0 وتتم عملية الجمع

او نلغى رسالة التنبيه خالص ونخلى القيمة الافتراضية هى 0 يعنى لو ضغط على الزر ومكتبش حاجة تكون الانبوتات 0 والمجموع 0

او نجمع مابين رسالة التنبيه وال 0 بمعنى ان رسالة التنبيه تظهر فى حالة لو مكتبش فى اى واحد من الاربعة لكن لو كتب فى واحد فيهم على الاقل تحتسب نتيجته ويظهر فى باقى الانبوتات 0 او تترك فارغة

ياسرهتهت

14-12-2015, 04:32 PM

هو دا بالظبط الى طلبته تسلم ياكبير

عاوز اضيف للكود دا بردو رسالة فى حالة اذا كانت الانبوت خالى من الاعددا تظهر زى الكود بتاع اكبر واصغر لانى جيت اضيف الكود الخاص بظهور الرسالة مع هذا الكود لكنى لما انجح فى ذلك لكن كود اكبر واصغر تمام جدا وشغال تمام زى ماطلبته بالظبط بعد ماعدلته بالانبوتات الى عندى

y = Input.GetText("AR11")..("+")..Input.GetText("AR10")..("+")..Input.GetText("EN5")..("+")..Input.GetText("EN1")
x = string.gsub("$return "..y.."$", "%$(.-)%$", function (s)
return loadstring(s)()
end)
Input.SetText("AR14", x);
------------------------------------------------------------
اخي محمد مش فاهم حاجة من الكود
لما تكتب كود حطوبينhttp://www.abc4web.net/vb/images/editor/php.gif

علشان يكون مرتب وواضح او ارفع ملف مفتوح
والكود ده مكتوب باحتراف انا معرفش اكتبو ومفهمش الرموز $
انا لو هكتب عملية جمع انبتات هكتبها وحدة وحدة
جمع اربع انبت ولو فاضي يضع 0

تمام ضع هذا الكود في زر وجرب

a1 = Input.GetText("AR10");
s1 = String.ToNumber(a1);
a2 = Input.GetText("AR11");
s2 = String.ToNumber(a2);
a3 = Input.GetText("EN5");
s3 = String.ToNumber(a3);
a4 = Input.GetText("EN1");
s4 = String.ToNumber(a4);
table_of_inputs_to_check_empty = {"AR11" , "AR10" , "EN5" , "EN1" }
n = 1
for x , y in pairs (table_of_inputs_to_check_empty) do
if Input.GetText(y) == "" then
Input.SetText((y), "0");
else
g= s1+s2+s3+s4
Input.SetText("AR14", g);
end
end

موفق بإذن الله ... لك مني أجمل تحية .

محمد مصطفى الجن

14-12-2015, 05:28 PM

------------------------------------------------------------
اخي محمد مش فاهم حاجة من الكود
لما تكتب كود حطوبينhttp://www.abc4web.net/vb/images/editor/php.gif

علشان يكون مرتب وواضح او ارفع ملف مفتوح
والكود ده مكتوب باحتراف انا معرفش اكتبو ومفهمش الرموز $
انا لو هكتب عملية جمع انبتات هكتبها وحدة وحدة
جمع اربع انبت ولو فاضي يضع 0

تمام ضع هذا الكود في زر وجرب

a1 = input.gettext("ar10");
s1 = string.tonumber(a1);
a2 = input.gettext("ar11");
s2 = string.tonumber(a2);
a3 = input.gettext("en5");
s3 = string.tonumber(a3);
a4 = input.gettext("en1");
s4 = string.tonumber(a4);
table_of_inputs_to_check_empty = {"ar11" , "ar10" , "en5" , "en1" }
n = 1
for x , y in pairs (table_of_inputs_to_check_empty) do
if input.gettext(y) == "" then
input.settext((y), "0");
else
g= s1+s2+s3+s4
input.settext("ar14", g);
end
end

موفق بإذن الله ... لك مني أجمل تحية .

هو دا بالظبط الى انا اقصده مشكوووووور نجح الامر تعبتك معايا معلش لوعندك فكرة عن عمل زر لتصغير الديلوج ياريت تجيب الكود

ياسرهتهت

14-12-2015, 06:33 PM

هو دا بالظبط الى انا اقصده مشكوووووور نجح الامر تعبتك معايا معلش لوعندك فكرة عن عمل زر لتصغير الديلوج ياريت تجيب الكود

-----------------------------------------
بسم الله الرحمن الرحيم

اخي محمد انا معرفش كود لتصغير الديلوج
والله واعلم يمكن مفيش تصغير لديلوج
لكن ممكن تحط زر في الديلوج يصغر البرنامج-Application
كلو ومعه الديلوج

Application.Minimize();

موفق بإذن الله ... لك مني أجمل تحية .

المـهاجر

15-12-2015, 03:56 PM

------------------------------------------------------------
جمع اربع انبت ولو فاضي يضع 0

طيب حرف الأو o يقع أسفل الرقم 0
ممكن المتسخدم يكتب حروف بدل الأرقام

ممكن تعديل سطر الشرط إلى
if Input.GetText(y) == "" or tonumber(Input.GetText(y)) == nil then
ليشمل الكشف عن حروف
يبقى بعد إذنكم الكود ممكن يبقى كده
a1 = Input.GetText("AR10");
s1 = String.ToNumber(a1);
a2 = Input.GetText("AR11");
s2 = String.ToNumber(a2);
a3 = Input.GetText("EN5");
s3 = String.ToNumber(a3);
a4 = Input.GetText("EN1");
s4 = String.ToNumber(a4);
table_of_inputs_to_check_empty = {"AR11" , "AR10" , "EN5" , "EN1" }
n = 1
for x , y in pairs (table_of_inputs_to_check_empty) do
if Input.GetText(y) == "" or tonumber(Input.GetText(y)) == nil then
Input.SetText((y), "0");
else
g= s1+s2+s3+s4
Input.SetText("AR14", g);
end
end
:abc_152: