عمليات حسابيه

اذهب الى الأسفل

عمليات حسابيه Empty عمليات حسابيه

مُساهمة من طرف السعيدي في الثلاثاء ديسمبر 11, 2018 11:21 am

في الملف المرفق
عند القيام بعمليه حسابيه في اول تكس بكس يخرج الناتج في جميع التكس بكس الباقي
هل هناك لجعل الناتج يكتب في تكس بكس واحد ولا يتكرر
وهل هناك طريقه لتكرار العملية الجمع زو الضرب في تكس بكس عدد 2   فقط   بدل   8   تكس بكس

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
السعيدي
السعيدي
...
...

تاريخ التسجيل : 15/11/2018
المساهمات : 46
النقاط : 65
التقيم : 1
الدولة : الكويت
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

عمليات حسابيه Empty رد: عمليات حسابيه

مُساهمة من طرف زهراء في الأربعاء ديسمبر 12, 2018 8:36 am

اهلا بيك

المثال حقك على النحو التالى :

الكود:
 Dim x, y As Double

        x = 0.05

        y = 20

        TextBox2.Text = Val(TextBox1.Text) * x + y

        TextBox4.Text = Val(TextBox3.Text) * x + y

        TextBox6.Text = Val(TextBox5.Text) * x + y

        TextBox8.Text = Val(TextBox7.Text) * x + y


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

تاريخ التسجيل : 18/02/2011
المساهمات : 395
النقاط : 664
التقيم : 53
الدولة : مصر
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

عمليات حسابيه Empty رد: عمليات حسابيه

مُساهمة من طرف السعيدي في الأربعاء ديسمبر 12, 2018 8:43 am

اشكرك 
المثال الاول  فيه خطا
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
السعيدي
السعيدي
...
...

تاريخ التسجيل : 15/11/2018
المساهمات : 46
النقاط : 65
التقيم : 1
الدولة : الكويت
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

عمليات حسابيه Empty رد: عمليات حسابيه

مُساهمة من طرف زهراء في الأربعاء ديسمبر 12, 2018 9:13 am

اهلا بيك

الكود:
  If TextBox1.Text <> "" Then
            TextBox2.Text = Val(TextBox1.Text) * x + y
        End If

        If TextBox3.Text <> "" Then
            TextBox4.Text = Val(TextBox3.Text) * x + Val(TextBox2.Text)
        End If

        If TextBox5.Text <> "" Then
            TextBox6.Text = Val(TextBox5.Text) * x + Val(TextBox4.Text)
        End If

        If TextBox7.Text <> "" Then
            TextBox8.Text = Val(TextBox7.Text) * x + Val(TextBox6.Text)
        End If

 الكود اعلام يقوم بعمل العملية الحسابية بشرط وجود قيم فى مربعات النصوص 1و3و5و7 ....اذا ارت ان يتم حساب العملية الحسابية للتكست بوكس الاول حتى لو كانت تلك مربعات النصوص بها قيم يتم استخدام الامر  Exit Sub و الذى سيقوم بالخروج من الاجراء بعد العملية الاولى و هكذا و يتم على النحو التالى :

الكود:
   If TextBox1.Text <> "" Then
            TextBox2.Text = Val(TextBox1.Text) * x + y
            Exit Sub
        End If
زهراء
زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 395
النقاط : 664
التقيم : 53
الدولة : مصر
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

عمليات حسابيه Empty رد: عمليات حسابيه

مُساهمة من طرف السعيدي في الأربعاء ديسمبر 12, 2018 9:48 am

الله يعطيك العافيه
في المثال فيه عدد 8 نيكس بوكس
هل ممكن ان أخليهم عدد 2 تيكس بوكس
مع اجراء اكثر من عمليه حسابيه
ناتج العمليه الأولي يخزن في الذاكرة
وعند عمليه ثانيه يعتمد علي الناتج الاول المخزن
وعند عمليه الثالثة يعتمد علي الناتج الثانيه المخزن
وعند عمليه الرابعة يعتمد علي الناتج الثالث المخزن
وهكذا
السعيدي
السعيدي
...
...

تاريخ التسجيل : 15/11/2018
المساهمات : 46
النقاط : 65
التقيم : 1
الدولة : الكويت
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى