المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : التحكم في قيم بين أنبوتين


ثامر أبو بلقيس
19-10-2013, 01:51 PM
السلام عليكم
أخي الكريم عندي Input1 و Input2
عند الضغط على زر ينتقل الرقم المكتوب في الانبوت 1 إلى الانبوت 2

الان ساكتب رقما جديدا في الانبوت 1
هنا أريد أن يستقبل الانبوت2 العدد الجديد و يضيفه للقديم " يجمع "
ما الكود الذي تقترحه كي أتحكم في هذا

أو ماذا تقترح أخي الكريم كوسيط لتخزين القيمة الأولى ؟

شكرا مسبقا :abc_152:

عبود عبود
19-10-2013, 03:53 PM
ضــع فى الإينبوت 1 الكود التالى فى الحدث OnChar :

--
if e_Char==13 then
if Input.GetText("Input2")=="" then
Input.SetText("Input2", 0);
end
result = tonumber(Input.GetText("Input2"));
Input.SetText("Input2", result+tonumber(Input.GetText("Input1")));
end

وهذا معناة أنة عند إتمام عملية الكتابة فى الإينبوت 1 والضغط على زر إنتر من لوحة المفاتيح يعمل على جمع الرقم المكتوب فى الإينبوت 1 على ما هو موجود فى الإينبوت 2 دون الحاجة لزر لعمليةالإدخال .

ثامر أبو بلقيس
19-10-2013, 05:24 PM
مشكور جدا
بحكم أني استعمل النسخة 7.5 فإن OnChar غير متوفرة في خصائص الانبوت

استعملت مايلي باستغلال الاضافة Clipboard :

t = Input.GetText("Input2");
c = Clipboard.CopyText(t);
c = Clipboard.GetText(t);
c = Clipboard.GetText(t);
x= Input.GetText("Input1");
Input.SetText("Input2", x+c);

على أن لايكون الانبوت 2 في البداية شاغر أي يعبأ بالعدد 0

هل من تعديلات
شكرا

عبود عبود
19-10-2013, 05:32 PM
إذا كان الحدث غير متوفر فى الإصدار 7 فــ مش مهم قم بإلغاء الشرط الأول فقط وضع باقى الكود فى زر

--
if Input.GetText("Input2")=="" then
Input.SetText("Input2", 0);
end
result = tonumber(Input.GetText("Input2"));
Input.SetText("Input2", result+tonumber(Input.GetText("Input1")));

أما فى كودك فلما كررت هذا الكود مرتين ؟ c = Clipboard.GetText(t);


ثم قارن بين الكود المقدم منى بدون إضافات وبدون كتابة أى شيئ فى الإينبوت الثانى الذى سوف يتم التخزين أو الجمع فية أى لا يشترط وضع 0 فية .

وبين كودك :abc_152: فسوف ترانى تفاديت الأخطاء المتوقعة من المستخدم فماذا إذا تم تفريغ الإينبوت من الأرقام ؟ سواء تعمدا أو خطأ ؟:abc_051:

:abc_012: نقطة جانبية لا تشغل الكليب بورد إلا عند الضرورة أى لا تستخدمة إلا فى الضرورة القصوى.

ثامر أبو بلقيس
19-10-2013, 07:27 PM
السلام عليكم شكرا جزيلا
ساتعبك معي قليلا
حاولت ارسال ملف مفتوح فتعذر عني الأمر مجبرا

فأحببت أن أرسل الملف وصفا ثم أسال :
في حدث الصفحة on key وضعت الكود التالي :
x= Input.GetText("Input1");
y= Input.GetText("Input2");
if e_Key == 65 then
x= Input.GetText("Input1");
Input.SetText("Input1", "1");
Page.SetFocus("Input2");
Input.SetSelection("Input2", 1, -1);
elseif e_Key == 66 then
Input.SetText("Input1", "2");
Page.SetFocus("Input8");
Input.SetSelection("Input8", 1, -1);
end

في صفحة التجميعية وضعت Input1 و خصصته لكود الوجبة 1 أو 2
ثم وضعت بجانبه Input2 لاستقبال عدد وجبات النوع 1
ووضعت تحته Input8 لاستقبال عدد وجبات النوع 2
في كلا الانبوتين في الحدث on key

----
x=Input.GetText("Input1");
y= Input.GetText("Input2");

if x =="1" then
Input.SetText("Input3", y);
elseif x =="2" then
Input.SetText("Input4", y);
elseif x =="3" then
Input.SetText("Input5", y);
end
-------

if e_Key == 65 then
x= Input.GetText("Input1");
Input.SetText("Input1", "1");
Input.SetSelection("Input2", 1, -1);
Page.ClickObject("Button1");
Page.SetFocus("Input2");
Input.SetSelection("Input2", 1, -1);
--

elseif e_Key == 66 then
Input.SetText("Input1", "2");
Input.SetText("Input2", y);
Input.SetSelection("Input2", 1, -1);
Page.ClickObject("Button2");
Page.SetFocus("Input8");
Input.SetSelection("Input8", 1, -1);
end





في الصفحة وضعت Input3 لتخزين طلبات الوجبة الاولى
بجانبه Input6 لتخزين قيم سأحتاجها

ثم وضعت Input4 للوجبة الثانية بجانبه Input7

بعد هذا وضعت زرين Button1 و Button2 يمكن اخفائهما
في الأول :
if Input.GetText("Input6")=="" then
Input.SetText("Input6", 0);

end
result = tonumber(Input.GetText("Input6"));
Input.SetText("Input6", result+tonumber(Input.GetText("Input3")));

وفي الثاني :
if Input.GetText("Input7")=="" then
Input.SetText("Input7", 0);

end
result = tonumber(Input.GetText("Input7"));
Input.SetText("Input7", result+tonumber(Input.GetText("Input4")));
عند الضغط على الحرف a سيتم التعامل مع الوجبة 1
وعلى b يتم التعامل مع الوجبة الثانية

سؤالي :

عند الضغط على a مرتين لماذا يمسح الانبوت 1
وتصدر رسالة خطأ وتمحى القيم في الانبوت 3

و عند الضغط على b مرتين يمسح الأنبوت 8
و تصدر نفس الرسالة و يمسح الأنبوت 4

أريد علاج للمشكل مع تهذيب الأكواد و إضافة كل ما سيفيد


شكرا و أعتذر كثيرا لأني لم أستطع ارسال ملف مفتوح يختصر
الكلام

عبود عبود
19-10-2013, 08:52 PM
في صفحة التجميعية وضعت Input1 و خصصته لكود الوجبة 1 أو 2
ثم وضعت بجانبه Input2 لاستقبال عدد وجبات النوع 1
ووضعت تحته Input8 لاستقبال عدد وجبات النوع 2
في كلا الانبوتين في الحدث on key

فى اللون الأحمر من التعليق إنت كدة هتلخبطنا :abc_065: 1 ولا 2 ولا 8 ههههه أى إثنين تقصد ؟

فلذلك أعتقد ملف مفتوح سيكون أفضـــل وذلك عندما يتسنى لك فى أى وقت فأنا موجود اليوم وغدا

ثامر أبو بلقيس
19-10-2013, 09:16 PM
افحص الملف
http://www.gulfup.com/?UFqcRY

عندي فيروسات في الجهاز

عبود عبود
19-10-2013, 09:40 PM
الأكواد كثيرة جدا ............ هل يمكن أن تشرح الفكرة التى تنفذها حتى أحاول المساعدة بطريقتى ؟ أين سيكتب المستخدم بمعنى فى أى مكان مسموح لة بالكتابة فقط وما هو المطلوب منة ان يفعل بعد الكتابة وأين تخزن النتيجة النهائية
يعنى لو تقول الفكرة ربما أغير أو أعدل عليها بطريقتى التى أفهمها دون تداخل فى الأكواد فما يفشل أى برنامج هو تداخل الأكواد مع بعضها وتكرارها دون حاجة لها

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

ثامر أبو بلقيس
19-10-2013, 09:55 PM
عدلت قليلا هنا
http://www.gulfup.com/?ETeGQD

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

أرجو من الأخ خادم المسلمين مساعدتي في تقريب المطلوب

عبود عبود
19-10-2013, 10:15 PM
لم يتضح لى إلا أنى رأيتك تريد عند الضغط على حروف من لوحة المفاتيح فتقوم بتحويلها إلى رقم وجبة
طيب من وجهة نظرى هل بالنسبة للمستخدم الضغط على حروف لوحة المفاتيح يكون أسهل لة من التعامل مع الأرقام " أقصد الأرقام فى لوحة المفاتيح " ومن ناحية أخرى قرأت سابقا موضوع خادم المسلمين فوجدتة قال ان المستخدم لا يوجد لدية وقت لمجرد ضغط إنتــــر من لوحة المفاتيح !!! إذن هل سيكون لدية وقت فى تمييز حروف فى لوحة المفاتيح دون أن يستطيع تمييز ومعرفة مكان زر إنتــــر ؟
الموضوع تم زيادة صعوبتة من صاحب السؤال ولم يكن لة تصور مبدئى ووضع الإمكانيات الازمة والمعطيات الازمة وكما ذكرت قائمة بالأنواع والأسعار وأشياء أخرى يمكن أن تطلب لاحقا ................... وضع فى الإعتبار إن لم يكن هناك معطيات تكفى لن يمكنك تنفيــــذ أى تصور فما بالك بمشروع متكامل ؟

معكـــــــــم كلما كان هناك تصور ومعطيات لترتيب الأفكار ............ بالتوفيق
" طبعا لعدم إضاعة الوقت فى فكرة وتهمل أو لا تكتمل فى النهاية "

ثامر أبو بلقيس
19-10-2013, 10:29 PM
جميل لو نحاول أعرف أن الوقت قد يكون ضيق فلكل ظروفه الخاصة
لكن لنحاول و ان لم نصل اين المشكلة ؟ فعلى الأقل منذ دقائق أخذت منك
كود لم أكن أعرفه
ماذا لو سألت هل يمكن تحقيق :
if e_Key == 65 then
--- وضع ناتج شرطي مفاده الضغط على احدى مفاتيح لوح التحكم
end

عبود عبود
19-10-2013, 10:37 PM
هل تقصد ظهور رسالة للضغط على أرقام مثلا ؟

ثامر أبو بلقيس
19-10-2013, 11:04 PM
أقصد الضغط على مفتاح بعينه من لوح المفاتيح
ربما تكون متاحة في اضافة autoit لاأدري ؟
مازلت أنتظر عند توفر الوقت في المحاولة الثانية المرسلة سابقا
كيف أمنع مشكلة عند الضغط مرتين على المفتاح 65 يضلل الأرقام التي كتبتها
ثم يمسحها لكن عند الضغط مرة واحدة أتفادى الوقوع في هذا المشكل
فكرت و لم أجد لحد الان بديلا

عبود عبود
20-10-2013, 10:12 PM
تقبل إعتذارى عن عدم الإستكمال فى هذا الموضوع فقط

:abc_138:

ثامر أبو بلقيس
20-10-2013, 11:11 PM
السلام عليكم
لك كل الأعذار أخي الخلوق عبود

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

لقد حاولت و لا أخفيك حاولت كثيرا وأوحت لي النتائج أنه من المستحيل
صناعة شبيه لذلك البرنامج الرائع أتمنى أن أخدمك أخي ذات يـــــــــوم
وتبقى ويبقى الانشغال في ذهني

خادم المسلمين
20-10-2013, 11:49 PM
ما تتعبشى نفسك اخى ابو بلقيس



وجزاك الله كل خير
واشكرك من أعماق قلبى
على حرصك على خدمتى
على محاولاتك اللائقة والنبيلة

اللهم وفق فقط كل من خدم مسلما أو اهتم وحرص على ذلك


"سبحانك لاعلم لنا الا ما علمتنا انك انت العليم الحكيم"


السلام عليكم