السلام عليكم
انا بنفذ برنامج حسابى بسيط جدا
بحسب فيه عملية ضرب ارقام فى ثلاث تكست بوكس
الرقم الااول X الرقم الثانى = المجموع (فى الثلاث تكست بوكس)
وبعد وصول مؤشر الكتابة للتكست بوكس الثانى (اضغط على انتر) يضرب الرقمين فى التكست بوكس الثالث و يقوم بمسح التكست بوكس الاول والثانى ويصل المؤشر للتكست الاول لينقذ عملية حسابية جديدة
كل هذا سهل
اريد الان ان كل ما اكتبه فى التكست بوكس يكتب تلقائيا فى الريتش بوكس
وبعد كل عملية حسابية ينزل سطر فى الريتش بوكس
هكذا
2*3=12
5*5 = 25
6*3=16
طبعا هذه الارقام مأخوذة من التكست بوكس وعند الظغط على انتر لتنفيذ عملية حسابية جديدة ينزل سطر فى الريتش بوكس وينفذ امر الضرب الى فى التكست بوكس
وشكر جزيلا
[php]
ritchtextbox1.text = ritchtextbox1.text & textbox1.text& " * " & textbox2.text & " = " & textbox3.text
أبسط من البسيط
ضع هذا الكود في الزر
PHP كود :
Richtextbox1.text = Richtextbox1.text & text1.text & "×" & text2.text & "=" & text3.text & vbcrlf
شكرا جزيلا لكم
الكود شغال بنسبة 50 % فقط
يظهر علامات اليساوى والضرب والناتج فقط بدون الرقم الاول والثانى
هذا مثال من البرنامج لضرب 5*5 و 6*6
هذا ما ظهر فى الريتش بوكس
×=25
×=36
لازم تسوي التعديلات المناسبة
مثلا
text1
ضع مكانها اسم التكست الأول في العملية
text2
ضع مكانها اسم التكست الثاني
text3
ضع مكانها اسم التكست الذي توضع في النتيجة
اكيد غيرتها
جرب عندك او ارفق مثال اذا سمحت وشكرا
أخي الكريم كود الاخ mamas1
صحيح 100%
المشكله هي انك وضعت الكود في مكان الخطأ
وضعتها بعد ما يقوم بمسح التكس بوكس الاول والثاني
حتى تعمل الكود بشكل صحيح يجب اختيار موقع الكود الصحيح
وهو قبل عملية مسح التكس بوكس الأول والثاني
بالتوفيق اخي الكريم
(30-12-13, 04:49 PM)MCPD كتب : [ -> ]اريد الان ان كل ما اكتبه فى التكست بوكس يكتب تلقائيا فى الريتش بوكس
وبعد كل عملية حسابية ينزل سطر فى الريتش بوكس
هكذا
2*3=12
5*5 = 25
6*3=16
طبعا هذه الارقام مأخوذة من التكست بوكس وعند الظغط على انتر لتنفيذ عملية حسابية جديدة ينزل سطر فى الريتش بوكس وينفذ امر الضرب الى فى التكست بوكس
وشكر جزيلا
وعليكم السلام ، اهلا بك عزيزي ، هل تقصد بما في الصورة التالية ؟
إن كان ما تريده هكذا ، فإليك المثال بالمرفقات .
وهذا الكود أيضاً :
PHP كود :
If RadioButton1.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
RichTextBox1.Text = RichTextBox1.Text & TextBox1.Text & "+" & TextBox2.Text & "=" & TextBox3.Text & vbCrLf
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
RichTextBox1.Text = RichTextBox1.Text & TextBox1.Text & "-" & TextBox2.Text & "=" & TextBox3.Text & vbCrLf
ElseIf RadioButton3.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
RichTextBox1.Text = RichTextBox1.Text & TextBox1.Text & "/" & TextBox2.Text & "=" & TextBox3.Text & vbCrLf
ElseIf RadioButton4.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
RichTextBox1.Text = RichTextBox1.Text & TextBox1.Text & "×" & TextBox2.Text & "=" & TextBox3.Text & vbCrLf
End If
تحياتي .
شكرا لكم جميعا
الكود اشتغل
المشكلة كانت عندى انا لما كنت بعطى للتكست بوكس بعد الكود = ""
خليتها قبل الكود واشتغل تمام
اكرر شكرى لكم
يعطيكم العافية ,,,, لكن للمعـــــــــلومة شباب :
لما تكون عايز تجمع أرقام موجوده في كنترول مثل التكست ,,, وهذة الأرقام يتم ادخالها يدوي من المستخدم ,,,
لازم تاخد بالك من كثير أمور ,,,
أنت لازم تتوقع أن المستخدم يدخل رموز
تانيا : لازم تحول المدخلات حتى لو كانت المدخلات رقمية أو كسريه و ذلك بأستخدام CInt CDbl
تالتا : أبعـــــــــد عن أستخدام جملة If وبدل منها أستخدم Select Case
أو ممكن بالــــــــ LINQ تعمل كل شيئ بسهولة
وشغلة تانية :
هي اللغة أساسا بتقدم لكن مكتبة خاصة لهذة الأمور System.Math