السلام عليكم ورحمة الله وبركاته
استخدام TextBox للعمليات الحسابية VB.NET
ملاحظة: يجب أن يكون المشروع في وضع: Target CPU=x86
السلام عليكم ورحمة الله وبركاته
والله عاجز عن الشكر يا أبو رائد ..... وعلى فكرة أنا متابع لكل جديد خاص بك أنت وأبو ايهاب .................................
تحية لأهل المدينة الطيبين
ولا أملك إلا الدعاء لكم جميعا
مع أني بصراحة .... مش عارف تفسير علمي دقيق للكود ........ يا ريت يا ابو رائد .. تعليق على الكود ... علشان نستفاد
السلام عليكم ورحمة الله وبركاته
جزاك الله خيرآ على هذا المثال الرائع
السلام عليكم و رحمة الله
روعة أخي أبو رائد من زمان و أنا ابحث عن شيء من هذا القبيل كل مرة كنت أقترب من الفكرة لكنني فشلت
ربي يبارك فيك ويجازيك إن شاء الله
و بعد إذنك سأطرح إضافة بسيطة لمثالك و هي إضافة الكلاس التالي
PHP كود :
Public Class newtxtbox
Inherits System.Windows.Forms.TextBox
Protected Overrides Sub OnKeyPress(e As KeyPressEventArgs)
MyBase.OnKeyPress(e)
If Char.IsLetter(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
End Class
بالتوفيق للجميع إن شاء الله
متميز دائما
جعله الله في ميزان حسناتك
طيب ياجماعة الخير عندي فكرة اريد اطبقة بحيث اخذ اخر اربعة ارقام من الرقم على سبيل المثال يكون عندي 9 ارقام
مثلاً 712646463
اريد ادخل الرقم كامل في التاكس بوكس وتطلع لي الحسبة الاتية :
بحيث اخر اربعة ارقام لااي رقم يتم ضربها * 2 والمجموع يكون + 2998 وبعدين المجموع يكون الارقام الاربعة الاولى وهذاء المثال
6463 * 2 = 12926 +2998 = 15924
وهذ صورة توضيحية
شكرا اخواني والله شيء رائع وعقبال يارب نبقي زيكم ....
انا لسة مبتدأ بس بسم الله ماشاء الله لما الواحد بيشوف ناس محترمة مش بتبخل علي حد الواحد بيطمئن يكمل في الفيجوال بيسك
الى الاخ محمد مسافر هدا كود الدي طلبته ممكن تنجز العملية بالحاسبة وتقارن الخارج هل هو ما تريد
PHP كود :
' هنا سوف ناخد التكست بوكس كمصدر لارقام التي نريد
Dim text As String = TextBox1.Text
' هنا متغير سوف ياخد لنا من تكيت بوكس 4 ارقام من اليمين
Dim str As String = Microsoft.VisualBasic.Right(text, 4)
' هنا متغير الدي سنخزن فيه القمية التي اخدنا من التكست مضروبة في 2
Dim int As String = str * 2
' هنا متغير سنخزن فيه القيمة التي ضربناها في 2 واضفنا 2998
Dim int1 As String = int + 2998
' هنا متغير سوف نخزن في اربعة ارقام اخدنها من اليمين من ناتج عملية التي قبلها
Dim int2 As String = Microsoft.VisualBasic.Left(int1, 4)
' هنا رسالة تضهر لنا الخارج
MsgBox(int2)
مثال اكثر من رأع جزاك الله خبر