الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد كود حذف القيمة السالبة من الحقل بعد عملية الطرح

بدأه matrixyb في 5 يوليو 2008 · 4 رد · 853 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدي مشروع و من ضمن هذا المشروع عملية طرح لحقول معينة

لكن احيانا يكون الحقل الاول ( text1 ) القيمة المدخلة فيه تكون 5 مثلاً

و يكون الحقل الثاني ( text2 ) القيمة المدخله فيه تكون 10 مثلاً

و الحقل الثالث ( text3 ) يكون فيه ناتج طرح الحقلين السابقة

و كود زر عملية الطرح ( command1 ) هو كالتالي :

text3.text= val(text1) - val(text2)

و عندما الضغط على الزر يقوم البرنامج بتطبيق امر الطرح

و يكون الناتج -5

اقتباس
لماذا ؟؟

لان الحقل الاول 5 و الحقل الثاني 10

5 - 10 = -5

اريد هنا ان كود يجعل القيمة في الحقل الثالث تساوي 5

بمعنى ان يحذف القيمة السالبة من الحقل بعد عملية الطرح

و هذا هو عنوان الموضوع ^_^

مثلا اذا كان الحقل الاول = 5

الحقل الثاني = 10

ناتج الطرح = -5

بعد تنفيذ الكود = 5

هذا الذي اريده بالضبط

و اذا كان الحقل الاول = 10

الحقل الثاني = 5

ناتج الطرح = 10

بعد تنفيذ الكود = 10

بمعنى انه عندما يكون الناتج لا يحتوى على سالب يتركه كما هوا ^_^

اتوقع ان شرح الطلب الذي اريده وااااااااااضح جدا كوضوح الشمس

اتمنى ان القى الرد الشافي :)

اخوكمــ،،

سلطانــ،،،

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#2

ضيف هاى السطر إلى نهاية الكود

اقتباس
text3=abs(val(text3))

تم تعديل هذه المشاركة بواسطة xhacker في 5 يوليو 2008 في 19:40

#3

يسلمووووو الكود اشتغل مية مية

و قبل شوية قعدت اجرب

سويت كود يدوي هههههههههه يعني طريقة تقليدية

و هذي اكوادها للاستفاده

Dim a As String

Text3.Text = Val(Text1) - Val(Text2)

If Len(Text3) > 1 Then
a = Left$(Text3, (Len(Text3) - Len(Text3) + 1))
If a = "-" Then
Text3 = Right$(Text3, Len(Text3) - 1)
End If
End If

و الكود الي اعطيتني اياه اسهل و يعطيك الف عافية اخوي

شكرا لك

اخوكــ،، سلطانــ،،

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#4

وممكن أيضاً هذا الكود

text3=val(text1) - val(text2)
if val(text3) < 0 then text3 = val(text3) * (-1)

.. تحياتي

#5
  1. text3.text= abs(val(text1) - val(text2))
  2.  

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…