تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل القيمة السالبة إلى موجبة (القيمة المطلقة)
#1
السلام عليكم
أخواني الكرام
عند إجراء طرح رقمين تظهر النتيجة بالسالب (بالطبع لأن أحد الرقمين أكبر من الآخر)
فأريد أن تكون النتيجة الظاهرة في التكست قيمة مطلقة موجبة
مباشرة

فكيف السبيل إلى ذلك
حاولت جاهدا استخدام الدالة Abs ولكن لم أفلح

بارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...

كيف لم تفلح الدالة Abs ؟ تلك هي وظيفتها.

نرجو التوضيح و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#3
وعليكم السلام

جرب التالي

PHP كود :
Private Sub Command1_Click()
Dim A
Val(Text1.Text) - Val(Text2.Text)
Text3 Abs(A)
End Sub 

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

- أدرج 3 تكست بوكس ، وزر ثم ضع هذا الكود للزر :

كود :
Private Sub Command1_Click()
Dim A As String
A = Val(Text1.Text) - Val(Text2.Text)
A = Replace(A,"-","")
Text3.Text = Trim(A)
End Sub
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم...

ما زلت أسأل ما هي مشكلة الدالة Abs ؟
كود :
Private Sub Command1_Click()
    Text3.Text = CStr(Abs(CSng(Text1.Text) - CSng(Text2.Text)))
End Sub

و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#6
وفقكم الله جميعا حلت المشكلة
يبدو أنني أخطأت في تعريف المتغير
لأني جعلت العملية الحسابية في سطر منفصل عن A
واستخدمت if الشرطية وعقدت المسألة كثيرا

لا حرمتم الأجر.
الرد }}}
تم الشكر بواسطة:
#7
أخي ناجي كودك عجيب وجميل جداً وبدون تعقيد
ولكن برأيك كيف يتم تطبيقه على هذا السطر
Text5.text=Val(Text8.Text - Text10.Text) - Val(Text9.Text - Text11.Text
شاكرا ومقدرا
الرد }}}
تم الشكر بواسطة:
#8
اعتقد يكون هكذا
((( Text5.Text = CStr(Abs(CSng(Text1.Text) - CSng(Text2.Text)) - Abs(CSng(Text3.Text) - CSng(Text4.Text
الرد }}}
تم الشكر بواسطة:
#9
اخي العزيز يمكنك اختصار كل هذا التعقيد والبقاء على الكود القديم الذي كتبته والذي كان يعطيك قيمة سالبة في بعض الاحيان مع اضافة السطر التالي بعد الانتهاء من اجراء عمليات الجمع والطرح التي تريد اجرائها
If val(Text5.text)<0 then Text5.Text= Val(Text5.Text) * (-1)
الرد }}}
تم الشكر بواسطة:
#10
(06-05-13, 12:50 AM)صقر الجزيرة كتب : السلام عليكم
أخواني الكرام
عند إجراء طرح رقمين تظهر النتيجة بالسالب (بالطبع لأن أحد الرقمين أكبر من الآخر)
فأريد أن تكون النتيجة الظاهرة في التكست قيمة مطلقة موجبة
مباشرة

فكيف السبيل إلى ذلك
حاولت جاهدا استخدام الدالة Abs ولكن لم أفلح

بارك الله فيكم

استخدم الدالة Abs  بهذا الشكل (A) Math. Abs
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 865 07-09-22, 10:05 PM
آخر رد: Taha Okla
Wink [vb6.0] كيفيه تحويل الطباعة بي دي اف حامد محمد 6 3,432 18-04-19, 03:29 AM
آخر رد: حامد محمد
  تحويل كود سي بلس بلس الى الفيجوال بيسك 6 samira20 2 2,722 08-09-18, 01:09 PM
آخر رد: samira20
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,823 10-05-18, 04:44 AM
آخر رد: حامد محمد
  [مثال] كيفية تحويل ملف تنفيذي vb6 إلى كود مصدري salahoskar1 1 2,217 11-03-18, 02:17 AM
آخر رد: Ahmed_Mansoor
  ارجو المساعدة في تحويل اكواد bidaya 7 3,719 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] سوال؟ تحويل صورة الى ايقونة للبرنامج amer2000 6 3,003 21-10-16, 03:56 AM
آخر رد: أبو عمر
  كود تحويل من الارقام الى الاحرف الابجديه الحلوانى 1 2,422 21-10-16, 01:00 AM
آخر رد: Ahmed_Mansoor
  تحويل flv إلى mp3 faridfarid 1 2,186 01-03-15, 04:36 AM
آخر رد: InJuries
  [سؤال] تحويل الصوت الى نص داخل textbox maro 1 4,136 07-01-15, 11:30 AM
آخر رد: برير مسبل

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم