كيف أقوم بعملية نقل النتيجة من الحاسبة إلى النص ؟

إذا كنت تقصد فين تحط الناتج من الحاسبة اي كيف بيعرف البرنامج اني الأن في صندوق النص الثاني مش الأول .

ضع قيمة عن طريقها قوم بالفحص وستعرف فين يجب ان ينحط الناتج . مثلا

في زر الأمر الأول راح احط قيمة 1 والثاني 2 والثالث 3

في الزر الأول

frmCalc.Tag = 1
frmCalc.show 1

في الزر الثاني

frmCalc.Tag = 2
frmCalc.show 1

في زر الألة الحاسبة الخاص بإرجاع النتيجة قم بعمل التالي :

If frmCalc.Tag = 1 Then
   form1.text1 = text1
elseif frmCalc.Tag = 2 then
   form1.text2 = text1
end if

طبف الفكرة على باقي الأزرار .

بالتوفيق

ارجو من سيادتكم التوضيح أكتر

ولكم جزيل الشكر

عزيزي لو وضعت المشروع كان عدلت لك عليه بما تريد ..

لكن مو مشكلة ..

لنفرض ان الفورم الذي به الاله حاسبة هو FORM1 ويوجد به TEXT1 الذي يكون به عرض الأرقام ..

طريقة الكود ..::

من أي فورم وليكن FORM3 يوجد به TEXT2 وتريد نقل القيمة التي بها للحاسبة ، ضع Command واكتب به هذا الكود ..::

text2.text=form1.text.text  'باعتبار ان هذه هي القيمة التي تريد نقلها للفورمه التي بها الاله حاسبة
Form1.show

ان شاء الله يكون هذا قصدك ..

واذا كان لا ارجوا التوضيح ومالك الا اللي يسرك ان شاء الله ..،،

أخ mostyam

تنبيه ! لكي تتفادى أغلاق الموضوع

1- . يجب أن يكون عنوان المشاركة يدل على محتواها

2 - 3. ان لا يحتوي على عبارات مثيرة مثل " النجدة " ، "الحقونا " ، " سؤال إلى أهل الخبرة " ، " طلب برنامج "

كونك جديد العهد سأكتفي بالتنبيه هذه المرة -_- فأحذر لكي لا تغضب في المرة القادمة أذا وجدت موضوعك مغلق

السلام عليكم

الأخ HnHn في بعض الأحيان تجد أن مشكلتك لاتستطيع حلها فتضطر أن تكتب مثل هذه العناوين لكي تلفت الإنتباه لكي يسرع الأعضاء إلى نجدتك ولكن ( وللحقيقة ) لايحدث ذلك بالعكس سيجد التجاهل من الأعضاء أما لو كتب عنوان السؤال بشكل مباشر سيجد من يرد عليه

بالنسبة لسؤالك أخي الكريم يمكنك عمل الآتي

في النموذج الخاص بالآلة الحاسبة ضع أداة Label وليكن أسمها text_no

وفي زر الآلة الحاسبة بجوار كل TextBox في النموذج التالي ضع الأمر التالي

Form2.show
form2.text_no.caption="1"

لديك ثلاثة صناديق نص , إذاً في النهاية ستجد لديك 3 أكواد كل كود له رقم مختلف

وتأتي في الزر الخاص بنقل النتيجة وليكن الزر" الناتج " مثلاً ضع الأمر التالي

Select case text_no.caption
	case 1
		form1.text1=textRes
	case 2 
		form1.text2=textRes
	case 3
		form1.text3=textRes
End select

نفس طريقة الأخ فواز ولكن بشكل مطول

ويفضل أرفاق المشروع للتعديل

اقتباس

الأخ HnHn في بعض الأحيان تجد أن مشكلتك لاتستطيع حلها فتضطر أن تكتب مثل هذه العناوين لكي تلفت الإنتباه لكي يسرع الأعضاء إلى نجدتك

1 - ما دخلي في السؤال واعتقد أن الاجابة لا تعني لي شيئا فهي موجودة قبل اجابتك -_-

2 - لا ألومك ...فـ الأستاذ يغير من طلابه المتميزين :P

3 - كلمة تم التعديل من قبــــ HnHn ــل لكي اعرف ان هذا الشخص قد خالف عنوان المشاكة من قبل يا ذكي B)

4 - الحمدالله أن تعلمت من هذا المنتدى وغيره ولا ليس عيباً لما احتاج إلى اعضائهم فهم متميزين فنحن هنا لتبادل المعلومات ولا أنت بتعطي المعلومة لناس وناس ولا تأخذها إلا من اشخاص معييني :lol:

5 - اذا جذبت الاعضاء إلى السؤال لمساعدة صاحب السؤال فأن هنا ساعدته بدون قصد وأذا لم يحضر احد .. فانا مستعد لتقديم المساعدة فلدي عقل ويدين وليس حقد وغيره

6 - ولا اعتقد اني اعمل لديك او لدى المنتدى براتب لكي اجيب على كل الاسئلة فانا حر أجيب على ما اريد -_-

7 - اذا لم تكتفي اظهر براعتك في الردود وليس في المجادله فأنا باق هنا وانت الراحل بحكم اعمالك الكثيرة فأنت الأستاذ :lol:

ثم لا حظ اجابتك

اقتباس

لديك ثلاثة صناديق نص , إذاً في النهاية ستجد لديك 3 أكواد كل كود له رقم مختلف

وتأتي في الزر الخاص بنقل النتيجة وليكن الزر" الناتج " مثلاً ضع الأمر التالي

كود
Select case text_no.caption
	case 1
		form1.text1=textRes
	case 2 
		form1.text2=textRes
	case 3
		form1.text3=textRes
End select

اعتقد انك تقصد في بداية هذه الشفرة هذا السطر -_-

Select case text_no.Text

أولاً : لاتعليق على كمية الأستهزاء الموجود في الرد والغير متوقعه من شخص يعتبر أنه مسؤول

ثانياً : بالنسبة للجملة Select فأنا بالفعل قصدت Caption وليس Text لأني ذكرت أنها Label وليس TextBox

" نص كلامي "

اقتباس

في النموذج الخاص بالآلة الحاسبة ضع أداة Label وليكن أسمها text_no

ولو قمت بتنفيذ هذه الأكواد ستعمل معك بشكل جيد بدل من هذا الأستهزاء

أرجوا ملاحظة ردودك والتفكير فيها قبل كتابتها فليس معني أن تكون مشرف أن تخطئ في الجميع , ولقد لاحظت طريقتك هذه في أكثر من موضوع آخر

أنا استهزء أستغفر الله -_- أنت من تركت الموضوع و طلبتني فكيف سأستهزء بك فأن ألبي النداء فقط

اقتباس

بالنسبة للجملة Select فأنا بالفعل قصدت Caption وليس Text

هذا غير صحيح ففي جوابك ايضا

اقتباس

لديك ثلاثة صناديق نص , إذاً في النهاية ستجد لديك 3 أكواد كل كود له رقم مختلف

فلم نفهم هنا ما تريد قصده أن كان Text أم Label <_<

وثاني شي الأخ بيسئل عن

كيف أقوم بعملية نقل النتيجة من الحاسبة إلى النص ؟

وليس Label B)

على العموم أنا اسف اذا لم أفهم ما تقصد ... فأنت الاستاذ في النهاية والجواب الاصح لك

اقتباس

أرجوا ملاحظة ردودك والتفكير فيها قبل كتابتها فليس معني أن تكون مشرف أن تخطئ في الجميع , ولقد لاحظت طريقتك هذه في أكثر من موضوع آخر :unsure:

من الذي قال لك بأني مشرف .. هل ترى بأني من مجموعة المشرفين ... شكلك واحد كان حاب يكون مشرف وجاته عقده نفسيه :lol:وبالنسبة لردودي ماذا تقول هنا أنت .. وغريب امرك أنت تخطىء علي بدون سبب مو مشكله .. وعندما رددت عليك اعتبرتني أنا المخطى .. أذا انت ماذا تكون <_<.. اعتقد أنك تثأر من شي قمت بعمله لك لأني أول مرة احد يأتين من غير سبب لاحظت مواضيعك ووجدت أني لم ارد فيها .. فما سبب هذا الحقد -_- المفترض أن يحقد علي هذان الشخصان الموجودان هنا

آه :rolleyes: : شكلك معصب لأني ما ارد على مواضيعك خلاص ولا يهمك ... إن شاء الله من اليوم بس اشوف موضوع لك .. راح تلاقي لي رد فيه

اخواني الكرام

الاخ هاني

الاخ الاستاذ

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

وكل عام وانتم بخير وتقبل الله منا ومنكم صالح الاعمال

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

وحتى اوضح الامور اكثر ويأخذ كل ذي حق حقه بدون زعل

فبكل اسف اخي الكريم الاستاذ انت من بدأ بعبارتك هذه

اقتباس

السلام عليكم

الأخ HnHn في بعض الأحيان تجد أن مشكلتك لاتستطيع حلها فتضطر أن تكتب مثل هذه العناوين لكي تلفت الإنتباه لكي يسرع الأعضاء إلى نجدتك ولكن ( وللحقيقة ) لايحدث ذلك بالعكس سيجد التجاهل من الأعضاء أما لو كتب عنوان السؤال بشكل مباشر سيجد من يرد عليه

وارجوا ان لا تزعل من الحق . لقد كان تصرف اخي هاني محقا في تعديل عنوان المشاركه وهذه من صلاحياته كخبير معتمد في القسم وفقا لقوانين المنتدى والمشاركات .

علما بأن الاخ هاني لم يأتي بسيرتك او ذكرك ابدا حتى بدأت انت فهل تتوقع ان يسكت ضع نفسك مكانه لو أتي شخص يتهجم عليك بدون سبب فما هو رد الفعل لديك .

اخي هاني اتمنى تخفف قليلا من حدة التوتر وتاخذ الامور بهدوء فهذا ما عهدناه منك

وختاما اتمنى من كل واحد منكم ان يزيل الزعل ونتصالح ونبقى اخوة لاننا نحن القدوه والا ماذا تركنا لغيرنا فكروا في الامر ونداء اخير من اختكم زهره اذا كان لها خاطر عندكم ان تتصالحوا وتتعوذوا من الشيطان .

وبارك الله فيكم جميعا .

اختكم

زهره