كيـــف يمكـــن الرجــوع بقيمة من (Dialog) للصفحـــــة

[ياسرهتهت]

بسم الله الرحمن الرحيم
أخـــواني ألاعزاء أساتذتــي الكـــرام
اليوم عندي ثلاثة اسئلة
1- كيـــف يمكـــن الرجــوع بقيمة من (Dialog) للصفحـــــة
طبعا الي انبت(Inpu )او ليست بكس(ListBox) في الصفحة

http://cdn.top4top.co/i_dc7c2012251.png


2- اريد ان اجد الفرق بن عناصر (ItemText) للـــ (ListBox1)
وعناصر(ItemText) للـــ (ListBox2)
ووضع النتجة في (ItemText) للـــ (ListBox3)

http://cdn.top4top.co/i_4c6ea1e4151.png

ملف مفتوح
http://up.top4top.net/downloadf-top4top_66773b17de1-rar.html

3- كيف اتخلص من علامة الناقص في اي عملية حسابية يكون الناتج بالسالب

انا استخدمت الدالة Replace مثل هذا المثال

a1 = Input.GetText("m");
a2= Input.GetText("n");
if a1 > a2 then
x = a1-a2
Input.SetText("Input3", x);
else
x = a1-a2
result = String.Replace(x, "-", "", false);

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


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

:abc_152::abc_152::abc_152:

[عبد الهادي بهاب]

تحية طيبة استاذ ياسر
لم اجد حل لاستدعاء القيم من ديالوج الى الصفحة
لكن لو استعملت dialog.Input فهو عملي
يعني في زر dialog ضع الكود


r = Dialog.Input("Enter Data", "Your answer:", "", MB_ICONQUESTION);
ListBox.AddItem("ListBox1", r, "");

[عبد الهادي بهاب]

في زر الفرق بين اليسبوكسين 2 و3

for i= 1 , ListBox.GetCount("ListBox2") do
v1 = ListBox.GetItemText("ListBox2", i);
v2 = ListBox.GetItemText("ListBox3", i);
v3= v1-v2
ListBox.AddItem("ListBox4", v3, "");
end

[عبد الهادي بهاب]

للتخلص من علامة - مع الحفاظ على القيمة

for i= 1 , ListBox.GetCount("ListBox2") do
v1 = ListBox.GetItemText("ListBox2", i);
v2 = ListBox.GetItemText("ListBox3", i);
v3= v1-v2
if v3 < 0 then
v3 = (-2*v3)+v3
ListBox.AddItem("ListBox4", v3, "");
else
ListBox.AddItem("ListBox4", v3, "");
end
end

[عبد الهادي بهاب]

او ببساطة نستخدم دالة القيمة المطلقة Math.Abs وهي تحذف كل - و ترجع موجبة


for i= 1 , ListBox.GetCount("ListBox2") do
v1 = ListBox.GetItemText("ListBox2", i);
v2 = ListBox.GetItemText("ListBox3", i);
v3= v1-v2
v3 = Math.Abs(v3)
ListBox.AddItem("ListBox4", v3, "");
end

[عبد الهادي بهاب]

فيه حل لمشكلة الاستدعاء باستخدام الاضافة Clipboard

في زر dialog ضع الكود

DialogEx.Show("Dialog1", true, nil, nil);
Input.Paste("Input1")

ثم في زر اغلاق الديالوج

Clipboard.CopyText(Input.GetText("Input1"));
result = DialogEx.Close(0);


طبعا ملاحظة مهمة في خصائص زر الاغلاض للديولوج في quiik action يجب يجب لازم ضروري ان لا تفعل خاصية اغلاق الديالوج و الا فان الاضافة لم تختفظ باي شيء

[ياسرهتهت]

فيه حل لمشكلة الاستدعاء باستخدام الاضافة Clipboard
بسم الله الرحمن الرحيم

شكرا لك اخي المحترف
على هذة الاجابات وهذا التعاون
بارك الله فيك جازك كل خير

:abc_138::abc_138:
فيه حل لمشكلة الاستدعاء باستخدام الاضافة Clipboard


هذا سؤال ام جواب؟

هل عندك حل ام تسئلني هل وجدت حل ؟

لا لم اجد حل ... صعب

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

السلام عليكم ورحمة الله وبركاته
1- كيـــف يمكـــن الرجــوع بقيمة من (Dialog) للصفحـــــة
طبعا الي انبت(Inpu )او ليست بكس(ListBox) في الصفحة

ماذا لو نضع في حدث on close بالنسبة لصفحة الديالوج
هذا الكود
X =Input.GetText("Input1");
Page.StartTimer(10);


أي حجز لقيمة الانبوت الموجود في الديالوج وتشغيل تايمر
هذا التايمر متعلق بالصفحة الاولى التي سنزرع فيها استيراد للقيمة وتوقيف للتايمر
أكتب في الصفحة الاولى on timer
Input.SetText("Input1", X );
Page.StopTimer(10);


هذا ماخطر ببالي الان اذ لم يوفي بالغرض أو لم يعجبك نفكر في حلول آخرى

:abc_138:

[عبد الهادي بهاب]

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

شكرا لك اخي المحترف
على هذة الاجابات وهذا التعاون
بارك الله فيك جازك كل خير

:abc_138::abc_138:



هذا سؤال ام جواب؟

هل عندك حل ام تسئلني هل وجدت حل ؟

لا لم اجد حل ... صعب





شكرا استاذ ثامر نجرب الفكرة و لقد اجبت اعلاه و الكود شغال معي:abc_050::abc_050:

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

عذرا لم أقرأ إجابتك وقت نقاشكما كتبت الكود و أرسلته
اعتبره حل لتساؤل مفاده كيف نعوض عمل Clipboard في حالة مشابهة :abc_138:

[ياسرهتهت]

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


هذا ماخطر ببالي الان اذ لم يوفي بالغرض أو لم يعجبك نفكر في حلول آخرى

:abc_138:

---------------------------
بسم الله الرحمن الرحيم
كل ما يخطر ببالك دائما رائع ومفيد
استاذي الكريم

http://cdn.top4top.co/i_4c43e9630f1.gif

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

[ياسرهتهت]

شكرا استاذ ثامر نجرب الفكرة و لقد اجبت اعلاه و الكود شغال معي:abc_050::abc_050:

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

http://cdn.top4top.co/i_51ca3368701.gif

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

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

رائعـــــة ردودك كالعـــادة بارك الله فيـــك :abc_138: