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

تعلم لغات البرمجة (الفجوال بيسك 6 و الجافا و دلفى )و الشبكات ونظم المعلومات

سيتم تنشيط حسابات الاعضاء بعد 24 ساعة من التسجيل فى حالة عدم ارسال رابط التنشيط فور انتهاء من عملية التسجيل

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

منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء

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

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

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

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

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

تاريخ التسجيل : 15/11/2018
المساهمات : 49
النقاط : 72
التقيم : 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
المساهمات : 438
النقاط : 769
التقيم : 67
الدولة : مصر
الجنس : انثى

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

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

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

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

تاريخ التسجيل : 15/11/2018
المساهمات : 49
النقاط : 72
التقيم : 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
المساهمات : 438
النقاط : 769
التقيم : 67
الدولة : مصر
الجنس : انثى

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

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

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

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

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

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

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

ََ

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

منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك vb.net :: قسم نقاش و أستفسارات الاعضاء

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