المشاركات : 6
المواضيع 0
الإنتساب : Apr 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم
أخواني الكرام
عند إجراء طرح رقمين تظهر النتيجة بالسالب (بالطبع لأن أحد الرقمين أكبر من الآخر)
فأريد أن تكون النتيجة الظاهرة في التكست قيمة مطلقة موجبة
مباشرة
فكيف السبيل إلى ذلك
حاولت جاهدا استخدام الدالة Abs ولكن لم أفلح
بارك الله فيكم
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
كيف لم تفلح الدالة Abs ؟ تلك هي وظيفتها.
نرجو التوضيح و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
ما زلت أسأل ما هي مشكلة الدالة Abs ؟
كود :
Private Sub Command1_Click()
Text3.Text = CStr(Abs(CSng(Text1.Text) - CSng(Text2.Text)))
End Sub
و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 6
المواضيع 0
الإنتساب : Apr 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
وفقكم الله جميعا حلت المشكلة
يبدو أنني أخطأت في تعريف المتغير
لأني جعلت العملية الحسابية في سطر منفصل عن A
واستخدمت if الشرطية وعقدت المسألة كثيرا
لا حرمتم الأجر.
المشاركات : 6
المواضيع 0
الإنتساب : Apr 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
أخي ناجي كودك عجيب وجميل جداً وبدون تعقيد
ولكن برأيك كيف يتم تطبيقه على هذا السطر
Text5.text=Val(Text8.Text - Text10.Text) - Val(Text9.Text - Text11.Text
شاكرا ومقدرا
المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
اعتقد يكون هكذا
((( Text5.Text = CStr(Abs(CSng(Text1.Text) - CSng(Text2.Text)) - Abs(CSng(Text3.Text) - CSng(Text4.Text
المشاركات : 128
المواضيع 3
الإنتساب : Mar 2013
السمعة :
13
الشكر: 89
تم شكره 784 مرات في 67 مشاركات
اخي العزيز يمكنك اختصار كل هذا التعقيد والبقاء على الكود القديم الذي كتبته والذي كان يعطيك قيمة سالبة في بعض الاحيان مع اضافة السطر التالي بعد الانتهاء من اجراء عمليات الجمع والطرح التي تريد اجرائها
If val(Text5.text)<0 then Text5.Text= Val(Text5.Text) * (-1)