منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) (/showthread.php?tid=8796)

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - صقر الجزيرة - 06-05-13

السلام عليكم
أخواني الكرام
عند إجراء طرح رقمين تظهر النتيجة بالسالب (بالطبع لأن أحد الرقمين أكبر من الآخر)
فأريد أن تكون النتيجة الظاهرة في التكست قيمة مطلقة موجبة
مباشرة

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

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

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - ناجي إبراهيم - 06-05-13

السلام عليكم...

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

نرجو التوضيح و السلام.

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - ALBRNS - 06-05-13

وعليكم السلام

جرب التالي

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

بالتوفيق

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - VB_Coder - 06-05-13

السلام عليكم

- أدرج 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


تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - ناجي إبراهيم - 06-05-13

السلام عليكم...

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

و السلام.

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - صقر الجزيرة - 06-05-13

وفقكم الله جميعا حلت المشكلة
يبدو أنني أخطأت في تعريف المتغير
لأني جعلت العملية الحسابية في سطر منفصل عن A
واستخدمت if الشرطية وعقدت المسألة كثيرا

لا حرمتم الأجر.

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - صقر الجزيرة - 06-05-13

أخي ناجي كودك عجيب وجميل جداً وبدون تعقيد
ولكن برأيك كيف يتم تطبيقه على هذا السطر
Text5.text=Val(Text8.Text - Text10.Text) - Val(Text9.Text - Text11.Text
شاكرا ومقدرا

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - الاصيله - 06-05-13

اعتقد يكون هكذا
((( Text5.Text = CStr(Abs(CSng(Text1.Text) - CSng(Text2.Text)) - Abs(CSng(Text3.Text) - CSng(Text4.Text

تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - محمد العبيدي - 07-05-13

اخي العزيز يمكنك اختصار كل هذا التعقيد والبقاء على الكود القديم الذي كتبته والذي كان يعطيك قيمة سالبة في بعض الاحيان مع اضافة السطر التالي بعد الانتهاء من اجراء عمليات الجمع والطرح التي تريد اجرائها
If val(Text5.text)<0 then Text5.Text= Val(Text5.Text) * (-1)

RE: تحويل القيمة السالبة إلى موجبة (القيمة المطلقة) - salamandal - 28-11-22

(06-05-13, 12:50 AM)صقر الجزيرة كتب : السلام عليكم
أخواني الكرام
عند إجراء طرح رقمين تظهر النتيجة بالسالب (بالطبع لأن أحد الرقمين أكبر من الآخر)
فأريد أن تكون النتيجة الظاهرة في التكست قيمة مطلقة موجبة
مباشرة

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

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

استخدم الدالة Abs  بهذا الشكل (A) Math. Abs