السلام عليكم
أخواني الكرام
عند إجراء طرح رقمين تظهر النتيجة بالسالب (بالطبع لأن أحد الرقمين أكبر من الآخر)
فأريد أن تكون النتيجة الظاهرة في التكست قيمة مطلقة موجبة
مباشرة
فكيف السبيل إلى ذلك
حاولت جاهدا استخدام الدالة Abs ولكن لم أفلح
بارك الله فيكم
السلام عليكم...
كيف لم تفلح الدالة Abs ؟ تلك هي وظيفتها.
نرجو التوضيح و السلام.
وعليكم السلام
جرب التالي
PHP كود :
Private Sub Command1_Click()
Dim A
A = Val(Text1.Text) - Val(Text2.Text)
Text3 = Abs(A)
End Sub
بالتوفيق
السلام عليكم
- أدرج 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
السلام عليكم...
ما زلت أسأل ما هي مشكلة الدالة Abs ؟
كود :
Private Sub Command1_Click()
Text3.Text = CStr(Abs(CSng(Text1.Text) - CSng(Text2.Text)))
End Sub
و السلام.
وفقكم الله جميعا حلت المشكلة
يبدو أنني أخطأت في تعريف المتغير
لأني جعلت العملية الحسابية في سطر منفصل عن A
واستخدمت if الشرطية وعقدت المسألة كثيرا
لا حرمتم الأجر.
أخي ناجي كودك عجيب وجميل جداً وبدون تعقيد
ولكن برأيك كيف يتم تطبيقه على هذا السطر
Text5.text=Val(Text8.Text - Text10.Text) - Val(Text9.Text - Text11.Text
شاكرا ومقدرا
اعتقد يكون هكذا
((( Text5.Text = CStr(Abs(CSng(Text1.Text) - CSng(Text2.Text)) - Abs(CSng(Text3.Text) - CSng(Text4.Text
اخي العزيز يمكنك اختصار كل هذا التعقيد والبقاء على الكود القديم الذي كتبته والذي كان يعطيك قيمة سالبة في بعض الاحيان مع اضافة السطر التالي بعد الانتهاء من اجراء عمليات الجمع والطرح التي تريد اجرائها
If val(Text5.text)<0 then Text5.Text= Val(Text5.Text) * (-1)
(06-05-13, 12:50 AM)صقر الجزيرة كتب : [ -> ]السلام عليكم
أخواني الكرام
عند إجراء طرح رقمين تظهر النتيجة بالسالب (بالطبع لأن أحد الرقمين أكبر من الآخر)
فأريد أن تكون النتيجة الظاهرة في التكست قيمة مطلقة موجبة
مباشرة
فكيف السبيل إلى ذلك
حاولت جاهدا استخدام الدالة Abs ولكن لم أفلح
بارك الله فيكم
استخدم الدالة Abs بهذا الشكل (A) Math. Abs