تقييم الموضوع :
  • 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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة في تحويل اكواد bidaya 7 111 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] سوال؟ تحويل صورة الى ايقونة للبرنامج amer2000 6 110 21-10-16, 03:56 AM
آخر رد: أبو عمر
  كود تحويل من الارقام الى الاحرف الابجديه الحلوانى 1 57 21-10-16, 01:00 AM
آخر رد: Ahmed_Mansoor
  تحويل flv إلى mp3 faridfarid 1 378 01-03-15, 04:36 AM
آخر رد: InJuries
  [سؤال] تحويل الصوت الى نص داخل textbox maro 1 1,075 07-01-15, 11:30 AM
آخر رد: برير مسبل
  [vb6.0] طلب تحويل برنامج exe habbeb 2 607 27-12-14, 12:25 PM
آخر رد: habbeb
  تحويل الارقام الى حروف Convertir des chiffres en lettres derbaliammar 4 1,018 19-08-13, 09:39 PM
آخر رد: ولد رائع
  تحويل نص الى كلام بصوتي ! khalid.khalid 3 561 05-08-13, 03:05 AM
آخر رد: khalid.khalid
  تحويل الى منحني من line asto 0 272 05-08-13, 02:27 AM
آخر رد: asto
  كود التحقق من القيمة المدخلة smiley 3 1,401 25-07-13, 02:28 AM
آخر رد: اسلام الكبابى

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


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